Previous Page Single Page Next Page  

* FIG FORTH FOR SERIES-16 MACHINES PAGE 29

1171 * **** ENCLOSE **** 1172 * USED BY THE COMPILER. BREAK NEXT WORD OUT OF THE INPUT BUFFER 1173 * ( CADDR DELIMITER ==> CADDR OFFSET END-OFFSET NEXT-OFFSET) 1174 * HEAD FNUL,ENCLOSE,ENCL 1175 000527 TLNK SET * 1176 00527 003705 VFD 1,0,1,FNUL,6,7,8,'305 1177 * =<FNUL,7>,'E' 1178 00530 147303 BCI 2,NCLO 00531 146317 1179 00532 151505 VFD 8,'323,8,'105 ='SE' 1180 00533 0 000433 DAC LINK 1181 000527 LINK SET TLNK 1182 000534 ENCL EQU * 1183 00534 0 02 00000 LDA 0 1184 00535 0 07 00720 SUB =2 1185 00536 0 04 00000 STA 0 CREATE SPACE FOR RESULTS 1186 00537 140040 CRA SET OFFSET TO ZERO 1187 00540 0 04 00104 STA T1 USE A TEMPORARY TO COUNT CHARACTERS 1188 00541 1 13 00003 IMA 3,1 CLEAR OFFSET, GET DELIMITER 1189 00542 0 04 00105 STA T2 BECAUSE STACK LOCATION WILL BE OVERWRITTEN 1190 00543 0 10 00566 ENC1 JST ENCC 1191 00544 0 01 00561 JMP ENC4 NULL 1192 00545 0 01 00543 JMP ENC1 LOOP ON DELIMITERS 1193 00546 0 07 00736 SUB =1 1194 00547 1 04 00003 STA 3,1 OFFSET 1195 00550 0 10 00566 ENC2 JST ENCC 1196 00551 0 01 00561 JMP ENC4 NULL 1197 00552 100000 SKP DELIMITER 1198 00553 0 01 00550 JMP ENC2 LOOP UNTIL DELIMITER 1199 00554 1 04 00001 STA 1,1 NEXT-OFFSET 1200 00555 0 07 00736 SUB =1 1201 00556 1 04 00002 ENC3 STA 2,1 END-OFFSET 1202 * 1203 * NEXT 1204 00557 0 12 00100 IRS IP 1205 00560 -0 01 00100 JMP* IP 1206 * 1207 00561 1 04 00001 ENC4 STA 1,1 NEXT-OFFSET 1208 00562 1 11 00003 CAS 3,1 CONTAINS THE START-OFFSET 1209 00563 0 01 00556 JMP ENC3 NOT EQUAL 1210 00564 141206 AOA EQUAL - STEP POINTER, FALL THROUGH 1211 00565 0 01 00556 JMP ENC3 NOT EQUAL 1212 EJCT
  Previous Page Single Page Next Page