X16-08T1

* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 1

0001 * E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 0002 * 0003 * 0004 * 0005 * COMPUTER: DDP-416, DDP-516 0006 * 0007 * 0008 * PROGRAM CATEGORY: VERIFICATION AND TEST 0009 * 0010 * 0011 * PROGRAM TITLE: X16-08T1 0012 * MEMORY LOCKOUT TEST NO.1 FOR THE DDP-416 AND DDP-516 0013 * 0014 * 0015 * 0016 * 0017 * 0018 * 0019 * 0020 * 0021 * 0022 * 0023 * 0024 * APPROVAL DATE 0025 * 0026 * 0027 * 0028 * PROG---------------------- ------------ 0029 * 0030 * 0031 * SUPR---------------------- ------------ 0032 * 0033 * 0034 * QUAL---------------------- ------------ 0035 * 0036 * 0037 * NO. OF PAGES ------------ 0038 * 0039 * 0040 * AUTHOR 0041 * 0042 * HONEYWELL - COMPUTER CONTROL DIVISION (EUROPE) 0043 * 0044 * 0045 * PURPOSE 0046 * 0047 * TO TEST THE MEMORY LOCKOUT OPTION (516-08) 0048 * 0049 * 0050 * RESTRICTIONS
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 2

0051 * 0052 * THIS PROGRAM WILL OPERATE ON ANY DDP-416 OR DDP-516 WHICH HAS 0053 * OPTION 516-08. IT HAS BEEN TESTED ONLY ON A DDP-516. 0054 * 0055 * 0056 * TIMING 0057 * 0058 * THIS PROGRAM TAKES ABOUT 2.3 MILLISEC. PER PASS OR 25,500 PASSES 0059 * PER MINUTE OR 1,530,000 PASSES PER HOUR. 0060 * 0061 * 0062 * STORAGE 0063 * 0064 * THIS PROGRAM USES LOCATIONS IN EVERY LOCKED-OUT SECTOR OF MEMORY. 0065 * 0066 * 0067 EJCT
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 3

0068 * USE 0069 * 0070 * INSERT THE NUMBER OF 8K INCREMENTS OF MEMORY WHICH HAVE THE 0071 * LOCKOUT OPTION (1, 2, 3, OR 4) IN BITS 14-16 OF REGISTER "A" AND 0072 * START THE PROGRAM AT LOCATION "STRT". 0073 * 0074 * THE PROGRAM SHOULD STOP AT "EOPH", THE END-OF-PASS HALT. 0075 * EACH PUSH OF THE START BUTTON SHOULD CAUSE THE PROGRAM TO LOOP 0076 * THROUGH ALL THE TESTS AND STOP AT "EOPH". IF IT DOES, TYPE IN THE 0077 * CHARACTER "G" AND THEN PRESS START TO CAUSE THE PROGRAM TO CYCLE 0078 * WITHOUT STOPPING UNLESS IT DETECTS AN ERROR. 0079 * 0080 * IF THE CHARACTER "S" IS TYPED IN, THE PROGRAM WILL AGAIN 0081 * STOP AFTER EACH PASS. 0082 * 0083 * IF THE CHARACTER "T" IS TYPED IN, THE NUMRER OF PASSES 0084 * COMPLETED WILL BE TYPED OUT. 0085 * 0086 * 0087 * ERRORS 0088 * 0089 * WHENEVER A PLANNED INTERRUPT DOES NOT OCCUR, A "JST EROR" IS 0090 * EXECUTED. SINCE THE "HLT" IN THE ERROR ROUTINE MAY NOW CAUSE AN 0091 * INTERRUPT, ANOTHER LINK ADDRESS 1S STORED IN LOC. '62 AND A SECOND 0092 * "HLT" TS USED. WHEN EITHER OF THESE TWO ERROR HALTS IS ENCOUN- 0093 * TERED, THE CONTENTS OF REGISTER "A" WILL BE THE SAME AS THEY WERE 0094 * WHEN THE PLANNED INTERRUPT SHOULD HAVE OCCURRED. 0095 * 0096 * IN ORDER TO DISPLAY MORE INFORMATION IN REG. A, NAMELY THE 0097 * CONTENTS OF "EROR", THE ORIGINAL CONTENTS OF LOC. '62, AND THE 0098 * PRESENT CONTENTS OF LOC. '62, THE "START" BUTTON WILL HAVE TO BE 0099 * PUSHED 1, 2, OR 3 TIMES, RESPECTIVELY. A FOURTH PUSH WILL RETURN 0100 * CONTROL TO THE MAIN PROGRAM WHICH WILL RE-TRY THE FAILING TEST. 0101 * 0102 * 0103 EJCT
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 4

0104 * METHOD 0105 * 0106 * THIS PROGRAM CONTAINS A FEATURE WHICH TRACES THE PATH OF THE 0107 * PROGRAM USING JST INSTRUCTIONS. EACH TEST STARTS WITH A "JST 0108 * JSTL" (THE JST-REPORTING LOCATION) FOLLOWED BY A "JST *+1" WHICH 0109 * IN TURN IS FOLLOWED BY A "PZE 2". LOCATION "JSTL" IS MODIFIED AT 0110 * THE BEGINNING OF EACH TEST AND EACH "PZE 2" IS MODIFIED TO CONTAIN 0111 * ITS OWN ADDRESS. THE "PZE 2" LOCATIONS ARE CHECKED FOR THEIR OWN 0112 * ADDRESSES AND RESTORED TO "PZE 2" AT THE END OF EACH PASS. 0113 * 0114 * THIS PROGRAM TESTS TO SEE THAT THE FOLLOWING INSTRUCTIONS 0115 * CAUSE RESTRICTED MODE VIOLATION INTERRUPTS: 0116 * 0117 * 1. INDIRECT ADDRESSING (MORE THAN 8 LEVELS) 0118 * 2. INH 0119 * 3. OCP 0120 * 4. SKS 0121 * 5. OTA 0122 * 6. INA 0123 * 7. HLT 0124 * 8. SMK 0125 * 9. STX 0126 * 10. IMA 0127 * 11. IRS 0128 * 12. JST 0129 * 13. INDIRECT STA 0130 * 14. INDEXED STA 0131 * 15. LDX 0132 * 0133 * SECTOR 0 RELOCATION IS ALSO TESTED. 0134 * 0135 * 0136 EJCT
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 5

0137 * ABBREVIATIONS 0138 * 0139 * ASCTI-AMERICAN STANDARD CODE FOR INFORMATION INTERCHANGE 0140 * ASR - TELETYPEWRITER (AUTOMATIC SEND-RECEIVE SET) 0141 * INST- (COMPUTER) INSTRUCTION 0142 * INT - INTERRUPT 0143 * LOC - LOCATION (IN CORE MEMORY) 0144 * RA - REGISTER A 0145 * REG - (HARDWARE) REGISTER 0146 * RM - RESTRICTED MODE 0147 * RMVI- RESTRICTED MODE VIOLATION INTERRUPT 0148 * 0149 * 0150 ************************************************************************ 0151 * 0152 CF5 0153 ORG '774 THIS PROGRAM IS NOT RELOCATABLE (18-29-66). 0154 LOAD 0155 * 0156 00774 000000 T0 BSZ 1 0157 00775 000000 T2 BSZ 1 0158 00776 100000 TL0 OCT 100000 0159 00777 000000 TL1 BSZ 1 0160 EJCT
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 6

