F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 36

1464 * 1465 * ONLY TOP BIT OF P SET 1466 01161 0 02 00106 UST4 LDA T3 UPPER BITS OF P[2-16]*Q[2-16] 1467 01162 0 06 00105 ADD T2 2^15*Q[2-16] 1468 01163 0 01 01173 JMP UST7 1469 * 1470 01164 1 02 00002 UST5 LDA 2,1 1471 01165 101400 SMI 1472 01166 0 01 01172 JMP UST6 1473 * 1474 * ONLY TOP BIT OF Q SET 1475 01167 0 02 00106 LDA T3 UPPER BITS OF P[2-16]*Q[2-16] 1476 01170 0 06 00104 ADD T1 2^15*P[2-16] 1477 01171 0 01 01173 JMP UST7 1478 * 1479 * NEITHER UPPER BIT SET 1480 01172 0 02 00106 UST6 LDA T3 UPPER BITS OF P[2-16]*Q[2-16] 1481 01173 0400 77 UST7 LRL 1 1482 01174 1 04 00001 UST8 STA 1,1 MS WORD 1483 01175 000201 IAB GET BACK 2^15 SIGNIFICANCE BIT IN MS BIT 1484 01176 0 05 00107 ERA T4 OR IN THE LOWER 15 BITS 1485 01177 1 04 00002 STA 2,1 LS WORD 1486 * 1487 * NEXT 1488 01200 0 12 00100 IRS IP 1489 01201 -0 01 00100 JMP* IP 1490 ENDC 1491 EJCT