2.9BSD - /usr/src/ucb/pascal/px/10mul.s

   1: /
   2: / MULTIPLICATION & SQUARING
   3: /
   4: _SQR2:
   5:         mov     (sp),-(sp)
   6: _MUL2:
   7:         mov     (sp)+,r0
   8:         mul     (sp)+,r0
   9:         mov     r1,-(sp)
  10:         mov     r0,-(sp)
  11:         return
  12: _MUL42:
  13:         mov     2(sp),r2
  14:         sxt     r1
  15:         sub     (sp),r1
  16:         tst     4(sp)
  17:         sxt     2(sp)
  18:         br      1f
  19: _MUL24:
  20:         tst     (sp)
  21:         sxt     -(sp)
  22:         br      _MUL4
  23: _SQR4:
  24:         mov     2(sp),-(sp)
  25:         mov     2(sp),-(sp)
  26: _MUL4:
  27:         mov     2(sp),r2
  28:         sxt     r1
  29:         sub     (sp)+,r1
  30: 1:
  31:         mov     4(sp),r0
  32:         sxt     r3
  33:         sub     2(sp),r3
  34:         mul     r0,r1
  35:         mul     r2,r3
  36:         add     r1,r3
  37:         mul     r2,r0
  38:         sub     r3,r0
  39:         add     $6.,sp
  40:         mov     r1,-(sp)
  41:         mov     r0,-(sp)
  42:         return
  43: _SQR8:
  44:         movf    (sp),fr0
  45:         br      1f
  46: _MUL8:
  47:         movf    (sp)+,fr0
  48: 1:
  49:         mulf    (sp)+,fr0
  50:         cfcc
  51:         bvs     9f
  52:         movf    fr0,-(sp)
  53:         return
  54: _MUL28:
  55:         tst     (sp)
  56:         sxt     -(sp)
  57: _MUL48:
  58:         movif   (sp)+,fr0
  59:         mulf    (sp)+,fr0
  60:         cfcc
  61:         bvs     9f
  62:         movf    fr0,-(sp)
  63:         return
  64: _MUL82:
  65:         movf    (sp)+,fr0
  66:         tst     (sp)
  67:         sxt     -(sp)
  68:         br      1f
  69: _MUL84:
  70:         movf    (sp)+,fr0
  71: 1:
  72:         movif   (sp)+,fr2
  73:         mulf    fr0,fr2
  74:         cfcc
  75:         bvs     9f
  76:         movf    fr2,-(sp)
  77:         return
  78: 9:
  79:         jmp     fpovflo

Defined functions