F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 23

0911 * **** BRANCH **** 0912 * USED ONLY BY THE COMPILER. BRANCH TO THE ADDRESS WHICH FOLLOWS 0913 * HEAD FNUL,BRANCH,BRAN 0914 000256 TLNK SET * 0915 00256 003302 VFD 1,0,1,FNUL,6,6,8,'302 0916 * =<FNUL,6>,'B' 0917 00257 151301 BCI 2,RANC 00260 147303 0918 00261 044000 VFD 8,'110 ='H' 0919 00262 0 000247 DAC LINK 0920 000256 LINK SET TLNK 0921 000263 BRAN EQU * 0922 00263 0 02 00100 LDA IP 0923 00264 140100 SSP 0924 00265 141206 AOA 0925 00266 0 04 00104 STA T1 0926 00267 -0 02 00104 LDA* T1 0927 00270 140500 SSM INDIRECT BIT 0928 00271 0 01 00136 JMP NXT1 0929 * 0930 * **** 0BRANCH **** 0931 * USED ONLY BY THE COMPILER. BRANCH TO THE ADDRESS WHICH FOLLOWS 0932 * IF THE TOP OF STACK IS ZERO (FALSE) 0933 * HEAD FNUL,0BRANCH,ZBRA 0934 000272 TLNK SET * 0935 00272 003660 VFD 1,0,1,FNUL,6,7,8,'260 0936 * =<FNUL,7>,'0' 0937 00273 141322 BCI 2,BRAN 00274 140716 0938 00275 141510 VFD 8,'303,8,'110 ='CH' 0939 00276 0 000256 DAC LINK 0940 000272 LINK SET TLNK 0941 000277 ZBRA EQU * 0942 00277 0 12 00000 IRS 0 POP 0943 00300 1 02 00000 LDA 0,1 0944 00301 100040 SZE 0945 00302 0 01 00312 JMP ZBR1 0946 00303 0 02 00100 LDA IP 0947 00304 140100 SSP 0948 00305 141206 AOA 0949 00306 0 04 00104 STA T1 0950 00307 -0 02 00104 LDA* T1 0951 00310 140500 SSM 0952 00311 0 01 00136 JMP NXT1 0953 00312 0 12 00100 ZBR1 IRS IP 0954 * 0955 * NEXT 0956 00313 0 12 00100 IRS IP 0957 00314 -0 01 00100 JMP* IP 0958 EJCT