F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 119

5109 05110 0 002405 DAC NFA 5110 05111 0 002041 DAC DP 5111 05112 0 001577 DAC STOR 5112 05113 0 002367 DAC LFA 5113 05114 0 001565 DAC AT 5114 05115 0 002127 DAC CONT 5115 05116 0 001565 DAC AT 5116 05117 0 001577 DAC STOR 5117 05120 0 001361 DAC SMIS 5118 * 5119 * 5120 * 5121 * **** BACK **** 5122 * HEAD FNUL,BACK,BACK,DOCL 5123 005121 TLNK SET * 5124 05121 002302 VFD 1,0,1,FNUL,6,4,8,'302 5125 * =<FNUL,4>,'B' 5126 05122 140703 BCI 1,AC 5127 05123 045400 VFD 8,'113 ='K' 5128 05124 0 005061 DAC LINK 5129 005121 LINK SET TLNK 5130 05125 0 10 00130 BACK JST DOCL 5131 * JUST COMPILE THE TARGET WORD 5132 * NOT THE DIFFERENCE 5133 05126 0 002256 DAC COMA 5134 05127 0 001361 DAC SMIS 5135 * 5136 * **** BEGIN **** 5137 * HEAD FIMD,BEGIN,BGIN,DOCL 5138 005130 TLNK SET * 5139 05130 042702 VFD 1,0,1,FIMD,6,5,8,'302 5140 * =<FIMD,5>,'B' 5141 05131 142707 BCI 1,EG 5142 05132 144516 VFD 8,'311,8,'116 ='IN' 5143 05133 0 005121 DAC LINK 5144 005130 LINK SET TLNK 5145 05134 0 10 00130 BGIN JST DOCL 5146 05135 0 002472 DAC QCMP 5147 05136 0 002240 DAC HERE 5148 05137 0 001722 DAC ONE 5149 05140 0 001361 DAC SMIS 5150 * 5151 * **** ENDIF **** 5152 * HEAD FIMD,ENDIF,ENDF,DOCL 5153 005141 TLNK SET * 5154 05141 042705 VFD 1,0,1,FIMD,6,5,8,'305 5155 * =<FIMD,5>,'E' 5156 05142 147304 BCI 1,ND 5157 05143 144506 VFD 8,'311,8,'106 ='IF' 5158 05144 0 005130 DAC LINK