F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 24

0959 * **** (LOOP) **** 0960 * USED ONLY BY THE COMPILER. INCREMENT LOOP INDEX BY 1 0961 * BRANCH IF BELOW LIMIT 0962 * HEAD FNUL,(LOOP),XLOP 0963 000315 TLNK SET * 0964 00315 003250 VFD 1,0,1,FNUL,6,6,8,'250 0965 * =<FNUL,6>,'(' 0966 00316 146317 BCI 2,LOOP 00317 147720 0967 00320 024400 VFD 8,'051 =')' 0968 00321 0 000272 DAC LINK 0969 000315 LINK SET TLNK 0970 000322 XLOP EQU * 0971 00322 -0 02 00101 LDA* RP 0972 00323 141206 AOA INCREMENT LOOP VARIABLE 0973 00324 -0 11 00102 XLL1 CAS* RP1 0974 00325 0 01 00337 JMP XLL3 [RP]+1 > [RP1] 0975 00326 0 01 00337 JMP XLL3 [RP]+1 = [RP1] 0976 00327 -0 04 00101 XLL2 STA* RP [RP]+1 < [RP1] 0977 00330 0 12 00100 IRS IP 0978 00331 0 02 00100 LDA IP 0979 00332 140100 SSP 0980 00333 0 04 00104 STA T1 0981 00334 -0 02 00104 LDA* T1 GET JUMP ADDRESS 0982 00335 140500 SSM 0983 00336 0 01 00136 JMP NXT1 AND LOOP 0984 * 0985 00337 0 02 00102 XLL3 LDA RP1 POP 2 VALUES FROM RETURN STACK 0986 00340 141206 AOA 0987 00341 0 04 00101 STA RP 0988 00342 141206 AOA 0989 00343 0 04 00102 STA RP1 0990 00344 0 12 00100 IRS IP AND SKIP THE BRANCH ADDRESS 0991 * 0992 * NEXT EXIT THE LOOP 0993 00345 0 12 00100 IRS IP 0994 00346 -0 01 00100 JMP* IP 0995 EJCT