O16-11T1

* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 1

0001 * 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D 0002 * 0003 * 0004 * COMPUTERS: H316 AND DDP-516 0005 * 0006 * 0007 * PROGRAM CATEGORY: TEST AND MAINTENANCE 0008 * 0009 * 0010 * PROGRAM TITLE: O16-11T1 0011 * 0012 * ARITHMETIC OPTION TEST NO.1 0013 * 0014 * 0015 * 0016 * 0017 * 0018 * 0019 * 0020 * 0021 * 0022 * 0023 * 0024 * 0025 * APPROVAL DATE 0026 * 0027 * 0028 * PROG------------------------ ------------ 0029 * 0030 * 0031 * SUPP------------------------ ------------ 0032 * 0033 * 0034 * QUAL------------------------ ------------ 0035 * 0036 * 0037 * NO. OF PAGES ------------ 0038 * 0039 * 0040 * REVISIONS 0041 * 0042 * REV. D ECO 0043 * REV. C ECO 6922 05-12-69 0044 * REV. B ECO 4584 05-19-67 0045 * REV. A 10-17-66 0046 * 0047 * 0048 * AUTHOR 0049 * 0050 * HONEYWELL, INC. - COMPUTER CONTROL DIVISION
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 2

0051 * 0052 * 0053 * PURPOSE 0054 * 0055 * TO TEST THE ARITHMETIC OPTION ON THE H-316 AND DDP-516. 0056 * 0057 * 0058 * RESTRICTIONS 0059 * 0060 * THIS PROGRAM WILL OPERATE ON ANY H-316 AND DDP-516 WHICH HAS 0061 * OPTION X16-11. 0062 * 0063 * 0064 * TIMING 0065 * 0066 * THIS PROGRAM TAKES ABOUT 9.25 MILLISEC. PER PASS OR 6,483 PASSES 0067 * PER MINUTE OR 389,000 PASSES PER HOUR. 0068 * 0069 * 0070 * STORAGE 0071 * 0072 * 2712 (OCTAL) 0073 * 1482 (DECIMAL) 0074 * 0075 * 0076 * SENSE SWITCH SETTINGS 0077 * 0078 * SS1 UP - STOP PROGRAM AT END OF EACH PASS. 0079 * 0080 * 0081 * USE 0082 * 0083 * START PROGRAM AT LOCATION 1000 (OCTAL). 0084 * THE PROGRAM WILL NOW CYCLE UNLESS IT DETECTS AN ERROR. 0085 * TO ENSURE THAT THE PROGRAM IS CYCLING PROPERLY, RAISE SENSE 0086 * SWITCH 1. THE PROGRAM SHOULD STOP AT 'EOPH'. EACH PUSH OF THE 0087 * START BUTTON SHOULD CAUSE THE PROGRAM TO LOOP THROUGH ALL THE 0088 * TESTS AND STOP AT 'EOPH'. IF IT DOES, SENSE SWITCH 1 MAY BE 0089 * LOWERED SO THAT THE PROGRAM WILL CYCLE UNTIL STOPPED. 0090 * 0091 * AFTER THE PROGRAM HAS BEEN TRIED AT LEAST ONCE. IT MAY BE 0092 * RESTARTED. AFTER MASTER CLEARING. FROM ANY POINT BEFORE ITS FIRST 0093 * ERROR HALT (IF ANY) WHICH IS MARKED WITH AN ASTERISK IN THE 1ST 0094 * SPACE OF THE COMMENTS FIELD (CARD COLUMN 30). 0095 * 0096 * A PASS COUNT WILL BE TYPED BY THE ASR EVERY 5000 PASSES. 0097 * THIS WILL TAKE ONE MINUTE FOR THE DDP-516. SOMEWHAT LONGER FOR 0098 * THE H316. IF THE PROGRAM IS RESTARTED FROM 1000 (OCTAL), THE 0099 * ID MESSAGE WILL BE REPEATED AND THE PASS COUNTER RE-INITIALIZED. 0100 *
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 3

0101 * IF THE PROGRAM IS RUN FOR AN EXTENDED LENGTH OF TIME IT 0102 * WILL HALT AFTER 1,000,000,000 PASSES. 0103 * 0104 * 0105 * ERRORS 0106 * 0107 * THIS PROGRAM CONTAINS A FEATURE WHICH TRACES THE PATH OF THE 0108 * PROGRAM USING JST INSTRUCTIONS. AFTER THE FIRST FEW TESTS HAVE 0109 * BEEN EXECUTED, EACH TEST STARTS WITH A JST TO 'JSTL' (THE JST- 0110 * REPORTING LOCATION) FOLLOWED BY A JST TO *+1 WHICH IN TURN IS 0111 * FOLLOWED BY A PZE 2. LOCATION 'JSTL' IS MODIFIED AT THE BEGINNING 0112 * OF EACH TEST AND EACH PZE 2 IS MODIFIED TO CONTAIN ITS OWN ADDRESS. 0113 * THE 'PZE 2' LOCATIONS ARE CHECKED FOR THEIR OWN ADDRESSES AT THE 0114 * END OF EACH PASS. 0115 * 0116 * THE PROGRAM WILL HALT IF IT DETECTS AN ERROR. THE FOLLOWING 0117 * PROCEDURE SHOULD BE FOLLOWED WHEN AN ERROR HALT IS ENCOUNTERED - 0118 * 0119 * WRITE DOWN THE CONTENTS OF ALL REGISTERS SO THAT THE 0120 * INFORMATION IN THEM WILL NOT BE LOST. 0121 * THE LOCATION OF THE ERROR HALT WILL BE DISPLAYED IN REG. Y, 0122 * LOOK UP THIS LOCATION IN THE LISTING. 0123 * THE BEGINNING OF THE TEST WHICH RESULTED IN THE ERROR HALT 0124 * WILL BE IDENTIFIED BY AN ENTRY IN THE LOCATION FIELD USUALLY 0125 * CONSISTING OF 3 LETTERS AND 1 NUMBER. THE THREE LETTERS ARE THE 0126 * MNEMONIC CODE OF THE INSTRUCTION BEING TESTED AND THE NUMBER 0127 * DENOTES THE NUMBER OF TIMES THIS INSTRUCTION HAS BEEN TESTED. THE 0128 * INSTRUCTION IN THIS LOCATION, WILL BE 'JST JSTL' FOLLOWED BY 0129 * 'JST *+1' AND 'JLXX PZE 2'. 0130 * FIRST, CHECK TO SEE THAT LOCATION 'JSTL' CONTAINS THE 0131 * ADDRESS OF THE LOCATION CONTAINING THE 'JST *+1' (CAUSED BY 'JST 0132 * JSTL'). THEN CHECK THE 'JLXX PZE 2' TO SEE THAT IT CONTAINS ITS 0133 * OWN ADDRESS (CAUSED BY 'JST *+1'). IF NOT, THE TEST WAS NOT 0134 * ENTERED PROPERLY AND ONE OF THE JUMP INSTRUCTIONS MAY BE FAILING. 0135 * IF LOCATION 'JSTL' AND THE 'JLXX PZE 2' CONTAIN THE PROPER 0136 * ADDRESSES, EXECUTE THE TEST IN THE SINGLE INSTRUCTION MODE. IF 0137 * THERE IS A * IN THE FIRST SPACE OF THE COMMENTS FIELD ON THE 'JST 0138 * JSTL' LINE. THE TEST DOES NOT DEPEND ON THE RESULTS OF THE 0139 * PREVIOUS TEST AND CAN BE PROPERLY EXECUTED BY STARTING EITHER WITH 0140 * THE 'JST JSTL' OR AT THE LOCATION FOLLOWING THE 'JLXX PZE 2'. IF 0141 * THE ERROR HALT IS ENCOUNTERED AGAIN. THE FAILURE IS PROBABLY SOLID. 0142 * WHETHER THE FAILURE IS SOLID OR NOT, IT IS POSSIBLE TO LOOP 0143 * ON MOST OF THE TESTS BY REPLACING THE ERROR HALT. AND THE 'SZE' 0144 * JUST BEFORE IT. WITH JUMPS BACK TO THE BEGINNING OF THE TEST. IN 0145 * A FEW CASES IT MAY ALSO BE NECESSARY TO CLEAR A REGISTER BEFORE 0146 * RESTARTING THE TEST. 0147 * 0148 * 0149 * METHOD 0150 *
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 4