0161 * 0162 * INITIALIZE 0163 * 0164 01000 101040 FSTR SNZ 0165 01001 000000 HLT 0166 01002 100040 SZE 0167 01003 0 04 01723 STA T8 0168 01004 0 10 01734 STRT JST JSTL REPORT IN TO "JSTL" 0169 01005 0 10 01006 JST *+1 AND 0170 01006 0 00 00002 J01 PZE 2 TO THIS LOCATION. 0171 01007 0 02 01634 LDA ERAD PUT "ERROR ADDRESS" IN 0172 01010 0 04 00062 STA '62 LOCKOUT VIOLATION INTERRUPT LINK LOCATION. 0173 01011 0 02 01700 LDA ONES SET ALL SECTORS TO UN-PROTECTED MODE. 0174 01012 74 1420 SMK '1420 * 0175 01013 74 1520 SMK '1520 * 0176 01014 74 1620 SMK '1620 * 0177 01015 74 1720 SMK '1720 * 0178 01016 0 02 01762 LDA ='100000 RESET 0179 01017 0 04 00776 STA TL0 LOC. '776. 0180 01020 0 02 01761 LDA ='140000 SET SECTORS 0 AND 1 0181 01021 74 1420 SMK '1420 TO UN-PROTECTED MODE AND 0182 01022 140040 CRA ALL OTHERS 0183 01023 74 1520 SMK '1520 TO 0184 01024 74 1620 SMK '1620 PROTECTED 0185 01025 74 1720 SMK '1720 MODE. 0186 * 0187 * TEST INDIRECT ADDRESSING INTERRUPT 0188 * 0189 01026 0 10 01734 S01 JST JSTL REPORT. 0190 01027 0 10 01030 JST *+1 REPORT. 0191 01030 0 00 00002 J02 PZE 2 0192 01031 001401 ERM ENTER RESTRICTED MODE. 0193 01032 0 02 01037 LDA L1 RE-SET 0194 01033 0 04 00062 STA '62 LINK. 0195 01034 -0 04 01703 STA* IAT ATTEMPT 8-LEVEL INDIRECT ADDRESSING. 0196 01035 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT. 0197 01036 0 01 01026 JMP S01 TRY AGAIN IF ERROR OCCURRED. 0198 01037 0 001040 L1 DAC *+1 LINK ADDRESS. 0199 01040 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0200 * 0201 * TEST INH INTERRUPT 0202 * 0203 01041 0 10 01734 S02 JST JSTL REPORT. 0204 01042 0 10 01043 JST *+1 REPORT. 0205 01043 0 00 00002 J03 PZE 2 0206 01044 0 02 01053 LDA L2 SET 0207 01045 0 04 00062 STA '62 LINK. 0208 01046 001401 ERM RE-ENTER RESTR. MODE. 0209 01047 001001 INH INHIBIT INTERRUPTS, CAUSE RMVI. 0210 01050 0 02 01760 LDA ='11 THIS INST. SHOULD BE EXECUTED.
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 7

0211 01051 0 10 01635 JST EROR THIS ONE SHOULD NOT. 0212 01052 0 01 01041 JMP S02 TRY AGAIN IF ERROR OCCURRED. 0213 01053 0 001054 L2 DAC *+1 LINK ADDRESS. 0214 01054 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0215 01055 0 05 01760 ERA ='11 WAS LDA 0216 01056 100040 SZE EXECUTED - 0217 01057 0 10 01635 JST EROR NO. 0218 * 0219 * TEST OCP INTERRUPT 0220 * 0221 01060 0 10 01734 S03 JST JSTL YES. 0222 01061 0 10 01062 JST *+1 0223 01062 0 00 00002 J04 PZE 2 0224 01063 001401 ERM RE-ENTER R.M. 0225 01064 0 02 01072 LDA L3 SET 0226 01065 0 04 00062 STA '62 LINK. 0227 01066 14 0037 OCP '37 UNASSIGNED OCP. 0228 01067 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT. 0229 01070 0 10 01635 JST EROR ALSO, JUST IN CASE INSTRUCTION SKIPS. 0230 01071 0 01 01060 JMP S03 TRY AGAIN IF ERROR OCCURRED. 0231 01072 0 001073 L3 DAC *+1 LINK ADDRESS. 0232 01073 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0233 * 0234 * TEST SKS INTERRUPT 0235 * 0236 01074 0 10 01734 S04 JST JSTL 0237 01075 0 10 01076 JST *+1 0238 01076 0 00 00002 J05 PZE 2 0239 01077 001401 ERM SET R.M. 0240 01100 0 02 01106 LDA L4 SET 0241 01101 0 04 00062 STA '62 LINK. 0242 01102 34 0037 SKS '37 USE UNASSIGNED SKS TO CAUSE RMVI. 0243 01103 0 10 01635 JST EROR IF NOT, GO TO ERROR 0244 01104 0 10 01635 JST EROR WHETHER SKS SKIPS OR DOESN'T. 0245 01105 0 01 01074 JMP S04 TRY AGAIN. 0246 01106 0 001107 L4 DAC *+1 LINK ADDRESS. 0247 01107 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0248 * 0249 * TEST OTA INTERRUPT 0250 * 0251 01110 0 10 01734 S05 JST JSTL 0252 01111 0 10 01112 JST *+1 0253 01112 0 00 00002 J06 PZE 2 0254 01113 0 02 01122 LDA L5 SET 0255 01114 0 04 00062 STA '62 LINK. 0256 01115 001401 ERM SET R.M. 0257 01116 74 0037 OTA '37 UNASSIGNED OTA. 0258 01117 0 10 01635 JST EROR IF NO INTERRUPT, GO TO ERROR 0259 01120 0 10 01635 JST EROR WHETHER OTA SKIPS DOESN'T. 0260 01121 0 01 01110 JMP S05 TRY AGAIN IF ERROR OCCURRED.
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 8

