1 1 9S04 HA 7-01-58 PAGE 1 9S04H HALF SELECT CORE MEMORY BEAT TEST FOR A 738 CORE STORAGE THE FIRST HALF OF THE PROGRAM TESTS HIGH END OF MEMORY FROM 2000 TO 77777 AND THE SECOND HALF TESTS THE LOW END OF MEMORY FROM 00000 TO 75777 00000 0020 00 0 01666 TRA NPER TO PRINT IDENTIFICATION 00001 0760 00 0 00140 C SLF TURN OFF ALL SENSE LIGHTS 00002 0760 00 0 00144 SLN 4 TURN SENSE LIGHT 4 ON TO INDICATE THAT THE HIGH END OF MEMORY IS BEING TESTED FILL MEMORY WITH ZEROS AND BEAT WITH ONES 00003 0500 00 0 01370 CLA TEST1 L +0 00004 0601 00 0 01376 STO FILL 00005 0500 00 0 01371 CLA TEST2 L ONES 00006 0601 00 0 01375 STO BEAT 00007 0534 00 1 01403 START1 LXA ZERO,1 00010 0500 00 0 01376 CLA FILL 00011 0601 00 1 77777 STO 32767,1 LOAD TEST AREA 00012 3 76013 1 00014 TXH C1,1,32767-CNTL4-2 00013 1 00001 1 00011 TXI START1+2,1,1 00014 0500 00 0 01462 C1 CLA K11-1 L+2000 00015 0601 00 0 01372 STO LOW 00016 0500 00 0 01442 CLA K10 L+77777 00017 0601 00 0 01373 STO HIGH 00020 0500 00 0 01373 CLA HIGH HIGHEST ADDRESS TESTED 00021 0621 00 0 01374 STA ADR RESTORE BEAT ADDRESS 00022 0534 00 1 01367 LXA K6,1 L+1 00023 -0634 00 1 01377 SXD COUNT,1 SAVE INDEX COUNT 00024 0560 00 0 01375 LDQ BEAT L TEST PATTERN 00025 -0773 00 0 00001 C2 RQL 1 SET Y ADDRESS 00026 0500 00 0 01374 C3 CLA ADR L BEAT ADDRESS 00027 -0501 00 0 01463 ORA K11 L+1600 00030 0621 00 0 00075 STA C7 SAVE ADDRESS 00031 0534 00 6 01403 LXA ZERO,6 SET X ADDRESS 1 9S04 HA 7-01-58 PAGE 2 00032 0500 00 0 01374 CLA ADR L BEAT ADDRESS 00033 -0501 00 0 01421 ORA K3+1 L+70 00034 0621 00 0 00133 STA C8 SAVE ADDRESS 00035 0760 00 0 00164 SWT 4 TEST SENSE SWITCH 4 00036 0020 00 0 00045 TRA C5 BEAT EACH ADDRESS 500 TIMES 00037 0760 00 0 00165 SWT 5 TEST SENSE SWITCH 5 00040 0020 00 0 00043 TRA C4 BEAT EACH ADDRESS 1000 TIMES 00041 0534 00 1 01502 LXA K1750,1 00042 0020 00 0 00046 TRA C6 BEAT EACH ADDRESS 5000 TIMES 00043 0534 00 1 01501 C4 LXA K310,1 00044 0020 00 0 00046 TRA C6 00045 0534 00 1 01500 C5 LXA K144,1 BEAT TEST 00046 0500 00 0 01374 C6 CLA ADR L BEAT ADDRESS 00047 0621 00 0 00055 STA C6+7 00050 0621 00 0 00067 STA C6A 00051 0621 00 0 00070 STA C6A+1 00052 0621 00 0 00071 STA C6A+2 00053 0621 00 0 00072 STA C6A+3 00054 0621 00 0 00073 STA C6A+4 00055 0500 00 0 00000 CLA L WORD AT BEAT ADDRESS 00056 0340 00 0 01376 CAS FILL 00057 0020 00 0 00061 TRA C6+11 ERROR 00060 0020 00 0 00067 TRA C6A OK 00061 0760 00 0 00162 SWT 2 TEST SENSE SWITCH 2 00062 0020 00 0 00064 TRA *+2 INDICATE ERROR 00063 0020 00 0 00067 TRA C6A BY PASS ERROR 00064 0760 00 0 00163 SWT 3 TEST SENSE SWITCH 3 00065 0020 00 0 00252 TRA P PRINT ERROR 00066 0000 00 0 00067 HTR C6A ERROR - THE BEAT ADDRESS WAS NOT CORRECT BEFORE BEATING - ERROR WORD IS IN THE ACCUMULATOR , ADDRESS OF WORD IS AT ADR 00067 -0600 00 0 00000 C6A STQ BEAT THE ADDRESS 00070 -0600 00 0 00000 STQ 00071 -0600 00 0 00000 STQ 00072 -0600 00 0 00000 STQ 00073 -0600 00 0 00000 STQ 00074 2 00001 1 00067 TIX C6A,1,1 CHECK Y ADDRESSES 00075 0500 00 2 00000 C7 CLA 0,2 Y ADDRESS BEING CHECKED 00076 0340 00 0 01376 CAS FILL 00077 0020 00 0 00104 TRA C7A MAYBE AN ERROR 1 9S04 HA 7-01-58 PAGE 3 00100 0020 00 0 00102 TRA C7+5 OK 00101 0020 00 0 00104 TRA C7A MAYBE AN ERROR 00102 3 01400 2 00133 TXH C8,2,768 00103 1 00200 2 00075 TXI C7,2,128 00104 0500 00 0 00075 C7A CLA C7 00105 0621 00 0 01401 STA T1 TEMPORARY STORAGE 00106 -0754 00 2 00000 PXD 0,2 00107 0771 00 0 00022 ARS 18 00110 0402 00 0 01401 SUB T1 00111 0760 00 0 00003 SSP 00112 0340 00 0 01374 CAS ADR L BEAT ADDRESS 00113 0020 00 0 00115 TRA C7B MAY BE AN ERROR 00114 0020 00 0 00102 TRA C7+5 OK-BEAT ADDRESS 00115 0340 00 0 01431 C7B CAS K9 L HIGHEST LOCATION OF PROG 00116 0020 00 0 00121 TRA C7B+4 ERROR 00117 0020 00 0 00102 TRA C7+5 OK-PROGRAM AREA 00120 0020 00 0 00102 TRA C7+5 OK-PROGRAM AREA 00121 0760 00 0 00162 SWT 2 TEST SENSE SWITCH 2 00122 0020 00 0 00124 TRA *+2 INDICATE ERROR 00123 0020 00 0 00127 TRA C7C BY PASS ERROR 00124 0760 00 0 00163 SWT 3 TEST SENSE SWITCH 3 00125 0020 00 0 00261 TRA P1 PRINT ERROR 00126 0000 00 0 00127 HTR C7C Y ERROR ADR IN ACC BEAT ADDRESS LOCATED AT ADR 00127 0621 00 0 00131 C7C STA C7C+2 00130 0500 00 0 01376 CLA FILL 00131 0601 00 0 00000 STO REPAIR Y ERROR 00132 0020 00 0 00075 TRA C7 CHECK REPAIR ADDRESS CHECK X ADDRESSES 00133 0500 00 4 00000 C8 CLA 0,4 X ADDRESS BEING CHECKED 00134 0340 00 0 01376 CAS FILL 00135 0020 00 0 00142 TRA C9 MAYBE AN ERROR 00136 0020 00 0 00140 TRA C8+5 OK 00137 0020 00 0 00142 TRA C9 MAYBE AN ERROR 00140 3 00060 4 00171 TXH C10,4,48 00141 1 00010 4 00133 TXI C8,4,8 00142 0500 00 0 00133 C9 CLA C8 00143 0621 00 0 01401 STA T1 TEMPORARY STORAGE 00144 -0754 00 4 00000 PXD 0,4 00145 0771 00 0 00022 ARS 18 00146 0402 00 0 01401 SUB T1 00147 0760 00 0 00003 SSP 00150 0340 00 0 01374 CAS ADR L BEAT ADDRESS 00151 0020 00 0 00153 TRA C9A MAY BE AN ERROR 00152 0020 00 0 00140 TRA C8+5 OK BEAT ADDRESS 00153 0340 00 0 01431 C9A CAS K9 L HIGHEST LOC OF PROGRAM 00154 0020 00 0 00157 TRA C9A+4 ERROR 1 9S04 HA 7-01-58 PAGE 4 00155 0020 00 0 00140 TRA C8+5 OK - PROGRAM AREA 00156 0020 00 0 00140 TRA C8+5 OK - PROGRAM AREA 00157 0760 00 0 00162 SWT 2 TEST SENSE SWITCH 2 00160 0020 00 0 00162 TRA *+2 INDICATE ERROR 00161 0020 00 0 00165 TRA C9B BY PASS ERROR 00162 0760 00 0 00163 SWT 3 TEST SENSE SWITCH 3 00163 0020 00 0 00267 TRA P2 PRINT ERROR 00164 0000 00 0 00165 HTR C9B X ERROR ADR IN ACC BEAT ADDRESS LOCATED AT ADR 00165 0621 00 0 00167 C9B STA C9B+2 00166 0500 00 0 01376 CLA FILL 00167 0601 00 0 00000 STO REPAIR X ERROR 00170 0020 00 0 00133 TRA C8 CHECK REPAIR ADDRESS 00171 0500 00 0 01374 C10 CLA ADR L BEAT ADDRESS 00172 0621 00 0 00175 STA C10+4 00173 0621 00 0 00210 STA C11 00174 -0600 00 0 01402 STQ T2 TEMPORARY STORAGE 00175 0500 00 0 00000 CLA BEAT WORD 00176 0340 00 0 01402 CAS T2 CHECK BEAT WORD 00177 0020 00 0 00201 TRA C10A ERROR 00200 0020 00 0 00207 TRA C11-1 OK 00201 0760 00 0 00162 C10A SWT 2 TEST SENSE SWITCH 2 00202 0020 00 0 00204 TRA *+2 INDICATE ERROR 00203 0020 00 0 00207 TRA C11-1 BY PASS ERROR 00204 0760 00 0 00163 SWT 3 TEST SENSE SWITCH 3 00205 0020 00 0 00275 TRA P3 PRINT ERROR 00206 0000 00 0 00207 HTR C11-1 ERROR IN BEAT WORD BEAT PATTERN IN MQ BEAT WORD IN ACC BEAT ADDRESS LOCATED AT ADR IN STORAGE 00207 0500 00 0 01376 CLA FILL 00210 0601 00 0 00000 C11 STO RESET LAST BEAT ADDRESS 00211 0500 00 0 01374 CLA ADR L BEAT ADDRESS 00212 0402 00 0 01404 SUB ONE DEACREASE BEAT ADDRESS 00213 0340 00 0 01372 CAS LOW LOWEST ADDRESS TESTED 00214 0020 00 0 00217 TRA C11A 00215 0020 00 0 00221 TRA C12 REPEAT TEST WITH NEXT PATTERN 00216 0000 00 0 00215 HTR C11+5 SHOULD NEVER ENTER HERE 00217 0621 00 0 01374 C11A STA ADR NEW BEAT ADDRESS 00220 0020 00 0 00026 TRA C3 00221 0500 00 0 01373 C12 CLA HIGH HIGHEST ADDRESS TESTED 00222 0621 00 0 01374 STA ADR L BEAT ADDRESS 00223 -0534 00 1 01377 LXD COUNT,1 00224 2 00001 1 00226 TIX C13,1,1 1 9S04 HA 7-01-58 PAGE 5 00225 0020 00 0 00230 TRA PCOM FIRST HALF OF TEST COMPLETE 00226 -0634 00 1 01377 C13 SXD COUNT,1 00227 0020 00 0 00025 TRA C2 00230 0760 00 0 00163 PCOM SWT 3 00231 0020 00 0 00233 TRA *+2 00232 0020 00 0 00240 TRA C14 00233 0766 00 0 01361 WPRA TO PRINT PASS COMPLETE 00234 0760 00 0 01363 SPRA 3 00235 0540 00 0 00237 RCHA *+2 00236 0020 00 0 00240 TRA C14 00237 0000 30 0 01726 IOCD PPER,0,24 00240 0760 00 0 00161 C14 SWT 1 TEST SENSE SWITCH 1 00241 0020 00 0 00243 TRA C14+3 00242 0020 00 0 00020 TRA C1+4 LOOP IN TEST 00243 0760 00 0 00166 SWT 6 TEST SENSE SWITCH 6 00244 0020 00 0 00246 TRA *+2 00245 0020 00 0 00014 TRA C1 REPEAT TEST 00246 0762 00 0 01321 RCDA READ IN NEXT TEST 00247 0540 00 0 01756 RCHA CNTL 00250 0544 00 0 00000 LCHA 0 00251 0020 00 0 00001 TRA 1 ERROR ROUTINES 00252 0500 00 0 01374 P CLA ADR ERROR ADDRESS 00253 0601 00 0 01503 STO P6 00254 0500 00 0 01432 CLA K9A L HTR C6+11 00255 0601 00 0 01504 STO P7 ERROR EXIT 00256 0500 00 0 00060 CLA C6+10 L TRA C6A 00257 0601 00 0 01366 STO P13 PROGRAM RETURN 00260 0020 00 0 00311 TRA P4 00261 0601 00 0 01503 P1 STO P6 ERROR ADDRESS 00262 0500 00 0 01433 CLA K9A+1 L HTR C7B+4 00263 0601 00 0 01504 STO P7 ERROR EXIT 00264 0500 00 0 01436 CLA K9A+4 L TRA C7C 00265 0601 00 0 01366 STO P13 PROGRAM RETURN 00266 0020 00 0 00311 TRA P4 00267 0601 00 0 01503 P2 STO P6 ERROR ADDRESS 00270 0500 00 0 01434 CLA K9A+2 L HTR C9A+4 00271 0601 00 0 01504 STO P7 ERROR EXIT 00272 0500 00 0 01437 CLA K9A+5 L TRA C9B 00273 0601 00 0 01366 STO P13 PROGRAM RETURN 00274 0020 00 0 00311 TRA P4 00275 0500 00 0 01374 P3 CLA ADR 00276 0601 00 0 01503 STO P6 00277 0500 00 0 01435 CLA K9A+3 L HTR C10A 1 9S04 HA 7-01-58 PAGE 6 00300 0601 00 0 01504 STO P7 ERROR EXIT 00301 0500 00 0 00200 CLA C10+7 L TRA C11-1 00302 0601 00 0 01366 STO P13 PROGRAM RETURN 00303 -0600 00 0 01505 STQ QUOT 00304 -0500 00 0 01505 CAL QUOT TEST WORD 00305 0602 00 0 01557 SLW PR5 00306 0760 00 0 00006 COM 00307 0602 00 0 01561 SLW PR5+2 COMPLEMENT OF TEST WORD 00310 0020 00 0 00315 TRA P5 00311 -0500 00 0 01376 P4 CAL FILL TEST WORD 00312 0602 00 0 01557 SLW PR5 00313 0760 00 0 00006 COM 00314 0602 00 0 01561 SLW PR5+2 COMPLEMENT OF TEST WORD 00315 0500 00 0 01503 P5 CLA P6 L ERROR ADDRESS 00316 0621 00 0 00317 STA *+1 00317 -0500 00 0 00000 CAL ERROR WORD 00320 0602 00 0 01527 SLW PR4 00321 0760 00 0 00006 COM 00322 0602 00 0 01531 SLW PR4+2 COMPLEMENT OF ERROR WORD 00323 -0600 00 0 01505 STQ QUOT 00324 -0500 00 0 01505 CAL QUOT BEAT WORD 00325 0602 00 0 01617 SLW PR6 00326 0760 00 0 00006 COM 00327 0602 00 0 01621 SLW PR6+2 COMPLEMENT OF BEAT WORD PRINT ERROR 00330 -0634 00 1 01400 E13 SXD SAVE,1 SAVE XRA 00331 0534 00 1 01410 LXA M+3,1 L +10 00332 0600 00 1 01576 STZ PR7+8,1 CLEAR IMAGE 00333 2 00001 1 00332 TIX E13+2,1,1 00334 0500 00 0 01420 CLA K3 L +7 00335 -0320 00 0 01503 ANA P6 L ERROR ADDRESS 00336 0734 00 1 00000 PAX 0,1 00337 0500 00 0 01413 CLA K2 L 20000 00340 -0602 00 1 01575 ORS PR7+7,1 00341 0500 00 0 01421 CLA K3+1 L +70 00342 -0320 00 0 01503 ANA P6 L ERROR ADDRESS 00343 0771 00 0 00003 ARS 3 00344 0734 00 1 00000 PAX 0,1 00345 0500 00 0 01414 CLA K2+1 L 40000 00346 -0602 00 1 01575 ORS PR7+7,1 00347 0500 00 0 01422 CLA K3+2 L +700 00350 -0320 00 0 01503 ANA P6 L ERROR ADDRESS 00351 0771 00 0 00006 ARS 6 00352 0734 00 1 00000 PAX 0,1 00353 0500 00 0 01415 CLA K2+2 L 100000 00354 -0602 00 1 01575 ORS PR7+7,1 00355 0500 00 0 01423 CLA K3+3 L +7000 00356 -0320 00 0 01503 ANA P6 L ERROR ADDRESS 1 9S04 HA 7-01-58 PAGE 7 00357 0771 00 0 00011 ARS 9 00360 0734 00 1 00000 PAX 0,1 00361 0500 00 0 01416 CLA K2+3 L 200000 00362 -0602 00 1 01575 ORS PR7+7,1 00363 0500 00 0 01424 CLA K3+4 L +70000 00364 -0320 00 0 01503 ANA P6 L ERROR ADDRESS 00365 0771 00 0 00014 ARS 12 00366 0734 00 1 00000 PAX 0,1 00367 0500 00 0 01417 CLA K2+4 L 400000 00370 -0602 00 1 01575 ORS PR7+7,1 ADJUST PRINT IMAGE 00371 -0534 00 1 01407 LXD M+2,1 L +27 00372 0500 00 0 01425 CLA K4 L +777777017777 00373 0320 00 1 01535 P10AA ANS PR4+6,1 00374 2 00002 1 00373 TIX P10AA,1,2 00375 0500 00 0 01426 CLA K5 L ORS PR1+ 00376 0601 00 0 00401 STO P10A 00377 0534 00 1 01410 LXA M+3,1 L +10 00400 0500 00 1 01576 CLA PR7+8,1 00401 -0602 00 1 01522 P10A ORS PR1+12,1 00402 0500 00 0 00401 CLA P10A 00403 0402 00 0 01404 SUB ONE 00404 0621 00 0 00401 STA P10A 00405 2 00001 1 00400 TIX P10A-1,1,1 00406 0766 00 0 01361 WPRA PRINT FIRST LINE 00407 0760 00 0 01363 SPRA 3 DOUBLE SPACE 00410 0760 00 0 01364 SPRA 4 TO GET OCTAL SPACING 00411 0540 00 0 01757 RCHA CNTL1 00412 0534 00 1 01410 LXA M+3,1 L +10 00413 0600 00 1 01576 P11A STZ PR7+8,1 CLEAR IMAGE 00414 2 00001 1 00413 TIX P11A,1,1 00415 0500 00 0 01420 CLA K3 L +7 00416 -0320 00 0 01504 ANA P7 L ERROR EXIT 00417 0734 00 1 00000 PAX 0,1 00420 0500 00 0 01413 CLA K2 L 20000 00421 -0602 00 1 01575 ORS PR7+7,1 00422 0500 00 0 01421 CLA K3+1 L +70 00423 -0320 00 0 01504 ANA P7 L ERROR EXIT 00424 0771 00 0 00003 ARS 3 00425 0734 00 1 00000 PAX 0,1 00426 0500 00 0 01414 CLA K2+1 L 40000 00427 -0602 00 1 01575 ORS PR7+7,1 00430 0500 00 0 01422 CLA K3+2 L +700 00431 -0320 00 0 01504 ANA P7 L ERROR EXIT 00432 0771 00 0 00006 ARS 6 00433 0734 00 1 00000 PAX 0,1 00434 0500 00 0 01415 CLA K2+2 L 100000 00435 -0602 00 1 01575 ORS PR7+7,1 1 9S04 HA 7-01-58 PAGE 8 00436 0500 00 0 01423 CLA K3+3 L +7000 00437 -0320 00 0 01504 ANA P7 L ERROR EXIT 00440 0771 00 0 00011 ARS 9 00441 0734 00 1 00000 PAX 0,1 00442 0500 00 0 01416 CLA K2+3 L 200000 00443 -0602 00 1 01575 ORS PR7+7,1 00444 0500 00 0 01424 CLA K3+4 L +70000 00445 -0320 00 0 01504 ANA P7 L ERROR EXIT 00446 0771 00 0 00014 ARS 12 00447 0734 00 1 00000 PAX 0,1 00450 0500 00 0 01417 CLA K2+4 L 400000 00451 -0602 00 1 01575 ORS PR7+7,1 ADJUST PRINT IMAGE 00452 -0534 00 1 01407 LXD M+2,1 L +27 00453 0500 00 0 01425 CLA K4 L +777777017777 00454 0320 00 1 01565 P11AA ANS PR5+6,1 00455 2 00002 1 00454 TIX P11AA,1,2 00456 0500 00 0 01427 CLA K5+1 L ORS PR2+12,1 00457 0601 00 0 00462 STO P11B 00460 0534 00 1 01410 LXA M+3,1 L +10 00461 0500 00 1 01576 CLA PR7+8,1 00462 -0602 00 1 01552 P11B ORS PR2+12,1 00463 0500 00 0 00462 CLA P11B 00464 0402 00 0 01404 SUB ONE 00465 0621 00 0 00462 STA P11B 00466 2 00001 1 00461 TIX P11B-1,1,1 00467 0766 00 0 01361 WPRA PRINT SECOND LINE 00470 0760 00 0 01364 SPRA 4 TO GET OCTAL SPACING 00471 0540 00 0 01760 RCHA CNTL2 00472 0534 00 1 01410 LXA M+3,1 L +10 00473 0600 00 1 01576 PP STZ PR7+8,1 CLEAR IMAGE 00474 2 00001 1 00473 TIX PP,1,1 00475 0500 00 0 01420 CLA K3 L +7 00476 -0320 00 0 01374 ANA ADR L BEAT ADDRESS 00477 0734 00 1 00000 PAX 0,1 00500 0500 00 0 01413 CLA K2 L 20000 00501 -0602 00 1 01575 ORS PR7+7,1 00502 0500 00 0 01421 CLA K3+1 L +70 00503 -0320 00 0 01374 ANA ADR L BEAT ADDRESS 00504 0771 00 0 00003 ARS 3 00505 0734 00 1 00000 PAX 0,1 00506 0500 00 0 01414 CLA K2+1 L 40000 00507 -0602 00 1 01575 ORS PR7+7,1 00510 0500 00 0 01422 CLA K3+2 L +700 00511 -0320 00 0 01374 ANA ADR L BEAT ADDRESS 00512 0771 00 0 00006 ARS 6 00513 0734 00 1 00000 PAX 0,1 00514 0500 00 0 01415 CLA K2+2 L 100000 00515 -0602 00 1 01575 ORS PR7+7,1 1 9S04 HA 7-01-58 PAGE 9 00516 0500 00 0 01423 CLA K3+3 L +7000 00517 -0320 00 0 01374 ANA ADR L BEAT ADDRESS 00520 0771 00 0 00011 ARS 9 00521 0734 00 1 00000 PAX 0,1 00522 0500 00 0 01416 CLA K2+3 L 200000 00523 -0501 00 1 01575 ORA PR7+7,1 00524 0500 00 0 01424 CLA K3+4 L +70000 00525 -0320 00 0 01374 ANA ADR L BEAT ADDRESS 00526 0771 00 0 00014 ARS 12 00527 0734 00 1 00000 PAX 0,1 00530 0500 00 0 01417 CLA K2+4 L 400000 00531 -0501 00 1 01575 ORA PR7+7,1 ADJUST PRINT IMAGE 00532 -0534 00 1 01407 LXD M+2,1 L +27 00533 0500 00 0 01425 CLA K4 L +777777017777 00534 0320 00 1 01625 PP1 ANS PR6+6,1 00535 2 00002 1 00534 TIX PP1,1,2 00536 0500 00 0 01430 CLA K5+2 L ORS PR8+12,1 00537 0601 00 0 00542 STO PP1B 00540 0534 00 1 01410 LXA M+3,1 L +10 00541 0500 00 1 01576 CLA PR7+8,1 00542 -0602 00 1 01612 PP1B ORS PR8+12,1 00543 0500 00 0 00542 CLA PP1B 00544 0402 00 0 01404 SUB ONE 00545 0621 00 0 00542 STA PP1B 00546 2 00001 1 00541 TIX PP1B-1,1,1 00547 0766 00 0 01361 WPRA PRINT THIRD LINE 00550 0760 00 0 01364 SPRA 4 TO GET OCTAL SPACING 00551 0540 00 0 01761 RCHA CNTL3 00552 -0500 00 0 01657 CAL PR11+1 L 777777777377 00553 0320 00 0 01640 ANS PR10+10 00554 0320 00 0 01642 ANS PR10+12 RESET PRINT IMAGE 00555 0320 00 0 01644 ANS PR10+14 00556 0320 00 0 01646 ANS PR10+16 00557 -0500 00 0 01665 CAL PR12+5 L 757673777576 00560 -0534 00 1 01410 LXD M+3,1 L 20 00561 0320 00 1 01651 P12A ANS PR10+19,1 RESET PRINT IMAGE 00562 2 00002 1 00561 TIX P12A,1,2 00563 0500 00 0 01442 CLA K10 L +77777 00564 -0320 00 0 01503 ANA P6 ERROR ADDRESS 00565 0601 00 0 01441 STO K10-1 SAVE ADDRESS 00566 0340 00 0 01452 CAS K10+8 L +40000 00567 0020 00 0 01001 TRA Y3 3RD OR 4TH QUADRANT 00570 0020 00 0 01001 TRA Y3 1ST OR 2ND QUADRANT 1 9S04 HA 7-01-58 PAGE 10 00571 0340 00 0 01456 CAS K10+12 L +20000 00572 0020 00 0 00575 TRA Y1 1ST 4 COLUMNS 00573 0020 00 0 00575 TRA Y1 00574 0020 00 0 00607 TRA Y112 LAST COLUMNS Y1 OR Y2 00575 0340 00 0 01453 Y1 CAS K10+9 L +34000 00576 0020 00 0 00621 TRA R1A COLUMN 1 00577 0020 00 0 00621 TRA R1A 00600 0340 00 0 01454 CAS K10+10 L +30000 00601 0020 00 0 00626 TRA R2A COLUMN 2 00602 0020 00 0 00626 TRA R2A 00603 0340 00 0 01455 CAS K10+11 L +24000 00604 0020 00 0 00633 TRA R3A COLUMN 3 00605 0020 00 0 00633 TRA R3A 00606 0020 00 0 00640 TRA R4A COLUMN 4 00607 0340 00 0 01457 Y112 CAS K10+13 L +14000 00610 0020 00 0 00645 TRA R5A COLUMN 5 00611 0020 00 0 00645 TRA R5A 00612 0340 00 0 01460 CAS K10+14 L +10000 00613 0020 00 0 00652 TRA R6A COLUMN 6 00614 0020 00 0 00652 TRA R6A 00615 0340 00 0 01461 CAS K10+15 L +4000 00616 0020 00 0 00657 TRA R7A COLUMN 7 00617 0020 00 0 00657 TRA R7A 00620 0020 00 0 00664 TRA R8A COLUMN 8 00621 0500 00 0 01661 R1A CLA PR12+1 00622 -0602 00 0 01647 ORS PR10+17 COL 1 Y MATRIX 00623 0500 00 0 01441 CLA K10-1 00624 0402 00 0 01453 SUB K10+9 L 34000 00625 0020 00 0 00667 TRA R9 00626 0500 00 0 01661 R2A CLA PR12+1 00627 -0602 00 0 01645 ORS PR10+15 COL 2 Y MATRIX 00630 0500 00 0 01441 CLA K10-1 00631 0402 00 0 01454 SUB K10+10 L 30000 00632 0020 00 0 00667 TRA R9 00633 0500 00 0 01661 R3A CLA PR12+1 00634 -0602 00 0 01643 ORS PR10+13 COL 3 Y MATRIX 00635 0500 00 0 01441 CLA K10-1 00636 0402 00 0 01455 SUB K10+11 L 24000 00637 0020 00 0 00667 TRA R9 00640 0500 00 0 01661 R4A CLA PR12+1 00641 -0602 00 0 01641 ORS PR10+11 COL 4 Y MATRIX 00642 0500 00 0 01441 CLA K10-1 00643 0402 00 0 01456 SUB K10+12 L 20000 00644 0020 00 0 00667 TRA R9 00645 0500 00 0 01661 R5A CLA PR12+1 00646 -0602 00 0 01637 ORS PR10+9 COL 5 Y MATRIX 00647 0500 00 0 01441 CLA K10-1 00650 0402 00 0 01457 SUB K10+13 L 14000 00651 0020 00 0 00667 TRA R9 1 9S04 HA 7-01-58 PAGE 11 00652 0500 00 0 01661 R6A CLA PR12+1 00653 -0602 00 0 01635 ORS PR10+7 COL 6 Y MATRIX 00654 0500 00 0 01441 CLA K10-1 00655 0402 00 0 01460 SUB K10+14 L 10000 00656 0020 00 0 00667 TRA R9 00657 0500 00 0 01661 R7A CLA PR12+1 00660 -0602 00 0 01633 ORS PR10+5 COL 7 Y MATRIX 00661 0500 00 0 01441 CLA K10-1 00662 0402 00 0 01461 SUB K10+15 L 4000 00663 0020 00 0 00667 TRA R9 00664 0500 00 0 01661 R8A CLA PR12+1 00665 -0602 00 0 01631 ORS PR10+3 COL 8 Y MATRIX 00666 0500 00 0 01441 CLA K10-1 00667 0601 00 0 01440 R9 STO K10-2 00670 0340 00 0 01462 CAS K10+16 L 2000 00671 0020 00 0 00677 TRA R10 00672 0020 00 0 00677 TRA R10 00673 0500 00 0 01656 CLA PR11 00674 -0602 00 0 01646 ORS PR10+16 Y1 MATRIX 00675 0500 00 0 01440 CLA K10-2 00676 0020 00 0 00703 TRA R13A 00677 0500 00 0 01656 R10 CLA PR11 00700 -0602 00 0 01644 ORS PR10+14 Y2 MATRIX 00701 0500 00 0 01440 CLA K10-2 00702 0402 00 0 01462 SUB K10+16 L 2000 00703 0340 00 0 01466 R13A CAS K11+3 L 1000 00704 0020 00 0 00720 TRA R14A 1ST FOUR ROWS 00705 0020 00 0 00720 TRA R14A 00706 0340 00 0 01467 CAS K11+4 L 600 00707 0020 00 0 00732 TRA R15A ROW 5 00710 0020 00 0 00732 TRA R15A 00711 0340 00 0 01470 CAS K11+5 L 400 00712 0020 00 0 00737 TRA R16A ROW 6 00713 0020 00 0 00737 TRA R16A 00714 0340 00 0 01471 CAS K11+6 L 200 00715 0020 00 0 00744 TRA R17A ROW 7 00716 0020 00 0 00744 TRA R17A 00717 0020 00 0 00751 TRA R18A ROW 8 00720 0340 00 0 01463 R14A CAS K11 L 1600 00721 0020 00 0 00755 TRA R19A ROW 1 00722 0020 00 0 00755 TRA R19A 00723 0340 00 0 01464 CAS K11+1 L 1400 00724 0020 00 0 00762 TRA R20A ROW 2 00725 0020 00 0 00762 TRA R20A 00726 0340 00 0 01465 CAS K11+2 L 1200 00727 0020 00 0 00767 TRA R21A ROW 3 00730 0020 00 0 00767 TRA R21A 00731 0020 00 0 00774 TRA R22A ROW 4 1 9S04 HA 7-01-58 PAGE 12 00732 0500 00 0 01660 R15A CLA PR12 00733 -0602 00 0 01637 ORS PR10+9 ROW 5 Y MATRIX 00734 0500 00 0 01440 CLA K10-2 00735 0402 00 0 01467 SUB K11+4 L 600 00736 0020 00 0 01212 TRA R23 00737 0500 00 0 01660 R16A CLA PR12 00740 -0602 00 0 01635 ORS PR10+7 ROW 6 Y MATRIX 00741 0500 00 0 01440 CLA K10-2 00742 0402 00 0 01470 SUB K11+5 L 400 00743 0020 00 0 01212 TRA R23 00744 0500 00 0 01660 R17A CLA PR12 00745 -0602 00 0 01633 ORS PR10+5 ROW 7 Y MATRIX 00746 0500 00 0 01440 CLA K10-2 00747 0402 00 0 01471 SUB K11+6 L 200 00750 0020 00 0 01212 TRA R23 00751 0500 00 0 01660 R18A CLA PR12 00752 -0602 00 0 01631 ORS PR10+3 ROW 8 Y MATRIX 00753 0500 00 0 01440 CLA K10-2 00754 0020 00 0 01212 TRA R23 00755 0500 00 0 01660 R19A CLA PR12 00756 -0602 00 0 01647 ORS PR10+17 ROW 1 Y MATRIX 00757 0500 00 0 01440 CLA K10-2 00760 0402 00 0 01463 SUB K11 L 1600 00761 0020 00 0 01212 TRA R23 00762 0500 00 0 01660 R20A CLA PR12 00763 -0602 00 0 01645 ORS PR10+15 ROW 2 Y MATRIX 00764 0500 00 0 01440 CLA K10-2 00765 0402 00 0 01464 SUB K11+1 L 1400 00766 0020 00 0 01212 TRA R23 00767 0500 00 0 01660 R21A CLA PR12 00770 -0602 00 0 01643 ORS PR10+13 ROW 3 Y MATRIX 00771 0500 00 0 01440 CLA K10-2 00772 0402 00 0 01465 SUB K11+2 L 1200 00773 0020 00 0 01212 TRA R23 00774 0500 00 0 01660 R22A CLA PR12 00775 -0602 00 0 01641 ORS PR10+11 ROW 4 Y MATRIX 00776 0500 00 0 01440 CLA K10-2 00777 0402 00 0 01466 SUB K11+3 L 1200 01000 0020 00 0 01212 TRA R23 01001 0340 00 0 01446 Y3 CAS K10+4 L +60000 01002 0020 00 0 01005 TRA Y3+4 Y3 OR Y4 1ST 4 COLUMNS 01003 0020 00 0 01005 TRA Y3+4 01004 0020 00 0 01017 TRA Y312 Y3 OR Y4 LAST 4 COLUMNS Y3 OR Y4 01005 0340 00 0 01443 CAS K10+1 L +74000 01006 0020 00 0 01031 TRA R1B COLUMN 1 01007 0020 00 0 01031 TRA R1B 01010 0340 00 0 01444 CAS K10+2 L +70000 1 9S04 HA 7-01-58 PAGE 13 01011 0020 00 0 01036 TRA R2B COLUMN 2 01012 0020 00 0 01036 TRA R2B 01013 0340 00 0 01445 CAS K10+3 L +64000 01014 0020 00 0 01043 TRA R3B COLUMN 3 01015 0020 00 0 01043 TRA R3B 01016 0020 00 0 01050 TRA R4B COLUMN 4 01017 0340 00 0 01447 Y312 CAS K10+5 L +54000 01020 0020 00 0 01055 TRA R5B COLUMN 5 01021 0020 00 0 01055 TRA R5B 01022 0340 00 0 01450 CAS K10+6 L +50000 01023 0020 00 0 01062 TRA R6B COLUMN 6 01024 0020 00 0 01062 TRA R6B 01025 0340 00 0 01451 CAS K10+7 L +44000 01026 0020 00 0 01067 TRA R7B COLUMN 7 01027 0020 00 0 01067 TRA R7B 01030 0020 00 0 01074 TRA R8B COLUMN 8 01031 0500 00 0 01661 R1B CLA PR12+1 01032 -0602 00 0 01647 ORS PR10+17 COL 1 Y MATRIX 01033 0500 00 0 01441 CLA K10-1 01034 0402 00 0 01443 SUB K10+1 L 74000 01035 0020 00 0 01101 TRA R11 01036 0500 00 0 01661 R2B CLA PR12+1 01037 -0602 00 0 01645 ORS PR10+15 COL 2 Y MATRIX 01040 0500 00 0 01441 CLA K10-1 01041 0402 00 0 01444 SUB K10+2 L 70000 01042 0020 00 0 01101 TRA R11 01043 0500 00 0 01661 R3B CLA PR12+1 01044 -0602 00 0 01643 ORS PR10+13 COL 3 Y MATRIX 01045 0500 00 0 01441 CLA K10-1 01046 0402 00 0 01445 SUB K10+3 L 64000 01047 0020 00 0 01101 TRA R11 01050 0500 00 0 01661 R4B CLA PR12+1 01051 -0602 00 0 01641 ORS PR10+11 COL 4 Y MATRIX 01052 0500 00 0 01441 CLA K10-1 01053 0402 00 0 01446 SUB K10+4 L 60000 01054 0020 00 0 01101 TRA R11 01055 0500 00 0 01661 R5B CLA PR12+1 01056 -0602 00 0 01637 ORS PR10+9 COL 5 Y MATRIX 01057 0500 00 0 01441 CLA K10-1 01060 0402 00 0 01447 SUB K10+5 L 54000 01061 0020 00 0 01101 TRA R11 01062 0500 00 0 01661 R6B CLA PR12+1 01063 -0602 00 0 01635 ORS PR10+7 COL 6 Y MATRIX 01064 0500 00 0 01441 CLA K10-1 01065 0402 00 0 01450 SUB K10+6 L 50000 01066 0020 00 0 01101 TRA R11 01067 0500 00 0 01661 R7B CLA PR12+1 01070 -0602 00 0 01633 ORS PR10+5 COL 7 Y MATRIX 1 9S04 HA 7-01-58 PAGE 14 01071 0500 00 0 01441 CLA K10-1 01072 0402 00 0 01451 SUB K10+7 L 44000 01073 0020 00 0 01101 TRA R11 01074 0500 00 0 01661 R8B CLA PR12+1 01075 -0602 00 0 01631 ORS PR10+3 COL 8 Y MATRIX 01076 0500 00 0 01441 CLA K10-1 01077 0402 00 0 01452 SUB K10+8 L 40000 01100 0020 00 0 01101 TRA R11 01101 0601 00 0 01440 R11 STO K10-2 01102 0340 00 0 01462 CAS K10+16 L 2000 01103 0020 00 0 01111 TRA R12 01104 0020 00 0 01111 TRA R12 01105 0500 00 0 01656 CLA PR11 01106 -0602 00 0 01642 ORS PR10+12 Y3 MATRIX 01107 0500 00 0 01440 CLA K10-2 01110 0020 00 0 01115 TRA R13B 01111 0500 00 0 01656 R12 CLA PR11 01112 -0602 00 0 01640 ORS PR10+10 Y4 MATRIX 01113 0500 00 0 01440 CLA K10-2 01114 0402 00 0 01462 SUB K10+16 L 2000 01115 0340 00 0 01466 R13B CAS K11+3 L 1000 01116 0020 00 0 01132 TRA R14B LAST FOUR ROWS 01117 0020 00 0 01132 TRA R14B 01120 0340 00 0 01467 CAS K11+4 L 600 01121 0020 00 0 01144 TRA R15B ROW 4 01122 0020 00 0 01144 TRA R15B 01123 0340 00 0 01470 CAS K11+5 L 400 01124 0020 00 0 01151 TRA R16B ROW 3 01125 0020 00 0 01151 TRA R16B 01126 0340 00 0 01471 CAS K11+6 L 200 01127 0020 00 0 01156 TRA R17B ROW 2 01130 0020 00 0 01156 TRA R17B 01131 0020 00 0 01163 TRA R18B ROW 1 01132 0340 00 0 01463 R14B CAS K11 L 1600 01133 0020 00 0 01167 TRA R19B ROW 8 01134 0020 00 0 01167 TRA R19B 01135 0340 00 0 01464 CAS K11+1 L 1400 01136 0020 00 0 01174 TRA R20B ROW 7 01137 0020 00 0 01174 TRA R20B 01140 0340 00 0 01465 CAS K11+2 L 1200 01141 0020 00 0 01201 TRA R21B ROW 6 01142 0020 00 0 01201 TRA R21B 01143 0020 00 0 01206 TRA R22B ROW 5 01144 0500 00 0 01660 R15B CLA PR12 01145 -0602 00 0 01641 ORS PR10+11 ROW 4 Y MATRIX 01146 0500 00 0 01440 CLA K10-2 01147 0402 00 0 01467 SUB K11+4 L 600 01150 0020 00 0 01212 TRA R23 01151 0500 00 0 01660 R16B CLA PR12 1 9S04 HA 7-01-58 PAGE 15 01152 -0602 00 0 01643 ORS PR10+13 ROW 3 Y MATRIX 01153 0500 00 0 01440 CLA K10-2 01154 0402 00 0 01470 SUB K11+5 L 400 01155 0020 00 0 01212 TRA R23 01156 0500 00 0 01660 R17B CLA PR12 01157 -0602 00 0 01645 ORS PR10+15 ROW 2 Y MATRIX 01160 0500 00 0 01440 CLA K10-2 01161 0402 00 0 01471 SUB K11+6 L 200 01162 0020 00 0 01212 TRA R23 01163 0500 00 0 01660 R18B CLA PR12 01164 -0602 00 0 01647 ORS PR10+17 ROW 1 Y MATRIX 01165 0500 00 0 01440 CLA K10-2 01166 0020 00 0 01212 TRA R23 01167 0500 00 0 01660 R19B CLA PR12 01170 -0602 00 0 01631 ORS PR10+3 ROW 8 Y MATRIX 01171 0500 00 0 01440 CLA K10-2 01172 0402 00 0 01463 SUB K11 L 1600 01173 0020 00 0 01212 TRA R23 01174 0500 00 0 01660 R20B CLA PR12 01175 -0602 00 0 01633 ORS PR10+5 ROW 7 Y MATRIX 01176 0500 00 0 01440 CLA K10-2 01177 0402 00 0 01464 SUB K11+1 L 1400 01200 0020 00 0 01212 TRA R23 01201 0500 00 0 01660 R21B CLA PR12 01202 -0602 00 0 01635 ORS PR10+7 ROW 6 Y MATRIX 01203 0500 00 0 01440 CLA K10-2 01204 0402 00 0 01465 SUB K11+2 L 1200 01205 0020 00 0 01212 TRA R23 01206 0500 00 0 01660 R22B CLA PR12 01207 -0602 00 0 01637 ORS PR10+9 ROW 5 Y MATRIX 01210 0500 00 0 01440 CLA K10-2 01211 0402 00 0 01466 SUB K11+3 L 1200 01212 0601 00 0 01440 R23 STO K10-2 01213 -0320 00 0 01472 ANA K11+7 L7 01214 0340 00 0 01473 CAS K11+8 L4 01215 0020 00 0 01240 TRA R24D 1ST 4 COLUMNS 01216 0020 00 0 01240 TRA R24D 01217 -0100 00 0 01223 TNZ R24A 01220 0500 00 0 01664 CLA PR12+4 01221 -0602 00 0 01631 ORS PR10+3 COLUMN 8 X MATRIX 01222 0020 00 0 01261 TRA R25 01223 0402 00 0 01474 R24A SUB K11+9 L1 01224 -0100 00 0 01230 TNZ R24B 01225 0500 00 0 01664 CLA PR12+4 01226 -0602 00 0 01633 ORS PR10+5 COLUMN 7 X MATRIX 01227 0020 00 0 01261 TRA R25 01230 0402 00 0 01474 R24B SUB K11+9 L1 1 9S04 HA 7-01-58 PAGE 16 01231 -0100 00 0 01235 TNZ R24C 01232 0500 00 0 01664 CLA PR12+4 01233 -0602 00 0 01635 ORS PR10+7 COLUMN 6 X MATRIX 01234 0020 00 0 01261 TRA R25 01235 0500 00 0 01664 R24C CLA PR12+4 01236 -0602 00 0 01637 ORS PR10+9 COLUMN 5 X MATRIX 01237 0020 00 0 01261 TRA R25 01240 0402 00 0 01473 R24D SUB K11+8 L4 01241 -0100 00 0 01245 TNZ R24E 01242 0500 00 0 01664 CLA PR12+4 01243 -0602 00 0 01641 ORS PR10+11 COLUMN 4 X MATRIX 01244 0020 00 0 01261 TRA R25 01245 0402 00 0 01474 R24E SUB K11+9 L1 01246 -0100 00 0 01252 TNZ R24F 01247 0500 00 0 01664 CLA PR12+4 01250 -0602 00 0 01643 ORS PR10+13 COLUMN 3 X MATRIX 01251 0020 00 0 01261 TRA R25 01252 0402 00 0 01474 R24F SUB K11+9 L1 01253 -0100 00 0 01257 TNZ R24G 01254 0500 00 0 01664 CLA PR12+4 01255 -0602 00 0 01645 ORS PR10+15 COLUMN 2 X MATRIX 01256 0020 00 0 01261 TRA R25 01257 0500 00 0 01664 R24G CLA PR12+4 01260 -0602 00 0 01647 ORS PR10+17 COLUMN 1 X MATRIX 01261 0500 00 0 01440 R25 CLA K10-2 01262 -0320 00 0 01475 ANA K11+10 L 770 01263 0601 00 0 01440 STO K10-2 TEMP STORAGE 01264 0340 00 0 01476 CAS K11+11 L 100 01265 0020 00 0 01272 TRA R26 X2 MATRIX 01266 0020 00 0 01272 TRA R26 01267 0500 00 0 01662 CLA PR12+2 01270 -0602 00 0 01647 ORS PR10+17 X 1 MATRIX 01271 0020 00 0 01314 TRA R27 01272 0500 00 0 01662 R26 CLA PR12+2 01273 -0602 00 0 01645 ORS PR10+15 X 2 MATRIX 01274 0500 00 0 01440 CLA K10-2 01275 0402 00 0 01476 SUB K11+11 L 100 01276 0100 00 0 01357 TZE R27G ROW 1 X2 MATRIX 01277 0402 00 0 01477 SUB K11+12 L 10 01300 0100 00 0 01354 TZE R27F+2 ROW 2 X2 01301 0402 00 0 01477 SUB K11+12 01302 0100 00 0 01347 TZE R27E+2 ROW 3 X2 01303 0402 00 0 01477 SUB K11+12 01304 0100 00 0 01342 TZE R27D+2 ROW 4 X2 01305 0402 00 0 01477 SUB K11+12 01306 0100 00 0 01335 TZE R27C+2 ROW 5 X2 01307 0402 00 0 01477 SUB K11+12 01310 0100 00 0 01330 TZE R27B+2 ROW 6 X2 01311 0402 00 0 01477 SUB K11+12 1 9S04 HA 7-01-58 PAGE 17 01312 0100 00 0 01323 TZE R27A+2 ROW 7 X2 01313 0020 00 0 01316 TRA R27+2 TOW 8 X2 01314 0500 00 0 01440 R27 CLA K10-2 01315 -0100 00 0 01321 TNZ R27A 01316 0500 00 0 01663 CLA PR12+3 01317 -0602 00 0 01631 ORS PR10+3 ROW 8 X MATRIX 01320 0020 00 0 01361 TRA R28 01321 0402 00 0 01477 R27A SUB K11+12 L 10 01322 -0100 00 0 01326 TNZ R27B 01323 0500 00 0 01663 CLA PR12+3 01324 -0602 00 0 01633 ORS PR10+5 ROW 7 X MATRIX 01325 0020 00 0 01361 TRA R28 01326 0402 00 0 01477 R27B SUB K11+12 L 10 01327 -0100 00 0 01333 TNZ R27C 01330 0500 00 0 01663 CLA PR12+3 01331 -0602 00 0 01635 ORS PR10+7 ROW 6 X MATRIX 01332 0020 00 0 01361 TRA R28 01333 0402 00 0 01477 R27C SUB K11+12 L 10 01334 -0100 00 0 01340 TNZ R27D 01335 0500 00 0 01663 CLA PR12+3 01336 -0602 00 0 01637 ORS PR10+9 ROW 5 X MATRIX 01337 0020 00 0 01361 TRA R28 01340 0402 00 0 01477 R27D SUB K11+12 L 10 01341 -0100 00 0 01345 TNZ R27E 01342 0500 00 0 01663 CLA PR12+3 01343 -0602 00 0 01641 ORS PR10+11 ROW 4 X MATRIX 01344 0020 00 0 01361 TRA R28 01345 0402 00 0 01477 R27E SUB K11+12 L 10 01346 -0100 00 0 01352 TNZ R27F 01347 0500 00 0 01663 CLA PR12+3 01350 -0602 00 0 01643 ORS PR10+13 ROW 3 X MATRIX 01351 0020 00 0 01361 TRA R28 01352 0402 00 0 01477 R27F SUB K11+12 L 10 01353 -0100 00 0 01357 TNZ R27G 01354 0500 00 0 01663 CLA PR12+3 01355 -0602 00 0 01645 ORS PR10+15 ROW 7 X MATRIX 01356 0020 00 0 01361 TRA R28 01357 0500 00 0 01663 R27G CLA PR12+3 01360 -0602 00 0 01647 ORS PR10+17 ROW 1 X MATRIX 01361 0766 00 0 01361 R28 WPRA 01362 0540 00 0 01762 RCHA CNTL4 PRINT FOURTH LINE 01363 0500 00 0 01503 CLA P6 RETURN TO PROGRAM 01364 0560 00 0 01505 LDQ QUOT 01365 -0534 00 1 01400 LXD SAVE,1 RESTORE INDEX COUNT 01366 0020 00 0 00000 P13 TRA TO PROGRAM WHERE ERROR OCCURRED 1 9S04 HA 7-01-58 PAGE 18 CONSTANTS 01367 +000000000001 K6 OCT 1 NUMBER OF ROTATIONS 01370 +000000000000 TEST1 OCT 0 FILL MEMORY 01371 -377777777777 TEST2 OCT 777777777777 BEAT WORD 01372 +000000000000 LOW OCT 2000 IS THE MIN VALUE THAT CAN BE USED 01373 +000000000000 HIGH OCT 77777 IS THE MAX VALUE THAT CAN BE USED 01374 +000000077777 ADR OCT 77777 01375 +000000000000 BEAT OCT BEAT PATTERN 01376 +000000000000 FILL OCT FILL MEMORY WITH THIS WORD 01377 +000000000000 COUNT OCT ROTATION COUNT IN DEC 01400 +000000000000 SAVE OCT INDEX STORAGE 01401 +000000000000 T1 OCT 0 ADDRESS STORAGE 01402 +000000000000 T2 OCT 0 TEMPORARY STORAGE 01403 +000000000000 ZERO OCT 0 01404 +000000000001 ONE OCT 1 01405 +000004001777 M OCT 00004001777 01406 +000003000007 OCT 00003000007 01407 +000027000030 OCT 27000030 01410 +000020000010 OCT 000020000010 01411 +000000002000 K1 OCT 2000 01412 +000007000000 OCT 7000000 01413 +000000020000 K2 OCT 20000 01414 +000000040000 OCT 40000 01415 +000000100000 OCT 100000 01416 +000000200000 OCT 200000 01417 +000000400000 OCT 400000 01420 +000000000007 K3 OCT 7 01421 +000000000070 OCT 70 01422 +000000000700 OCT 700 01423 +000000007000 OCT 7000 01424 +000000070000 OCT 70000 01425 -377777017777 K4 OCT 777777017777 01426 -0602 00 1 01522 K5 ORS PR1+12,1 01427 -0602 00 1 01552 ORS PR2+12,1 01430 -0602 00 1 01612 ORS PR8+12,1 01431 0000 00 0 01665 K9 HTR PR12+5 01432 0000 00 0 00061 K9A HTR C6+11 01433 0000 00 0 00121 HTR C7B+4 01434 0000 00 0 00157 HTR C9A+4 01435 0000 00 0 00201 HTR C10A 1 9S04 HA 7-01-58 PAGE 19 01436 0020 00 0 00127 TRA C7C 01437 0020 00 0 00165 TRA C9B 01440 +000000000000 OCT 0 TEMP STG. 01441 +000000000000 OCT 0 ERROR ADDRESS 01442 +000000077777 K10 OCT 77777 01443 +000000074000 OCT 74000 01444 +000000070000 OCT 70000 01445 +000000064000 OCT 64000 01446 +000000060000 OCT 60000 01447 +000000054000 OCT 54000 01450 +000000050000 OCT 50000 01451 +000000044000 OCT 44000 01452 +000000040000 OCT 40000 01453 +000000034000 OCT 34000 01454 +000000030000 OCT 30000 01455 +000000024000 OCT 24000 01456 +000000020000 OCT 20000 01457 +000000014000 OCT 14000 01460 +000000010000 OCT 10000 01461 +000000004000 OCT 4000 01462 +000000002000 OCT 2000 01463 +000000001600 K11 OCT 1600 01464 +000000001400 OCT 1400 01465 +000000001200 OCT 1200 01466 +000000001000 OCT 1000 01467 +000000000600 OCT 600 01470 +000000000400 OCT 400 01471 +000000000200 OCT 200 01472 +000000000007 OCT 7 01473 +000000000004 OCT 4 01474 +000000000001 OCT 1 01475 +000000000770 OCT 770 01476 +000000000100 OCT 100 01477 +000000000010 OCT 10 01500 +000000000144 K144 OCT 144 01501 +000000000310 K310 OCT 310 01502 +000000001750 K1750 OCT 1750 01503 +000000000000 P6 OCT ERROR ADDRESS 01504 +000000000000 P7 OCT ERROR EXIT 01505 +000000000000 QUOT OCT TEMP STG FOR BEAT PATTERN PRINT IMAGE FOR FIRST LINE 01506 +032040001504 PR1 OCT 32040001504 9 ROW LEFT 01507 +000000000000 OCT 9 ROW RIGHT 01510 +000000000000 OCT 8 01511 +000000000000 OCT 01512 +000000000000 OCT 7 01513 +000000000000 OCT 01514 +004000000230 OCT 4000000230 6 01515 +000000000000 OCT 01516 +040020002000 OCT 40020002000 5 1 9S04 HA 7-01-58 PAGE 20 01517 +000000000000 OCT 01520 +000300000002 OCT 300000002 4 01521 +000000000000 OCT 01522 +000000000000 OCT 3 01523 +000000000000 OCT 01524 +000014000000 OCT 14000000 2 01525 +000000000000 OCT 01526 +000400000000 OCT 400000000 1 01527 +000000000000 PR4 OCT ERROR WORD 01530 +000014000020 OCT 14000020 0 01531 +000000000000 OCT COMPLEMENT OF ERROR WORD 01532 +036040001714 OCT 36040001714 11 01533 +000000000000 OCT 01534 +040720002002 OCT 40720002002 12 01535 +000000000000 OCT PRINT IMAGE FOR SECOND LINE 01536 +032100000004 PR2 OCT 32100000004 9 01537 +000000000000 OCT 01540 +000000000000 OCT 8 01541 +000000000000 OCT 01542 +000200000000 OCT 200000000 7 01543 +000000000000 OCT 01544 +004000000030 OCT 4000000030 6 01545 +000000000000 OCT 01546 +040400000400 OCT 40400000400 5 01547 +000000000000 OCT 01550 +000000760002 OCT 760002 4 01551 +000000000000 OCT 01552 +000040001100 OCT 40001100 3 01553 +000000000000 OCT 01554 +000000000200 OCT 200 2 01555 +000000000000 OCT 01556 +000000000000 OCT 0 1 01557 +000000000000 PR5 OCT TEST WORD 01560 +000240001320 OCT 240001320 0 01561 +000000000000 OCT COMPLEMENT OF TEST WORD 01562 +036000000014 OCT 36000000014 11 01563 +000000000000 OCT 01564 +040500000402 OCT 40500000402 12 01565 +000000000000 OCT ERROR ADDRESSING FORM 01566 +000000000000 PR7 OCT 7 01567 +000000000000 OCT 6 01570 +000000000000 OCT 5 01571 +000000000000 OCT 4 01572 +000000000000 OCT 3 01573 +000000000000 OCT 2 01574 +000000000000 OCT 1 01575 +000000000000 OCT 0 PRINT IMAGE FOR 3RD LINE 01576 +000040000004 PR8 OCT 40000004 9 1 9S04 HA 7-01-58 PAGE 21 01577 +000000000000 OCT 01600 +000000000000 OCT 8 01601 +000000000000 OCT 01602 +000000200000 OCT 200000 7 01603 +000000000000 OCT 0 01604 +000000000030 OCT 30 6 01605 +000000000000 OCT 0 01606 +020020000400 OCT 20020000400 5 01607 +000000000000 OCT 0 01610 +000300040002 OCT 300040002 4 01611 +000000000000 OCT 0 01612 +004000000100 OCT 4000000100 3 01613 +000000000000 OCT 0 01614 +040014521000 OCT 40014521000 2 01615 +000000000000 OCT 01616 +010400000200 OCT 10400000200 1 01617 +000000000000 PR6 OCT BEAT WORD 01620 +004014000120 OCT 4014000120 0 01621 +000000000000 OCT COMPLEMENT OF BEAT WORD 01622 +000040000014 OCT 40000014 11 01623 +000000000000 OCT 0 01624 +070720001602 OCT 70720001602 12 01625 +000000000000 OCT 0 PRINT IMAGE FOR 4TH LINE 01626 +010010040014 PR10 OCT 10010040014 9L 01627 -000000144000 OCT 400000144000 9R 01630 +000001001000 OCT 1001000 8 01631 +010000000100 OCT 10000000100 01632 +000000000002 OCT 2 7 01633 +000010020000 OCT 10020000 01634 +204620100000 OCT 204620100000 6 01635 +301000003010 OCT 301000003010 01636 +002000020000 OCT 2000020000 5 01637 +000000000001 OCT 1 01640 +000000000100 OCT 100 4 01641 +000001000000 OCT 1000000 01642 -120006200020 OCT 520006200020 3 01643 +012400200324 OCT 12400200324 01644 +000040010400 OCT 40010400 2 01645 +000100000000 OCT 100000000 01646 +040000000040 OCT 40000000040 1 01647 +020004400000 OCT 20004400000 01650 +020064011022 OCT 20064011022 0 01651 +110010221100 OCT 110010221100 01652 -206400144110 OCT 606400144110 11 01653 -201441106014 OCT 601441106014 01654 +150213220044 OCT 150213220044 12 01655 +002000440020 OCT 2000440020 01656 +000000000400 PR11 OCT 400 Y1, Y2, Y3, OR Y4 01657 -377777777377 OCT 777777777377 01660 +020000000000 PR12 OCT 20000000000 ROW Y MATRIX 01661 +000100000000 OCT 100000000 COL Y MATRIX 01662 +000004000000 OCT 4000000 X1 OR X2 01663 +000000000200 OCT 200 ROW X MATRIX 01664 +000000000001 OCT 1 COL X MATRIX 1 9S04 HA 7-01-58 PAGE 22 01665 -357673777576 OCT 757673777576 01666 0760 00 0 00163 NPER SWT 3 01667 0020 00 0 01671 TRA *+2 01670 0020 00 0 00001 TRA C 01671 0766 00 0 01361 WPRA 01672 0760 00 0 01363 SPRA 3 01673 0540 00 0 01675 RCHA *+2 01674 0020 00 0 00001 TRA C 01675 0000 30 0 01676 IOCD PNPER,0,24 * PRINT - NOW PERFORMING-9S04H-STORAGE TEST * IMAGE - NOW PERFORMING-9S04H-STORAGE TEST 01676 +000000045040 PNPER OCT 000000045040 9 ROW LEFT 01677 +040000000000 OCT 040000000000 9 ROW RIGHT 01700 +000000000002 OCT 000000000002 8 L 01701 +000000000000 OCT 000000000000 8 R 01702 +000000200200 OCT 000000200200 7 L 01703 +010000000000 OCT 010000000000 7 R 01704 +000003030000 OCT 000003030000 6 L 01705 +100000000000 OCT 100000000000 6 R 01706 +000004100400 OCT 000004100400 5 L 01707 +004400000000 OCT 004400000000 5 R 01710 +000000002004 OCT 000000002004 4 L 01711 +000000000000 OCT 000000000000 4 R 01712 +000000000000 OCT 000000000000 3 L 01713 +201100000000 OCT 201100000000 3 R 01714 +000000000020 OCT 000000000020 2 L 01715 -000200000000 OCT 400200000000 2 R 01716 +000000000000 OCT 000000000000 1 L 01717 +020000000000 OCT 020000000000 1 R 01720 +000001000030 OCT 000001000030 0 L 01721 -201300000000 OCT 601300000000 0 R 01722 +000006256501 OCT 000006256501 11 L 01723 +140000000000 OCT 140000000000 11 R 01724 +000000121202 OCT 000000121202 12 L 01725 +034400000000 OCT 034400000000 12 R * PRINT - PASS COMPLETE-9S04H-STORAGE TEST * IMAGE - PASS COMPLETE-9S04H-STORAGE TEST 01726 +000000000010 PPER OCT 000000000010 9 ROW LEFT 01727 +010000000000 OCT 010000000000 9 ROW RIGHT 01730 +000000000000 OCT 000000000000 8 L 01731 -000000000000 OCT 400000000000 8 R 01732 +000000401000 OCT 000000401000 7 L 01733 +002000000000 OCT 002000000000 7 R 01734 +000000004000 OCT 000000004000 6 L 01735 +020000000000 OCT 020000000000 6 R 01736 +000000000240 OCT 000000000240 5 L 01737 +001100000000 OCT 001100000000 5 R 01740 +000000002001 OCT 000000002001 4 L 01741 +000000000000 OCT 000000000000 4 R 01742 +000000010500 OCT 000000010500 3 L 01743 +040220000000 OCT 040220000000 3 R 1 9S04 HA 7-01-58 PAGE 23 01744 +000000140004 OCT 000000140004 2 L 01745 +100040000000 OCT 100040000000 2 R 01746 +000000200000 OCT 000000200000 1 L 01747 +004000000000 OCT 004000000000 1 R 01750 +000000140106 OCT 000000140106 0 L 01751 +140260000000 OCT 140260000000 0 R 01752 +000000407420 OCT 000000407420 11 L 01753 +230000000000 OCT 230000000000 11 R 01754 +000000210240 OCT 000000210240 12 L 01755 -007100000000 OCT 407100000000 12 R 01756 -1 00003 0 00000 CNTL MON 0,0,3 01757 0 00030 0 01506 CNTL1 PZE PR1,0,24 CNTRL PRINT 1ST LINE 01760 0 00030 0 01536 CNTL2 PZE PR2,0,24 CNTRL PRINT 2ND LINE 01761 0 00030 0 01576 CNTL3 PZE PR8,0,24 CNTRL PRINT 3RD LINE 01762 0 00030 0 01626 CNTL4 PZE PR10,0,24 CNTRL PRINT 4TH LINE 00000 END 1 *EOF*