0151 * THIS PROGRAM TESTS THE ARITHMETIC OPTION INSTRUCTIONS IN THE 0152 * FOLLOWING ORDER - 0153 * MPY, DIV, SCA, NRM, DLD, DST, DAD, DSB. 0154 * FINALLY, THE MPY AND DIV INSTRUCTIONS ARE EXTENSIVELY TESTED USING 0155 * A TABLE CONSISTING OF 112 MOST-SIGNIFICANT ENTRIES AND 112 LEAST- 0156 * SIGNIFICANT ENTRIES. 0157 * 0158 * 0159 * ABBREVIATIONS 0160 * 0161 * A - REGISTER A 0162 * B - REGISTER B 0163 * M - MEMORY REGISTER 0164 * ASR - TELETYPEWRITER (AUTOMATIC SEND-RECEIVE SET) 0165 * ASCII-AMERICAN STANDARD CODE FOR INFORMATION INTERCHANGE 0166 * 0167 * 0168 ************************************************************************ 0169 * 0170 ORG '1000 0171 01000 0 35 02711 LDX =-9 SET INDEX FOR 9 LOCATIONS 0172 01001 0 02 02710 LDA =-10 RESTORE PASS COUNTERS 0173 01002 1 04 02171 STA NPAS+9,1 0174 01003 0 12 00000 IRS 0 0175 01004 0 01 01002 JMP *-2 0176 01005 0 02 02707 LDA =-5000 RESTORE TIMED PRINTOUT 0177 01006 0 04 02157 STA CTR2 0178 01007 0 01 02566 STRT JMP TITL PRINT TITLE 0179 * 0180 01010 0 10 01553 MPY1 JST JSTL * TESTING MPY (1) * (0) 0181 01011 0 10 01012 JST *+1 0182 01012 0 00 00002 JL01 PZE 2 0183 01013 0 02 02706 LDA =1 A=1, B=0 0184 01014 0 16 02705 MPY =0 MPY BY 0 0185 01015 100040 SZE A=0 0186 01016 000000 HLT 0187 01017 000201 IAB 0188 01020 100040 SZE B=0 0189 01021 000000 HLT 0190 * 0191 01022 0 10 01553 MPY2 JST JSTL * TESTING MPY (+) * (+) 0192 01023 0 10 01024 JST *+1 0193 01024 0 00 00002 JL02 PZE 2 0194 01025 0 02 02704 LDA =-1 0195 01026 000201 IAB B='177777 (SHOULD HAVE NO EFFECT) 0196 01027 0 02 02706 LDA =1 A='000001 0197 01030 0 16 02706 MPY =1 MPY BY '000001 0198 01031 100040 SZE A=0 0199 01032 000000 HLT 0200 01033 000201 IAB
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 5

0201 01034 0 05 02706 ERA =1 B='000001 0202 01035 100040 SZE 0203 01036 000000 HLT 0204 * 0205 01037 0 10 01553 MPY3 JST JSTL * TESTING MPY (+) * (+) 0206 01040 0 10 01041 JST *+1 0207 01041 0 00 00002 JL03 PZE 2 0208 01042 0 02 02703 LDA ='77777 A='077777, B=0 0209 01043 0 16 02703 MPY ='77777 MPY BY '077777 0210 01044 0 05 02702 ERA ='77776 A='077776 0211 01045 100040 SZE 0212 01046 000000 HLT 0213 01047 000201 IAB 0214 01050 0 05 02706 ERA =1 B=1 0215 01051 100040 SZE 0216 01052 000000 HLT 0217 * 0218 01053 0 10 01553 MPY4 JST JSTL * TESTING MPY (-) * (+) 0219 01054 0 10 01055 JST *+1 0220 01055 0 00 00002 JL04 PZE 2 0221 01056 0 02 02701 LDA =-3 A='177775, B=0 0222 01057 0 16 02700 MPY =4 MPY BY '000004 0223 01060 0 05 02704 ERA =-1 A='177777 0224 01061 100040 SZE 0225 01062 000000 HLT 0226 01063 000201 IAB 0227 01064 0 05 02677 ERA ='77764 B='077764 0228 01065 100040 SZE 0229 01066 000000 HLT 0230 * 0231 01067 0 10 01553 MPY5 JST JSTL * TESTING MPY (+) * (-) 0232 01070 0 10 01071 JST *+1 0233 01071 0 00 00002 JL05 PZE 2 0234 01072 0 02 02676 LDA =10922 A='025252. B=0 0235 01073 0 16 02675 MPY =-10923 MPY BY '152525 0236 01074 0 05 02674 ERA ='170707 A='170707 0237 01075 100040 SZE 0238 01076 000000 HLT 0239 01077 000201 IAB 0240 01100 0 05 02673 ERA ='16162 B='016162 0241 01101 100040 SZE 0242 01102 000000 HLT 0243 * 0244 01103 0 10 01553 MPY6 JST JSTL * TESTING MPY (-) * (-) 0245 01104 0 10 01105 JST *+1 0246 01105 0 00 00002 JL06 PZE 2 0247 01106 0 02 02672 LDA =-15604 A='141414, B=0 0248 01107 0 16 02671 MPY =-8 MPY BY '177770 0249 01110 0 05 02670 ERA =3 A='000003 0250 01111 100040 SZE
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 6

