home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / px / 07sub.s < prev    next >
Text File  |  1980-02-17  |  690b  |  67 lines
  1. /
  2. / SUBTRACTION
  3. /
  4. _SUB42:
  5.     mov    (sp)+,r0
  6.     mov    (sp)+,r1
  7.     br    1f
  8. _SUB2:
  9.     mov    (sp)+,r1
  10.     sxt    r0
  11. 1:
  12.     mov    (sp)+,r3
  13.     sxt    r2
  14.     sub    r1,r3
  15.     sbc    r2
  16.     sub    r0,r2
  17.     mov    r3,-(sp)
  18.     mov    r2,-(sp)
  19.     return
  20. _SUB24:
  21.     mov    (sp)+,r1
  22.     sxt    r0
  23.     sub    r1,2(sp)
  24.     adc    r0
  25.     sub    r0,(sp)
  26.     return
  27. _SUB4:
  28.     sub    (sp)+,2(sp)
  29.     sub    (sp)+,2(sp)
  30.     sbc    (sp)
  31.     return
  32. _SUB8:
  33.     movf    (sp)+,fr0
  34.     movf    (sp)+,fr2
  35.     subf    fr0,fr2
  36.     cfcc
  37.     bvs    9f
  38.     movf    fr2,-(sp)
  39.     return
  40. _SUB28:
  41.     tst    (sp)
  42.     sxt    -(sp)
  43. _SUB48:
  44.     movif    (sp)+,fr0
  45.     movf    (sp)+,fr2
  46.     subf    fr0,fr2
  47.     cfcc
  48.     bvs    9f
  49.     movf    fr2,-(sp)
  50.     return
  51. _SUB82:
  52.     movf    (sp)+,fr0
  53.     tst    (sp)
  54.     sxt    -(sp)
  55.     br    1f
  56. _SUB84:
  57.     movf    (sp)+,fr0
  58. 1:
  59.     movif    (sp)+,fr2
  60.     subf    fr0,fr2
  61.     cfcc
  62.     bvs    9f
  63.     movf    fr2,-(sp)
  64.     return
  65. 9:
  66.     jmp    fpovflo
  67.