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

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

Defined functions