INHALT

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

2202 02132 0 04 03674 STA T+1 BASE SECTOR INDIRECT TABLE. 2203 02133 -0 02 02675 LDA* BASE+1 SET POINTER AND COUNTER. 2204 02134 0 04 03675 STA T+2 2205 02135 0 01 02166 JMP DEST GO ENTER SEARCH SAFE LOOP. 2206 * 2207 02136 0 02 03677 DESL LDA VALU HERE TO HANDLE 'LDX' CASE. 2208 02137 0 03 03666 ANA MMOD TAG DOES NOT MOVE, EVEN IN 2209 02140 -0 05 03777 ERA* WORD 16K MODE, BUT ADDRESS MUST 2210 02141 0 03 02715 ANA ='077777 BE TRUNCATED TO 14 BITS IF SO, 2211 02142 -0 05 03777 ERA* WORD CREATE INDIRECT WORD. 2212 02143 0 04 03673 STA T SAVE IT AWAY. 2213 02144 0 02 02715 LDA ='077777 SET MASK TO RETAIN TAG IN OP. 2214 02145 0 01 02126 JMP DESF GO JOIN STANDARD PROCESSING. 2215 * 2216 02146 0 02 03674 DESB LDA T+1 DESECTOR TO BASE SECTOR. 2217 02147 0 03 02714 ANA ='000777 WIPE ADDRESS TO NINE BITS. 2218 02150 0 01 02154 JMP DESJ SECTOR BIT OFF. 2219 * 2220 02151 0 02 03674 DESC LDA T+1 DESECTOR TO CURRENT SECTOR. 2221 02152 0 03 02714 ANA ='000777 WIPE ADDRESS TO NINE BITS, 2222 02153 0 05 02713 ERA ='001000 SECTOR BIT ON. 2223 02154 -0 05 03777 DESJ ERA* WORD DROP INTO OBJECT WORD. 2224 02155 0 03 02712 ANA ='001777 2225 02156 -0 05 03777 ERA* WORD 2226 02157 -0 04 03777 STA* WORD REPLACE UPDATED WORD. 2227 02160 -0 01 02065 JMP* DESE EXIT TO CALLER. 2228 * 2229 02161 -0 02 03674 DESU LDA* T+1 CONTINUE SEARCH OF INDIRECT TABLE. 2230 02162 0 05 03673 ERA T GET NEXT ENTRY. 2231 02163 101040 SNZ IS IT SAME AS THE ONE WE WANT.Q 2232 02164 0 01 02202 JMP DESG YES. GO USE IT OVER. 2233 02165 0 12 03674 IRS T+1 NO. BUMP COUNTERS. 2234 02166 0 12 03675 DEST IRS T+2 2235 02167 0 01 02161 JMP DESU CONTINUE SEARCH. 2236 02170 0 02 03674 LDA T+1 TABLE EXHAUSTED, GET NEXT 2237 02171 0 05 02674 ERA BASE AVAILABLE LOCATION. 2238 02172 0 03 02722 ANA ='077000 CHECK THAT IT IS STILL IN 2239 02173 100040 SZE THE BASE SECTOR. 2240 02174 0 10 02652 JST MO NO. BASE SECTOR OVERFLOW. 2241 02175 0 02 03673 LDA T YES. PLACE THE INDIRECT 2242 02176 -0 04 03674 STA* T+1 WORD IN IT. 2243 02177 -0 02 02675 LDA* BASE+1 INCREMENT THE BASE SECTOR 2244 02200 0 06 02721 ADD ='177777 USAGE COUNT 2245 02201 -0 04 02675 STA* BASE+1 2246 02202 0 02 03777 DESG LDA WORD SEE IF THE CURRENT SECTOR 2247 02203 0 05 02674 ERA BASE IS THE BASE SECTOR. 2248 02204 0 03 02722 ANA ='077000 2249 02205 100040 SZE 2250 02206 0 01 02146 JMP DESB NO. DESECTOR WITHOUT SECTOR BIT. 2251 02207 0 01 02151 JMP DESC YES. DESECTOR WITH SECTOR BIT.