# 2.11BSD#431 - /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

_MUL2 defined in line 6; never used
_MUL24 defined in line 19; never used
_MUL28 defined in line 54; never used
_MUL4 defined in line 26; used 1 times

- in line 22

_MUL42 defined in line 12; never used
_MUL48 defined in line 57; never used
_MUL8 defined in line 46; never used
_MUL82 defined in line 64; never used
_MUL84 defined in line 69; never used
_SQR2 defined in line 4; never used
_SQR4 defined in line 23; never used
_SQR8 defined in line 43; never used

Last modified: 1981-07-10 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 582 |