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

   1: /
   2: /
   3: 
   4: / r4 -- short integer arithmetic
   5: 
   6: .globl  iad2
   7: .globl  isb2
   8: .globl  imp2
   9: .globl  idv2
  10: .globl  i2i4
  11: .globl  i1i4
  12: .globl  i4i2
  13: .globl  i4i1
  14: .globl  ing2
  15: .globl  rval2
  16: .globl  rval1
  17: .globl  l2l1
  18: 
  19: iad2:
  20:         add     (sp)+,(sp)
  21:         jmp     *(r4)+
  22: 
  23: isb2:
  24:         sub     (sp)+,(sp)
  25:         jmp     *(r4)+
  26: 
  27: imp2:
  28:         mov     (sp)+,r1
  29:         mul     (sp)+,r1
  30:         mov     r1,-(sp)
  31:         jmp     *(r4)+
  32: 
  33: idv2:
  34:         mov     2(sp),r1
  35:         sxt     r0
  36:         div     (sp)+,r0
  37:         mov     r0,(sp)
  38:         jmp     *(r4)+
  39: 
  40: i4i2:
  41: i4i1:
  42:         tst     (sp)+
  43:         jmp     *(r4)+
  44: 
  45: i2i4:
  46: i1i4:
  47:         tst     (sp)
  48:         sxt     -(sp)
  49:         jmp     *(r4)+
  50: 
  51: ing2:
  52:         neg     (sp)
  53:         jmp     *(r4)+
  54: 
  55: rval2:
  56:         mov     *(r4)+,-(sp)
  57:         jmp     *(r4)+
  58: 
  59: rval1:
  60:         movb    *(r4)+,r0
  61:         mov     r0,-(sp)
  62: 
  63: l2l1:
  64:         jmp     *(r4)+

Defined functions