INHALT

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

2705 03030 -0 01 03024 JMP* SKIP LOADING. RETURN TO CALLER. 2706 * 2707 * 2708 * 2709 03031 14 0101 EOT OCP '0101 MAKE SURE THE READER IS OFF. 2710 03032 0 10 03060 JST CLEN PERFORM INTERPROGRAM CLEAN-UP. 2711 03033 0 02 03033 LDA * SET THE SKIP FLAG TO 2712 03034 0 04 03671 STA SKIF SKIP THE NEXT SUBPROGRAM. 2713 03035 0 02 02652 LDA MO CHECK IF THERE HAS ALREADY 2714 03036 100040 SZE BEEN A MEMORY OVERFLOW. 2715 03037 0 01 02653 JMP MO+1 YES. TAKE 'MO' HALT AGAIN. 2716 03040 0 02 03535 LDA ='100405 NO. SET UP KEY TO LOOK FOR 2717 03041 0 04 03665 STA KEY MISSING SUBPROGRAMS. 2718 03042 0 10 02357 JST SSS SET UP A SEARCH OF THE SYMBOL TABLE. 2719 03043 0 02 03536 LDA ='100477 MASK FOR KEYS DURING SEARCH. 2720 03044 0 10 02363 JST SSN ARE ANY MISSING.Q 2721 03045 0 01 03051 JMP LCER NO. TAKE 'LC' HALT. 2722 03046 0 02 03532 LDA ='146722 (MR) YES. TAKE 'MR' HALT. 2723 03047 0 10 00272 JST TYER GRIPE TO USER AND HALT. 2724 03050 0 01 03445 JMP APM+2 TEST INPUT DEVICE 2725 * 2726 03051 140040 LCER CRA HERE WHEN THE LOAD IS COMPLETE. 2727 03052 0 04 03671 STA SKIF FORCE LOAD THE NEXT SUBPROGRAM 2728 03053 0 02 03531 LDA ='146303 (LC) IF THF USER CONTINUES LOADING. 2729 03054 0 10 00272 JST TYER CONGRATULATE USER AND HALT. 2730 03055 101040 SNZ IF A NON-ZERO, EXEC. PROGRAM 2731 03056 0 01 03233 JMP MAP IF NOW ZERO MAP 2732 03057 0 01 03430 JMP JWB3 UPON RESTART,EXECUTE PROGRAM 2733 * 2734 * 2735 03060 0 000000 CLEN DAC ** HERE TO PERFORM END CLEAN-UP. 2736 03061 0 02 03664 LDA FLAG CHECK FOR 'BLOCK DATA'. 2737 03062 101400 SMI 2738 03063 0 04 03777 STA WORD RESTORE LOCATION IF 'BLOCK DATA*. 2739 03064 0 02 03777 LDA WORD CHECK FOR EVEN LOCATION. 2740 03065 0 07 03530 SUB ='177777 2741 03066 0 03 03527 ANA ='077776 2742 03067 0 04 03777 STA WORD UPDATE THE LOCATION COUNTER. 2743 03070 0 04 03670 STA PBRK UPDATE THE PROGRAM BREAK. 2744 03071 0 10 02613 JST FITS MAKE SURE IT STILL FITS. 2745 03072 0 02 03227 LDA NOP RESET THE NEW STYLE BLOCK FOUR 2746 03073 0 04 00417 STA NSDS INITIALIZATION SWITCH. 2747 03074 0 04 03664 STA FLAG RESET 'BLOCK DATA' FLAG. 2748 03075 0 10 02002 JST SAVE SAVE LOADER WHILE STRINGING. 2749 03076 0 10 02357 JST SSS SET UP FOR SEARCH OF TABLE. 2750 03077 0 02 03526 LDA ='000002 SET UP KEY FOR ADDRESS-ARITHMETIC. 2751 03100 0 04 03665 STA KEY 2752 03101 0 02 03525 CLEL LDA ='000077 LOOK AT ALL ENTRIES OF THIS TYPE. 2753 03102 0 10 02363 JST SSN MOVE TO NEXT ENTRY. 2754 03103 0 01 03144 JMP CLEX NO MORE ENTRIES. GO RESTORE LOADER.