UNIX 6th Ed. - /usr/source/fort/fx/fxa.s

   1: /
   2: /
   3: 
   4: / fxa -- genop -- output a typed operator
   5: 
   6: .globl  genop
   7: .globl  newline
   8: 
   9: .globl  code
  10: .globl  typ
  11: 
  12: genop:
  13:         mov     r1,-(sp)
  14:         mov     r3,-(sp)
  15:         bic     $!7,r3
  16:         movb    typ(r3),r1
  17:         mov     (sp),r3
  18:         clrb    r3
  19:         swab    r3
  20:         jsr     r5,code
  21:                 <	%c%c%d\0>; .even
  22:                 r1
  23:                 r0
  24:                 r3
  25:         mov     (sp)+,r3
  26:         mov     (sp)+,r1
  27:         rts     r5
  28: 
  29: newline:
  30:         jsr     r5,code
  31:                 <\n\0>; .even
  32:         rts     r5
  33: 
  34: typ:
  35:         <?irlc??g>

Defined functions