projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| ed4c4f10 BJ |
1 | / |
| 2 | / FLOATING DIVISION | |
| 3 | / | |
| 4 | _DVD2: | |
| 5 | tst (sp) | |
| 6 | sxt -(sp) | |
| 7 | _DVD42: | |
| 8 | movif (sp)+,fr0 | |
| 9 | br 1f | |
| 10 | _DVD82: | |
| 11 | movf (sp)+,fr0 | |
| 12 | 1: | |
| 13 | cfcc | |
| 14 | beq 9f | |
| 15 | tst (sp) | |
| 16 | sxt -(sp) | |
| 17 | movif (sp)+,fr2 | |
| 18 | divf fr0,fr2 | |
| 19 | cfcc | |
| 20 | bvs 8f | |
| 21 | movf fr2,-(sp) | |
| 22 | return | |
| 23 | _DVD24: | |
| 24 | tst (sp) | |
| 25 | sxt -(sp) | |
| 26 | _DVD4: | |
| 27 | movif (sp)+,fr0 | |
| 28 | br 1f | |
| 29 | _DVD84: | |
| 30 | movf (sp)+,fr0 | |
| 31 | 1: | |
| 32 | cfcc | |
| 33 | beq 9f | |
| 34 | movif (sp)+,fr2 | |
| 35 | divf fr0,fr2 | |
| 36 | cfcc | |
| 37 | bvs 8f | |
| 38 | movf fr2,-(sp) | |
| 39 | return | |
| 40 | _DVD28: | |
| 41 | tst (sp) | |
| 42 | sxt -(sp) | |
| 43 | _DVD48: | |
| 44 | movif (sp)+,fr0 | |
| 45 | br 1f | |
| 46 | _DVD8: | |
| 47 | movf (sp)+,fr0 | |
| 48 | 1: | |
| 49 | cfcc | |
| 50 | beq 9f | |
| 51 | movf (sp)+,fr2 | |
| 52 | divf fr0,fr2 | |
| 53 | cfcc | |
| 54 | bvs 8f | |
| 55 | movf fr2,-(sp) | |
| 56 | return | |
| 57 | 9: | |
| 58 | mov $EFDIVCHK,_perrno | |
| 59 | error EFDIVCHK | |
| 60 | 8: | |
| 61 | jmp fpovflo |