INHALT

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

1647 01205 0 02 03677 LDA VALU GET THE BLOCK ORIGIN. 1648 01206 0 01 01212 JMP OSDJ GO SET IT UP AND PROCESS BLOCK. 1649 * 1650 * 1651 * 1652 * OLD STYLE BLOCK 2.. RELOCATABLE DATA BLOCK. 1653 * 1654 01207 0 10 03024 OS2 JST SKIP IGNORE DATA BLOCKS IF SKIPPING. 1655 01210 0 02 03677 LDA VALU GET THE BLOCK ORIGIN. 1656 01211 0 06 03670 ADD PBRK RELOCATE IT. 1657 01212 0 04 03777 OSDJ STA WORD SET LOCATION COUNTER. 1658 01213 0 02 03700 LDA BUFF BLOCK CONTROL WORD. 1659 01214 0 03 01702 ANA ='007700 ISOLATE WORD COUNT. 1660 01215 0404 72 LGR 6 RIGHT ADJUST. 1661 01216 0 05 01701 ERA ='177777 -N-1. 1662 01217 0 06 01700 ADD ='000003 -N+2. 1663 01220 0 04 00656 STA BUFN INITIALIZE BUFFER COUNTER. 1664 01221 0 02 00365 LDA BUFD =(DAC BUFF+1) OK. SET UP BUFFER POINTER. 1665 01222 0 04 00657 STA BUFP 1666 01223 0 10 02613 JST FITS CHECK VALIDITY OF ORIGIN. 1667 01224 0 02 01677 LDA ='100000 SET THE 'R24B' SWITCH ODD, 1668 01225 0 04 01662 STA R24S SINCE OLD STYLE BLOCKS OTHER PARITY. 1669 01226 0 10 01520 OSDL JST R24B ALL SET READ A DATA WORD. 1670 01227 0 02 03775 LDA DATA+1 EXTRACT ADDRESS PORTION. 1671 01230 0404 64 LGR 12 GET BITS 13-16 OF ADDRESS. 1672 01231 0 04 03677 STA VALU SAVE TEMPORARILY. 1673 01232 0 02 03774 LDA DATA GET BITS 3-12 OF ADDRESS. 1674 01233 0414 72 LGL 6 ISOLATE THEM. 1675 01234 0404 76 LGR 2 POSITION THEM. 1676 01235 0 05 03677 ERA VALU FORM WHOLE ADDRESS. 1677 01236 0 04 03677 STA VALU SAVE IT AWAY. 1678 01237 0 02 03775 LDA DATA+1 GET WORD TYPE CODE. 1679 01240 0404 70 LGR 8 POSITION RIGHT. 1680 01241 0 03 01676 ANA ='17 MASK TO SIZE 1681 01242 0 10 03221 JST SWCH JUMP TO PROCESSOR FOR TYPE. 1682 01243 0 001254 DAC OSD0 O.. ABSOLUTE DATA OR GENERIC. 1683 01244 0 001261 DAC OSD1 1.. ABSOLUTE NINE-BIT. 1684 01245 0 001266 DAC OSD2 2.. RELOCATABLE NINE-BIT. 1685 01246 0 001272 DAC OSD3 3.. NEG RELOC NINE-BIT. 1686 01247 0 001277 DAC OSD4 4.. STRING DEFINITION. 1687 01250 0 001361 DAC OSD5 5.. ABSOLUTE DAC. 1688 01251 0 001366 DAC OSD6 6.. RELOCATABLE DAC. 1689 01252 0 001371 DAC OSD7 7.. NEG RELOC DAC. 1690 01253 0 001376 DAC OSD8 8.. RELOCATABLE CONSTANT 1691 * 1692 * 1693 * 1694 * HERE FOR ABSOLUTE DATA OR GENERIC. 1695 * 1696 01254 0 02 03774 OSD0 LDA DATA GET 16-BIT WORD.