F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 25

0996 * **** (+LOOP) **** 0997 * USED ONLY BY THE COMPILER. INCREMENT LOOP INDEX BY TOP-OF-STACK 0998 * CONDITIONALLY BRANCH 0999 * HEAD FNUL,(+LOOP),XPLO 1000 000347 TLNK SET * 1001 00347 003650 VFD 1,0,1,FNUL,6,7,8,'250 1002 * =<FNUL,7>,'(' 1003 00350 125714 BCI 2,+LOO 00351 147717 1004 00352 150051 VFD 8,'320,8,'051 ='P)' 1005 00353 0 000315 DAC LINK 1006 000347 LINK SET TLNK 1007 000354 XPLO EQU * 1008 00354 1 02 00001 LDA 1,1 GET INCREMENT 1009 00355 100400 SPL +VE 1010 00356 0 01 00361 JMP XLL4 1011 00357 -0 06 00101 ADD* RP CURRENT LOOP COUNT 1012 00360 0 01 00324 JMP XLL1 SAME COMPARISON AS (LOOP) 1013 * 1014 00361 -0 06 00101 XLL4 ADD* RP CURRENT LOOP COUNT 1015 00362 -0 11 00102 CAS* RP1 1016 00363 0 01 00327 JMP XLL2 [RP]-N > [RP1] 1017 00364 0 01 00327 JMP XLL2 [RP]-N = [RP1] 1018 00365 0 01 00337 JMP XLL3 [RP]-N < [RP1] 1019 * 1020 * **** (DO) **** 1021 * USED ONLY BY THE COMPILER. SET UP 'DO' LIMIT AND INDEX 1022 * HEAD FNUL,(DO),XDO 1023 000366 TLNK SET * 1024 00366 002250 VFD 1,0,1,FNUL,6,4,8,'250 1025 * =<FNUL,4>,'(' 1026 00367 142317 BCI 1,DO 1027 00370 024400 VFD 8,'051 =')' 1028 00371 0 000347 DAC LINK 1029 000366 LINK SET TLNK 1030 000372 XDO EQU * 1031 00372 1 02 00002 LDA 2,1 1032 00373 0 10 00220 JST RPSH 1033 00374 1 02 00001 LDA 1,1 1034 00375 0 10 00220 JST RPSH 1035 00376 0 01 00112 JMP POP2 1036 EJCT