0251 01112 000000 HLT 0252 01113 000201 IAB 0253 01114 0 05 02667 ERA ='63640 B='063640 0254 01115 100040 SZE 0255 01116 000000 HLT 0256 * 0257 01117 0 10 01553 DIV1 JST JSTL * TESTING ILLEGAL DIVISION 0258 01120 0 10 01121 JST *+1 0259 01121 0 00 00002 JLO7 PZE 2 0260 01122 140040 CRA 0261 01123 000201 IAB B=0 0262 01124 140040 CRA A=0 0263 01125 0 17 02705 DIV =0 DIV BY 0 0264 01126 100040 SZE A=0 0265 01127 000000 HLT 0266 01130 000201 IAB 0267 01131 100040 SZE B=0 0268 01132 000000 HLT 0269 01133 101001 SSC C BIT IS SET 0270 01134 000000 HLT 0271 * 0272 01135 0 10 01553 DIV2 JST JSTL * TESTING ILLEGAL DIVISION 0273 01136 0 10 01137 JST *+1 0274 01137 0 00 00002 JL08 PZE 2 0275 01140 140040 CRA 0276 01141 000201 IAB B=0 0277 01142 0 02 02666 LDA =-32768 A='100000 0278 01143 0 17 02666 DIV =-32768 DIV BY '100000 0279 01144 0 05 02666 ERA ='100000 A='100000 0280 01145 100040 SZE 0281 01146 000000 HLT 0282 01147 000201 IAB 0283 01150 100040 SZE 0284 01151 000000 HLT 0285 01152 101001 SSC C BIT IS SET 0286 01153 000000 HLT 0287 * 0288 01154 0 10 01553 DIV3 JST JSTL * TESTING DIV (+) / (+) 0289 01155 0 10 01156 JST *+1 0290 01156 0 00 00002 JL09 PZE 2 0291 01157 0 02 02665 LDA =27 0292 01160 000201 IAB B='000033 0293 01161 140040 CRA A=0 0294 01162 0 17 02664 DIV =5 DIV BY '000005 0295 01163 0 05 02664 ERA =5 A(QUOTIENT)='000005 0296 01164 100040 SZE 0297 01165 000000 HLT 0298 01166 000201 IAB 0299 01167 0 05 02663 ERA =2 B(REMAINDER)='000002 0300 01170 100040 SZE
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 7

0301 01171 000000 HLT 0302 01172 100001 SRC 0303 01173 000000 HLT 0304 * 0305 01174 0 10 01553 DIV4 JST JSTL * TESTING DIV (-) / (-) 0306 01175 0 10 01176 JST *+1 0307 01176 0 00 00002 JL10 PZE 2 0308 01177 0 02 02662 LDA =-'400 A='177400, B=0 0309 01200 0 17 02661 DIV =-'1000 DIV BY '177000 0310 01201 0 05 02660 ERA ='40000 A='040000 0311 01202 100040 SZE 0312 01203 000000 HLT 0313 01204 000201 IAB 0314 01205 100040 SZE B=0 0315 01206 000000 HLT 0316 01207 100001 SRC 0317 01210 000000 HLT 0318 * 0319 01211 0 10 01553 DIV5 JST JSTL * TESTING DIV (+) / (-) 0320 01212 0 10 01213 JST *+1 0321 01213 0 00 00002 JL11 PZE 2 0322 01214 0 02 02657 LDA ='7070 0323 01215 000201 IAB B='007070 0324 01216 0 02 02656 LDA ='70707 A='070707 0325 01217 0 17 02655 DIV =-31800 DIV BY '101710 0326 01220 0 05 02654 ERA ='105303 A='105303 0327 01221 100040 SZE 0328 01222 000000 HLT 0329 01223 000201 IAB 0330 01224 0 05 02653 ERA ='56340 B='056340 0331 01225 100040 SZE 0332 01226 000000 HLT 0333 01227 100001 SRC 0334 01230 000000 HLT 0335 * 0336 01231 0 10 01553 DIV6 JST JSTL * TESTING (-) / (+) 0337 01232 0 10 01233 JST *+1 0338 01233 0 00 00002 JL12 PZE 2 0339 01234 0 02 02652 LDA ='70077 0340 01235 000201 IAB B='070077 0341 01236 0 02 02651 LDA =-'771 A='177007 0342 01237 0 17 02650 DIV =4032 DIV BY '007700 0343 01240 0 05 02647 ERA =-'10001 A='167777 0344 01241 100040 SZE 0345 01242 000000 HLT 0346 01243 000201 IAB 0347 01244 0 05 02704 ERA =-1 B='177777 0348 01245 100040 SZE 0349 01246 000000 HLT 0350 01247 100001 SRC
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 8

0351 01250 000000 HLT 0352 * 0353 01251 0 10 01553 SCA1 JST JSTL * TESTING SCA (ONES TO A) 0354 01252 0 10 01253 JST *+1 0355 01253 0 00 00002 JL13 PZE 2 0356 01254 0 02 02704 LDA =-1 0357 01255 000201 IAB 0358 01256 000201 IAB A='177777 0359 01257 000041 SCA 0360 01260 0 05 02646 ERA ='77 A='000077 0361 01261 100040 SZE 0362 01262 000000 HLT 0363 * 0364 01263 0 10 01553 SCA2 JST JSTL * TESTING SCA (ZEROS TO A) 0365 01264 0 10 01265 JST *+1 0366 01265 0 00 00002 JL14 PZE 2 0367 01266 0 02 02704 LDA =-1 0368 01267 000201 IAB 0369 01270 140040 CRA 0370 01271 0402 60 LRR 16 A='177777 0371 01272 000041 SCA 0372 01273 100040 SZE A=0 0373 01274 000000 HLT 0374 * 0375 01275 0 10 01553 NRM1 JST JSTL * TESTING NRM (29 SHIFTS) 0376 01276 0 10 01277 JST *+1 0377 01277 0 00 00002 JL15 PZE 2 0378 01300 0 02 02706 LDA =1 0379 01301 000201 IAB B='000001 0380 01302 140040 CRA A=0 0381 01303 000101 NRM 0382 01304 0 05 02660 ERA ='040000 0383 01305 100040 SZE 0384 01306 000000 HLT 0385 01307 000041 SCA 0386 01310 0 05 02645 ERA ='000035 0387 01311 100040 SZE 0388 01312 000000 HLT 0389 01313 000201 IAB 0390 01314 100040 SZE 0391 01315 000000 HLT 0392 * 0393 01316 0 10 01553 NRM2 JST JSTL * TESTING NRM (30 SHIFTS) 0394 01317 0 10 01320 JST *+1 0395 01320 0 00 00002 JL16 PZE 2 0396 01321 0 02 02704 LDA =-1 0397 01322 000201 IAB B='177777 0398 01323 0 02 02704 LDA =-1 A='177777 0399 01324 000101 NRM 0400 01325 0 05 02666 ERA ='100000
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 9

