home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / fx / fx7.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  243 b   |  35 lines
  1. /
  2. /
  3.  
  4. / fx7 -- passes advancement
  5.  
  6. .globl    signon
  7. .globl    signoff
  8.  
  9.  
  10. .globl    pass2
  11. .globl    pass3
  12. .globl    pass4
  13.  
  14. signon:
  15.     tst    (r5)+
  16.     rts    r5
  17.  
  18. signoff:
  19.     mov    (r5)+,r0
  20.     tst    (sp)+
  21.     dec    r0
  22.     asl    r0
  23.     jmp    *passtab(r0)
  24.  
  25. passtab:
  26.     pass2
  27.     pass3
  28.     pass4
  29.  
  30. .data
  31.  
  32.  
  33.  
  34.  
  35.