home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt / r9.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  567 b   |  62 lines
  1. /
  2. /
  3.  
  4. one = 40200
  5. /  r9 -- fortran runtime -- real**integer
  6.  
  7. .globl    ipi4
  8. .globl    rpi4
  9. .globl    rpi8
  10.  
  11. .globl    rerr
  12.  
  13. ipi4:
  14.     setf
  15.     setl
  16.     movif    4(sp),fr0
  17.     movf    fr0,4(sp)
  18.     jsr    r5,1f
  19.     movfi    fr1,-(sp)
  20.     jmp    *(r4)+
  21.  
  22. rpi4:
  23.     setf
  24.     br    2f
  25.  
  26. rpi8:
  27.     setd
  28. 2:
  29.     jsr    r5,1f
  30.     movf    fr1,-(sp)
  31.     jmp    *(r4)+
  32.  
  33. 1:
  34.     cmp    (sp)+,(sp)+        / jsr + msp of i4
  35.     mov    (sp)+,r0
  36.     movf    $one,fr1
  37.     movf    (sp)+,fr0
  38.     tst    r0
  39.     bgt    1f
  40.     cfcc
  41.     beq    9f
  42.     tst    r0
  43.     beq    3f
  44.     divf    fr0,fr1
  45.     movf    fr1,fr0
  46.     neg    r0
  47.     movf    $one,fr1
  48. 1:
  49.     asr    r0
  50.     bcc    2f
  51.     mulf    fr0,fr1
  52. 2:
  53.     tst    r0
  54.     beq    3f
  55.     mulf    fr0,fr0
  56.     br    1b
  57. 3:
  58.     jmp    (r5)
  59.  
  60. 9:
  61.     jsr    r5, rerr; 17.
  62.