0261 01122 0 001123 L5 DAC *+1 LINK ADDRESS. 0262 01123 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0263 * 0264 * TEST INA INTERRUPT 0265 * 0266 01124 0 10 01734 S06 JST JSTL 0267 01125 0 10 01126 JST *+1 0268 01126 0 00 00002 J07 PZE 2 0269 01127 0 02 01137 LDA L6 SET 0270 01130 0 04 00062 STA '62 LINK. 0271 01131 001401 ERM SET R.M. 0272 01132 0 02 01757 LDA ='125252 PATTERN IN RA SHOULD NOT BE CHANGED 0273 01133 54 1037 INA '1037 BY INA. 0274 01134 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT. 0275 01135 0 10 01635 JST EROR * 0276 01136 0 01 01124 JMP S06 TRY AGAIN. 0277 01137 0 001140 L6 DAC *+1 LINK ADDRESS. 0278 01140 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0279 01141 101040 SNZ RA SHOULD NOT HAVE BEEN CLEARED. 0280 01142 0 10 01635 JST EROR GO TO ERROR IF TT WAS CLEARED. 0281 01143 0 05 01757 ERA ='125252 RA SHOULD NOT HAVE 0282 01144 100040 SZE BEEN CHANGED. 0283 01145 0 10 01635 JST EROR GO TO ERROR IF IT WAS CHANGED. 0284 * 0285 * TEST HLT INTERRUPT 0286 * 0287 01146 0 10 01734 S07 JST JSTL 0288 01147 0 10 01150 JST *+1 0289 01150 0 00 00002 J08 PZE 2 0290 01151 001401 ERM SET R.M. 0291 01152 0 02 01157 LDA L7 SET 0292 01153 0 04 00062 STA '62 LINK. 0293 01154 000000 HLT USE HLT. 0294 01155 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT. 0295 01156 0 01 01146 JMP S07 TRY AGAIN. 0296 01157 0 001160 L7 DAC *+1 LINK ADDRESS. 0297 01160 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0298 * 0299 * TEST SMK INTERRUPT 0300 * 0301 01161 0 10 01734 S08 JST JSTL 0302 01162 0 10 01163 JST *+1 0303 01163 0 00 00002 J09 PZE 2 0304 01164 001401 ERM SET R.M. 0305 01165 0 02 01174 LDA L8 SET 0306 01166 0 04 00062 STA '62 LINK. 0307 01167 140040 CRA CLEAR RA JUST IN CASE 0308 01170 74 1720 SMK '1720 SMK IS EXECUTED. 0309 01171 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT. 0310 01172 0 10 01635 JST EROR ALSO, JUST IN CASE INSTRUCTION SKIPS.
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 9

0311 01173 0 01 01161 JMP S08 TRY AGAIN IF ERROR OCCURRED. 0312 01174 0 001175 L8 DAC *+1 LINK ADDRESS. 0313 01175 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0314 * 0315 * TEST STX INTERRUPT (NOT ON DDP-416) 0316 * 0317 01176 0 10 01734 S09 JST JSTL 0318 01177 0 10 01200 JST *+1 0319 01200 0 00 00002 J10 PZE 2 0320 01201 140040 CRA CLEAR 0321 01202 -0 04 01725 STA* TS2 LOCATION '2002. 0322 01203 0 11 01756 CAS =0 COMPUTER IS A 0323 01204 0 01 01660 JMP P416 DDP-416, MODIFY CERTAIN TESTS. 0324 01205 001401 P085 ERM DDP-516, GO ON. 0325 01206 0 02 01215 LDA L9 SET 0326 01207 0 04 00062 STA '62 LINK. 0327 01210 0 35 01755 LDX ='12345 0328 01211 -0 15 01725 STX* TS2 STX SHOULD CAUSE INTERRUPT ON DDP-516. 0329 01212 101000 4OR5 NOP (JMP P091 IF DDP-416) 0330 01213 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT ON DDP-516. 0331 01214 0 01 01176 JMP S09 TRY AGAIN IF ERROR OCCURRED 0332 01215 0 001216 L9 DAC *+1 LINK ADDRESS. 0333 01216 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0334 01217 -0 02 01725 P091 LDA* TS2 '2002 SHOULD NOT HAVE BEEN CHANGED 0335 01220 100040 SZE ON EITHER -416 OR -516. 0336 01221 0 10 01635 JST EROR GO TO ERROR IF IT WAS CHANGED. 0337 * 0338 * TEST IMA INTERRUPT (NOT ON DDP-416) 0339 * 0340 01222 0 10 01734 S10 JST JSTL 0341 01223 0 10 01224 JST *+1 0342 01224 0 00 00002 J11 PZE 2 0343 01225 0 02 01754 LDA =-1 PUT ALL ONES 0344 01226 -0 04 01726 STA* TS3 IN '3003. 0345 01227 001401 ERM SET RESTRICTED MODE. 0346 01230 0 02 01237 LDA L10 SET 0347 01231 0 04 00062 STA '62 LINK. 0348 01232 0 02 01753 LDA ='54321 GET A PATTERN. 0349 01233 -0 13 01726 IMA* TS3 CAUSE INTERRUPT ON -516. 0350 01234 101000 4O5 NOP (JMP P100 IF DDP-416) 0351 01235 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT ON -516. 0352 01236 0 01 01222 JMP S10 TRY AGAIN IF ERROR OCCURRED. 0353 01237 0 001240 L10 DAC *+1 LINK ADDRESS. 0354 01240 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0355 01241 0 01 01246 JMP P101 ON DDP-516, SKIP OVER -416 PART. 0356 01242 0 05 01753 P100 ERA ='54321 RA SHOULD NOT HAVE 0357 01243 100040 SZE CHANGED ON -416. 0358 01244 0 10 01635 JST EROR GO TO ERROR IF IT WAS CHANGED. 0359 01245 -0 02 01726 LDA* TS3 CHECK CONTENTS OF '3003 ON -416 0360 01246 0 05 01754 P101 ERA =-1 OR RA ON -516.
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 10

