INHALT

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

1547 01115 0 10 02210 JST DESS DESECTOR FOR STRING. 1548 01116 0 01 01072 JMP N44X BUMP COUNTER AND EXIT. 1549 * 1550 * 1551 * 1552 * NS50 NEW STYLE BLOCK 50.. SUBPROGRAM DEFINITION. 1553 * 1554 01117 0 10 03024 NS50 JST SKIP IGNORE DEFINITION IF NOT LOADING. 1555 01120 0 02 03777 LDA WORD SUBPROGRAM WILL BE DEFINED 1556 01121 0 03 03666 ANA MMOD DEFINE AS 14 OR 15 BIT ADDRESS 1557 01122 0 04 03677 STA VALU AS CURRENT LOCATION. 1558 01123 0 10 02002 JST SAVE SAVE LOADER FOR POSSIBLE UNSTRING. 1559 01124 0 02 01704 LDA ='100005 GET KEY FOR LOADED SUBPROGRAM. 1560 01125 0 04 03665 STA KEY SET IT UP. 1561 01126 0 10 01561 N50L JST R48B READ FIRST NAME. 1562 01127 0 10 02446 JST DEFS GO DEFINE IT. 1563 01130 0 10 02055 JST REST RESTORE LOADER IN CASE DONE. 1564 01131 0 01 01126 JMP N50L LOOP FOR ALL NAMES. 1565 * 1566 * 1567 * 1568 * NEW STYLE BLOCK 54.. ENTER EXTEND-MODE DESECTORING. 1569 * 1570 01132 0 10 03024 NS54 JST SKIP IGNORE IF NOT LOADING 1571 01133 0 02 01703 LDA ='077777 GET EXTENDED MODE FLAG 1572 01134 0 01 01137 JMP NS60+2 READ ON . . . 1573 * 1574 * 1575 * 1576 * NEW STYLE BLOCK 60.. LEAVE EXTEND-MODE DESECTORING. 1577 * 1578 01135 0 10 03024 NS60 JST SKIP IGNORE IF NOT LOADING 1579 01136 0 02 01711 LDA ='037777 GET LXD FLAG (NORMAL) 1580 01137 0 04 03666 STA MMOD SET IT UP. 1581 01140 0 01 00323 JMP BLOK EXIT TO READ NEXT BLOCK. 1582 * 1583 * 1584 * 1585 * NEW STYLE BLOCK 64.. SET BASE SECTOR. 1586 * 1587 01141 0 10 03024 NS64 JST SKIP IGNORE IF NOT LOADING 1588 01142 0 02 03702 LDA BUFF+2 GET DESIRED BASE 1589 01143 100400 SPL SKIP IF ABSOLUTE. 1590 01144 0 06 03670 ADD PBRK RELOCATE. BUMP IT. 1591 01145 0 10 02667 JST MRG2 PBRK 1592 01146 0 10 02015 JST SETB GO SET LOADER BASE SECTOR. 1593 01147 0 01 00323 JMP BLOK EXIT TO NEXT BLOCK. 1594 * 1595 * 1596 *