UNIX 6th Ed. - /usr/source/fort/rt/r9.s

   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.

Defined functions