home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt / r6.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  1.0 KB  |  138 lines
  1. /
  2. /
  3.  
  4. / r6 -- real arithmetic
  5.  
  6. .globl    rad4
  7. .globl    rad8
  8. .globl    rsb4
  9. .globl    rsb8
  10. .globl    rmp4
  11. .globl    rmp8
  12. .globl    rdv4
  13. .globl    rdv8
  14. .globl    rng4
  15. .globl    rng8
  16. .globl    r4r8
  17. .globl    r8r4
  18. .globl    i4r4
  19. .globl    i2r4
  20. .globl    r4i4
  21. .globl    r8i2
  22. .globl    i2r8
  23. .globl    r4i2
  24. .globl    i4r8
  25. .globl    r8i4
  26. .globl    rerr
  27.  
  28. rad8:
  29.     setd
  30.     br    1f
  31. rad4:
  32.     setf
  33. 1:
  34.     movf    (sp)+,fr0
  35.     addf    (sp)+,fr0
  36.     br    store
  37.  
  38. rsb8:
  39.     setd
  40.     br    1f
  41. rsb4:
  42.     setf
  43. 1:
  44.     movf    (sp)+,fr0
  45.     negf    fr0
  46.     addf    (sp)+,fr0
  47.     br    store
  48.  
  49. rmp8:
  50.     setd
  51.     br    1f
  52. rmp4:
  53.     setf
  54. 1:
  55.     movf    (sp)+,fr0
  56.     mulf    (sp)+,fr0
  57.     br    store
  58.  
  59. rdv8:
  60.     setd
  61.     br    1f
  62. rdv4:
  63.     setf
  64. 1:
  65.     movf    (sp)+,fr1
  66.     movf    (sp)+,fr0
  67.     divf    fr1,fr0
  68.  
  69. store:
  70.     movf    fr0,-(sp)
  71.     jmp    *(r4)+
  72.  
  73. rng8:
  74.     setd
  75.     br    1f
  76. rng4:
  77.     setf
  78. 1:
  79.     negf    (sp)
  80.     jmp    *(r4)+
  81.  
  82. r8r4:
  83.     setd
  84.     br    1f
  85. r4r8:
  86.     setf
  87. 1:
  88.     movf    (sp)+,fr0
  89.     movfo    fr0,-(sp)
  90.     jmp    *(r4)+
  91.  
  92. i2r8:
  93.     seti
  94.     br    1f
  95.  
  96. i4r8:
  97.     setl
  98. 1:
  99.     setd
  100.     br    2f
  101.  
  102. i2r4:
  103.     seti
  104.     br    1f
  105.  
  106. i4r4:
  107.     setl
  108. 1:
  109.     setf
  110. 2:
  111.     movif    (sp)+,fr0
  112.     movf    fr0,-(sp)
  113.     jmp    *(r4)+
  114.  
  115. r8i2:
  116.     seti
  117.     br    1f
  118.  
  119. r8i4:
  120.     setl
  121. 1:
  122.     setd
  123.     br    2f
  124.  
  125. r4i2:
  126.     seti
  127.     br    1f
  128.  
  129. r4i4:
  130.     setl
  131. 1:
  132.     setf
  133. 2:
  134.     movf    (sp)+,fr0
  135.     movfi    fr0,-(sp)
  136.     jmp    *(r4)+
  137.  
  138.