F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 32

1279 IFN PTW 1280 * HEAD FNUL,PTRC,PTRC **** PTRC - PAPERTAPE READER CHARACTER 1281 000630 TLNK SET * 1282 00630 002320 VFD 1,0,1,FNUL,6,4,8,'320 1283 * =<FNUL,4>,'P' 1284 00631 152322 BCI 1,TR 1285 00632 041400 VFD 8,'103 ='C' 1286 00633 0 000624 DAC LINK 1287 000630 LINK SET TLNK 1288 000634 PTRC EQU * 1289 00634 0 01 05755 JMP PPTC 1290 ENDC 1291 * 1292 * **** CMOVE **** 1293 * ( CADDR1 CADDR2 COUNT --- ) 1294 * ADDRESSES ARE BYTE ADDRESSES NOT CELL (WORD) ADDRESSES 1295 * 1296 * TODO - SHOULD PROBABLY OPTIMIZE TO MOVE WORDS WHERE POSSIBLE 1297 * HEAD FNUL,CMOVE,CMOV 1298 000635 TLNK SET * 1299 00635 002703 VFD 1,0,1,FNUL,6,5,8,'303 1300 * =<FNUL,5>,'C' 1301 00636 146717 BCI 1,MO 1302 00637 153105 VFD 8,'326,8,'105 ='VE' 1303 00640 0 000630 DAC LINK 1304 000635 LINK SET TLNK 1305 000641 CMOV EQU * 1306 00641 1 02 00001 LDA 1,1 GET COUNT 1307 00642 101040 SNZ 1308 00643 0 01 00663 JMP CMVX 1309 00644 140407 TCA 1310 00645 0 04 00104 STA T1 1311 00646 1 02 00002 LDA 2,1 DESTINATION ADDRESS 1312 00647 0 04 00105 STA T2 1313 00650 1 02 00003 LDA 3,1 SOURCE ADDRESS 1314 00651 0 04 00106 STA T3 1315 * 1316 00652 0 02 00106 CMVL LDA T3 GET POINTER 1317 00653 0 12 00106 IRS T3 STEP 1318 00654 0 10 00166 JST CHGT GET CHARACTER 1319 00655 000201 IAB 1320 00656 0 02 00105 LDA T2 GET DEST POINTER 1321 00657 0 12 00105 IRS T2 1322 00660 0 10 00176 JST CHPT PUT CHARACTER 1323 00661 0 12 00104 IRS T1 1324 00662 0 01 00652 JMP CMVL 1325 * 1326 00663 0 12 00000 CMVX IRS 0 ALSO USED FOR MOVE EXIT 1327 00664 0 01 00112 JMP POP2 1328 EJCT