home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt / r5.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  441 b   |  50 lines
  1. /
  2. /
  3.  
  4. / r5 -- long integer arithmetic
  5.  
  6. .globl    iad4
  7. .globl    isb4
  8. .globl    imp4
  9. .globl    idv4
  10. .globl    ing4
  11. .globl    rerr
  12.  
  13. iad4:
  14.     jsr    pc,load
  15.     addf    fr0,fr1
  16.     br    store
  17.  
  18. isb4:
  19.     jsr    pc,load
  20.     subf    fr0,fr1
  21.     br    store
  22.  
  23. imp4:
  24.     jsr    pc,load
  25.     mulf    fr0,fr1
  26.     br    store
  27.  
  28. idv4:
  29.     jsr    pc,load
  30.     divf    fr0,fr1
  31.  
  32. store:
  33.     movfi    fr1,-(sp)
  34.     jmp    *(r4)+
  35.  
  36. load:
  37.     mov    (sp)+,r0
  38.     setd
  39.     setl
  40.     movif    (sp)+,fr0
  41.     movif    (sp)+,fr1
  42.     jmp    (r0)
  43.  
  44. ing4:
  45.     neg    (sp)
  46.     neg    2(sp)
  47.     sbc    (sp)
  48.     jmp    *(r4)+
  49.  
  50.