0401 01326 100040 SZE 0402 01327 000000 HLT 0403 01330 000041 SCA 0404 01331 0 05 02644 ERA ='36 0405 01332 100040 SZE 0406 01333 000000 HLT 0407 01334 000201 IAB 0408 01335 0 05 02666 ERA ='100000 0409 01336 100040 SZE 0410 01337 000000 HLT 0411 * 0412 01340 0 10 01553 NRM3 JST JSTL * TESTING NRM (3 SHIFTS) 0413 01341 0 10 01342 JST *+1 0414 01342 0 00 00002 JL17 PZE 2 0415 01343 0 02 02666 LDA ='100000 0416 01344 000201 IAB B='100000 0417 01345 0 02 02643 LDA ='5000 A='005000 0418 01346 000101 NRM 0419 01347 0 05 02642 ERA ='50000 0420 01350 100040 SZE 0421 01351 000000 HLT 0422 01352 000041 SCA 0423 01353 0 05 02670 ERA =3 0424 01354 100040 SZE 0425 01355 000000 HLT 0426 01356 000201 IAB 0427 01357 0 05 02666 ERA ='100000 0428 01360 100040 SZE 0429 01361 000000 HLT 0430 * 0431 01362 0 10 01553 NRM4 JST JSTL * TESTING NRM (32 SHIFTS) 0432 01363 0 10 01364 JST *+1 0433 01364 0 00 00002 JL18 PZE 2 0434 01365 140040 CRA 0435 01366 000201 IAB B=0 0436 01367 140040 CRA A=0 0437 01370 000101 NRM 0438 01371 100040 SZE 0439 01372 000000 HLT 0440 01373 000041 SCA 0441 01374 100040 SZE 0442 01375 000000 HLT 0443 01376 000201 IAB 0444 01377 100040 SZE 0445 01400 000000 HLT 0446 * 0447 01401 0 10 01553 DLD1 JST JSTL * TESTING DOUBLE PRECISION LDA 0448 01402 0 10 01403 JST *+1 0449 01403 0 00 00002 JL19 PZE 2 0450 01404 000007 OCT 7 DBL *
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 10

0451 01405 140040 CRA 0452 01406 000201 IAB 0453 01407 140040 CRA 0454 01410 0 02 01560 LDA DPC0 (DLD) 0455 01411 0 05 02704 ERA =-1 0456 01412 100040 SZE 0457 01413 000000 HLT 0458 01414 000201 IAB 0459 01415 0 05 02704 ERA =-1 0460 01416 100040 SZE 0461 01417 000000 HLT 0462 01420 000005 OCT 5 SGL * 0463 01421 0 02 01560 LDA DPC0 0464 01422 0 05 02704 ERA =-1 0465 01423 100040 SZE 0466 01424 000000 HLT 0467 01425 000201 IAB 0468 01426 100040 SZE 0469 01427 000000 HLT 0470 * 0471 01430 0 10 01553 DLD2 JST JSTL * TESTING DOUBLE PRECISION LDA 0472 01431 0 10 01432 JST *+1 0473 01432 0 00 00002 JL20 PZE 2 0474 01433 0 02 02704 LDA =-1 0475 01434 000201 IAB 0476 01435 0 02 02641 LDA ='177600 0477 01436 000007 OCT 7 DBL * 0478 01437 0 02 01562 LDA DPC1 (DLD) 0479 01440 0 05 02640 ERA ='252 0480 01441 100040 SZE 0481 01442 000000 HLT 0482 01443 000201 IAB 0483 01444 100040 SZE 0484 01445 000000 HLT 0485 01446 000005 OCT 5 SGL * 0486 * 0487 01447 0 10 01553 DST1 JST JSTL * TESTING DOUBLE PRECISION STA 0488 01450 0 10 01451 JST *+1 0489 01451 0 00 00002 JL21 PZE 2 0490 01452 0 02 02704 LDA =-1 0491 01453 000201 IAB 0492 01454 0 02 02704 LDA =-1 0493 01455 000007 OCT 7 DBL * 0494 01456 0 04 01556 STA DPT0 (DST) 0495 01457 000005 OCT 5 SGL * 0496 01460 140040 CRA 0497 01461 0 02 01556 LDA DPT0 0498 01462 0 05 02704 ERA =-1 0499 01463 100040 SZE 0500 01464 000000 HLT
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 11

0501 01465 0 02 01557 LDA DPT0+1 0502 01466 0 05 02704 ERA =-1 0503 01467 100040 SZE 0504 01470 000000 HLT 0505 * 0506 01471 0 10 01553 DST2 JST JSTL TESTING DOUBLE PRECISION STA 0507 01472 0 10 01473 JST *+1 0508 01473 0 00 00002 JL22 PZE 2 0509 01474 140040 CRA 0510 01475 000201 IAB 0511 01476 140040 CRA 0512 01477 000007 OCT 7 DBL * 0513 01500 0 04 01556 STA DPT0 (DST) 0514 01501 000005 OCT 5 SGL * 0515 01502 0 02 01556 LDA DPT0 0516 01503 100040 SZE 0517 01504 000000 HLT 0518 01505 0 02 01557 LDA DPT0+1 0519 01506 100040 SZE 0520 01507 000000 HLT 0521 * 0522 01510 0 10 01553 DAD1 JST JSTL * TESTING DOUBLE PRECISION ADD 0523 01511 0 10 01512 JST *+1 0524 01512 0 00 00002 JL23 PZE 2 0525 01513 0 02 02703 LDA ='77777 0526 01514 000201 IAB 0527 01515 0 02 02702 LDA ='77776 0528 01516 000007 OCT 7 DBL * 0529 01517 0 06 01564 ADD DPC2 (DAD) 0530 01520 000005 OCT 5 SGL * 0531 01521 0 05 02666 ERA ='100000 0532 01522 100040 SZE 0533 01523 000000 HLT 0534 01524 000201 IAB 0535 01525 100040 SZE 0536 01526 000000 HLT 0537 01527 101001 SSC 0538 01530 000000 HLT 0539 * 0540 01531 0 10 01553 DAD2 JST JSTL * TESTING DOUBLE PRECISION ADD 0541 01532 0 10 01533 JST *+1 0542 01533 0 00 00002 JL24 PZE 2 0543 01534 000007 OCT 7 DBL * 0544 01535 0 02 01574 LDA DPC6 (DLD) 0545 01536 0 06 01566 ADD DPC3 (DAD) 0546 01537 000005 OCT 5 SGL * 0547 01540 0 05 02704 ERA =-1 0548 01541 100040 SZE 0549 01542 000000 HLT 0550 01543 000201 IAB
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 12

