INHALT

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

1747 01313 -0 02 03777 LDA* WORD SAME SECTOR. FORM COMPLETE 1748 01314 0 05 03777 ERA WORD ADDRESS BY JOINING INSTRUCTION 1749 01315 0 03 01673 ANA ='000777 ADDRESS AND LOCATION COUNTER. 1750 01316 0 05 03777 ERA WORD 1751 01317 0 04 02677 OUSD STA NEXT SAVE NEXT LOCATION IN STRING 1752 01320 -0 02 03777 LDA* WORD SEE IF CURRENT LOCATION IS MEANT 1753 01321 0 03 01672 ANA ='036000 TO BE A DAC. 1754 01322 100040 SZE DAC WILL HAVE ZERO OPERATION CODE. 1755 01323 0 01 01332 JMP OUSN NO. NINE-BIT. GO DESECTOR IT. 1756 01324 0 02 03677 LDA VALU YES. DROP IN 14-BIT ADDRESS 1757 01325 -0 05 03777 ERA* WORD BEHIND FLAG AND TAG. 1758 01326 0 03 01711 ANA ='037777 1759 01327 -0 05 03777 ERA* WORD 1760 01330 -0 04 03777 STA* WORD PLACE FINAL WORD. 1761 01331 100000 SKP GO RESUME STRING RUN. 1762 01332 0 10 02065 OUSN JST DESE NINE-BIT. DESECTOR THE CURRENT LOCATION. 1763 01333 0 02 02677 LDA NEXT RESTORE POINTER TO NEXT LOCATION. 1764 01334 100040 SZE CHECK FOR END OF STRING. 1765 01335 0 01 01306 JMP OUSL NO. CARRY ON DOWN STRING. 1766 01336 0 10 02055 JST REST YES. RESTORE TRUE LOCATION. 1767 01337 0 01 01226 JMP OSDL GO TO NEXT DATA WORD. 1768 * 1769 01340 -0 02 03777 OUSZ LDA* WORD SECTOR BIT ZERO. 1770 01341 0 03 01671 ANA ='100777 IF ABSOLUTE ZERO AND NOT FLAGGED. 1771 01342 101040 SNZ END OF STRING. 1772 01343 0 01 01317 JMP OUSD YES. GO WIND IT UP. 1773 01344 0 05 02674 ERA BASE NO. MUST BE BASE SECTOR. 1774 01345 0 03 01673 ANA ='000777 REFERENCE. 1775 01346 0 05 02674 ERA BASE FORM ADDRESS IN BASE SECTOR. 1776 01347 0 10 02656 JST GET PICK UP POINTER THERE. 1777 01350 -0 05 03777 ERA* WORD RECOVER FLAG (AND POSSIBLY TAG, 1778 01351 0 03 03666 ANA MMOD DEPENDING UPON MEMORY MODE) BACK 1779 01352 -0 05 03673 ERA* T TO OBJECT INSTRUCTION. 1780 01353 -0 04 03777 STA* WORD INSTRUCTION WITH CORRECT FLAG AND TAG. 1781 01354 -0 02 03673 LDA* T GET POINTER WORD AGAIN. 1782 01355 0 05 03777 ERA WORD TACK ON HIGH-ORDER BIT FROM 1783 01356 0 03 01711 ANA ='037777 THE LOCATION COUNTER, WHICH WAS 1784 01357 0 05 03777 ERA WORD LOST ON LOADING. 1785 01360 0 01 01317 JMP OUSD IT IS NEXT LOCATION IN STRING. 1786 * 1787 * 1788 * 1789 * HERE FOR ABSOLUTE DAC. 1790 * 1791 01361 0 02 03677 OSD5 LDA VALU ABSOLUTE DAC. 1792 01362 0 05 03774 OD5J ERA DATA DROP 14-BIT ADDRESS IN 1793 01363 0 03 01711 ANA ='037777 BEHIND FLAG AND TAG. 1794 01364 0 05 03774 ERA DATA 1795 01365 0 01 01255 JMP OSD0+1 GO PLACE WORD 1796 *