F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 63

2563 * **** 1+ **** 2564 * HEAD FNUL,1+,ONEP 2565 002220 TLNK SET * 2566 02220 001261 VFD 1,0,1,FNUL,6,2,8,'261 2567 * =<FNUL,2>,'1' 2568 02221 025400 VFD 8,'053 ='+' 2569 02222 0 002212 DAC LINK 2570 002220 LINK SET TLNK 2571 002223 ONEP EQU * 2572 02223 1 02 00001 LDA 1,1 2573 02224 141206 AOA 2574 02225 0 01 00125 JMP PUT 2575 * 2576 * **** 2+ **** 2577 * HEAD FNUL,2+,TWOP 2578 002226 TLNK SET * 2579 02226 001262 VFD 1,0,1,FNUL,6,2,8,'262 2580 * =<FNUL,2>,'2' 2581 02227 025400 VFD 8,'053 ='+' 2582 02230 0 002220 DAC LINK 2583 002226 LINK SET TLNK 2584 002231 TWOP EQU * 2585 02231 1 02 00001 LDA 1,1 2586 02232 0 06 00720 ADD =2 2587 02233 0 01 00125 JMP PUT 2588 * 2589 * **** HERE **** 2590 * HEAD FNUL,HERE,HERE,DOCL 2591 002234 TLNK SET * 2592 02234 002310 VFD 1,0,1,FNUL,6,4,8,'310 2593 * =<FNUL,4>,'H' 2594 02235 142722 BCI 1,ER 2595 02236 042400 VFD 8,'105 ='E' 2596 02237 0 002226 DAC LINK 2597 002234 LINK SET TLNK 2598 02240 0 10 00130 HERE JST DOCL 2599 02241 0 002041 DAC DP 2600 02242 0 001565 DAC AT 2601 02243 0 001361 DAC SMIS 2602 * 2603 * **** ALLOT **** 2604 * HEAD FNUL,ALLOT,ALOT,DOCL 2605 002244 TLNK SET * 2606 02244 002701 VFD 1,0,1,FNUL,6,5,8,'301 2607 * =<FNUL,5>,'A' 2608 02245 146314 BCI 1,LL 2609 02246 147524 VFD 8,'317,8,'124 ='OT' 2610 02247 0 002234 DAC LINK 2611 002244 LINK SET TLNK 2612 02250 0 10 00130 ALOT JST DOCL