F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 38

1542 01245 0 01 01262 JMP DVU4 CARRY SET 1543 01246 000201 DVU2 IAB 1544 01247 141206 AOA QUOTIENT BIT IS 1 1545 01250 000201 IAB 1546 01251 0 02 00106 LDA T3 1547 01252 0 12 00104 DVU3 IRS T1 1548 01253 0 01 01232 JMP DVU1 1549 01254 140200 RCB NO ERROR 1550 01255 0 12 00000 IRS 0 DISCARD DIVISOR 1551 01256 1 04 00002 STA 2,1 REMAINDER 1552 01257 000201 IAB 1553 01260 1 04 00001 STA 1,1 QUOTIENT 1554 01261 -0 01 01210 JMP* DIVU 1555 * 1556 01262 0 02 00105 DVU4 LDA T2 RESTORE, QUOTIENT BIT ZERO 1557 01263 0 01 01252 JMP DVU3 1558 * 1559 * HERE IF TOP BIT SHIFTED OUT WAS 1 SO 1560 * SUBTRACTION CANNOT GENERATE CARRY 1561 01264 1 07 00001 DVU5 SUB 1,1 DIVISOR 1562 01265 0 04 00106 STA T3 1563 01266 0 01 01246 JMP DVU2 1564 * 1565 01267 0 12 00000 DVU6 IRS 0 ERROR EXIT - DISCARD DIVISOR 1566 01270 140040 CRA RETURN ZEROS 1567 01271 1 04 00002 STA 2,1 REMAINDER 1568 01272 1 04 00001 STA 1,1 QUOTIENT 1569 01273 140600 SCB SET CARRY SO CALLER CAN DETECT OVERFLOW 1570 01274 -0 01 01210 JMP* DIVU 1571 EJCT