0361 01247 100040 SZE ALL ONES - 0362 01250 0 10 01635 JST EROR NO, GO TO ERROR. 0363 * 0364 * TEST IRS INTERRUPT 0365 * 0366 01251 0 10 01734 S11 JST JSTL 0367 01252 0 10 01253 JST *+1 0368 01253 0 00 00002 J12 PZE 2 0369 01254 0 02 01754 LDA =-1 PUT ALL ONES 0370 01255 -0 04 01727 STA* TS4 IN '4004. 0371 01256 001401 ERM ENTER RESTRICTED MODE. 0372 01257 0 02 01266 LDA L11 SET 0373 01260 0 04 00062 STA '62 LINK. 0374 01261 -0 12 01727 IRS* TS4 TRY TO INCREMENT '4004. 0375 01262 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT. 0376 01263 0 10 01635 JST EROR * 0377 01264 0 01 01251 JMP S11 TRY AGAIN IF ERROR OCCURRED. 0378 01265 0 001263 P109 DAC *-2 COMPARE ADDRESS. 0379 01266 0 001267 L11 DAC *+1 LINK ADDRESS. 0380 01267 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0381 01270 0 02 01267 LDA *-1 MAKE SURE IRS 0382 01271 0 05 01265 ERA P109 CAUSED SKIP EVEN THOUGH 0383 01272 100040 SZE INTERRUPT OCCURRED. 0384 01273 0 10 01635 JST EROR 0385 01274 -0 02 01727 LDA* TS4 ALSO CHECK '4004 0386 01275 0 05 01754 ERA =-1 TO SEE THAT 0387 01276 100040 SZE IT WAS NOT CHANGED. 0388 01277 0 10 01635 JST EROR 0389 * 0390 * TEST JST INTERRUPT 0391 * 0392 01300 0 10 01734 S12 JST JSTL 0393 01301 0 10 01302 JST *+1 0394 01302 0 00 00002 J13 PZE 2 0395 01303 0 02 01752 LDA ='1234 GET A PATTERN 0396 01304 -0 04 01730 STA* TS5 FOR LOCATION '5005. 0397 01305 0 02 01320 LDA ERRJ+1 PUT ADDRESS OF LOC. CONTAINING "JST EROR" 0398 01306 0 04 00777 STA '777 IN '777 IN CASE "JST* TS5" TRANSFERS CON- 0399 01307 0 02 01317 LDA ERRJ PUT A JUMP THROUGH '777 / TROL TO '5006. 0400 01310 -0 04 01731 STA* TS51 IN '5006. 0401 01311 001401 ERM ENTER RESTRICTED MODE. 0402 01312 0 02 01323 LDA L12 SET 0403 01313 0 04 00062 STA '62 LINK. 0404 01314 -0 10 01730 JST* TS5 TRY TO JST TO '5005. 0405 01315 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT. 0406 01316 0 01 01300 JMP S12 TRY AGAIN IF FRROR OCCURRED. 0407 01317 -0 01 00777 ERRJ JMP* TL1 THIS INST. GOES IN LOC. '5006. 0408 01320 0 001321 DAC *+1 THIS ADDRESS GOES IN LOC. '777. 0409 01321 0 10 01635 JST EROR THIS INST. MAY BE EXECUTED IF NO INTERRUPT. 0410 01322 0 01 01300 JMP S12 TRY AGAIN IF NO INTFRRUPT.
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 11

0411 01323 0 001324 L12 DAC *+1 LINK ADDRESS. 0412 01324 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0413 01325 -0 02 01730 LDA* TS5 ARE CONTENTS OF '5005 0414 01326 0 05 01752 ERA ='1234 STILL EQUAL TO PATTERN - 0415 01327 100040 SZE 0416 01330 0 10 01635 JST EROR GO TO ERROR IF NOT EQUAL. 0417 01331 0 02 01324 LDA L12+1 WAS REG. P CORRECT 0418 01332 0 05 01731 ERA TS51 WHEN INTERRUPT OCCURRED - 0419 01333 100040 SZE 0420 01334 0 10 01635 JST EROR GO TO ERROR IF NOT CORRECT. 0421 * 0422 * TEST STA INTERRUPT (USING INDIRECT STA) 0423 * 0424 01335 0 10 01734 S13 JST JSTL 0425 01336 0 10 01337 JST *+1 0426 01337 0 00 00002 J14 PZE 2 0427 01340 0 02 01754 LDA =-1 PUT ALL ONES 0428 01341 -0 04 01732 STA* TS6 IN '6006. 0429 01342 001401 ERM ENTER RESTRICTED MODE. 0430 01343 0 02 01351 LDA L13 SET 0431 01344 0 04 00062 STA '62 LINK. 0432 01345 0 02 01732 LDA TS6 TRY TO PUT '6006 0433 01346 -0 04 01732 STA* TS6 IN LOC. '6006. 0434 01347 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT. 0435 01350 0 01 01335 JMP S13 TRY AGAIN IF NO INTERRUPT. 0436 01351 0 001352 L13 DAC *+1 LINK ADDRESS. 0437 01352 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0438 01353 -0 02 01732 LDA* TS6 CHECK '6006. 0439 01354 0 05 01754 ERA =-1 DOES IT STILL CONTAIN 0440 01355 100040 SZE ALL ONES - 0441 01356 0 10 01635 JST EROR GO TO ERROR IF IT DOESN'T. 0442 * 0443 * TEST INDEXED STA INTERRUPT (INDIRECT STA ON DDP-416) 0444 * 0445 01357 0 10 01734 S14 JST JSTL 0446 01360 0 10 01361 JST *+1 0447 01361 0 00 00002 J15 PZE 2 0448 01362 0 02 01753 LDA ='54321 PUT A PATTERN 0449 01363 -0 04 01733 STA* TS7 IN '7007. 0450 01364 001401 ERM ENTER RESTRICTED MODE. 0451 01365 0 02 01374 LDA L14 SET 0452 01366 0 04 00062 STA '62 LINK. 0453 01367 0 35 01733 LDX TS7 (EXECUTED ON -516 ONLY.) 0454 01370 0 02 01733 LDA TS7 GET CONSTANT: '7007. 0455 01371 1 04 00000 4R5 STA 0,1 (STA* TS7 IF DDP-416) 0456 01372 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT. 0457 01373 0 01 01357 JMP S14 TRY AGAIN IF NO INTERRUPT. 0458 01374 0 001375 L14 DAC *+1 LINK ADDRESS. 0459 01375 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0460 01376 -0 02 01733 LDA* TS7 CHECK LOC. '7007.
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 12

0461 01377 0 05 01753 ERA ='54321 DOES IT STILL 0462 01400 100040 SZE CONTAIN PATTERN - 0463 01401 0 10 01635 JST EROR GO TO ERROR IF NOT. 0464 * 0465 * TEST STA INTERRUPT IN 346TH (OCTAL) LOCATION OF EACH SECTOR 0466 * FROM SECTOR 2 TO TOP OF CORE. 0467 * 0468 01402 0 10 01734 S15 JST JSTL 0469 01403 0 10 01404 JST *+1 0470 01404 0 00 00002 J16 PZE 2 0471 01405 0 02 01723 LDA T8 0472 01406 0414 74 LGL 4 0473 01407 0 05 01754 ERA =-1 0474 01410 0 06 01751 ADD =3 START WITH SECTOR 2. 0475 01411 0 04 00774 STA T0 0476 01412 0 04 01715 STA C1 0477 01413 0 02 01427 LDA L15 SET 0478 01414 0 04 00062 STA '62 LINK. 0479 01415 0 02 01750 LDA ='2345 GET ADDRESS OF 1ST TEST LOCATION. 0480 01416 0 04 00775 P149 STA T2 SAVE ADDRESS. 0481 01417 140040 CRA CLEAR 0482 01420 -0 04 00775 STA* T2 TEST LOCATION. 0483 01421 001401 ERM ENTER RESTRICTED MODE. 0484 01422 0 02 01747 LDA ='123456 GET A PATTERN. 0485 01423 -0 04 00775 STA* T2 TRY TO STORE IT. 0486 01424 101000 NOP INTERRUPT SHOULD OCCUR AFTER THIS INST. 0487 01425 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT. 0488 01426 0 01 01402 JMP S15 TRY AGAIN IF NO INTERRUPT. 0489 01427 0 001430 L15 DAC *+1 LINK ADDRESS. 0490 01430 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0491 01431 -0 02 00775 LDA* T2 CHECK CONTENTS OF TEST LOCATION. 0492 01432 100040 SZE ARE THEY STILL ZERO - 0493 01433 0 10 01635 JST EROR NO, GO TO ERROR. 0494 01434 0 02 00775 LDA T2 YES, 0495 01435 0 06 01746 ADD ='1000 TRY NEXT SECTOR. 0496 01436 0 12 00774 IRS T0 INCREMENT SECTOR COUNTER. 0497 01437 0 01 01416 JMP P149 GO BACK UNTIL ALL SECTORS ARE TESTED. 0498 * 0499 * TEST STA-TO-SECTOR-1 INTERRUPT 0500 * 0501 01440 0 10 01734 S16 JST JSTL 0502 01441 0 10 01442 JST *+1 0503 01442 0 00 00002 J17 PZE 2 0504 01443 0 02 01634 LDA ERAD TEMPORARILY, PUT ERROR ADDRESS 0505 01444 0 04 00062 STA '62 IN LINK LOCATION. 0506 01445 0 02 01762 LDA ='100000 LEAVE ONLY SECTOR O 0507 01446 74 1420 SMK '1420 IN UN-PROTECTED MODE. 0508 01447 001401 ERM ENTER RESTRICTED MODE. 0509 01450 0 02 01460 LDA L16 SET 0510 01451 0 04 00062 STA '62 LINK.
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 13

