F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 91

3939 04102 0 004061 DAC LINK 3940 004100 LINK SET TLNK 3941 04103 0 10 00130 ULES JST DOCL 3942 04104 0 001402 DAC TOR 3943 04105 0 001716 DAC ZERO 3944 04106 0 001412 DAC FRMR 3945 04107 0 001716 DAC ZERO 3946 04110 0 001502 DAC DMNS 3947 04111 0 001451 DAC DPLS 3948 04112 0 001533 DAC SWAP 3949 04113 0 001526 DAC DROP 3950 04114 0 001435 DAC ZLES 3951 04115 0 001361 DAC SMIS 3952 * 3953 * **** ?STACK **** ERROR CHECK. 3954 * HEAD FNUL,?STACK,QSTK,DOCL 3955 004116 TLNK SET * 3956 04116 003277 VFD 1,0,1,FNUL,6,6,8,'277 3957 * =<FNUL,6>,'?' 3958 04117 151724 BCI 2,STAC 04120 140703 3959 04121 045400 VFD 8,'113 ='K' 3960 04122 0 004100 DAC LINK 3961 004116 LINK SET TLNK 3962 04123 0 10 00130 QSTK JST DOCL 3963 04124 0 001777 DAC SZRO 3964 04125 0 001565 DAC AT 3965 04126 0 001324 DAC SPAT 3966 04127 0 002223 DAC ONEP 3967 04130 0 004103 DAC ULES 3968 04131 0 001722 DAC ONE 3969 04132 0 002455 DAC QERR 3970 04133 0 001324 DAC SPAT 3971 04134 0 002240 DAC HERE 3972 04135 0 000241 DAC LIT 3973 04136 000100 OCT 100 3974 04137 0 001443 DAC PLUS 3975 04140 0 004103 DAC ULES 3976 04141 0 001726 DAC TWO 3977 04142 0 002455 DAC QERR 3978 04143 0 001361 DAC SMIS 3979 * 3980 * **** INTERPRET **** 3981 * HEAD FNUL,INTERPRET,ITRP,DOCL 3982 004144 TLNK SET * 3983 04144 004711 VFD 1,0,1,FNUL,6,9,8,'311 3984 * =<FNUL,9>,'I' 3985 04145 147324 BCI 3,NTERPR 04146 142722 04147 150322