INHALT

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

1597 * 1598 * 1599 * 1600 * ********************************************************************** 1601 * * OLD STYLE BLOCK ROUTINES * 1602 * ********************************************************************** 1603 * 1604 * 1605 * 1606 * HERE TO PROCESS OLD STYLE BLOCKS. 1607 * 1608 01150 0 02 03700 OLD LDA BUFF OLD STYLE BLOCK. 1609 01151 100400 SPL BLOCKS HIGHER THAN SEVEN 1610 01152 0 01 00321 JMP BLER ARE ILLEGAL. 1611 01153 0414 66 LGL 10 GET ADDRESS FIELD, BITS 3-8. 1612 01154 0404 76 LGR 2 ISOLATE THEM. 1613 01155 0 04 03673 STA T SAVE TEMPORARILY. 1614 01156 0 02 03701 LDA BUFF+1 GET ADDRESS FIELD, BITS 9-16. 1615 01157 0404 70 LGR 8 POSITION THEM. 1616 01160 0 05 03673 ERA T FORM COMPLETE ADDRESS. 1617 01161 0 04 03677 STA VALU SAVE IT AWAY. 1618 01162 0 02 03700 LDA BUFF BLOCK TYPE AGAIN. 1619 01163 0404 64 LGR 12 POSITION RIGHT. 1620 01164 0 10 03221 JST SWCH JUMP TO PROCESSOR FOR BLOCK. 1621 01165 0 001175 DAC OS0 O.. SPECIAL ACTION. 1622 01166 0 001204 DAC OS1 1.. ABSOLUTE DATA WORDS. 1623 01167 0 001207 DAC OS2 2.. RELOCATABLE DATA WORDS. 1624 01170 0 001406 DAC OS3 3.. ABSOLUTE END JUMP. 1625 01171 0 001410 DAC OS4 4.. RELOCATABLE END JUMP. 1626 01172 0 001420 DAC OS5 5.. SUBPROGRAM CALL. 1627 01173 0 001436 DAC OS6 6.. SUBPROGRAM OR COMMON DEFINITION. 1628 01174 0 001503 DAC OS7 7.. COMMON REFERENCE. 1629 * 1630 * 1631 * 1632 * OLD STYLE BLOCK O. SPECIAL ACTION. 1633 * 1634 01175 0 02 03700 OS0 LDA BUFF BLOCK TYPE AGAIN. 1635 01176 0404 72 LGR 6 POSITION SUB-TYPE RIGHT. 1636 01177 0 10 03221 JST SWCH JUMP TO PROCESSOR. 1637 01200 0 000321 DAC BLER 0-0.. ILLEGAL. 1638 01201 0 000401 DAC FORS 0-1.. FORCE LOAD NEXT SUBPROGRAM. 1639 01202 0 003031 DAC EOT 0-2.. CHAIN. TREAT LIKE EOT. 1640 01203 0 003031 DAC EOT 0-3.. END OF JOB. TREAT LIKE EOT. 1641 * 1642 * 1643 * 1644 * OLD STYLE BLOCK 1.. ABSOLUTE DATA BLOCK. 1645 * 1646 01204 0 10 03024 OS1 JST SKIP IGNORE DATA BLOCKS IF SKIPPING.