INHALT

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

1697 01255 -0 04 03777 STA* WORD PLACE IT. 1698 01256 0 12 03777 OSDT IRS WORD BUMP THE LOCATION COUNTER. 1699 01257 0 10 02613 JST FITS CHECK IF WE STILL FIT. 1700 01260 0 01 01226 JMP OSDL YES. MOVE TO NEXT DATA WORD. 1701 * 1702 * 1703 * 1704 * HERE FOR ABSOLUTE ADDRESS NINE-BIT. 1705 * 1706 01261 0 02 03774 OSD1 LDA DATA ABSOLUTE NINE-BIT. 1707 01262 0 03 01675 ANA ='176000 PLACE FLAG, TAG, 1708 01263 -0 04 03777 STA* WORD AND OPERATION IN STORAGE. 1709 01264 0 10 02065 JST DESE DESECTOR IT. 1710 01265 0 01 01256 JMP OSDT GO TO NEXT DATA WORD. 1711 * 1712 * 1713 * 1714 * HERE FOR RELOCATABLE ADDRESS NINE-BIT. 1715 * 1716 01266 0 02 03670 OSD2 LDA PBRK GET THE PROGRAM BREAK. 1717 01267 0 06 03677 ADD VALU RELOCATE THE ADDRESS. 1718 01270 0 04 03677 STA VALU 1719 01271 0 01 01261 JMP OSD1 NOW HANDLE LIKE ABSOLUTE. 1720 * 1721 * 1722 * 1723 * HERE FOR NEGATIVE RELOCATABLE NINE-BIT. 1724 * 1725 01272 0 02 03670 OSD3 LDA PBRK GET THE PROGRAM BREAK. 1726 01273 0 06 03677 ADD VALU RELOCATE THE ADDRESS. 1727 01274 0 05 01701 ERA ='177777 ONE'S COMPLICATE IT. 1728 01275 0 06 01712 ADD ='000001 TWO'S COMPLICATE IT. 1729 01276 0 01 01270 JMP OSD2+2 SAVE VALUE AND HANDLE LIKE ABSOLUTE 1730 * 1731 * 1732 * 1733 * HERE FOR FORTRAN STRING DEFINITION. 1734 * 1735 01277 0 10 02002 OSD4 JST SAVE SAVE THE LOADER LOCATION. 1736 01300 0 02 03677 LDA VALU VALUE IN DATA WORD IS END 1737 01301 0 06 03670 ADD PBRK OF STRING TO RUN. 1738 01302 0 04 02677 STA NEXT RELOCATE IT AND SAVE IT. 1739 01303 0 02 03777 LDA WORD CURRENT LOCATION IS THE 1740 01304 0 04 03677 STA VALU VALUE OF THE STRING. 1741 01305 0 02 02677 LDA NEXT GET NEXT LOCATION IN STRING. 1742 01306 0 04 03777 OUSL STA WORD GO TO IT. 1743 01307 -0 02 03777 LDA* WORD PICK UP WORD THERE. 1744 01310 0 03 01674 ANA ='001000 CHECK ITS SECTOR BIT. 1745 01311 101040 SNZ 1746 01312 0 01 01340 JMP OUSZ ZERO. GO SERVICE.