0551 01544 0 05 02703 ERA ='77777 0552 01545 100040 SZE 0553 01546 000000 HLT 0554 01547 100001 SRC 0555 01550 000000 HLT 0556 * 0557 01551 -0 01 01552 JMP* *+1 GO TO 0558 01552 0 001617 DAC DSB1 NEXT SECTOR 0559 01553 0 000000 JSTL DAC ** JST-REPORTING LOCATION (ENTRY) 0560 01554 -0 01 01553 JMP* JSTL EXIT 0561 * 0562 * 0563 01556 000001 DBP 1 PREVENTS ODD WORD LOCATION 01557 000000 0564 ORG *-2 BACK UP TO LAST EVEN LOCATION 0565 01556 0 00 00000 DPT0 PZE DOUBLE PREC. TEMP. LOC. 0566 01557 0 00 00000 PZE * 0567 01560 177777 DPC0 OCT -1 DOUBLE PREC. CONSTANTS 0568 01561 177777 OCT -1 0569 01562 000252 DPC1 OCT 252 0570 01563 000000 OCT 0 0571 01564 000001 DPC2 OCT 1 0572 01565 000001 OCT 1 0573 01566 052525 DPC3 OCT 52525 0574 01567 025252 OCT 25252 0575 01570 000000 DPC4 OCT 0 0576 01571 000001 OCT 1 0577 01572 161535 DPC5 OCT 161535 0578 01573 015343 OCT 15343 0579 01574 125252 DPC6 OCT 125252 0580 01575 052525 OCT 52525 0581 01576 000272 O272 OCT 272 0582 01577 0 00 00000 T1 PZE TEMP. STORAGE 0583 01600 0 00 00000 CNST PZE CONSTANT 0584 01601 0 00 00000 TOTL PZE TOTAL 0585 01602 0 00 00000 MSP PZE MOST SIGNIFICANT PART 0586 01603 0 00 00000 LSP PZE LEAST SIGNIFICANT PART 0587 01604 0 00 00000 MCND PZE MULTIPLICAND 0588 01605 0 00 00000 MPLR PZE MULTIPLIER 0589 01606 0 00 00000 QTNT PZE QUOTIENT 0590 01607 0 00 00000 DVSR PZE DIVISOR 0591 01610 0 001605 MPLD DAC MPLR 0592 01611 0 001607 DVSD DAC DVSR 0593 01612 101010 K1 OCT 101010 0594 01613 110101 K2 OCT 110101 0595 01614 107070 KT1 OCT 107070 0596 01615 170707 KT2 OCT 170707 0597 * 0598 01616 000000 BSZ 1 FOR 8-8 LOADER 0599 *
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 13

0600 01617 0 10 01553 DSB1 JST JSTL * TESTING DOUBLE PRECISION SUB 0601 01620 0 10 01621 JST *+1 0602 01621 0 00 00002 JL25 PZE 2 0603 01622 140040 CRA 0604 01623 000201 IAB 0605 01624 0 02 02666 LDA ='100000 0606 01625 000007 OCT 7 DBL * 0607 01626 0 07 01570 SUB DPC4 (DSB) 0608 01627 0 05 02703 ERA ='77777 0609 01630 100040 SZE 0610 01631 000000 HLT 0611 01632 000201 IAB 0612 01633 0 05 02703 ERA ='77777 0613 01634 100040 SZE 0614 01635 000000 HLT 0615 01636 101001 SSC 0616 01637 000000 HLT 0617 01640 000005 OCT 5 SGL * 0618 * 0619 01641 0 10 01553 DSB2 JST JSTL * TESTING DOUBLE PRECISION SUB 0620 01642 0 10 01643 JST *+1 0621 01643 0 00 00002 JL26 PZE 2 0622 01644 000007 OCT 7 DBL * 0623 01645 0 02 01566 LDA DPC3 (DLD) 0624 01646 0 07 01572 SUB DPC5 (DSB) 0625 01647 000005 OCT 5 SGL * 0626 01650 0 05 02637 ERA ='70770 0627 01651 100040 SZE 0628 01652 000000 HLT 0629 01653 000201 IAB 0630 01654 0 05 02636 ERA ='7707 0631 01655 100040 SZE 0632 01656 000000 HLT 0633 01657 100001 SRC 0634 01660 000000 HLT 0635 * 0636 01661 0 10 01553 MPY7 JST JSTL * EXTENDED MULTIPLY TEST 0637 01662 0 10 01663 JST *+1 0638 01663 0 00 00002 JL27 PZE 2 0639 01664 0 35 02635 LDX =-224 0640 01665 0 02 01612 LDA K1 0641 01666 0 04 01600 STA CNST 0642 01667 0 02 01614 LDA KT1 0643 01670 0 04 01601 STA TOTL 0644 01671 0 02 02634 MY1 LDA =-56 0645 01672 0 04 01577 STA T1 0646 01673 140040 CRA 0647 01674 0 04 01604 STA MCND MULTIPLICAND 0648 01675 0 02 01600 LDA CNST 0649 01676 0 04 01605 STA MPLR MULTIPLIER
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 14

0650 01677 0 02 01604 MY2 LDA MCND 0651 01700 -0 16 01610 MPY* MPLD 0652 01701 1 11 02566 CAS MDTB+224,1 0653 01702 000000 HLT ERROR 0654 01703 0 01 01705 JMP *+2 0655 01704 000000 HLT ERROR 0656 01705 000201 IAB 0657 01706 1 11 02567 CAS MDTB+225,1 0658 01707 000000 HLT ERROR 0659 01710 0 01 01712 JMP *+2 0660 01711 000000 HLT ERROR 0661 01712 0 02 01604 LDA MCND 0662 01713 0 11 01601 CAS TOTL 0663 01714 0 01 01716 JMP *+2 0664 01715 0 01 01721 JMP MY3 0665 01716 0 06 01600 ADD CNST 0666 01717 0 04 01604 STA MCND 0667 01720 0 01 01726 JMP MY4 0668 01721 140040 MY3 CRA 0669 01722 0 04 01604 STA MCND 0670 01723 0 02 01605 LDA MPLR 0671 01724 0 06 01600 ADD CNST 0672 01725 0 04 01605 STA MPLR 0673 01726 0 12 00000 MY4 IRS 0 (XR) 0674 01727 0 12 00000 IRS 0 0675 01730 0 01 01732 JMP *+2 0676 01731 0 01 01741 JMP DIV7 0677 01732 0 12 01577 IRS T1 0678 01733 0 01 01677 JMP MY2 0679 01734 0 02 01613 LDA K2 0680 01735 0 04 01600 STA CNST 0681 01736 0 02 01615 LDA KT2 0682 01737 0 04 01601 STA TOTL 0683 01740 0 01 01671 JMP MY1 0684 * 0685 01741 0 10 01553 DIV7 JST JSTL * EXTENDED DIVIDE TEST 0686 01742 0 10 01743 JST *+1 0687 01743 0 00 00002 JL28 PZE 2 0688 01744 0 35 02635 LDX =-224 0689 01745 0 02 01612 LDA K1 0690 01746 0 04 01600 STA CNST 0691 01747 0 02 01614 LDA KT1 0692 01750 0 04 01601 STA TOTL 0693 01751 0 02 02634 DV1 LDA =-56 0694 01752 0 04 01577 STA T1 0695 01753 140040 CRA 0696 01754 0 04 01606 STA QTNT QUOTIENT 0697 01755 0 02 01600 LDA CNST 0698 01756 0 04 01607 STA DVSR DIVISOR 0699 01757 000007 DV2 OCT 7 DBL
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 15

