INHALT

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

2855 03216 0 05 03530 ERA ='177777 ONE'S COMPLEMENT 2856 03217 0 07 03530 SUB ='177777 TWO'S COMPLEMENT 2857 03220 0 01 03211 JMP RABS GO GET VALU 2858 * 2859 * 2860 * 2861 * JST SWCH SWITCH JUMP. RETURNS INDIRECTLY THROUGH 'JST+1+N', 2862 * WHERE 'N' IS IN THE A-REGISTER UPON THE CALL. 2863 * CALL MUST BE FOLLOWED BY A SUFFICIENT NUMBER OF DACS. 2864 * 2865 03221 -0 000000 SWCH DAC* ** INDIRECT RETURN. 2866 03222 0 06 03221 ADD SWCH ADD A-REGISTER TO RETURN LOCATION. 2867 03223 0 04 03221 STA SWCH SET NEW RETURN. 2868 03224 -0 01 03221 JMP* SWCH RETURN THROUGH 'JST+1+N' 2869 * 2870 * 2871 * 2872 * ******************************************************************** 2873 * * SUBPROGRAM STORAGE MAP * 2874 * ******************************************************************** 2875 * 2876 * 2877 * 2878 03225 0 01 03226 MAPF JMP *+1 HERE TO TURN OFF MAP. 2879 03226 0 02 03227 LDA *+1 RESET MAP ENTRY TO 2880 03227 101000 NOP NOP PRINT MAP AGAIN NEXT TIME 2881 03230 0 04 03233 STA MAP 2882 03231 0 01 03031 JMP EOT GO PERFORM END CLEAN-UP. 2883 * 2884 * 2885 * 2886 03232 000013 EXA ENTER EXTENDED ADDRESSING 2887 03233 101000 MAP NOP HERE TO PRINT MEMORY MAP. 2888 03234 0 02 03225 LDA MAPF SET JUMP TO TERMINATE 2889 03235 0 04 03233 STA MAP MAP IF USER DESIRES. 2890 03236 0 10 00307 JST TTYN TURN ON THE TELETYPE. 2891 03237 0 10 01653 JST CRLF SPACE UP A LINE. 2892 03240 0 10 02357 JST SSS SET FOR ENTRY WITH CLEAR 'D' BIT. 2893 03241 0 02 03327 LDA LOWP TYPE LOW ADDRESS 2894 03242 0 10 03365 JST LINE * 2895 03243 0 02 03334 LDA MAP1 TYPE THE PROGRAM ENTRY 2896 03244 0 10 03365 JST LINE LOCATION. 2897 03245 0 02 03341 LDA MAP2 TYPE THE HIGHEST LOCATION 8 2898 03246 0 10 03365 JST LINE LOADED. 2899 03247 0 02 03346 LDA MAP3 TYPE THE SIZE OF THE 2900 03250 0 10 03365 JST LINE SYMBOL TABLE. 2901 03251 0 02 03353 LDA MAP4 TYPE THE COMMON BREAK. 2902 03252 0 10 03365 JST LINE 2903 03253 0 04 03774 MAPP STA DATA CLEAR CURRENT LOCATION COUNTER. 2904 03254 0 10 02357 JST SSS SET UP A SYMBOL TABLE SEARCH.