AB16-CCT4

* NAME: AB16-CCT4 DOC 70180658000 REV H PAGE 6

0235 00150 0 02 00464 LDA HISC GET HIGHEST SECTOR 0236 00151 0 07 00515 SUB ='40 TEST IF OVER '40 SECTORS 0237 00152 101400 SMI SKIP IF LESS THAN '40 SECTORS 0238 00153 0 01 00300 JMP EA01 MORE THAN '40 SECTORS, GO TO EXT ROUT. 0239 00154 0 02 00464 LDA HISC 0240 00155 0 07 00514 IN01 SUB =5 (SUB =7 IF CP IS 716) 0241 00156 100400 SPL 0242 00157 000000 HLT ERROR - SAID MEMORY IS LESS THAN 4K 0243 00160 140407 TCA 0244 00161 0 04 00465 STA HSCT NEG COUNTER FOR ADDILIONAL SECTORS 0245 * 0246 * 0247 00162 000011 STR2 DXA 0248 00163 0 01 00164 JMP *+1 NORMAL ADDRESSING 0249 00164 -0 10 00436 JST* ONE TEST GROUP 1 0250 00165 -0 10 00437 JST* TWO TEST GROUP 2 0251 00166 -0 10 00440 JST* THRI TEST GROUP 3 0252 00167 -0 10 00441 JST* FOUR TEST GROUP 4 0253 00170 -0 10 00442 JST* FIVE TEST GROUP 5 0254 00171 -0 10 00443 IN02 JST* SIX TEST GROUP 6 - NOP IF CP IS NOT 716 0255 00172 -0 10 00444 JST* SEVN TEST GROUP 7 - NOP IF CP IS NOT 716 0256 00173 101020 SS1 IF SENSE SW.1 IS SET, TEST IN PLACE 0257 00174 0 01 00200 JMP *+4 IF RESET, JUMP AROUND FOR FULL TESTING 0258 00175 0 02 00467 LDA DCCR TYPE CR FOR EOP IN PLACE 0259 00176 0 10 00402 JST TYPE 0260 00177 0 01 00162 IN08 JMP STR2 GO AND TEST IN PLACE 0261 00200 101000 NOP BECOMES 'JST EOPI' IF CP IS 716 AND MEM 4K 0262 00201 101000 NOP BECOMES 'JMP STR2' IF CP IS 716 AND MEM 4K 0263 00202 101000 NOP 0264 00203 101000 NOP 0265 00204 101000 NOP 0266 00205 101000 NOP 0267 00206 101000 IN09 NOP IF CP I5 716 AND MEMORY 20K' THEN AFTER 0268 * THE PROGRAM HAS MOVED TO THE 40TH SECTOR: 0269 * THE ABOVE 'NOP' BECOMES A 'JMP MVEB', 0270 * I.E. NO RELOCATION IS POSSIBLE IN THE 0271 * UPPER BANK WITH ONLY 20K OF MEMORY 0272 00207 0 02 00513 LDA ='1000 STORE SECTOR 0273 00210 0 04 00430 STA PNT1 LENGTH AT POINTER 1 0274 00211 0 02 00512 IN03 LDA ='6000 (LDA ='10000 IF CP IS 716) 0275 00212 0 04 00431 STA PNT2 STORE NEXT HIGHER SECTOR AT POINTER 2 0276 * 0277 00213 0 02 00511 IN04 LDA =-5 (LDA =-7 IF CP IS 716) 0278 00214 0 04 00427 STA CN02 NO. OF SECTORS FOR TEST 0279 00215 0 02 00465 NXMV LDA HSCT PUT ADDITIONAL SECTORS 0280 00216 0 04 00426 STA CN01 AT CN01 0281 00217 0 02 00430 LDA PNT1 GET TEST SECTOR 0282 00220 0 04 00230 STA DC01 STORE AT 'FROM' ADDRESS 0283 00221 0 02 00431 LDA PNT2 GET HIGHER TEST SECTOR ADDRESS 0284 00222 0 04 00231 STA DC02 STORE AT 'TO' ADDRESS