0700 01760 1 02 02566 LDA MDTB+224,1 (DLD) 0701 01761 000005 OCT 5 SGL 0702 01762 100400 SPL 0703 01763 0 01 02015 JMP NG1 0704 01764 000201 IAB 0705 01765 0 06 02706 ADD =1 0706 01766 000201 DV21 IAB 0707 01767 -0 17 01611 DIV* DVSD 0708 01770 0 11 01606 CAS QTNT 0709 01771 000000 HLT ERROR 0710 01772 0 01 01774 JMP *+2 0711 01773 000000 HLT ERROR 0712 01774 1 02 02566 LDA MDTB+224,1 0713 01775 100400 SPL 0714 01776 0 01 02020 JMP NG2 0715 01777 000201 IAB 0716 02000 0 11 02706 CAS =1 REMAINDER =+1 IF DIVIDEND WAS POSITIVE 0717 02001 000000 HLT ERROR 0718 02002 0 01 02004 JMP *+2 0719 02003 000000 HLT ERROR 0720 02004 100001 DV22 SRC 0721 02005 000000 HLT 0722 02006 0 02 01606 LDA QTNT 0723 02007 0 11 01601 CAS TOTL 0724 02010 0 01 02012 JMP *+2 0725 02011 0 01 02026 JMP DV3 0726 02012 0 06 01600 ADD CNST 0727 02013 0 04 01606 STA QTNT 0728 02014 0 01 02033 JMP DV4 0729 02015 000201 NG1 IAB 0730 02016 0 07 02706 SUB =1 0731 02017 0 01 01766 JMP DV21 0732 02020 000201 NG2 IAB 0733 02021 0 11 02704 CAS =-1 REMAINDER =-1 IF DIVIDEND WAS NEGATIVE 0734 02022 000000 HLT ERROR 0735 02023 0 01 02025 JMP *+2 0736 02024 000000 HLT ERROR 0737 02025 0 01 02004 JMP DV22 0738 02026 140040 DV3 CRA 0739 02027 0 04 01606 STA QTNT 0740 02030 0 02 01607 LDA DVSR 0741 02031 0 06 01600 ADD CNST 0742 02032 0 04 01607 STA DVSR 0743 02033 0 12 00000 DV4 IRS 0 0744 02034 0 12 00000 IRS 0 0745 02035 0 01 02037 JMP *+2 0746 02036 0 01 02046 JMP JLCK 0747 02037 0 12 01577 IRS T1 0748 02040 0 01 01757 JMP DV2 0749 02041 0 02 01613 LDA K2
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 16

0750 02042 0 04 01600 STA CNST 0751 02043 0 02 01615 LDA KT2 0752 02044 0 04 01601 STA TOTL 0753 02045 0 01 01751 JMP DV1 0754 * 0755 * ROUTINE WHICH CHECKS ADDRESSES IN 'JLXX' LOCATIONS DUE TO 'JST *+1' 0756 * INSTRUCTIONS. 0757 * 0758 02046 0 35 02633 JLCK LDX =-28 SET UP FOR 28 PASSES THROUGH THIS ROUTINE 0759 02047 -1 02 02225 CHK2 LDA* CKTB+28,1 GET CONTENTS OF ONE OF THE 'JLXX' LOCS. 0760 02050 1 11 02225 CAS CKTB+28,1 AND CHECK IT AGAINST THE 'CKTB' ENTRY 0761 02051 000000 HLT STOP, IF ERROR 0762 02052 0 01 02054 JMP *+2 GO ON, IF OK 0763 02053 000000 HLT STOP, IF ERROR 0764 02054 0 12 00000 IRS 0 INCRESENT INDEX REGISTER 0765 02055 0 01 02047 JMP CHK2 GO BACK UNTIL FINISHED 0766 * 0767 * PASS-COUNTING ROUTINE 0768 * 0769 02056 0 12 02170 IRS NPAS+8 INCREMENT ONES COUNTER 0770 02057 0 01 02113 JMP END IF NOT 0771 02060 0 02 02710 LDA =-10 IF =0, 0772 02061 0 04 02170 STA NPAS+8 RESTORE TO -10, 0773 02062 0 12 02167 IRS NPAS+7 INCREMENT TENS COUNTER. ETC. 0774 02063 0 01 02113 JMP END 0775 02064 0 04 02167 STA NPAS+7 0776 02065 0 12 02166 IRS NPAS+6 0777 02066 0 01 02113 JMP END 0778 02067 0 04 02166 STA NPAS+6 0779 02070 0 12 02165 IRS NPAS+5 0780 02071 0 01 02113 JMP END 0781 02072 0 04 02165 STA NPAS+5 0782 02073 0 12 02164 IRS NPAS+4 0783 02074 0 01 02113 JMP END 0784 02075 0 04 02164 STA NPAS+4 0785 02076 0 12 02163 IRS NPAS+3 0786 02077 0 01 02113 JMP END 0787 02100 0 04 02163 STA NPAS+3 0788 02101 0 12 02162 IRS NPAS+2 0789 02102 0 01 02113 JMP END 0790 02103 0 04 02162 STA NPAS+2 0791 02104 0 12 02161 IRS NPAS+1 0792 02105 0 01 02113 JMP END 0793 02106 0 04 02161 STA NPAS+1 0794 02107 0 12 02160 IRS NPAS 0795 02110 0 01 02113 JMP END 0796 02111 0 04 02160 STA NPAS 0797 02112 000000 HLT 1,000,000,000 PASSES 0798 * 0799 02113 0 12 02157 END IRS CTR2 BUMP TIMED PRINTOUT
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 17

