INHALT

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

2602 02643 100400 SPL COMPARE WITH BOTTOM OF LOADER. 2603 02644 -0 01 02613 JMP* FITS BELOW LOADER. OK. 2604 02645 0 02 03777 LDA WORD ABOVE BOTTOM. SEE IF ABOVE 2605 02646 0 07 03537 SUB TOP THE LOADER. 2606 02647 100400 SPL 2607 02650 0 10 02652 JST MO NO. WANTS TO DESTROY LOADER. 2608 02651 -0 01 02613 JMP* FITS YES. OK. RETURN. 2609 * 2610 * 2611 * 2612 * MO HERE TO TAKE 'MO' HALT. 2613 * 2614 02652 0 000000 MO DAC ** MEMORY OVERFLOW. 2615 02653 0 02 02701 LDA ='146717 (MO) GRIPE TO USER. 2616 02654 0 10 00272 JST TYER HALT. 2617 02655 0 01 03233 JMP MAP UPON RESTART, GIVE USER A MAP. 2618 * 2619 * 2620 * 2621 02656 0 000000 GET DAC ** HERE FOR 'LDA 0,A'/ 2622 02657 0 04 03673 STA T SAVE POINTER. 2623 02660 -0 02 03673 LDA* T LOAD THROUGH IT. 2624 02661 -0 01 02656 JMP* GET EXIT TO CALLER. 2625 * 2626 * 2627 * 2628 02662 0 000000 GET2 DAC ** HERE TO GET C(C(SSSP)+2). 2629 02663 0 02 03672 LDA SSSP GET SYMBOL TABLE POINTER. 2630 02664 0 06 02700 ADD ='000002 MOVE UP TWO LOCATIONS. 2631 02665 0 10 02656 JST GET GET CONTENTS. 2632 02666 -0 01 02662 JMP* GET2 RETURN TO CALLER. 2633 * 2634 02667 0 000000 MRG2 DAC ** ENTRY POINT 2635 02670 0 05 03670 ERA PBRK PREPARE TO MERGE PBRK UNDER MASK 2636 02671 0 03 03666 ANA MMOD 0 BITS WILL MATCH PBRK, 1 BITS REMAIN 2637 02672 0 05 03670 ERA PBRK REMOVE PBRK BITS FROM MASKED AREA 2638 02673 -0 01 02667 JMP* MRG2 RETURN TO CALLER 2639 * 2640 02674 BASE BSS 2 CURRENT BASE SECTOR, POINTER TO COUNTER 2641 02676 DEFF BSS 1 DEFINED FLAG, FOR 'DEFS'. 2642 02677 NEXT BSS 1 NEXT ITEM LOC WHILE STRINGING 2643 * 2644 * 2645 * 2646 * (MISCELLANEOUS ROUTINES CONTINUED AFTER LOADER ENTRY BLOCK) 2647 * 2648 * 2649 * 2650 02700 000002 FIN END OF SECTOR. FLUSH THE LITERALS. 02701 146717