INHALT

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

1797 * 1798 * 1799 * HERE FOR RELOCATABLE DAC. 1800 * 1801 01366 0 02 03677 OSD6 LDA VALU RELOCATE ADDRESS. 1802 01367 0 06 03670 ADD PBRK 1803 01370 0 01 01362 JMP OD5J NOW HANDLE LIKE ABSOLUTE. 1804 * 1805 * 1806 * 1807 * HERE FOR NEGATIVE RELOCATABLE DAC. 1808 * 1809 01371 0 02 03670 OSD7 LDA PBRK RELOCATE ADDRESS. 1810 01372 0 06 03677 ADD VALU 1811 01373 0 05 01701 ERA ='177777 ONE'S COMPLICATE IT. 1812 01374 0 06 01712 ADD ='000001 TWO'S COMPLICATE IT. 1813 01375 0 01 01362 JMP OD5J GO DROP IN COMPLICATED ADDRESS. 1814 * 1815 * HERE FOR RELOCATABLE 16 BIT CONSTANT 1816 * 1817 01376 0 02 03775 OSD8 LDA DATA+1 ISOLATE LO ORDER 4 BITS OF VALUE 1818 01377 0404 64 LGR 12 1819 01400 0 04 03677 STA VALU SAVE THEM 1820 01401 0 02 03774 LDA DATA ISOLATE HIGH ORDER 12 BITS OF VALUE 1821 01402 0414 74 LGL 4 1822 01403 0 05 03677 ERA VALU INSERT THE LOW ORDER BITS 1823 01404 0 06 03670 ADD PBRK RELOCATE THE CONSTANT 1824 01405 0 01 01255 JMP OSD0+1 GO PLACE THE WORD 1825 * 1826 * 1827 * 1828 * OLD STYLE BLOCK 3.. ABSOLUTE END JUMP BLOCK. 1829 * 1830 01406 140040 OS3 CRA GET ABSOLUTE FLAG. 1831 01407 0 01 01411 JMP OS4J GO JOIN COMMON PROCESSING. 1832 * 1833 * 1834 * 1835 * OLD STYLE BLOCK 4.. RELOCATABLE END JUMP BLOCK. 1836 * 1837 01410 0 02 01710 OS4 LDA ='040000 GET RELOCATABLE FLAG. 1838 01411 0 04 03667 OS4J STA MODE SAVE MODE FLAG. 1839 01412 0 02 03671 LDA SKIF CHECK WHETHER LAST SUBPROGRAM. 1840 01413 101040 SNZ WAS LOADED OR SKIPPED. 1841 01414 0 01 01003 JMP N14J LOADED. GO SAVE NEW SYMTAB AND COMMON. 1842 01415 0 02 03670 LDA PBRK SKIPPED. BACK UP THE LOCATION COUNTER. 1843 01416 0 04 03777 STA WORD 1844 01417 0 01 01007 JMP N14K GO SET ENTRY LOCATION. 1845 * 1846 *