INHALT

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

2755 03104 0 04 03677 STA VALU INTTIALIZE VALUE ACCUMULATOR. 2756 03105 0 02 03672 LDA SSSP SAVE SYMBOL SEARCH 2757 03106 0 04 03774 STA DATA POINTER. 2758 03107 0 10 02662 JST GET2 GET LOCATION WHICH USES 2759 03110 0 04 03777 STA WORD THIS VALUE. 2760 03111 0 02 03525 CLEM LDA ='000077 SEARCH FOR 2761 03112 0 10 02363 JST SSN OTHER REFERENCES 2762 03113 0 01 03127 JMP CLEY TO SAME LOCATION. 2763 03114 0 10 02662 JST GET2 GET LOCATION ENTRY. 2764 03115 0 05 03777 ERA WORD COMPARE TO LOCATION. 2765 03116 100040 SZE IS IT THE SAME.Q 2766 03117 0 01 03111 JMP CLEM NO. CONTINUE SEARCH. 2767 03120 -0 04 03672 STA* SSSP YES, WIPE IT OUT 2768 03121 0 02 03672 LDA SSSP 2769 03122 0 07 03530 SUB ='177777 2770 03123 0 10 02656 JST GET GET VALUE. 2771 03124 0 06 03677 ADD VALU ADD IT IN THE ADDRESS 2772 03125 0 04 03677 STA VALU ACCUMULATOR. 2773 03126 0 01 03111 JMP CLEM GO LOOK FOR MORE REFERENCES. 2774 * 2775 03127 0 02 03774 CLEY LDA DATA ALL ENTRIES FOR THIS ADDRESS 2776 03130 0 04 03672 STA SSSP COMPLETE. RESTORE SEARCH 2777 03131 -0 02 03672 LDA* SSSP POINTER. 2778 03132 0 03 03524 ANA ='000200 IS WORD A DAC OR A NINE-BIT.Q 2779 03133 101040 SNZ CHECK BIT FROM KEY. 2780 03134 0 01 03142 JMP CLED DAC. GO SERVICE. 2781 03135 0 10 01623 JST SETS NINE-BIT. SET BASE, MMOD. 2782 03136 0 10 02065 JST DESE DESECTOR TO VALUE. 2783 03137 140040 CLEJ CRA WIPE OUT THE FINAL 2784 03140 -0 04 03672 STA* SSSP ADDRESS ARITHMETIC ENTRY. 2785 03141 0 01 03101 JMP CLEL NOW MOVE TO NEXT LOCATION. 2786 * 2787 03142 0 10 03167 CLED JST PROP * 2788 03143 0 01 03137 JMP CLEJ GO WIPE ENTRY AND PROCEED. 2789 * 2790 03144 0 10 02055 CLEX JST REST ALL DONE WITH CLEAN-UP. RESTORE LOADER. 2791 03145 0 02 03662 LDA BACK BACK UP THE SYMBOL TABLE POINTER AND 2792 03146 0 04 03352 STA SYM THE COMMON COUNTER IN CASE LAST SUBPROG 2793 03147 0 02 03663 LDA BACK+1 WAS AN OLD-STYLE SKIPPED. 2794 03150 0 04 03357 STA COMN 2795 03151 140040 CRA 2796 03152 -0 04 03352 STA* SYM CLEAN OUT THE ADVANCED ENTRY. 2797 03153 0 04 03667 STA MODE SET ABSOLUTE MODE. 2798 03154 -0 01 03060 JMP* CLEN RETURN TO CALLER. 2799 * 2800 * 2801 * 2802 * JST SENT SET ENTRY LOCATION FOR MAIN PROGRAM. DISABLES ITSELF 2803 * AFTER FIRST CALL. 2804 *