0511 01452 0 04 01457 STA P159 TRY TO STORE. 0512 01453 101000 NOP INTERRUPT SHOULD OCCUR AFTER THIS INST. 0513 01454 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT. 0514 01455 0 01 01440 JMP S16 TRY AGAIN IF NO INTERRUPT. 0515 01456 0 001454 P158 DAC *-2 ADDRESS WHICH SHOULD BE STORED BY INT. JST. 0516 01457 000000 P159 BSZ 1 TEST LOCATION. 0517 01460 0 001461 L16 DAC *+1 LINK ADDRESS. 0518 01461 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0519 01462 0 02 01457 LDA P159 MAKE SURE THAT TEST LOCATION 0520 01463 100040 SZE WAS NOT DISTURBED. 0521 01464 0 10 01635 JST EROR GO TO ERROR IF IT WAS. 0522 01465 0 02 01461 LDA L16+1 CHECK THE ADDRESS 0523 01466 0 05 01456 ERA P158 STORED BY 0524 01467 100040 SZE THE FORCED JST. 0525 01470 0 10 01635 JST EROR 0526 * 0527 * TEST STA-TO-SECTOR-0 INTERRUPT 0528 * 0529 01471 0 10 01734 S17 JST JSTL 0530 01472 0 10 01473 JST *+1 0531 01473 0 00 00002 J18 PZE 2 0532 01474 0 02 01506 LDA L17 SET 0533 01475 0 04 00062 STA '62 LINK. 0534 01476 0 02 01745 LDA ='40000 RE-SET SECTOR 1 TO UN-PROTECTED MODE 0535 01477 74 1420 SMK '1420 (SECTOR 0 IS NOW PROTECTED). 0536 01500 001401 ERM ENTER RESTRICTED MODE. 0537 01501 0 04 00776 STA TL0 CAUSE INTERRUPT (TRY TO STORE IN SECTOR O). 0538 01502 101000 NOP INTERRUPT SHOULD OCCUR AFTER THIS INST. 0539 01503 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT. 0540 01504 0 01 01471 JMP S17 TRY AGAIN IF NO INTERRUPT. 0541 01505 0 001503 P169 DAC *-2 ADDRESS WHICH SHOULD BE STORED BY INT. JST. 0542 01506 0 001507 L17 DAC *+1 LINK ADDRESS. 0543 01507 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0544 01510 0 02 00776 LDA TL0 CHECK TEST LOCATION 0545 01511 0 05 01762 ERA ='100000 TO MAKE SURE THAT 0546 01512 100040 SZE IT WAS NOT DISTURBED. 0547 01513 0 10 01635 JST EROR GO TO ERROR IF IT WAS. 0548 01514 0 02 01507 LDA L17+1 CHECK THE ADDRESS 0549 01515 0 05 01505 ERA P169 WHICH SHOULD HAVE REEN 0550 01516 100040 SZE STORED BY THF FORCED JST. 0551 01517 0 10 01635 JST EROR GO TO ERROR IF WRONG. 0552 * 0553 * TEST LDX INTERRUPT (NOT ON DDP-416) 0554 * 0555 01520 0 10 01734 S18 JST JSTL 0556 01521 0 10 01522 JST *+1 0557 01522 0 00 00002 J19 PZE 2 0558 01523 101000 4RR5 NOP (JMP S19 IF DDP-416) 0559 01524 0 02 01533 LDA L18 SET 0560 01525 0 04 00062 STA '62 LINK.
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 14

0561 01526 0 35 01744 LDX =2 GET A PATTERN. 0562 01527 001401 ERM ENTER RESTRICTED MODE. 0563 01530 0 35 01743 LDX =1 CAUSE INTERRUPT (SECTOR 0 IS PROTECTED). 0564 01531 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT. 0565 01532 0 01 01520 JMP S18 TRY AGAIN IF NO INTERRUPT. 0566 01533 0 001534 L18 DAC *+1 LINK ADDRESS. 0567 01534 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0568 01535 0 02 00000 LDA 0 CHECK CONTENTS OF INDEX REGISTER 0569 01536 0 05 01744 ERA =2 TO MAKE SURE THAT PATTERN IS STILL THERE. 0570 01537 100040 SZE * 0571 01540 0 10 01635 JST EROR GO TO ERROR IF IT IS NOT. 0572 * 0573 * TEST SECTOR 0 RELOCATION 0574 * 0575 01541 0 10 01734 S19 JST JSTL 0576 01542 0 10 01543 JST *+1 0577 01543 0 00 00002 J20 PZE 2 0578 01544 0 02 01715 LDA C1 START 0579 01545 0 07 01743 SUB =1 WITH 0580 01546 0 04 00774 STA T0 SECTOR 1 THIS TIME. 0581 01547 0 02 01742 LDA ='767 SET 3RD TEST ADDRESS IN LOCATION 0. 0582 01550 0 04 00000 STA 0 AND ALSO INDEX REGISTER ON DDP-516. 0583 01551 0 02 01741 LDA ='1765 GET ADDRESS OF 1ST TEST LOCATION. 0584 01552 0 04 00775 STA T2 0585 01553 0 02 01746 LDA ='1000 GET CONSTANT 0586 01554 0 04 01716 P29 STA T3 WHICH IS ALSO USED AS MASK. 0587 01555 74 1320 SMK '1320 SET RELOCATION REGISTER. 0588 01556 0 04 00765 STA '765 TEST USING STANDARD STA. 0589 01557 -0 04 01702 STA* SZRA TEST USING INDIRECT STA. 0590 01560 1 04 00000 4N5 STA 0,1 (STA* 0 IF DDP-416) TEST USING INDEXER STA. 0591 01561 140040 CRA 0592 01562 74 1320 SMK '1320 RE-SET RELOCATION REGISTER. 0593 01563 0 02 01740 LDA =-3 CHECK 0594 01564 0 04 01722 STA T7 ALL 0595 01565 -0 02 00775 P30 LDA* T2 THREE 0596 01566 0 05 01716 ERA T3 LOCATIONS. 0597 01567 100040 SZE * 0598 01570 0 10 01635 JST EROR GO TO ERROR IF ANY INCORRECT. 0599 01571 -0 04 00775 STA* T2 CLEAR OUT TEST LOCATION. 0600 01572 0 12 00775 IRS T2 INCREMENT ADDRESS. 0601 01573 0 12 01722 IRS T7 INCREMENT COUNTER. 0602 01574 0 01 01565 JMP P30 GO BACK TWICE. 0603 01575 0 02 00775 LDA T2 SET UP FOR 0604 01576 0 06 01746 ADD ='1000 LOCATION 0605 01577 0 07 01751 SUB =3 XX765 0606 01600 0 04 00775 STA T2 IN NEXT SECTOR. 0607 01601 0 02 01716 LDA T3 GET NEW CONSTANT 0608 01602 0 06 01746 ADD ='1000 AND MASK. 0609 01603 0 12 00774 IRS T0 INCREMENT COUNTER. 0610 01604 0 01 01554 JMP P29 GO BACK UNTIL DONE.
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 15