0800 02114 0 01 02145 JMP END2 CHECK FOR HALT REQUEST 0801 02115 0 02 02707 LDA =-5000 RESTORE TIMED PRINTOUT 0802 02116 0 04 02157 STA CTR2 0803 02117 0 01 02121 JMP TYOT TYPE PASS COUNT 0804 02120 0 01 02145 JMP END2 RESET, SKIP TYPEOUT 0805 * 0806 * END-OF-PASS TYPEOUT ROUTINE 0807 * 0808 02121 34 0104 TYOT SKS '104 ASR BUSY 0809 02122 0 01 02121 JMP *-1 LOOP 0810 02123 14 0104 OCP '104 IF NOT BUSY, ENABLE ASR IN OUTPUT MODE 0811 02124 0 35 02631 LDX =-7 SET INDEX REG. FOR 7 COMPUTER WORDS 0812 02125 1 02 02157 TYO2 LDA TYOB+7,1 GET ONE WORD 0813 02126 0406 70 ARR 8 0814 02127 74 0004 OTA 4 OUTPUT LEFT HALF OF WORD 0815 02130 0 01 02127 JMP *-1 0816 02131 0416 70 ALR 8 0817 02132 74 0004 OTA 4 OUTPUT RIGHT HALF OF WORD 0818 02133 0 01 02132 JMP *-1 0819 02134 0 12 00000 IRS 0 INCREMENT INDEX REGISTER 0820 02135 0 01 02125 JMP TYO2 GO BACK FOR NEXT WORD 0821 02136 0 35 02711 LDX =-9 SET INDEX REGISTER FOR 9 DIGITS 0822 02137 1 02 02171 TYN2 LDA NPAS+9,1 GET ONE NUMBER 0823 02140 0 06 01576 ADD O272 CONVERT IT TO ASCII 0824 02141 74 0004 OTA 4 OUTPUT 0825 02142 0 01 02141 JMP *-1 IT 0826 02143 0 12 00000 IRS 0 INCREMENT INDEX REGISTER 0827 02144 0 01 02137 JMP TYN2 GO BACK FOR NEXT DIGIT 0828 * 0829 02145 100020 END2 SR1 IF SENSE SWITCH 1 IS - 0830 02146 000000 EOPH HLT SET, STOP AT END-OF-PASS HALT 0831 02147 0 01 01010 JMP MPY1 RESET, RESTART 0832 * 0833 02150 106612 TYOB OCT 106612 CARRIAGE RETURN + LINE FEED 0834 02151 142716 BCI 6,END OF PASS 02152 142240 02153 147706 02154 120320 02155 140723 02156 151640 0835 02157 166170 CTR2 DEC -5000 0836 * 0837 * 0838 02160 177766 NPAS DEC -10 NUMBER OF PASSES 0839 02161 177766 DEC -10 * 0840 02162 177766 DEC -10 * 0841 02163 177766 DEC -10 * 0842 02164 177766 DEC -10 * 0843 02165 177766 DEC -10 * 0844 02166 177766 DEC -10 *
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 18

0845 02167 177766 DEC -10 * 0846 02170 177766 DEC -10 * 0847 * 0848 02171 0 001012 CKTB DAC JL01 CHECK TABLE 0849 02172 0 001024 DAC JL02 * 0850 02173 0 001041 DAC JL03 * 0851 02174 0 001055 DAC JL04 * 0852 02175 0 001071 DAC JL05 * 0853 02176 0 001105 DAC JL06 * 0854 02177 0 001121 DAC JLO7 * 0855 02200 0 001137 DAC JL08 * 0856 02201 0 001156 DAC JL09 * 0857 02202 0 001176 DAC JL10 * 0858 02203 0 001213 DAC JL11 * 0859 02204 0 001233 DAC JL12 * 0860 02205 0 001253 DAC JL13 * 0861 02206 0 001265 DAC JL14 * 0862 02207 0 001277 DAC JL15 * 0863 02210 0 001320 DAC JL16 * 0864 02211 0 001342 DAC JL17 * 0865 02212 0 001364 DAC JL18 * 0866 02213 0 001403 DAC JL19 * 0867 02214 0 001432 DAC JL20 * 0868 02215 0 001451 DAC JL21 * 0869 02216 0 001473 DAC JL22 * 0870 02217 0 001512 DAC JL23 * 0871 02220 0 001533 DAC JL24 * 0872 02221 0 001621 DAC JL25 * 0873 02222 0 001643 DAC JL26 * 0874 02223 0 001663 DAC JL27 * 0875 02224 0 001743 DAC JL28 * 0876 * 0877 * MULTIPLY-DIVIDE TABLE 0878 * 0879 02226 000001 DBP 1 PREVENTS ODD WORD LOCATION 02227 000000 0880 ORG *-2 BACK UP T0 LAST EVEN LOCATION 0881 02226 000000 MDTB OCT 000000,00000,075770,20100,176000,40200,073770,60300 02227 000000 02230 075770 02231 020100 02232 176000 02233 040200 02234 073770 02235 060300 0882 02236 174001 OCT 174001,00400,071771,20500,172001,40600,067771,60700 02237 000400 02240 071771 02241 020500 02242 172001
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 19

02243 040600 02244 067771 02245 060700 0883 02246 000000 OCT 000000,00000,176000,40200,000041,00400,176041,40600 02247 000000 02250 176000 02251 040200 02252 000041 02253 000400 02254 176041 02255 040600 0884 02256 000102 OCT 000102,01000,176102,41200,000143,01400,176143,41600 02257 001000 02260 176102 02261 041200 02262 000143 02263 001400 02264 176143 02265 041600 0885 02266 000000 OCT 000000,00000,073770,60300,176041,40600,072032,21100 02267 000000 02270 073770 02271 060300 02272 176041 02273 040600 02274 072032 02275 021100 0886 02276 174103 OCT 174103,01400,070073,61700,172144,42200,066135,22500 02277 001400 02300 070073 02301 061700 02302 172144 02303 042200 02304 066135 02305 022500 0887 02306 000000 OCT 000000,00000,174001,00400,000102,01000,174103,01400 02307 000000 02310 174001 02311 000400 02312 000102 02313 001000 02314 174103 02315 001400 0888 * 0889 02316 000204 OCT 000204,02000,174205,02400,000306,03000,174307,03400 02317 002000 02320 174205 02321 002400 02322 000306 02323 003000
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 20

02324 174307 02325 003400 0890 02326 000000 OCT 000000,00000,071771,20500,176102,41200,070073,61700 02327 000000 02330 071771 02331 020500 02332 176102 02333 041200 02334 070073 02335 061700 0891 02336 174205 OCT 174205,02400,066176,23100,172307,43600,064300,64300 02337 002400 02340 066176 02341 023100 02342 172307 02343 043600 02344 064300 02345 064300 0892 02346 000000 OCT 000000,00000,172001,40600,000143,01400,172144,42200 02347 000000 02350 172001 02351 040600 02352 000143 02353 001400 02354 172144 02355 042200 0893 02356 000306 OCT 000306,03000,172307,43600,000451,04400,172452,45200 02357 003000 02360 172307 02361 043600 02362 000451 02363 004400 02364 172452 02365 045200 0894 02366 000000 OCT 000000,00000,067771,60700,176143,41600,066135,22500 02367 000000 02370 067771 02371 060700 02372 176143 02373 041600 02374 066135 02375 022500 0895 02376 174307 OCT 174307,03400,064300,64300,172452,45200,062444,26100 02377 003400 02400 064300 02401 064300 02402 172452 02403 045200 02404 062444 02405 026100
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 21

