INHALT

* NAME: LDR-APM DOC. 70180005000 REV. E PAGE 30

1424 00646 0 02 03775 LDA DATA+1 C(W)17-21 = V12-16 TO C(A)1-5. 1425 00647 0404 65 LGR 11 NOW TO C(A)12-16. 1426 00650 0 04 03673 STA T SAVE 1427 00651 0 02 03774 LDA DATA 1428 00652 0 02 03774 LDA DATA C(W)6-16 = V1-11 TO C(A)6-16. 1429 00653 0414 73 LGL 5 NOW TO C(A)1-11. 1430 00654 0 05 03673 ERA T COMBINE WITH OTHER HALF 1431 00655 -0 01 00645 JMP* EXT EXIT, ANSWER IN A-REGISTER. 1432 * 1433 * 1434 00656 BUFN BSS 1 BUFFER COUNTER , FOR 'BLOK'. 1435 00657 BUFP BSS 1 BUFFER POINTER, FOR 'BLOK'. 1436 00660 R1KN BSS 1 BLOCK WORD COUNT FOR 'R1K' 1437 00661 K BSS 1 STORAGE FOR SYMBOL NUMBER 1438 00662 0 000000 SW DAC ** 1439 * 1440 * 1441 00663 077777 FIN END OF SECTOR. FLUSH THE LITERALS. 00664 140000 00665 000400 00666 176000 00667 100005 00670 000003 00671 177777 00672 170377 00673 000221 00674 017777 00675 141713 00676 000077 00677 000005 00700 000011 00701 000017 00702 000001 00703 000020 00704 000037 00705 177740 00706 000034 00707 120000 00710 000223 00711 141314 00712 000002 00713 000203 00714 177704 1442 000715 STBO EQU * DESECTORING AREA NO. 1 1443 * 1444 * 1445 * 1446 EJCT