0611 * 0612 * TEST ECO 4763-11 IMPLEMENTATION 0613 * 0614 01605 0 10 01734 S29 JST JSTL 0615 01606 0 10 01607 JST *+1 0616 01607 0 00 00002 J21 PZE 2 0617 01610 0 02 01723 LDA T8 0618 01611 0 07 01751 SUB =3 0619 01612 100400 SPL 0620 01613 0 01 01633 JMP DONE 0621 01614 000011 DXA 0622 01615 0 01 01616 JMP *+1 0623 01616 0 02 01737 LDA ='42000 0624 01617 74 1320 SMK '1320 0625 01620 0 06 01702 ADD SZRA 0626 01621 0 04 01724 STA T9 0627 01622 0 02 01736 LDA ='76543 0628 01623 -0 04 01702 STA* SZRA 0629 01624 140040 CRA 0630 01625 74 1320 SMK '1320 0631 01626 000013 EXA 0632 01627 -0 02 01724 LDA* T9 0633 01630 0 05 01736 ERA ='76543 0634 01631 101040 SNZ 0635 01632 0 10 01635 JST EROR ECO 4763-11 IS NOT CORRECTLY IMPLEMENTED. 0636 * 0637 * END OF INTERRUPT TESTS 0638 * 0639 01633 -0 01 01701 DONE JMP* CJRA GO TO CHECK PROGRAM. 0640 * 0641 * ERROR HALT ROUTINE 0642 * 0643 01634 0 001635 ERAD DAC *+1 ADDRESS OF ERROR ROUTINE. 0644 01635 0 000000 EROR DAC ** ENTRY. 0645 01636 0 04 01720 STA T5 SAVE CONTENTS OF RA 0646 01637 0 02 00062 LDA '62 AND CONTENTS 0647 01640 0 04 01721 STA T6 OF LOC. '62. 0648 01641 0 02 01646 LDA L99 SET NEW LINK IN CASE ERROR 0649 01642 0 04 00062 STA '62 HALT CAUSES INTERRUPT. 0650 01643 0 02 01720 LDA T5 DISPLAY CONTENTS OF RA WHEN ERROR OCCURRED. 0651 01644 000000 HLT 1ST ERROR HLT. IF IT CAUSES RMVI,GO TO 2ND. 0652 01645 0 01 01651 JMP ER8 0653 01646 0 001647 L99 DAC *+1 LINK ADDRESS. 0654 01647 0 000000 DAC ** 0655 01650 000000 HLT 2ND ERROR HALT. 0656 01651 0 02 01635 ER8 LDA EROR DISPLAY CONTENTS OF EROR. 0657 01652 000000 HLT 0658 01653 0 02 01721 LDA T6 DISPLAY ORIGINAL CONTENTS OF LOC. '62. 0659 01654 000000 HLT 0660 01655 0 02 00062 LDA '62 DISPLAY PRESENT CONTENTS OF LOC. '62.
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 16

0661 01656 000000 HLT 0662 01657 -0 01 01635 JMP* EROR EXIT. 0663 * 0664 * ROUTINE WHICH CHANGES PROGRAM IF COMPUTER IS DDP-416, INSTEAD OF -516 0665 * 0666 01660 0 02 01673 P416 LDA J1 0667 01661 0 04 01212 STA 4OR5 0668 01662 0 02 01674 LDA J2 0669 01663 0 04 01234 STA 4O5 0670 01664 0 02 01675 LDA S1 0671 01665 0 04 01371 STA 4R5 0672 01666 0 02 01676 LDA J3 0673 01667 0 04 01523 STA 4RR5 0674 01670 0 02 01677 LDA S2 0675 01671 0 04 01560 STA 4N5 0676 01672 0 01 01205 JMP P085 0677 * 0678 * CONSTANTS 0679 * 0680 01673 0 01 01217 J1 JMP P091 0681 01674 0 01 01242 J2 JMP P100 0682 01675 -0 04 01733 S1 STA* TS7 0683 01676 0 01 01541 J3 JMP S19 0684 01677 -0 04 00000 S2 STA* 0 0685 01700 177777 ONES OCT 177777 0686 01701 0 002003 CJRA DAC CKJS 0687 01702 0 000766 SZRA DAC '766 0688 * 0689 * INDIRECT ADDRESS TABLE 0690 * 0691 01703 -0 001704 IAT DAC* *+1 INDIRECT ADDRESS TABLE, STEP 1. 0692 01704 -0 001705 DAC* *+1 STEP2 0693 01705 -0 001706 DAC* *+1 STEP3 0694 01706 -0 001707 DAC* *+1 STEP4 0695 01707 -0 001710 DAC* *+1 STEP5 0696 01710 -0 001711 DAC* *+1 STEP6 0697 01711 -0 001712 DAC* *+1 STEP7 0698 01712 -0 001713 DAC* *+1 STEP8 0699 01713 0 001714 DAC *+1 STEP9 0700 01714 000000 BSZ 1 FINAL LOCATION OF INDIRECT ADDRESS TARLE. 0701 * 0702 * CONSTANT AND TEMPORARY STORAGE 0703 * 0704 01715 000000 C1 BSZ 1 0705 01716 000000 T3 BSZ 1 0706 01717 000000 T4 BSZ 1 0707 01720 000000 T5 BSZ 1 0708 01721 000000 T6 BSZ 1 0709 01722 000000 T7 BSZ 1 0710 01723 000001 T8 OCT 1
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 17

