home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / infix.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  300 b   |  36 lines
  1. .globl .p,sprv
  2. .globl .a,.s,.o,.n,.x
  3.  
  4. / +
  5. .a:
  6.     jsr    pc,sprv
  7.     add    (sp),4(sp)
  8.     br    9f
  9.  
  10. / -
  11. .s:
  12.     jsr    pc,sprv
  13.     sub    (sp),4(sp)
  14.     br    9f
  15.  
  16. / |
  17. .o:
  18.     jsr    pc,sprv
  19.     bis    (sp),4(sp)
  20.     br    9f
  21.  
  22. / &
  23. .n:
  24.     jsr    pc,sprv
  25.     com    (sp)
  26.     bic    (sp),4(sp)
  27.     br    9f
  28.  
  29. / ^ exclusive or
  30. .x:
  31.     jsr    pc,sprv
  32.     mov    (sp),r0
  33.     xor    r0,4(sp)
  34. 9:
  35.     jmp    .p
  36.