F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 22

0862 ****************************************************************** 0863 * 0864 * CODE DEFINITIONS 0865 * 0866 ****************************************************************** 0867 ORG NXTW 0868 000000 LINK SET 0 0869 000000 FNUL EQU 0 0870 000001 FIMD EQU 1 0871 * 0872 * **** LIT **** 0873 * USED ONLY BY THE COMPILER. PUSH FOLLOWING LITERAL ONTO THE STACK 0874 * HEAD FNUL,LIT,LIT 0875 000236 TLNK SET * 0876 00236 001714 VFD 1,0,1,FNUL,6,3,8,'314 0877 * =<FNUL,3>,'L' 0878 00237 144524 VFD 8,'311,8,'124 ='IT' 0879 00240 0 000000 DAC LINK 0880 000236 LINK SET TLNK 0881 000241 LIT EQU * 0882 00241 0 12 00100 IRS IP 0883 00242 0 02 00100 LDA IP 0884 00243 140100 SSP LOSE INDIRECT BIT 0885 00244 0 04 00104 STA T1 0886 00245 -0 02 00104 LDA* T1 0887 00246 0 01 00116 JMP PUSH 0888 * 0889 * **** EXEC **** 0890 * USED ONLY BY THE COMPILER. EXECUTE FORTH WORD WHOSE ADDRESS IS 0891 * ON THE STACK 0892 * HEAD FNUL,EXECUTE,EXEC 0893 000247 TLNK SET * 0894 00247 003705 VFD 1,0,1,FNUL,6,7,8,'305 0895 * =<FNUL,7>,'E' 0896 00250 154305 BCI 2,XECU 00251 141725 0897 00252 152105 VFD 8,'324,8,'105 ='TE' 0898 00253 0 000236 DAC LINK 0899 000247 LINK SET TLNK 0900 000254 EXEC EQU * 0901 00254 0 12 00000 IRS 0 POP 0902 IFZ XTND 0903 00255 -1 01 00000 JMP* 0,1 JMP TO CFA 0904 ELSE 0905 * EXTENDED ADDRESSING DELAYS INDEXING UNTIL AFTER ALL INDIR. 0906 LDA 0,1 0907 STA T1 0908 JMP* T1 0909 ENDC 0910 EJCT