0711 01724 000000 T9 BSZ 1 0712 * 0713 * SECTOR TEST LOCATIONS 0714 * 0715 01725 0 002002 TS2 DAC TL4 0716 01726 0 003003 TS3 DAC '3003 0717 01727 0 004004 TS4 DAC '4004 0718 01730 0 005005 TS5 DAC '5005 0719 01731 0 005006 TS51 DAC '5006 0720 01732 0 006006 TS6 DAC '6006 0721 01733 0 007007 TS7 DAC '7007 0722 * 0723 01734 0 000000 JSTL DAC ** 0724 01735 -0 01 01734 JMP* JSTL 0725 * 0726 01736 076543 FIN DUMP LITERALS FOR THIS SECTOR. 01737 042000 01740 177775 01741 001765 01742 000767 01743 000001 01744 000002 01745 040000 01746 001000 01747 123456 01750 002345 01751 000003 01752 001234 01753 054321 01754 177777 01755 012345 01756 000000 01757 125252 01760 000011 01761 140000 01762 100000 0727 * 0728 ORG '1765 0729 01765 000000 TL3 BSZ 3 0730 ORG '2002 0731 02002 000000 TL4 BSZ 1 0732 * 0733 * 0734 * ROUTINE WHICH CHECKS ADDRESSES IN "JXX" LOCATIONS DUE TO 0735 * "JST *+1" INSTRUCTIONS. 0736 * 0737 02003 0 02 02235 CKJS LDA =-21 SET UP FOR 21 0738 02004 0 04 00000 STA 0 PASSES THROUGH THIS ROUTINE. 0739 02005 0 02 02214 LDA TK1 GET ADDRESS OF "TABL"
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 18

0740 02006 0 04 02215 STA TK2 AND SAVE IT FOR ONE-LEVEL IND. ADDRESSING. 0741 02007 0 05 02234 ERA ='100000 ADD INDIRECT BIT 0742 02010 0 04 02213 STA TK0 AND SAVE IT FOR TWO-LEVEL IND. ADDRESSING. 0743 02011 -0 02 02213 CK2 LDA* TK0 GET CONTENTS OF ONE OF THE "JXX" LOCATIONS 0744 02012 -0 05 02215 ERA* TK2 AND CHECK IT AGAINST THE "TABL" ENTRY. 0745 02013 100040 SZE GO ON IF OK. 0746 02014 000000 HLT STOP, IF NOT. - ERROR HALT. 0747 02015 0 02 02233 LDA =2 RESTORE "PZE 2" 0748 02016 -0 04 02213 STA* TK0 TO "JXX" LOCATIONS. 0749 02017 0 12 02215 IRS TK2 INCREMENT 0750 02020 0 12 02213 IRS TK0 ADDRESSES 0751 02021 0 12 00000 IRS 0 AND COUNTER. 0752 02022 0 01 02011 JMP CK2 GO BACK UNTIL FINISHED. 0753 * 0754 * INCREMENT-PASS-COUNTER ROUTINE 0755 * 0756 02023 0 02 02232 LDA =-9 SET UP FOR 9 0757 02024 0 04 00774 STA T0 DIGITS. 0758 02025 0 02 02165 LDA NA2 GET ADDRESS OF WORD REPRESENTING "ONES" 0759 02026 0 04 00775 INC2 STA T2 DIGIT. 0760 02027 -0 12 00775 IRS* T2 INCREMENT NUMBER. 0761 02030 0 01 02040 JMP TYIN EXIT WHEN NO SKIP. 0762 02031 0 02 02231 LDA =-10 IF SKIP, 0763 02032 -0 04 00775 STA* T2 RESTORE TO -10. 0764 02033 0 02 00775 LDA T2 GET 0765 02034 0 07 02230 SUB =1 NEXT ADDRESS. 0766 02035 0 12 00774 IRS T0 INCREMENT COUNTER. 0767 02036 0 01 02026 JMP INC2 REPEAT. 0768 02037 000000 HLT ERROR HALT. 0769 * 0770 * TYPE-IN ROUTINE 0771 * 0772 02040 34 0104 TYIN SKS '104 IS ASR-33 BUSY - 0773 02041 0 01 02060 JMP EOPH YES. 0774 02042 54 1004 INA '1004 NO. 0775 02043 0 01 02057 JMP EOPH-1 NOT READY. 0776 02044 0 03 02227 ANA ='177 0777 02045 0 05 02226 ERA ='200 ENSURE BIT 8 OF CHARACTER IS SET 0778 02046 0 05 02225 ERA ='307 0779 02047 101040 SNZ IS INPUT CHARACTER A "G" - 0780 02050 0 01 02063 JMP STG YES. 0781 02051 0 05 02224 ERA ='24 NO. 0782 02052 101040 SNZ IS INPUT CHARACTER AN "S" - 0783 02053 0 04 02060 STA EOPH YES, STORE HALT IN "EOPH". 0784 02054 0 05 02223 ERA =7 0785 02055 101040 SNZ IS INPUT CHARACTER A "T" - 0786 02056 0 01 02066 JMP TYPO YES, GO TO TYPEOUT ROUTINE. 0787 02057 14 0004 OCP 4 ENABLE ASR-33 I 0788 02060 000000 EOPH HLT END-OF-PASS HALT (CRA IN NON-STOP MODE). 0789 02061 140040 CRA
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 19

