home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt / r3.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  387 b   |  51 lines
  1. /
  2. /
  3.  
  4. / r3 -- comparisons
  5.  
  6. .globl    lif2
  7. .globl    lif1
  8. .globl    rif4
  9. .globl    iif2
  10. .globl    iif4
  11. .globl    rif8
  12.  
  13. lif2:
  14. lif1:
  15.     tst    (sp)+
  16.     bne    1f
  17.     mov    (r4),r4
  18.     jmp    *(r4)+
  19. 1:
  20.     tst    (r4)+
  21.     jmp    *(r4)+
  22.  
  23. rif8:
  24.     setd
  25.     tstf    (sp)+
  26.     cfcc
  27.     br    2f
  28.  
  29. iif4:
  30. rif4:
  31.     mov    (sp)+,r0
  32.     mov    (sp)+,r1
  33.     tst    r0
  34.     bne    2f
  35.     tst    r1
  36.     cln
  37.     br    2f
  38.  
  39. iif2:
  40.     tst    (sp)+
  41. 2:
  42.     bmi    1f
  43.     beq    2f
  44.     tst    (r4)+
  45. 2:
  46.     tst    (r4)+
  47. 1:
  48.     mov    (r4),r4
  49.     jmp    *(r4)+
  50.  
  51.