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

   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)+

Defined functions