F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 33

1329 * **** MOVE **** 1330 * ( ADDR1 ADDR2 COUNT --- ) 1331 * ADDRESSES ARE CELL (WORD) ADDRESSES 1332 * 1333 * HEAD FNUL,MOVE,MOVE 1334 000665 TLNK SET * 1335 00665 002315 VFD 1,0,1,FNUL,6,4,8,'315 1336 * =<FNUL,4>,'M' 1337 00666 147726 BCI 1,OV 1338 00667 042400 VFD 8,'105 ='E' 1339 00670 0 000635 DAC LINK 1340 000665 LINK SET TLNK 1341 000671 MOVE EQU * 1342 00671 1 02 00001 LDA 1,1 GET COUNT 1343 00672 101040 SNZ 1344 00673 0 01 00663 JMP CMVX 1345 00674 140407 TCA 1346 00675 0 04 00104 STA T1 1347 00676 1 02 00002 LDA 2,1 DESTINATION ADDRESS 1348 00677 0 04 00105 STA T2 1349 00700 1 02 00003 LDA 3,1 SOURCE ADDRESS 1350 00701 0 04 00106 STA T3 1351 * 1352 00702 -0 02 00106 MOVL LDA* T3 1353 00703 0 12 00106 IRS T3 1354 00704 -0 04 00105 STA* T2 1355 00705 0 12 00105 IRS T2 1356 00706 0 12 00104 IRS T1 1357 00707 0 01 00702 JMP MOVL 1358 00710 0 01 00663 JMP CMVX 1359 * 1360 * FIRST SECTOR FULL - LEAVING SPACE FOR CONSTANT POOL 1361 * AND DESECTORIZING 1362 * 1363 000711 NXTY EQU * 1364 EJCT