0790 02062 -0 01 02216 JMP* ASTR GO TO BEGINNING OF PROGRAM. 0791 02063 0 02 02061 STG LDA EOPH+1 GET CRA INSTRUCTION 0792 02064 0 04 02060 STA EOPH AND REPLACE HLT WITH IT. 0793 02065 0 01 02060 JMP EOPH RETURN. 0794 * 0795 * TYPE-OUT ROUTINE 0796 * 0797 02066 34 0104 TYPO SKS '104 BUSY 0798 02067 0 01 02066 JMP *-1 LOOP. 0799 02070 14 0104 OCP '104 ENABLE ASR IN OUTPUT MODE. 0800 02071 0 02 02222 LDA =-8 SET COUNTER FOR 8 WORDS. 0801 02072 0 04 00774 STA T0 * 0802 02073 0 02 02142 LDA MA1 GET MESSAGE ADDRESS. 0803 02074 0 04 00775 STA T2 0804 02075 0 10 02115 JST OUTL OUTPUT MESSAGE (2 CHARACTERS/WORD). 0805 02076 0 02 02232 LDA =-9 SET COUNTER FOR 9 DIGITS. 0806 02077 0 04 00774 STA T0 * 0807 02100 0 02 02153 LDA NA1 GET MESSAGE ADDRESS. 0808 02101 0 04 00775 STA T2 0809 02102 0 10 02131 JST OUTN OUTPUT DECIMAL DIGITS 0810 02103 0 02 02221 LDA =-6 FOLLOWED 0811 02104 0 04 00774 STA T0 BY 0812 02105 0 02 02220 LDA ='240 6 0813 02106 74 0004 CHTO OTA 4 SPACES. 0814 02107 0 01 02106 JMP *-1 * 0815 02110 0 12 00774 IRS T0 * 0816 02111 0 01 02106 JMP CHTO * 0817 02112 34 0104 SKS '104 WAIT 0818 02113 0 01 02112 JMP *-1 WHILE ASR IS BUSY. 0819 02114 0 01 02057 JMP EOPH-1 RETURN. 0820 * 0821 * BCI OUTPUT SUBROUTINE 0822 * 0823 02115 0 000000 OUTL DAC ** ENTRY. 0824 02116 -0 02 00775 LDA* T2 GET 2 CHARACTERS. 0825 02117 0406 70 ARR 8 TYPE 0826 02120 74 0004 OTA 4 OUT 0827 02121 0 01 02120 JMP *-1 1ST CHARACTER (BITS 1-8). 0828 02122 0416 70 ALR 8 TYPE 0829 02123 74 0004 OTA 4 OUT 0830 02124 0 01 02123 JMP *-1 2ND CHARACTER (BITS 9-16). 0831 02125 0 12 00775 IRS T2 INCREMENT ADDRESS. 0832 02126 0 12 00774 IRS T0 INCREMENT COUNTER. 0833 02127 0 01 02116 JMP OUTL+1 GO BACK UNTIL ALL OUT. 0834 02130 -0 01 02115 JMP* OUTL EXIT. 0835 * 0836 * NUMBER OUTPUT SUBROUTINE 0837 * 0838 02131 0 000000 OUTN DAC ** ENTRY. 0839 02132 -0 02 00775 LDA* T2 GET NUMBER.
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 20

0840 02133 0 06 02217 ADD ='272 CONVERT TO ASCII DECIMAL DIGIT. 0841 02134 74 0004 OTA 4 TYPE 0842 02135 0 01 02134 JMP *-1 IT. 0843 02136 0 12 00775 IRS T2 INCREMENT ADDRESS. 0844 02137 0 12 00774 IRS T0 INCREMENT COUNTER. 0845 02140 0 01 02132 JMP OUTN+1 GO BACK UNTIL ALL TYPED. 0846 02141 -0 01 02131 JMP* OUTN EXIT. 0847 * 0848 * END-OF-PASS MESSAGE 0849 * 0850 02142 0 002143 MA1 DAC *+1 0851 02143 106612 OCT 106612 0852 02144 154261 BCI 7,X16-08T1 PASS $ 02145 133255 02146 130270 02147 152261 02150 120320 02151 140723 02152 151640 0853 * 0854 * PASS COUNTERS 0855 * 0856 02153 0 002154 NA1 DAC *+1 0857 02154 177766 DEC -10,-10,-10,-10,-10,-10,-10,-10,-10 02155 177766 02156 177766 02157 177766 02160 177766 02161 177766 02162 177766 02163 177766 02164 177766 0858 02165 0 002164 NA2 DAC *-1 0859 * 0860 * JST-ADDRESS-CHECK TABLE 0861 * 0862 02166 0 001006 TABL DAC J01 0863 02167 0 001030 DAC J02 0864 02170 0 001043 DAC J03 0865 02171 0 001062 DAC J04 0866 02172 0 001076 DAC J05 0867 02173 0 001112 DAC J06 0868 02174 0 001126 DAC J07 0869 02175 0 001150 DAC J08 0870 02176 0 001163 DAC J09 0871 02177 0 001200 DAC J10 0872 02200 0 001224 DAC J11 0873 02201 0 001253 DAC J12 0874 02202 0 001302 DAC J13 0875 02203 0 001337 DAC J14
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 21

0876 02204 0 001361 DAC J15 0877 02205 0 001404 DAC J16 0878 02206 0 001442 DAC J17 0879 02207 0 001473 DAC J18 0880 02210 0 001522 DAC J19 0881 02211 0 001543 DAC J20 0882 02212 0 001607 DAC J21 0883 * 0884 02213 000000 TK0 BSZ 1 0885 02214 0 002166 TK1 DAC TABL 0886 02215 000000 TK2 BSZ 1 0887 * 0888 02216 0 001004 ASTR DAC STRT 0889 02217 000272 FIN 02220 000240 02221 177772 02222 177770 02223 000007 02224 000024 02225 000307 02226 000200 02227 000177 02230 000001 02231 177766 02232 177767 02233 000002 02234 100000 02235 177753 0890 END STRT END OF X16-08T1 9.4.69 PVP 4N5 001560A 4O5 001234A 4OR5 001212A 4R5 001371A 4RR5 001523A ASTR 002216A C1 001715A CHTO 002106A CJRA 001701A CK2 002011A CKJS 002003A DONE 001633A EOPH 002060A ER8 001651A ERAD 001634A EROR 001635A ERRJ 001317A FSTR 001000A IAT 001703A INC2 002026A J01 001006A J02 001030A J03 001043A J04 001062A J05 001076A J06 001112A J07 001126A J08 001150A J09 001163A J1 001673A J10 001200A J11 001224A J12 001253A J13 001302A J14 001337A J15 001361A J16 001404A J17 001442A J18 001473A J19 001522A J2 001674A J20 001543A J21 001607A J3 001676A JSTL 001734A L1 001037A L10 001237A L11 001266A L12 001323A L13 001351A L14 001374A L15 001427A L16 001460A L17 001506A L18 001533A L2 001053A L3 001072A L4 001106A L5 001122A L6 001137A L7 001157A L8 001174A L9 001215A L99 001646A MA1 002142A NA1 002153A NA2 002165A ONES 001700A OUTL 002115A OUTN 002131A P085 001205A P091 001217A P100 001242A P101 001246A P109 001265A P149 001416A
* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 22

P158 001456A P159 001457A P169 001505A P29 001554A P30 001565A P416 001660A S01 001026A S02 001041A S03 001060A S04 001074A S05 001110A S06 001124A S07 001146A S08 001161A S09 001176A S1 001675A S10 001222A S11 001251A S12 001300A S13 001335A S14 001357A S15 001402A S16 001440A S17 001471A S18 001520A S19 001541A S2 001677A S29 001605A STG 002063A STRT 001004A SZRA 001702A T0 000774A T2 000775A T3 001716A T4 001717A T5 001720A T6 001721A T7 001722A T8 001723A T9 001724A TABL 002166A TK0 002213A TK1 002214A TK2 002215A TL0 000776A TL1 000777A TL3 001765A TL4 002002A TS2 001725A TS3 001726A TS4 001727A TS5 001730A TS51 001731A TS6 001732A TS7 001733A TYIN 002040A TYPO 002066A 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71