0896 * 0897 * 0898 02406 000000 OCT 000000,00000,060616,30201,161636,60402,042455,10603 02407 000000 02410 060616 02411 030201 02412 161636 02413 060402 02414 042455 02415 010603 0899 02416 143475 OCT 143475,41004,024313,71205,125334,21406,006152,51607 02417 041004 02420 024313 02421 071205 02422 125334 02423 021406 02424 006152 02425 051607 0900 02426 000000 OCT 000000,00000,161636,60402,004101,41004,165740,21406 02427 000000 02430 161636 02431 060402 02432 004101 02433 041004 02434 165740 02435 021406 0901 02436 010203 OCT 010203,02010,172041,62412,014304,43014,176143,23416 02437 002010 02440 172041 02441 062412 02442 014304 02443 043014 02444 176143 02445 023416 0902 02446 000000 OCT 000000,00000,042455,10603,165740,21406,030415,32211 02447 000000 02450 042455 02451 010603 02452 165740 02453 021406 02454 030415 02455 032211 0903 02456 153700 OCT 153700,43014,016355,53617,141640,64422,004315,75225 02457 043014 02460 016355 02461 053617 02462 141640 02463 064422 02464 004315 02465 075225
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 22

0904 02466 000000 OCT 000000,00000,143475,41004,010203,02010,153700,43014 02467 000000 02470 143475 02471 041004 02472 010203 02473 002010 02474 153700 02475 043014 0905 * 0906 02476 020406 OCT 020406,04020,164103,45024,030611,06030,174306,47034 02477 004020 02500 164103 02501 045024 02502 030611 02503 006030 02504 174306 02505 047034 0907 02506 000000 OCT 000000,00000,024313,71205,172041,62412,016355,53617 02507 000000 02510 024313 02511 071205 02512 172041 02513 062412 02514 016355 02515 053617 0908 02516 164103 OCT 164103,45024,010417,36231,156145,27436,002461,20643 02517 045024 02520 010417 02521 036231 02522 156145 02523 027436 02524 002461 02525 020643 0909 02526 000000 OCT 000000,00000,125334,21406,014304,43014,141640,64422 02527 000000 02530 125334 02531 021406 02532 014304 02533 043014 02534 141640 02535 064422 0910 02536 030611 OCT 030611,06030,156145,27436,045115,51044,172451,72452 02537 006030 02540 156145 02541 027436 02542 045115 02543 051044 02544 172451 02545 072452 0911 02546 000000 OCT 000000,00000,006152,51607,176143,23416,004315,75225
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 23

02547 000000 02550 006152 02551 051607 02552 176143 02553 023416 02554 004315 02555 075225 0912 02556 174306 OCT 174306,47034,002461,20643,172451,72452,000624,44261 02557 047034 02560 002461 02561 020643 02562 172451 02563 072452 02564 000624 02565 044261 0913 * 0914 02566 34 0104 TITL SKS '104 ASR BUSY 0915 02567 0 01 02566 JMP *-1 LOOP 0916 02570 14 0104 OCP '104 ENABLE ASR 0917 02571 0 02 02630 LDA MTIT 0918 02572 0 04 02573 STA RPT1 0919 02573 0 02 02610 RPT1 LDA TIT1 LOAD WORD 0920 02574 0406 70 ARR 8 POSITION FOR OUTPUT 0921 02575 74 0004 OTA 4 OUTPUT LEFT HALF OF WORD 0922 02576 0 01 02575 JMP *-1 BUSY 0923 02577 0406 70 ARR 8 POSITION 0924 02600 74 0004 OTA 4 OUTPUT RIGHT HALF OF WORD 0925 02601 0 01 02600 JMP *-1 BUSY 0926 02602 0 12 02573 IRS RPT1 BUMP FOR NEXT WORD 0927 02603 0 12 02627 IRS CTR1 BUMP WORD COUNTER 0928 02604 0 01 02573 JMP RPT1 OUTPUT NEXT WORD 0929 02605 0 02 02632 LDA =-15 INITIALIZE WORD COUNTER 0930 02606 0 04 02627 STA CTR1 0931 02607 0 01 01010 JMP MPY1 BEGIN PROGRAM 0932 02610 106612 TIT1 OCT 106612 0933 02611 147661 BCI 14,O16-11T1 REV. D 8 MAY 1970 02612 133255 02613 130661 02614 152261 02615 120240 02616 151305 02617 153256 02620 120304 02621 120240 02622 134240 02623 146701 02624 154640 02625 130671 02626 133660 0934 02627 177761 CTR1 DEC -15
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 24

0935 02630 0 02 02610 MTIT LDA TIT1 0936 * 0937 02631 177771 END MPY1 02632 177761 02633 177744 02634 177710 02635 177440 02636 007707 02637 070770 02640 000252 02641 177600 02642 050000 02643 005000 02644 000036 02645 000035 02646 000077 02647 167777 02650 007700 02651 177007 02652 070077 02653 056340 02654 105303 02655 101710 02656 070707 02657 007070 02660 040000 02661 177000 02662 177400 02663 000002 02664 000005 02665 000033 02666 100000 02667 063640 02670 000003 02671 177770 02672 141414 02673 016162 02674 170707 02675 152525 02676 025252 02677 077764 02700 000004 02701 177775 02702 077776 02703 077777 02704 177777 02705 000000 02706 000001 02707 166170 02710 177766
* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 25

02711 177767 CHK2 002047A CKTB 002171A CNST 001600A CTR1 002627A CTR2 002157A DAD1 001510A DAD2 001531A DIV1 001117A DIV2 001135A DIV3 001154A DIV4 001174A DIV5 001211A DIV6 001231A DIV7 001741A DLD1 001401A DLD2 001430A DPC0 001560A DPC1 001562A DPC2 001564A DPC3 001566A DPC4 001570A DPC5 001572A DPC6 001574A DPT0 001556A DSB1 001617A DSB2 001641A DST1 001447A DST2 001471A DV1 001751A DV2 001757A DV21 001766A DV22 002004A DV3 002026A DV4 002033A DVSD 001611A DVSR 001607A END 002113A END2 002145A EOPH 002146A JL01 001012A JL02 001024A JL03 001041A JL04 001055A JL05 001071A JL06 001105A JL08 001137A JL09 001156A JL10 001176A JL11 001213A JL12 001233A JL13 001253A JL14 001265A JL15 001277A JL16 001320A JL17 001342A JL18 001364A JL19 001403A JL20 001432A JL21 001451A JL22 001473A JL23 001512A JL24 001533A JL25 001621A JL26 001643A JL27 001663A JL28 001743A JLCK 002046A JLO7 001121A JSTL 001553A K1 001612A K2 001613A KT1 001614A KT2 001615A LSP 001603A MCND 001604A MDTB 002226A MPLD 001610A MPLR 001605A MPY1 001010A MPY2 001022A MPY3 001037A MPY4 001053A MPY5 001067A MPY6 001103A MPY7 001661A MSP 001602A MTIT 002630A MY1 001671A MY2 001677A MY3 001721A MY4 001726A NG1 002015A NG2 002020A NPAS 002160A NRM1 001275A NRM2 001316A NRM3 001340A NRM4 001362A O272 001576A QTNT 001606A RPT1 002573A SCA1 001251A SCA2 001263A STRT 001007A T1 001577A TIT1 002610A TITL 002566A TOTL 001601A TYN2 002137A TYO2 002125A TYOB 002150A TYOT 002121A 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71