home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / fx / fxa.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  347 b   |  37 lines
  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>
  36.  
  37.