Previous Page Single Page Next Page  

* FIG FORTH FOR SERIES-16 MACHINES PAGE 75

3153 02760 0 000401 TYP1 DAC I 3154 02761 0 001572 DAC CAT 3155 02762 0 000610 DAC EMIT 3156 02763 0 000322 DAC XLOP 3157 02764 0 002760 DAC TYP1 3158 02765 0 000263 DAC BRAN 3159 02766 0 002770 DAC TYP3 3160 02767 0 001526 TYP2 DAC DROP 3161 02770 0 001361 TYP3 DAC SMIS 3162 * 3163 * **** -TRAILING **** REDUCE CHARACTER COUNT OF STRING 3164 * TO OMIT TRAILING SPACES 3165 * ( CADDR COUNT2 --- CADDR COUNT2 ) 3166 * HEAD FNUL,-TRAILING,DTRA,DOCL 3167 002771 TLNK SET * 3168 02771 004655 VFD 1,0,1,FNUL,6,9,8,'255 3169 * =<FNUL,9>,'-' 3170 02772 152322 BCI 3,TRAILI 02773 140711 02774 146311 3171 02775 147107 VFD 8,'316,8,'107 ='NG' 3172 02776 0 002744 DAC LINK 3173 002771 LINK SET TLNK 3174 02777 0 10 00130 DTRA JST DOCL 3175 03000 0 001541 DAC DUP 3176 03001 0 001716 DAC ZERO 3177 03002 0 000372 DAC XDO 3178 03003 0 001520 DTR1 DAC OVER 3179 03004 0 001520 DAC OVER 3180 03005 0 001443 DAC PLUS 3181 03006 0 001722 DAC ONE 3182 03007 0 002266 DAC SUB 3183 03010 0 001572 DAC CAT 3184 03011 0 001737 DAC BL 3185 03012 0 002266 DAC SUB 3186 03013 0 000277 DAC ZBRA 3187 03014 0 003020 DAC DTR2 3188 03015 0 001373 DAC LEAV 3189 03016 0 000263 DAC BRAN 3190 03017 0 003022 DAC DTR3 3191 03020 0 001722 DTR2 DAC ONE 3192 03021 0 002266 DAC SUB 3193 03022 0 000322 DTR3 DAC XLOP 3194 03023 0 003003 DAC DTR1 3195 03024 0 001361 DAC SMIS 3196 * 3197 * **** (.") **** USED ONLY BY COMPILER. COMPILED BY '."' 3198 * HEAD FNUL,(."),PDTQ,DOCL 3199 003025 TLNK SET * 3200 03025 002250 VFD 1,0,1,FNUL,6,4,8,'250
  Previous Page Single Page Next Page