home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt / r4.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  591 b   |  66 lines
  1. /
  2. /
  3.  
  4. / r4 -- short integer arithmetic
  5.  
  6. .globl    iad2
  7. .globl    isb2
  8. .globl    imp2
  9. .globl    idv2
  10. .globl    i2i4
  11. .globl    i1i4
  12. .globl    i4i2
  13. .globl    i4i1
  14. .globl    ing2
  15. .globl    rval2
  16. .globl    rval1
  17. .globl    l2l1
  18.  
  19. iad2:
  20.     add    (sp)+,(sp)
  21.     jmp    *(r4)+
  22.  
  23. isb2:
  24.     sub    (sp)+,(sp)
  25.     jmp    *(r4)+
  26.  
  27. imp2:
  28.     mov    (sp)+,r1
  29.     mul    (sp)+,r1
  30.     mov    r1,-(sp)
  31.     jmp    *(r4)+
  32.  
  33. idv2:
  34.     mov    2(sp),r1
  35.     sxt    r0
  36.     div    (sp)+,r0
  37.     mov    r0,(sp)
  38.     jmp    *(r4)+
  39.  
  40. i4i2:
  41. i4i1:
  42.     tst    (sp)+
  43.     jmp    *(r4)+
  44.  
  45. i2i4:
  46. i1i4:
  47.     tst    (sp)
  48.     sxt    -(sp)
  49.     jmp    *(r4)+
  50.  
  51. ing2:
  52.     neg    (sp)
  53.     jmp    *(r4)+
  54.  
  55. rval2:
  56.     mov    *(r4)+,-(sp)
  57.     jmp    *(r4)+
  58.  
  59. rval1:
  60.     movb    *(r4)+,r0
  61.     mov    r0,-(sp)
  62.  
  63. l2l1:
  64.     jmp    *(r4)+
  65.  
  66.