*LIST PRINTER *PRINT SYMBOL TABLE *OUTPUT CARD (ID) **XR01 - INDEX REGISTERS DIAGNOSTIC TEST XR01 - INDEX REGISTERS DIAGNOSTIC TEST PAGE 1 SW4OFF 02999 SW3OFF 02961 SW2OFF 02923 SW1OFF 02885 SETSWS 03019 BAND1 00300 BAND2 00340 ETEST 16652 ETM1 16781 ETM2 16831 HEAD1 02751 HEAD2 02807 PROD 00099 P0 14872 P1 14882 P2 14892 Q0 14877 Q1 14887 Q2 14897 R00 03082 R00E 03154 R00OK 03202 R01 03246 R01E 03282 R01OK 03330 R02 03374 R02E 03542 R02OK 03590 R03 03614 R10 03650 R10E 03758 R10OK 03806 R11 03854 R11E 03974 R11OK 04022 R12 04070 R12E 04262 R12OK 04310 R13 04350 R13E 04458 R13OK 04506 R14 04546 R14E 04666 R14OK 04714 R15 04754 R15E 04946 R15OK 04994 R16 05032 R16E 05152 R16OK 05200 R17 05224 R20 05260 R20E 05404 R20OK 05452 R21 05500 R21E 05656 R21OK 05704 R22 05752 R22E 06040 R22OK 06088 R23 06136 R23E 06280 R23OK 06328 R24 06352 R30 06388 R30E 06520 R30OK 06568 R31 06616 R31E 06748 R31OK 06796 R32 06844 R32E 07000 R32OK 07048 R33 07096 R33E 07252 R33OK 07300 R34 07348 R34E 07504 R34OK 07552 R35 07620 R35E 07848 R35OK 07896 R36 07964 R36E 08192 R36OK 08240 R37 08310 R37E 08538 R37OK 08586 R38 08610 R40 08638 R40E 08770 R40OK 08818 R41 08858 R41E 08990 R41OK 09038 R42 09078 R42E 09234 R42OK 09282 R43 09322 R43E 09490 R43OK 09538 R44 09578 R44E 09734 R44OK 09782 R45 09836 R45E 10064 R45OK 10112 R46 10166 R46E 10394 R46OK 10442 R47 10466 R50 10502 R50E 10646 R50OK 10694 R51 10742 R51E 10898 R51OK 10946 R52 10994 R52E 11174 R52OK 11222 R53 11270 R53E 11438 R53OK 11486 R54 11534 R54E 11714 R54OK 11762 R55 11830 R55E 12070 R55OK 12118 R56 12186 R56E 12438 R56OK 12486 R57 12556 R57E 12808 R57OK 12856 R58 12880 R60 12908 R60E 13052 R60OK 13100 R61 13140 R61E 13296 R61OK 13344 R62 13384 R62E 13564 R62OK 13612 R63 13652 R63E 13832 R63OK 13880 R64 13920 R64E 14100 R64OK 14148 R65 14202 R65E 14442 R65OK 14490 R66 14544 R66E 14784 R66OK 14832 R67 14856 R70 14898 R70E 15030 R70OK 15078 R71 15102 R71E 15234 R71OK 15282 R72 15306 R72E 15438 R72OK 15486 R73 15510 R73E 15642 R73OK 15690 R74 15714 R74E 15870 R74OK 15918 R75 15942 R75E 16098 R75OK 16146 R76 16352 R76E 16568 R76M1 16171 R76M2 16268 R76M3 16271 R76OK 16616 R77 16640 START 02402 SW1ON 02867 SW2ON 02905 SW3ON 02943 SW4ON 02981 XR0 00004 XR1 00009 XR2 00014 XR3 00019 XR4 00024 XR5 00029 XR6 00034 XR7 00039 XR01 - INDEX REGISTERS DIAGNOSTIC TEST PAGE 1 00010* 00020* XR01 - INDEX REGISTERS DIAGNOSTIC TEST 00030* 00040* DIAGNOSTIC FOR 1620 MODEL 2 INDEX REGISTERS AND SUPPORTING 00050* INSTRUCTIONS - BX, BXM, BCX, BCXM, BLX, BLXM, BSX, MA. 00060* 00070* THIS TEST ASSUMES THE SYSTEM PASSES CU01 AND CU05. 00080********************************************************************** 00090* 2023-08-14 P.KIMPEL 00100* ORIGINAL VERSION. 00110********************************************************************** 00120* ROUTINE 100 - TYPE SENSE SWITCH SETTINGS, START TEST 00130* 00140 PROD DS ,99,, PRODUCT AREA (ALSO FOR TEMP USE) 00099 00000 00150 BAND1 DS ,300,, BAND 1 INDEX REGISTER BASE ADDRESS 00300 00000 00160 BAND2 DS ,340,, BAND 2 INDEX REGISTER BASE ADDRESS 00340 00000 00170 XR0 DS 5,4,, XR 0 OFFSET 00004 00005 00180 XR1 DS 5,9,, XR 1 OFFSET 00009 00005 00190 XR2 DS 5,14,, XR 2 OFFSET 00014 00005 00200 XR3 DS 5,19,, XR 3 OFFSET 00019 00005 00210 XR4 DS 5,24,, XR 4 OFFSET 00024 00005 00220 XR5 DS 5,29,, XR 5 OFFSET 00029 00005 00230 XR6 DS 5,34,, XR 6 OFFSET 00034 00005 00240 XR7 DS 5,39,, XR 7 OFFSET 00039 00005 00250* 00260***** DORG00828,,, DEFINE START 00270 START RCTY 02402 34 00000 00102 00280 RCTY 02414 34 00000 00102 00290 WATY HEAD1,,, PRINT HEADING 02426 39 02751 00100 00300 RCTY 02438 34 00000 00102 00310 BC1 *+24,,, CHECK FOR SW 1 ON 02450 46 02474 00100 00320 BNC1 *+36,,, CHECK FOR SW 1 OFF 02462 47 02498 00100 00330 WATY SW1ON,,, SW 1 ON 02474 39 02867 00100 00340 B *+24,,, 02486 49 02510 00000 00350 WATY SW1OFF,,, 02498 39 02885 00100 00360 BC2 *+24,,, CHECK FOR SW 2 ON 02510 46 02534 00200 00370 BNC2 *+36,,, CHECK FOR SW 2 OFF 02522 47 02558 00200 00380 WATY SW2ON,,, SW 2 ON 02534 39 02905 00100 00390 B *+24,,, 02546 49 02570 00000 00400 WATY SW2OFF,,, 02558 39 02923 00100 00410 BC3 *+24,,, CHECK FOR SW 3 ON 02570 46 02594 00300 00420 BNC3 *+36,,, CHECK FOR SW 3 OFF 02582 47 02618 00300 00430 WATY SW3ON,,, SW 3 ON 02594 39 02943 00100 00440 B *+24,,, 02606 49 02630 00000 00450 WATY SW3OFF,,, 02618 39 02961 00100 00460 BC4 *+24,,, CHECK FOR SW 4 ON 02630 46 02654 00400 00470 BNC4 *+36,,, CHECK FOR SW 4 OFF 02642 47 02678 00400 00480 WATY SW4ON,,, SW 4 ON 02654 39 02981 00100 00490 B *+24,,, 02666 49 02690 00000 00500 WATY SW4OFF,,, 02678 39 02999 00100 00510 WATY SETSWS,,, SET SWS FOR XR01 THEN START 02690 39 03019 00100 00520 H ,,, HALT BEFORE TEST START 02702 48 00000 00000 00530 RCTY 02714 34 00000 00102 00540 WATY HEAD2,,, START ROUTINES... 02726 39 02807 00100 00550 B R00,,, GO TO ROUTINE 00 02738 49 03082 00000 00560* 00570 HEAD1 DAC 28,XR01 - INDEX REGISTERS TEST@ 02751 00056 00580 HEAD2 DAC 30,START ROUTINES. ETOS FOLLOW. @ 02807 00060 00590 SW1ON DAC 09,SW 1 ON @ 02867 00018 00600 SW1OFF DAC 10,SW 1 OFF @ 02885 00020 00610 SW2ON DAC 09,SW 2 ON @ 02905 00018 00620 SW2OFF DAC 10,SW 2 OFF @ 02923 00020 00630 SW3ON DAC 09,SW 3 ON @ 02943 00018 00640 SW3OFF DAC 10,SW 3 OFF @ 02961 00020 00650 SW4ON DAC 09,SW 4 ON @ 02981 00018 00660 SW4OFF DAC 10,SW 4 OFF @ 02999 00020 00670 SETSWS DAC 32,- SET SWS FOR XR01 THEN START. @ 03019 00064 00680* 00690* ROUTINE 00 00700* CHECK BAND SELECTION AND INDICATORS 00710* 00720 R00 60 *+12,2,, BS, SELECT BAND 2 03082 60 03094 00002 00730 BNI R00E,3200,, CHECK FOR BAND 2 03094 47 03154 03200 00740 60 *+12,1,, BS, SELECT BAND 1 03106 60 03118 00001 00750 BNI R00E,3100,, CHECK FOR BAND 1 03118 47 03154 03100 00760 60 *+12,0,, BS, TURN OFF BAND SELECTION 03130 60 03142 00000 00770 BI R00OK,3000,, CHECK FOR NO BAND SELECTED 03142 46 03202 03000 00780 R00E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPE OUT 03154 46 03178 00100 00790 WATY *+25,,, 03166 39 03191 00100 00800 BNC3 *+24,,, NO HALT ON SW 3 03178 47 03202 00300 00810 DAC 6,H00 @,, HALT H00 03191 00012 00820 R00OK BC2 R00,,, LOOP ON SW 2 03202 46 03082 00200 00830 B R01,,, CONTINUE TO NEXT ROUTINE 03214 49 03246 00000 00840* 00850* ROUTINE 01 00860* MOVE ADDRESS, CHECK THAT EXACTLY 5 DIGITS ARE MOVED 00870* 00880 DSC 1,0,, SLACK DIGIT 03226 00001 00890 DC 7,9912345,, EXPECTED RESULT 03233 00007 00900 DC 9,990000012,, 2 GUARD, 5 DEST, 5 SOURCE DIGITS 03242 00009 00910 DC 3,345,, 03245 00003 00920 R01 70 R01-6,R01-1,, MA, SOURCE TO DEST 03246 70 03240 03245 00930 C R01-6,R01-13,, CHECK EXPECTED RESULT 03258 24 03240 03233 00940 BE R01OK,,, BR ON SUCCESS 03270 46 03330 01200 00950 R01E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPE OUT 03282 46 03306 00100 00960 WATY *+25,,, 03294 39 03319 00100 00970 BNC3 *+24,,, NO HALT ON SW 3 03306 47 03330 00300 00980 DAC 6,H01 @,, HALT H01 03319 00012 00990 R01OK BC2 R01,,, LOOP ON SW 2 03330 46 03246 00200 01000 B R02,,, CONTINUE TO NEXT ROUTINE 03342 49 03374 00000 01010* 01020* ROUTINE 02 01030* MOVE ADDRESS, CHECK THAT FLAGS ARE NOT MOVED 01040* 01050 DSC 1,0,, SLACK DIGIT 03354 00001 01060 DC 4,9912,, EXPECTED RESULT 03358 00004 01062 DC 3,345,, 03361 00003 01070 DC 4,9967,, 2 GUARD, 5 DEST, 5 SOURCE DIGITS 03365 00004 01080 DC 4,8901,, 03369 00004 01090 DC 2,23,, 03371 00002 01100 DC 2,45,, 03373 00002 01110 R02 70 R02-6,R02-1,, MA, SOURCE TO DEST 03374 70 03368 03373 01120 BNF *+24,R02-6,, CHECK DIGITS THAT HAVE NO FLAGS 03386 44 03410 03368 01130 B R02E,,, 03398 49 03542 00000 01140 BNF *+24,R02-7,, 03410 44 03434 03367 01150 B R02E,,, 03422 49 03542 00000 01160 BNF *+24,R02-9,, 03434 44 03458 03365 01170 B R02E,,, 03446 49 03542 00000 01180 BNF *+24,R02-10,, 03458 44 03482 03364 01190 B R02E,,, 03470 49 03542 00000 01200 BNF R02E,R02-8,, CHECK MIDDLE DIGIT HAS FLAG 03482 44 03542 03366 01210 C R02-6,R02-13,, CHECK FOR EXPECTED RESULTS 03494 24 03368 03361 01220 BNE R02E,,, 03506 47 03542 01200 01230 C R02-9,R02-16,, 03518 24 03365 03358 01240 BE R02OK,,, BR ON SUCCESS 03530 46 03590 01200 01250 R02E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 03542 46 03566 00100 01260 WATY *+25,, 03554 39 03579 00100 01270 BNC3 *+24,,, NO HALT ON SW 3 03566 47 03590 00300 01280 DAC 6,H02 @,, HALT H02 03579 00012 01290 R02OK BC2 R02,,, LOOP ON SW 2 03590 46 03374 00200 01300 B R03,,, CONTINUE TO NEXT ROUTINE 03602 49 03614 00000 01310* 01320 R03 B R10,,, (RFE) 03614 49 03650 00000 01330* 01340* ROUTINE 10 01350* BLX - TEST THAT FIVE DIGITS ARE MOVED AND H.O. FLAG IS SET 01360* 01370 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGIST 03635 00010 01380 DSC 1,0,, SLACK DIGIT 03636 00001 01390 DC 5,12345,, EXPECTED RESULT 03641 00005 01400 DSC 1,0,, SLACK DIGIT 03642 00001 01410 DC 7,9912345,, 2 GUARD, 5 SOURCE DIGITS 03649 00007 01420 R10 TF BAND1+XR1,R10-15,, INITIALIZE BAND 1 XR 0,1 03650 26 00309 03635 01430 60 *+12,1,, BS, SELECT BAND 1 03662 60 03674 00001 01440 65 *+12,R10-1,10, BLX, LOAD XR 1 03674 65 03686 036M9 01450 CM BAND1+XR0,0,, CHECK THAT XR 0 NOT AFFECTED 03686 14 00304 -0000 01460 BNE R10E,,, 03698 47 03758 01200 01470 C BAND1+XR1,R10-9,, CHECK THAT XR 1 HAS EXPECTED RESULT 03710 24 00309 03641 01480 BNE R10E,,, 03722 47 03758 01200 01490 BNF R10E,BAND1+XR1-4,, ERROR IF NO H.O. FLAG 03734 44 03758 00305 01500 B R10OK,,, HAS FLAG - SUCCESS 03746 49 03806 00000 01510 R10E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 03758 46 03782 00100 01520 WATY *+25,, 03770 39 03795 00100 01530 BNC3 *+24,,, NO HALT ON SW 3 03782 47 03806 00300 01540 DAC 6,H10 @,, HALT H10 03795 00012 01550 R10OK BC2 R10,,, LOOP ON SW 2 03806 46 03650 00200 01560 B R11,,, CONTINUE TO NEXT ROUTINE 03818 49 03854 00000 01570* 01580* ROUTINE 11 01590* BLX - TEST THAT FIVE DIGITS ARE MOVED AND SIGN FLAG IS SET 01600* 01610 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGIST 03839 00010 01620 DSC 1,0,, SLACK DIGIT 03840 00001 01630 DC 5,-12345,, EXPECTED RESULT 03845 00005 01640 DSC 1,0,, SLACK DIGIT 03846 00001 01650 DC 7,-9912345,, 2 GUARD, 5 SOURCE DIGITS 03853 00007 01660 R11 TF BAND1+XR1,R11-15,, INITIALIZE BAND 1 XR 0,1 03854 26 00309 03839 01670 60 *+12,1,, BS, SELECT BAND 1 03866 60 03878 00001 01680 65 *+12,R11-1,10, BLX, LOAD XR 1 03878 65 03890 038N3 01690 CM BAND1+XR0,0,, CHECK THAT XR 0 NOT AFFECTED 03890 14 00304 -0000 01700 BNE R11E,,, 03902 47 03974 01200 01710 C BAND1+XR1,R11-9,, CHECK THAT XR 1 HAS EXPECTED RESULT 03914 24 00309 03845 01720 BNE R11E,,, 03926 47 03974 01200 01730 BNF R11E,BAND1+XR1-4,, ERROR IF NO H.O. FLAG 03938 44 03974 00305 01740 BNF R11E,BAND1+XR1,, ERROR IF NO SIGN FLAG 03950 44 03974 00309 01750 B R11OK,,, BR ON SUCCESS 03962 49 04022 00000 01760 R11E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 03974 46 03998 00100 01770 WATY *+25,, 03986 39 04011 00100 01780 BNC3 *+24,,, NO HALT ON SW 3 03998 47 04022 00300 01790 DAC 6,H11 @,, HALT H11 04011 00012 01800 R11OK BC2 R11,,, LOOP ON SW 2 04022 46 03854 00200 01810 B R12,,, CONTINUE TO NEXT ROUTINE 04034 49 04070 00000 01820* 01830* ROUTINE 12 01840* BLX - TEST THAT MIDDLE FLAGS ARE NOT TRANSFERRED 01850* 01860 DC 5,0,, INITIALIZE XR0 DESTINATION 04050 00005 01870 DSC 5,67890,, INITIALIZE XR1 DESTINATION 04051 00005 01880 DSC 1,0,, SLACK DIGIT 04056 00001 01890 DC 5,-12345,, EXPECTED RESULT 04061 00005 01900 DSC 1,0,, SLACK DIGIT 04062 00001 01910 DC 3,991,, 2 GUARD, 5 SOURCE DIGITS 04065 00003 01920 DC 2,-23,, 04067 00002 01930 DC 2,-45,, 04069 00002 01940 R12 TF BAND1+XR1,R12-15,, INITIALIZE BAND 1 XR 0,1 04070 26 00309 04055 01950 60 *+12,1,, BS, SELECT BAND 1 04082 60 04094 00001 01960 65 *+12,R12-1,10, BLX, LOAD XR 1 04094 65 04106 040O9 01970 CM BAND1+XR0,0,, CHECK THAT XR 0 NOT AFFECTED 04106 14 00304 -0000 01980 BNE R12E,,, 04118 47 04262 01200 01990 C BAND1+XR1,R12-9,, CHECK THAT XR 1 HAS EXPECTED RESULT 04130 24 00309 04061 02000 BNE R12E,,, 04142 47 04262 01200 02010 BNF R12E,BAND1+XR1-4,, ERROR IF NO H.O. FLAG 04154 44 04262 00305 02020 BNF *+24,BAND1+XR1-3,, OK IF NO DIGIT 2 FLAG 04166 44 04190 00306 02030 B R12E,,, - SHOULD NOT HAVE FLAG 04178 49 04262 00000 02040 BNF *+24,BAND1+XR1-2,, OK IF NO DIGIT 3 FLAG 04190 44 04214 00307 02050 B R12E,,, - SHOULD NOT HAVE FLAG 04202 49 04262 00000 02060 BNF *+24,BAND1+XR1-1,, OK IF NO DIGIT 4 FLAG 04214 44 04238 00308 02070 B R12E,,, - SHOULD NOT HAVE FLAG 04226 49 04262 00000 02080 BNF R12E,BAND1+XR1,, ERROR IF NO SIGN FLAG 04238 44 04262 00309 02090 B R12OK,,, BR ON SUCCESS 04250 49 04310 00000 02100 R12E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 04262 46 04286 00100 02110 WATY *+25,, 04274 39 04299 00100 02120 BNC3 *+24,,, NO HALT ON SW 3 04286 47 04310 00300 02130 DAC 6,H12 @,, HALT H12 04299 00012 02140 R12OK BC2 R12,,, LOOP ON SW 2 04310 46 04070 00200 02150 B R13,,, CONTINUE TO NEXT ROUTINE 04322 49 04350 00000 02160* 02170* ROUTINE 13 02180* BLXM - TEST THAT FIVE DIGITS ARE MOVED AND H.O. FLAG IS SET 02190* 02200 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGIST 04343 00010 02210 DSC 1,0,, SLACK DIGIT 04344 00001 02220 DC 5,12345,, EXPECTED RESULT 04349 00005 02230 R13 TF BAND2+XR1,R13-7,, INITIALIZE BAND 2 XR 0,1 04350 26 00349 04343 02240 60 *+12,2,, BS, SELECT BAND 2 04362 60 04374 00002 02250 66 *+12,12345,10, BLXM, LOAD XR 1 04374 66 04386 123M5 02260 CM BAND2+XR0,0,, CHECK THAT XR 0 NOT AFFECTED 04386 14 00344 -0000 02270 BNE R13E,,, 04398 47 04458 01200 02280 C BAND2+XR1,R13-1,, CHECK THAT XR 1 HAS EXPECTED RESULT 04410 24 00349 04349 02290 BNE R13E,,, 04422 47 04458 01200 02300 BNF R13E,BAND2+XR1-4,, ERROR IF NO H.O. FLAG 04434 44 04458 00345 02310 B R13OK,,, HAS FLAG - SUCCESS 04446 49 04506 00000 02320 R13E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 04458 46 04482 00100 02330 WATY *+25,, 04470 39 04495 00100 02340 BNC3 *+24,,, NO HALT ON SW 3 04482 47 04506 00300 02350 DAC 6,H13 @,, HALT H13 04495 00012 02360 R13OK BC2 R13,,, LOOP ON SW 2 04506 46 04350 00200 02370 B R14,,, CONTINUE TO NEXT ROUTINE 04518 49 04546 00000 02380* 02390* ROUTINE 14 02400* BLXM - TEST THAT FIVE DIGITS ARE MOVED AND SIGN FLAG IS SET 02410* 02420 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGIST 04539 00010 02430 DSC 1,0,, SLACK DIGIT 04540 00001 02440 DC 5,-12345,, EXPECTED RESULT 04545 00005 02450 R14 TF BAND2+XR1,R14-7,, INITIALIZE BAND 2 XR 0,1 04546 26 00349 04539 02460 60 *+12,2,, BS, SELECT BAND 2 04558 60 04570 00002 02470 66 *+12,-12345,10, BLXM, LOAD XR 1 04570 66 04582 123MN 02480 CM BAND2+XR0,0,, CHECK THAT XR 0 NOT AFFECTED 04582 14 00344 -0000 02490 BNE R14E,,, 04594 47 04666 01200 02500 C BAND2+XR1,R14-1,, CHECK THAT XR 1 HAS EXPECTED RESULT 04606 24 00349 04545 02510 BNE R14E,,, 04618 47 04666 01200 02520 BNF R14E,BAND2+XR1-4,, ERROR IF NO H.O. FLAG 04630 44 04666 00345 02530 BNF R14E,BAND2+XR1,, ERROR IF NO SIGN FLAG 04642 44 04666 00349 02540 B R14OK,,, BR ON SUCCESS 04654 49 04714 00000 02550 R14E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 04666 46 04690 00100 02560 WATY *+25,, 04678 39 04703 00100 02570 BNC3 *+24,,, NO HALT ON SW 3 04690 47 04714 00300 02580 DAC 6,H14 @,, HALT H14 04703 00012 02590 R14OK BC2 R14,,, LOOP ON SW 2 04714 46 04546 00200 02600 B R15,,, CONTINUE TO NEXT ROUTINE 04726 49 04754 00000 02610* 02620* ROUTINE 15 02630* BLXM - TEST THAT MIDDLE FLAGS ARE NOT TRANSFERRED 02640* 02650 DC 5,0,, INITIALIZE XR0 DESTINATION 04742 00005 02660 DSC 5,67890,, INITIALIZE XR1 DESTINATION 04743 00005 02670 DSC 1,0,, SLACK DIGIT 04748 00001 02680 DC 5,-12345,, EXPECTED RESULT 04753 00005 02690 R15 TF BAND2+XR1,R15-7,, INITIALIZE BAND 2 XR 0,1 04754 26 00349 04747 02700 60 *+12,2,, BS, SELECT BAND 2 04766 60 04778 00002 02710 66 *+12,-12345,10, BLXM, LOAD XR 1 04778 66 04790 123MN 02720 CM BAND2+XR0,0,, CHECK THAT XR 0 NOT AFFECTED 04790 14 00344 -0000 02730 BNE R15E,,, 04802 47 04946 01200 02740 C BAND2+XR1,R15-1,, CHECK THAT XR 1 HAS EXPECTED RESULT 04814 24 00349 04753 02750 BNE R15E,,, 04826 47 04946 01200 02760 BNF R15E,BAND2+XR1-4,, ERROR IF NO H.O. FLAG 04838 44 04946 00345 02770 BNF *+24,BAND2+XR1-3,, OK IF NO DIGIT 2 FLAG 04850 44 04874 00346 02780 B R15E,,, - SHOULD NOT HAVE FLAG 04862 49 04946 00000 02790 BNF *+24,BAND2+XR1-2,, OK IF NO DIGIT 3 FLAG 04874 44 04898 00347 02800 B R15E,,, - SHOULD NOT HAVE FLAG 04886 49 04946 00000 02810 BNF *+24,BAND2+XR1-1,, OK IF NO DIGIT 4 FLAG 04898 44 04922 00348 02820 B R15E,,, - SHOULD NOT HAVE FLAG 04910 49 04946 00000 02830 BNF R15E,BAND2+XR1,, ERROR IF NO SIGN FLAG 04922 44 04946 00349 02840 B R15OK,,, BR ON SUCCESS 04934 49 04994 00000 02850 R15E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 04946 46 04970 00100 02860 WATY *+25,, 04958 39 04983 00100 02870 BNC3 *+24,,, NO HALT ON SW 3 04970 47 04994 00300 02880 DAC 6,H15 @,, HALT H15 04983 00012 02890 R15OK BC2 R15,,, LOOP ON SW 2 04994 46 04754 00200 02900 B R16,,, CONTINUE TO NEXT ROUTINE 05006 49 05032 00000 02910* 02920* ROUTINE 16 02930* BLX - TEST THAT INDEX REGISTER 0 CAN BE LOADED 02940* 02950 DSC 1,0,, SLACK DIGIT 05018 00001 02960 DC 5,12345,, EXPECTED RESULT 05023 00005 02970 DSC 1,0,, SLACK DIGIT 05024 00001 02980 DC 2,99,, 2 GUARD, 5 SOURCE DIGITS 05026 00002 02990 DC 5,12345,, 05031 00005 03000 R16 TFM BAND1+XR0,0,, INITIALIZE BAND 1 XR 0 05032 16 00304 -0000 03010 TFM BAND1+XR1,0,, INITIALIZE BAND 1 XR 1 05044 16 00309 -0000 03020 60 *+12,1,, BS, SELECT BAND 1 05056 60 05068 00001 03030 65 *+12,R16-1,, BLX, LOAD XR 0 05068 65 05080 05031 03040 CM BAND1+XR1,0,, CHECK THAT XR 1 NOT AFFECTED 05080 14 00309 -0000 03050 BNE R16E,,, 05092 47 05152 01200 03060 C BAND1+XR0,R16-9,, CHECK THAT XR 0 HAS EXPECTED RESULT 05104 24 00304 05023 03070 BNE R16E,,, 05116 47 05152 01200 03080 BNF R16E,BAND1+XR0-4,, ERROR IF NO H.O. FLAG 05128 44 05152 00300 03090 B R16OK,,, HAS FLAG - SUCCESS 05140 49 05200 00000 03100 R16E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 05152 46 05176 00100 03110 WATY *+25,, 05164 39 05189 00100 03120 BNC3 *+24,,, NO HALT ON SW 3 05176 47 05200 00300 03130 DAC 6,H16 @,, HALT H16 05189 00012 03140 R16OK BC2 R16,,, LOOP ON SW 2 05200 46 05032 00200 03150 B R17,,, CONTINUE TO NEXT ROUTINE 05212 49 05224 00000 03160* 03170 R17 B R20,,, (RFE) 05224 49 05260 00000 03180* 03190* ROUTINE 20 03200* BSX - TEST THAT FIVE DIGITS ARE STORED AND H.O. FLAG IS SET 03210* 03220 DC 10,0000067890,, INITIALIZE DESTINATION FOR 2 REGIST 05245 00010 03230 DSC 1,0,, SLACK DIGIT 05246 00001 03240 DC 5,12345,, EXPECTED RESULT 05251 00005 03250 DSC 1,0,, SLACK DIGIT 05252 00001 03260 DC 7,9912345,, 2 GUARD, 5 SOURCE DIGITS 05259 00007 03270 R20 TF PROD,R20-15,, INITIALIZE DEST FIELD 05260 26 00099 05245 03280 TFM BAND1+XR6,99999,, INITIALIZE XR 6 05272 16 00334 R9999 03290 TFM BAND1+XR7,0,, INITIALIZE XR 7 05284 16 00339 -0000 03300 60 *+12,1,, BS, SELECT BAND 1 05296 60 05308 00001 03310 65 *+12,R20-1,8910, BLX, LOAD XR 7 05308 65 05320 0NKN9 03320 67 *+12,PROD,8910, BSX, STORE XR 7 05320 67 05332 0--R9 03330 CM PROD-5,0,, CHECK THAT LOWER DIGITS NOT AFFECTE 05332 14 00094 -0000 03340 BNE R20E,,, 05344 47 05404 01200 03350 C PROD,R20-9,, CHECK THAT DEST HAS EXPECTED RESULT 05356 24 00099 05251 03360 BNE R20E,,, 05368 47 05404 01200 03370 BNF R20E,PROD-4,, ERROR IF NO H.O. FLAG 05380 44 05404 00095 03380 B R20OK,,, HAS FLAG - SUCCESS 05392 49 05452 00000 03390 R20E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 05404 46 05428 00100 03400 WATY *+25,, 05416 39 05441 00100 03410 BNC3 *+24,,, NO HALT ON SW 3 05428 47 05452 00300 03420 DAC 6,H20 @,, HALT H20 05441 00012 03430 R20OK BC2 R20,,, LOOP ON SW 2 05452 46 05260 00200 03440 B R21,,, CONTINUE TO NEXT ROUTINE 05464 49 05500 00000 03450* 03460* ROUTINE 21 03470* BSX - TEST THAT FIVE DIGITS ARE STORED AND SIGN FLAG IS SET 03480* 03490 DC 10,0000067890,, INITIALIZE DESTINATION FOR 2 REGIST 05485 00010 03500 DSC 1,0,, SLACK DIGIT 05486 00001 03510 DC 5,-12345,, EXPECTED RESULT 05491 00005 03520 DSC 1,0,, SLACK DIGIT 05492 00001 03530 DC 7,-9912345,, 2 GUARD, 5 SOURCE DIGITS 05499 00007 03540 R21 TF PROD,R21-15,, INITIALIZE DEST FIELD 05500 26 00099 05485 03550 TFM BAND1+XR6,99999,, INITIALIZE XR 6 05512 16 00334 R9999 03560 TFM BAND1+XR7,0,, INITIALIZE XR 7 05524 16 00339 -0000 03570 60 *+12,1,, BS, SELECT BAND 1 05536 60 05548 00001 03580 65 *+12,R21-1,8910, BLX, LOAD XR 7 05548 65 05560 0NMR9 03590 67 *+12,PROD,8910, BSX, STORE XR 7 05560 67 05572 0--R9 03600 CM PROD-5,0,, CHECK THAT LOWER DIGITS NOT AFFECTE 05572 14 00094 -0000 03610 BNE R21E,,, 05584 47 05656 01200 03620 C PROD,R21-9,, CHECK THAT DEST HAS EXPECTED RESULT 05596 24 00099 05491 03630 BNE R21E,,, 05608 47 05656 01200 03640 BNF R21E,PROD-4,, ERROR IF NO H.O. FLAG 05620 44 05656 00095 03650 BNF R21E,PROD,, ERROR IF NO SIGN FLAG 05632 44 05656 00099 03660 B R21OK,,, BR ON SUCCESS 05644 49 05704 00000 03670 R21E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 05656 46 05680 00100 03680 WATY *+25,, 05668 39 05693 00100 03690 BNC3 *+24,,, NO HALT ON SW 3 05680 47 05704 00300 03700 DAC 6,H21 @,, HALT H21 05693 00012 03710 R21OK BC2 R21,,, LOOP ON SW 2 05704 46 05500 00200 03720 B R22,,, CONTINUE TO NEXT ROUTINE 05716 49 05752 00000 03730* 03740* ROUTINE 22 03750* BSX - TEST THAT MIDDLE FLAGS ARE NOT TRANSFERRED 03760* 03770 DC 5,0,, INITIALIZE XR6 DESTINATION 05732 00005 03780 DSC 1,6,, INITIALIZE XR7 DESTINATION 05733 00001 03790 DC 2,-78,, 05735 00002 03800 DC 2,90,, 05737 00002 03810 DSC 1,0,, SLACK DIGIT 05738 00001 03820 DC 2,-12,, EXPECTED RESULT 05740 00002 03830 DC 2,-34,, 05742 00002 03840 DC 1,5,, 05743 00001 03850 DSC 1,0,, SLACK DIGIT 05744 00001 03860 DC 7,-9912345,, 2 GUARD, 5 SOURCE DIGITS 05751 00007 03870 R22 TD PROD,R22-15,, INITIALIZE DEST DIGIT 5 05752 25 00099 05737 03880 TD PROD-1,R22-16,, 4 05764 25 00098 05736 03890 TD PROD-2,R22-17,, 3 05776 25 00097 05735 03900 TD PROD-3,R22-18,, 2 05788 25 00096 05734 03910 TF PROD-4,R22-19,, 1 + 5 LOWER 05800 26 00095 05733 03920 TFM BAND1+XR6,99999,, INITIALIZE XR 6 05812 16 00334 R9999 03930 TFM BAND1+XR7,0,, INITIALIZE XR 7 05824 16 00339 -0000 03940 60 *+12,1,, BS, SELECT BAND 1 05836 60 05848 00001 03950 65 *+12,R22-1,8910, BLX, LOAD XR 7 05848 65 05860 0NPN1 03960 67 *+12,PROD,8910, BSX, STORE XR 7 05860 67 05872 0--R9 03970 CM PROD-5,0,, CHECK THAT LOWER DIGITS NOT AFFECTE 05872 14 00094 -0000 03980 BNE R22E,,, 05884 47 06040 01200 03990 C PROD,R22-9,, CHECK THAT DEST HAS EXPECTED RESULT 05896 24 00099 05743 04000 BNE R22E,,, 05908 47 06040 01200 04010 C PROD-2,R22-11,, CONTINUE CHECK FOR DIGITS 2-3 05920 24 00097 05741 04020 BNE R22E,, 05932 47 06040 01200 04030 C PROD-3,R22-12,, CONTINUE CHECK FOR DIGITS 1-2 05944 24 00096 05740 04040 BNE R22E,, 05956 47 06040 01200 04050 BNF R22E,PROD-4,, ERROR IF NO H.O. FLAG 05968 44 06040 00095 04060 BNF R22E,PROD-3,, ERROR IF NO DIGIT 2 FLAG 05980 44 06040 00096 04070 BNF R22E,PROD-2,, ERROR IF NO DIGIT 3 FLAG 05992 44 06040 00097 04080 BNF R22E,PROD-1,, ERROR IF NO DIGIT 4 FLAG 06004 44 06040 00098 04090 BNF R22E,PROD,, ERROR IF NO SIGN FLAG 06016 44 06040 00099 04100 B R22OK,,, BR ON SUCCESS 06028 49 06088 00000 04110 R22E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 06040 46 06064 00100 04120 WATY *+25,, 06052 39 06077 00100 04130 BNC3 *+24,,, NO HALT ON SW 3 06064 47 06088 00300 04140 DAC 6,H22 @,, HALT H22 06077 00012 04150 R22OK BC2 R22,,, LOOP ON SW 2 06088 46 05752 00200 04160 B R23,,, CONTINUE TO NEXT ROUTINE 06100 49 06136 00000 04170* 04180* ROUTINE 23 04190* BSX - TEST THAT INDEX REGISTER 0 CAN BE STORED 04200* 04210 DC 10,0000067890,, INITIALIZE DESTINATION FOR 2 REGIST 06121 00010 04220 DSC 1,0,, SLACK DIGIT 06122 00001 04230 DC 5,12345,, EXPECTED RESULT 06127 00005 04240 DSC 1,0,, SLACK DIGIT 06128 00001 04250 DC 7,9912345,, 2 GUARD, 5 SOURCE DIGITS 06135 00007 04260 R23 TF PROD,R23-15,, INITIALIZE DEST FIELD 06136 26 00099 06121 04270 TFM BAND1+XR0,99999,, INITIALIZE XR 0 06148 16 00304 R9999 04280 TFM BAND1+XR1,0,, INITIALIZE XR 1 06160 16 00309 -0000 04290 60 *+12,1,, BS, SELECT BAND 1 06172 60 06184 00001 04300 65 *+12,R23-1,, BLX, LOAD XR 0 06184 65 06196 06135 04310 67 *+12,PROD,, BSX, STORE XR 0 06196 67 06208 00099 04320 CM PROD-5,0,, CHECK THAT LOWER DIGITS NOT AFFECTE 06208 14 00094 -0000 04330 BNE R23E,,, 06220 47 06280 01200 04340 C PROD,R23-9,, CHECK THAT DEST HAS EXPECTED RESULT 06232 24 00099 06127 04350 BNE R23E,,, 06244 47 06280 01200 04360 BNF R23E,PROD-4,, ERROR IF NO H.O. FLAG 06256 44 06280 00095 04370 B R23OK,,, HAS FLAG - SUCCESS 06268 49 06328 00000 04380 R23E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 06280 46 06304 00100 04390 WATY *+25,, 06292 39 06317 00100 04400 BNC3 *+24,,, NO HALT ON SW 3 06304 47 06328 00300 04410 DAC 6,H23 @,, HALT H23 06317 00012 04420 R23OK BC2 R23,,, LOOP ON SW 2 06328 46 06136 00200 04430 B R24,,, CONTINUE TO NEXT ROUTINE 06340 49 06352 00000 04440* 04450 R24 B R30,,, (RFE) 06352 49 06388 00000 04460* 04470* ROUTINE 30 04480* BX - ADD TO XR, TEST RESULT AND HP SET 04490* 04500 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGIST 06373 00010 04510 DSC 1,0,, SLACK DIGIT 06374 00001 04520 DC 5,24690,, EXPECTED RESULT 06379 00005 04530 DSC 1,0,, SLACK DIGIT 06380 00001 04540 DC 2,99,, 2 GUARD, 5 SOURCE DIGITS 06382 00002 04542 DC 5,12345,, 06387 00005 04550 R30 TF BAND1+XR5,R30-15,, CLEAR XR 4,5 FLAGS 06388 26 00329 06373 04560 60 *+12,1,, BS, SELECT XR BAND 1 06400 60 06412 00001 04570 66 *+12,0,8, BLXM, INITIALIZE XR 4 06412 66 06424 0-000 04580 65 *+12,R30-1,810, BLX, INITIALIZE XR 5 06424 65 06436 0O3Q7 04590 61 *+12,R30-1,810, BX, ADD TO XR 5 06436 61 06448 0O3Q7 04600 BNP R30E,,, CHECK HP INDICATOR IS SET 06448 47 06520 01100 04610 CM BAND1+XR4,0,, CHECK ONLY 5 DIGITS AFFECTED 06460 14 00324 -0000 04620 BNE R30E,,, 06472 47 06520 01200 04630 C BAND1+XR5,R30-9,, CHECK EXPECTED RESULT 06484 24 00329 06379 04640 BNE R30E,,, 06496 47 06520 01200 04650 B R30OK,,, BR ON SUCCESS 06508 49 06568 00000 04660 R30E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 06520 46 06544 00100 04670 WATY *+25,, 06532 39 06557 00100 04680 BNC3 *+24,,, NO HALT ON SW 3 06544 47 06568 00300 04690 DAC 6,H30 @,, HALT H30 06557 00012 04700 R30OK BC2 R30,,, LOOP ON SW 2 06568 46 06388 00200 04710 B R31,,, CONTINUE TO NEXT ROUTINE 06580 49 06616 00000 04720* 04730* ROUTINE 31 04740* BX - ADD NEGATIVE TO XR, TEST RESULT AND EZ/HP NOT SET 04750* 04760 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGIST 06601 00010 04770 DSC 1,0,, SLACK DIGIT 06602 00001 04780 DC 5,-12345,, EXPECTED RESULT 06607 00005 04790 DSC 1,0,, SLACK DIGIT 06608 00001 04800 DC 2,99,, 2 GUARD, 5 SOURCE DIGITS 06610 00002 04810 DC 5,-24690,, 06615 00005 04820 R31 TF BAND1+XR3,R31-15,, CLEAR XR 2,3 FLAGS 06616 26 00319 06601 04830 60 *+12,1,, BS, SELECT XR BAND 1 06628 60 06640 00001 04840 66 *+12,0,9, BLXM, INITIALIZE XR 2 06640 66 06652 00-00 04850 66 *+12,12345,910, BLXM, INITIALIZE XR 3 06652 66 06664 12LM5 04860 61 *+12,R31-1,910, BX, ADD NEGATIVE TO XR 3 06664 61 06676 06OJ5 04870 BNN R31E,,, CHECK EZ/HP INDICATORS NOT SET 06676 46 06748 01300 04880 CM BAND1+XR2,0,, CHECK ONLY 5 DIGITS AFFECTED 06688 14 00314 -0000 04890 BNE R31E,,, 06700 47 06748 01200 04900 C BAND1+XR3,R31-9,, CHECK EXPECTED RESULT 06712 24 00319 06607 04910 BNE R31E,,, 06724 47 06748 01200 04920 B R31OK,,, BR ON SUCCESS 06736 49 06796 00000 04930 R31E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 06748 46 06772 00100 04940 WATY *+25,, 06760 39 06785 00100 04950 BNC3 *+24,,, NO HALT ON SW 3 06772 47 06796 00300 04960 DAC 6,H31 @,, HALT H31 06785 00012 04970 R31OK BC2 R31,,, LOOP ON SW 2 06796 46 06616 00200 04980 B R32,,, CONTINUE TO NEXT ROUTINE 06808 49 06844 00000 04990* 05000* ROUTINE 32 05010* BX - ADD/OVERFLOW TO XR, TEST RESULT AND OVFL NOT SET 05020* 05030 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGIST 06829 00010 05040 DSC 1,0,, SLACK DIGIT 06830 00001 05050 DC 5,22221,, EXPECTED RESULT 06835 00005 05060 DSC 1,0,, SLACK DIGIT 06836 00001 05070 DC 2,99,, 2 GUARD, 5 SOURCE DIGITS 06838 00002 05080 DC 5,66666,, 06843 00005 05090 R32 TF BAND1+XR3,R32-15,, CLEAR XR 2,3 FLAGS 06844 26 00319 06829 05100 60 *+12,1,, BS, SELECT XR BAND 1 06856 60 06868 00001 05110 66 *+12,0,9, BLXM, INITIALIZE XR 2 06868 66 06880 00-00 05120 66 *+12,55555,910, BLXM, INITIALIZE XR 3 06880 66 06892 55NN5 05130 BV *+12,,, RESET OVERFLOW INDICATOR 06892 46 06904 01400 05140 61 *+12,R32-1,910, BX, ADD WITH OVERFLOW TO XR 3 06904 61 06916 06QM3 05150 BNP R32E,,, CHECK HP INDICATOR IS SET 06916 47 07000 01100 05160 BV R32E,,, CHECK OVFL INDICATOR IS NOT SET 06928 46 07000 01400 05170 CM BAND1+XR2,0,, CHECK ONLY 5 DIGITS AFFECTED 06940 14 00314 -0000 05180 BNE R32E,,, 06952 47 07000 01200 05190 C BAND1+XR3,R32-9,, CHECK EXPECTED RESULT 06964 24 00319 06835 05200 BNE R32E,,, 06976 47 07000 01200 05210 B R32OK,,, BR ON SUCCESS 06988 49 07048 00000 05220 R32E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 07000 46 07024 00100 05230 WATY *+25,, 07012 39 07037 00100 05240 BNC3 *+24,,, NO HALT ON SW 3 07024 47 07048 00300 05250 DAC 6,H32 @,, HALT H32 07037 00012 05260 R32OK BC2 R32,,, LOOP ON SW 2 07048 46 06844 00200 05270 B R33,,, CONTINUE TO NEXT ROUTINE 07060 49 07096 00000 05280* 05290* ROUTINE 33 05300* BX - ADD WITH Q FIELD LONGER THAN XR, TEST OVFL SET 05310* 05320 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGS 07081 00010 05330 DSC 1,0,, SLACK DIGIT 07082 00001 05340 DC 5,66666,, EXPECTED RESULT 07087 00005 05350 DSC 1,0,, SLACK DIGIT 07088 00001 05360 DC 7,9911111,, 7 SOURCE DIGITS 07095 00007 05370 R33 TF BAND1+XR3,R33-15,, CLEAR XR 2,3 FLAGS 07096 26 00319 07081 05380 60 *+12,1,, BS, SELECT XR BAND 1 07108 60 07120 00001 05390 66 *+12,0,9, BLXM, INITIALIZE XR 2 07120 66 07132 00-00 05400 66 *+12,55555,910, BLXM, INITIALIZE XR 3 07132 66 07144 55NN5 05410 BV *+12,,, RESET OVERFLOW INDICATOR 07144 46 07156 01400 05420 61 *+12,R33-1,910, BX, ADD WITH OVERFLOW TO XR 3 07156 61 07168 07-R5 05430 BNP R33E,,, CHECK HP INDICATOR IS SET 07168 47 07252 01100 05440 BNV R33E,,, CHECK OVFL INDICATOR IS SET 07180 47 07252 01400 05450 CM BAND1+XR2,0,, CHECK ONLY 5 DIGITS AFFECTED 07192 14 00314 -0000 05460 BNE R33E,,, 07204 47 07252 01200 05470 C BAND1+XR3,R33-9,, CHECK EXPECTED RESULT 07216 24 00319 07087 05480 BNE R33E,,, 07228 47 07252 01200 05490 B R33OK,,, BR ON SUCCESS 07240 49 07300 00000 05500 R33E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 07252 46 07276 00100 05510 WATY *+25,, 07264 39 07289 00100 05520 BNC3 *+24,,, NO HALT ON SW 3 07276 47 07300 00300 05530 DAC 6,H33 @,, HALT H33 07289 00012 05540 R33OK BC2 R33,,, LOOP ON SW 2 07300 46 07096 00200 05550 B R34,,, CONTINUE TO NEXT ROUTINE 07312 49 07348 00000 05560* 05570* ROUTINE 34 05580* BX - ADD WITH ZERO RESULT, TEST EZ SET 05590* 05600 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGS 07333 00010 05610 DSC 1,0,, SLACK DIGIT 07334 00001 05620 DC 5,0,, EXPECTED RESULT 07339 00005 05630 DSC 1,0,, SLACK DIGIT 07340 00001 05640 DC 2,99,, 7 SOURCE DIGITS 07342 00002 05650 DC 5,-11111,, 07347 00005 05660 R34 TF BAND1+XR3,R34-15,, CLEAR XR 2,3 FLAGS 07348 26 00319 07333 05670 60 *+12,1,, BS, SELECT XR BAND 1 07360 60 07372 00001 05680 66 *+12,0,9, BLXM, INITIALIZE XR 2 07372 66 07384 00-00 05690 66 *+12,11111,910, BLXM, INITIALIZE XR 3 07384 66 07396 11JJ1 05700 BV *+12,,, RESET OVERFLOW INDICATOR 07396 46 07408 01400 05710 61 *+12,R34-1,910, BX, ADD NEGATIVE TO XR 3 07408 61 07420 07LM7 05720 BNE R34E,,, CHECK EZ INDICATOR IS SET 07420 47 07504 01200 05730 BV R34E,,, CHECK OVFL INDICATOR IS NOT SET 07432 46 07504 01400 05740 CM BAND1+XR2,0,, CHECK ONLY 5 DIGITS AFFECTED 07444 14 00314 -0000 05750 BNE R34E,,, 07456 47 07504 01200 05760 C BAND1+XR3,R34-9,, CHECK EXPECTED RESULT 07468 24 00319 07339 05770 BNE R34E,,, 07480 47 07504 01200 05780 B R34OK,,, BR ON SUCCESS 07492 49 07552 00000 05790 R34E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 07504 46 07528 00100 05800 WATY *+25,, 07516 39 07541 00100 05810 BNC3 *+24,,, NO HALT ON SW 3 07528 47 07552 00300 05820 DAC 6,H34 @,, HALT H34 07541 00012 05830 R34OK BC2 R34,,, LOOP ON SW 2 07552 46 07348 00200 05840 B R35,,, CONTINUE TO NEXT ROUTINE 07564 49 07620 00000 05850* 05860* ROUTINE 35 05870* BX - ADD TO MULTIPLE XR, TEST RESULT AND HP SET 05880* 05890 DC 15,001239876543210,, INITIALIZE 3 REGISTERS 07590 00015 05900 DC 15,011111111111109,, EXPECTED RESULT 07605 00015 05910 DC 14, 09871234567899,, 14 ADDEND DIGITS 07619 00014 05920 R35 TF BAND2+XR7,R35-30,, INITIALIZE XR 5,6,7 07620 26 00379 07590 05930 60 *+12,2,, BS, SELECT XR BAND 2 07632 60 07644 00002 05940 66 *+12,0,8, BLXM, INITIALIZE XR 4 07644 66 07656 0-000 05950 61 *+12,R35-1,8910, BX, ADD TO XR 7 07656 61 07668 0POJ9 05960 BNP R35E,,, CHECK HP INDICATOR IS SET 07668 47 07848 01100 05970 CM BAND2+XR4,0,, CHECK XR 4 NOT AFFECTED 07680 14 00364 -0000 05980 BNE R35E,,, 07692 47 07848 01200 05990 C BAND2+XR7,R35-15,, CHECK EXPECTED RESULT 07704 24 00379 07605 06000 BNE R35E,,, 07716 47 07848 01200 06010 67 *+12,PROD,8910, BSX, STORE XR 7 07728 67 07740 0--R9 06020 CM PROD,11109,, CHECK XR 7 RESULT 07740 14 00099 J1109 06030 BNE R35E,,, 07752 47 07848 01200 06040 67 *+12,PROD,89, BSX, STORE XR 6 07764 67 07776 0--99 06050 CM PROD,11111,, CHECK XR 6 RESULT 07776 14 00099 J1111 06060 BNE R35E,,, 07788 47 07848 01200 06070 67 *+12,PROD,810, BSX, STORE XR 5 07800 67 07812 0-0R9 06080 CM PROD,01111,, CHECK XR 5 RESULT 07812 14 00099 -1111 06090 BNE R35E,,, 07824 47 07848 01200 06100 B R35OK,,, BR ON SUCCESS 07836 49 07896 00000 06110 R35E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 07848 46 07872 00100 06120 WATY *+25,, 07860 39 07885 00100 06130 BNC3 *+24,,, NO HALT ON SW 3 07872 47 07896 00300 06140 DAC 6,H35 @,, HALT H35 07885 00012 06150 R35OK BC2 R35,,, LOOP ON SW 2 07896 46 07620 00200 06160 B R36,,, CONTINUE TO NEXT ROUTINE 07908 49 07964 00000 06170* 06180* ROUTINE 36 06190* BX - ADD NEG TO MULTIPLE XR, TEST RESULT AND EZ/HP NOT SET 06200* 06210 DC 15,001239876543210,, INITIALIZE 3 REGISTERS 07934 00015 06220 DC 15,-08631358024689,, EXPECTED RESULT 07949 00015 06230 DC 14,-09871234567899,, 14 ADDEND DIGITS 07963 00014 06240 R36 TF BAND2+XR7,R36-30,, INITIALIZE XR 5,6,7 07964 26 00379 07934 06250 60 *+12,2,, BS, SELECT XR BAND 2 07976 60 07988 00002 06260 66 *+12,0,8, BLXM, INITIALIZE XR 4 07988 66 08000 0-000 06270 61 *+12,R36-1,8910, BX, ADD TO XR 7 08000 61 08012 0PRO3 06280 BNN R36E,,, CHECK EZ/HP INDICATORS NOT SET 08012 46 08192 01300 06290 CM BAND2+XR4,0,, CHECK XR 4 NOT AFFECTED 08024 14 00364 -0000 06300 BNE R36E,,, 08036 47 08192 01200 06310 C BAND2+XR7,R36-15,, CHECK EXPECTED RESULT 08048 24 00379 07949 06320 BNE R36E,,, 08060 47 08192 01200 06330 67 *+12,PROD,8910, BSX, STORE XR 7 08072 67 08084 0--R9 06340 CM PROD,-24689,, CHECK XR 7 RESULT 08084 14 00099 K468R 06350 BNE R36E,,, 08096 47 08192 01200 06360 67 *+12,PROD,89, BSX, STORE XR 6 08108 67 08120 0--99 06370 CM PROD,13580,, CHECK XR 6 RESULT 08120 14 00099 J3580 06380 BNE R36E,,, 08132 47 08192 01200 06390 67 *+12,PROD,810, BSX, STORE XR 5 08144 67 08156 0-0R9 06400 CM PROD,00863,, CHECK XR 5 RESULT 08156 14 00099 -0863 06410 BNE R36E,,, 08168 47 08192 01200 06420 B R36OK,,, BR ON SUCCESS 08180 49 08240 00000 06430 R36E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 08192 46 08216 00100 06440 WATY *+25,, 08204 39 08229 00100 06450 BNC3 *+24,,, NO HALT ON SW 3 08216 47 08240 00300 06460 DAC 6,H36 @,, HALT H36 08229 00012 06470 R36OK BC2 R36,,, LOOP ON SW 2 08240 46 07964 00200 06480 B R37,,, CONTINUE TO NEXT ROUTINE 08252 49 08310 00000 06490* 06500* ROUTINE 37 06510* BX - ADD/OVERFLOW TO MULTIPLE XR, TEST OVFL NOT SET 06520* 06530 DC 15,987654321098765,, INITIALIZE 3 REGISTERS 08278 00015 06540 DC 15,222222211222221,, EXPECTED RESULT 08293 00015 06550 DC 15,234567890123456,, 15 ADDEND DIGITS 08308 00015 06560 DSC 1,0,, ADJUST TO EVEN ADDRESS 08309 00001 06570 R37 TF BAND2+XR7,R37-32,, INITIALIZE XR 5,6,7 08310 26 00379 08278 06580 60 *+12,2,, BS, SELECT XR BAND 2 08322 60 08334 00002 06590 66 *+12,0,8, BLXM, INITIALIZE XR 4 08334 66 08346 0-000 06600 61 *+12,R37-2,8910, BX, ADD TO XR 7 08346 61 08358 0QL-8 06610 BNP R37E,,, CHECK HP INDICATOR SET 08358 47 08538 01100 06620 CM BAND2+XR4,0,, CHECK XR 4 NOT AFFECTED 08370 14 00364 -0000 06630 BNE R37E,,, 08382 47 08538 01200 06640 C BAND2+XR7,R37-17,, CHECK EXPECTED RESULT 08394 24 00379 08293 06650 BNE R37E,,, 08406 47 08538 01200 06660 67 *+12,PROD,8910, BSX, STORE XR 7 08418 67 08430 0--R9 06670 CM PROD,22221,, CHECK XR 7 RESULT 08430 14 00099 K2221 06680 BNE R37E,,, 08442 47 08538 01200 06690 67 *+12,PROD,89, BSX, STORE XR 6 08454 67 08466 0--99 06700 CM PROD,22112,, CHECK XR 6 RESULT 08466 14 00099 K2112 06710 BNE R37E,,, 08478 47 08538 01200 06720 67 *+12,PROD,810, BSX, STORE XR 5 08490 67 08502 0-0R9 06730 CM PROD,22222,, CHECK XR 5 RESULT 08502 14 00099 K2222 06740 BNE R37E,,, 08514 47 08538 01200 06750 B R37OK,,, BR ON SUCCESS 08526 49 08586 00000 06760 R37E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 08538 46 08562 00100 06770 WATY *+25,, 08550 39 08575 00100 06780 BNC3 *+24,,, NO HALT ON SW 3 08562 47 08586 00300 06790 DAC 6,H37 @,, HALT H37 08575 00012 06800 R37OK BC2 R37,,, LOOP ON SW 2 08586 46 08310 00200 06810 B R38,,, CONTINUE TO NEXT ROUTINE 08598 49 08610 00000 06820* 06830 R38 B R40,,, (RFE) 08610 49 08638 00000 06840* 06850* ROUTINE 40 06860* BXM - ADD TO XR, TEST RESULT AND HP SET 06870* 06880 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGIST 08631 00010 06890 DSC 1,0,, SLACK DIGIT 08632 00001 06900 DC 5,24690,, EXPECTED RESULT 08637 00005 06910 R40 TF BAND1+XR5,R40-7,, CLEAR XR 4,5 FLAGS 08638 26 00329 08631 06920 60 *+12,1,, BS, SELECT XR BAND 1 08650 60 08662 00001 06930 66 *+12,0,8, BLXM, INITIALIZE XR 4 08662 66 08674 0-000 06940 66 *+12,12345,810, BLXM, INITIALIZE XR 5 08674 66 08686 1K3M5 06950 62 *+12,12345,810, BXM, ADD TO XR 5 08686 62 08698 1K3M5 06960 BNP R40E,,, CHECK HP INDICATOR IS SET 08698 47 08770 01100 06970 CM BAND1+XR4,0,, CHECK ONLY 5 DIGITS AFFECTED 08710 14 00324 -0000 06980 BNE R40E,,, 08722 47 08770 01200 06990 C BAND1+XR5,R40-1,, CHECK EXPECTED RESULT 08734 24 00329 08637 07000 BNE R40E,,, 08746 47 08770 01200 07010 B R40OK,,, BR ON SUCCESS 08758 49 08818 00000 07020 R40E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 08770 46 08794 00100 07030 WATY *+25,, 08782 39 08807 00100 07040 BNC3 *+24,,, NO HALT ON SW 3 08794 47 08818 00300 07050 DAC 6,H40 @,, HALT H40 08807 00012 07060 R40OK BC2 R40,,, LOOP ON SW 2 08818 46 08638 00200 07070 B R41,,, CONTINUE TO NEXT ROUTINE 08830 49 08858 00000 07080* 07090* ROUTINE 41 07100* BXM - ADD NEGATIVE TO XR, TEST RESULT AND EZ/HP NOT SET 07110* 07120 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGIST 08851 00010 07130 DSC 1,0,, SLACK DIGIT 08852 00001 07140 DC 5,-12345,, EXPECTED RESULT 08857 00005 07150 R41 TF BAND1+XR3,R41-7,, CLEAR XR 2,3 FLAGS 08858 26 00319 08851 07160 60 *+12,1,, BS, SELECT XR BAND 1 08870 60 08882 00001 07170 66 *+12,0,9, BLXM, INITIALIZE XR 2 08882 66 08894 00-00 07180 66 *+12,12345,910, BLXM, INITIALIZE XR 3 08894 66 08906 12LM5 07190 62 *+12,-24690,910, BXM, ADD NEGATIVE TO XR 3 08906 62 08918 24OR- 07200 BNN R41E,,, CHECK EZ/HP INDICATORS NOT SET 08918 46 08990 01300 07210 CM BAND1+XR2,0,, CHECK ONLY 5 DIGITS AFFECTED 08930 14 00314 -0000 07220 BNE R41E,,, 08942 47 08990 01200 07230 C BAND1+XR3,R41-1,, CHECK EXPECTED RESULT 08954 24 00319 08857 07240 BNE R41E,,, 08966 47 08990 01200 07250 B R41OK,,, BR ON SUCCESS 08978 49 09038 00000 07260 R41E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 08990 46 09014 00100 07270 WATY *+25,, 09002 39 09027 00100 07280 BNC3 *+24,,, NO HALT ON SW 3 09014 47 09038 00300 07290 DAC 6,H41 @,, HALT H41 09027 00012 07300 R41OK BC2 R41,,, LOOP ON SW 2 09038 46 08858 00200 07310 B R42,,, CONTINUE TO NEXT ROUTINE 09050 49 09078 00000 07320* 07330* ROUTINE 42 07340* BXM - ADD/OVERFLOW TO XR, TEST RESULT AND OVFL NOT SET 07350* 07360 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGIST 09071 00010 07370 DSC 1,0,, SLACK DIGIT 09072 00001 07380 DC 5,22221,, EXPECTED RESULT 09077 00005 07390 R42 TF BAND1+XR3,R42-7,, CLEAR XR 2,3 FLAGS 09078 26 00319 09071 07400 60 *+12,1,, BS, SELECT XR BAND 1 09090 60 09102 00001 07410 66 *+12,0,9, BLXM, INITIALIZE XR 2 09102 66 09114 00-00 07420 66 *+12,55555,910, BLXM, INITIALIZE XR 3 09114 66 09126 55NN5 07430 BV *+12,,, RESET OVERFLOW INDICATOR 09126 46 09138 01400 07440 62 *+12,66666,910, BXM, ADD WITH OVERFLOW TO XR 3 09138 62 09150 66OO6 07450 BNP R42E,,, CHECK HP INDICATOR IS SET 09150 47 09234 01100 07460 BV R42E,,, CHECK OVFL INDICATOR IS NOT SET 09162 46 09234 01400 07470 CM BAND1+XR2,0,, CHECK ONLY 5 DIGITS AFFECTED 09174 14 00314 -0000 07480 BNE R42E,,, 09186 47 09234 01200 07490 C BAND1+XR3,R42-1,, CHECK EXPECTED RESULT 09198 24 00319 09077 07500 BNE R42E,,, 09210 47 09234 01200 07510 B R42OK,,, BR ON SUCCESS 09222 49 09282 00000 07520 R42E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 09234 46 09258 00100 07530 WATY *+25,, 09246 39 09271 00100 07540 BNC3 *+24,,, NO HALT ON SW 3 09258 47 09282 00300 07550 DAC 6,H42 @,, HALT H42 09271 00012 07560 R42OK BC2 R42,,, LOOP ON SW 2 09282 46 09078 00200 07570 B R43,,, CONTINUE TO NEXT ROUTINE 09294 49 09322 00000 07580* 07590* ROUTINE 43 07600* BXM - ADD WITH Q FIELD LONGER THAN XR, TEST OVFL SET 07610* 07620 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGS 09315 00010 07630 DSC 3,0,, EXPECTED RESULT 09316 00003 07640 DC 3,666,, EXPECTED RESULT 09321 00003 07650 R43 TF BAND1+XR3,R43-7,, CLEAR XR 2,3 FLAGS 09322 26 00319 09315 07660 60 *+12,1,, BS, SELECT XR BAND 1 09334 60 09346 00001 07670 66 *+12,0,9, BLXM, INITIALIZE XR 2 09346 66 09358 00-00 07680 66 *+12,55555,910, BLXM, INITIALIZE XR 3 09358 66 09370 55NN5 07690 SF BAND1+XR3-2,,, MAKE XR 3 A SHORTER FIELD 09370 32 00317 00000 07700 BV *+12,,, RESET OVERFLOW INDICATOR 09382 46 09394 01400 07710 62 *+12,11111,910, BXM, ADD WITH OVERFLOW TO XR 3 09394 62 09406 11JJ1 07720 BNP R43E,,, CHECK HP INDICATOR IS SET 09406 47 09490 01100 07730 BNV R43E,,, CHECK OVFL INDICATOR IS SET 09418 47 09490 01400 07740 CM BAND1+XR2,0,, CHECK ONLY 5 DIGITS AFFECTED 09430 14 00314 -0000 07750 BNE R43E,,, 09442 47 09490 01200 07760 C BAND1+XR3,R43-1,, CHECK EXPECTED RESULT 09454 24 00319 09321 07770 BNE R43E,,, 09466 47 09490 01200 07780 B R43OK,,, BR ON SUCCESS 09478 49 09538 00000 07790 R43E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 09490 46 09514 00100 07800 WATY *+25,, 09502 39 09527 00100 07810 BNC3 *+24,,, NO HALT ON SW 3 09514 47 09538 00300 07820 DAC 6,H43 @,, HALT H43 09527 00012 07830 R43OK BC2 R43,,, LOOP ON SW 2 09538 46 09322 00200 07840 B R44,,, CONTINUE TO NEXT ROUTINE 09550 49 09578 00000 07850* 07860* ROUTINE 44 07870* BXM - ADD WITH ZERO RESULT, TEST EZ SET 07880* 07890 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGS 09571 00010 07900 DSC 1,0,, SLACK DIGIT 09572 00001 07910 DC 5,0,, EXPECTED RESULT 09577 00005 07920 R44 TF BAND1+XR3,R44-7,, CLEAR XR 2,3 FLAGS 09578 26 00319 09571 07930 60 *+12,1,, BS, SELECT XR BAND 1 09590 60 09602 00001 07940 66 *+12,0,9, BLXM, INITIALIZE XR 2 09602 66 09614 00-00 07950 66 *+12,11111,910, BLXM, INITIALIZE XR 3 09614 66 09626 11JJ1 07960 BV *+12,,, RESET OVERFLOW INDICATOR 09626 46 09638 01400 07970 62 *+12,-11111,910, BXM, ADD NEGATIVE TO XR 3 09638 62 09650 11JJJ 07980 BNE R44E,,, CHECK EZ INDICATOR IS SET 09650 47 09734 01200 07990 BV R44E,,, CHECK OVFL INDICATOR IS NOT SET 09662 46 09734 01400 08000 CM BAND1+XR2,0,, CHECK ONLY 5 DIGITS AFFECTED 09674 14 00314 -0000 08010 BNE R44E,,, 09686 47 09734 01200 08020 C BAND1+XR3,R44-1,, CHECK EXPECTED RESULT 09698 24 00319 09577 08030 BNE R44E,,, 09710 47 09734 01200 08040 B R44OK,,, BR ON SUCCESS 09722 49 09782 00000 08050 R44E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 09734 46 09758 00100 08060 WATY *+25,, 09746 39 09771 00100 08070 BNC3 *+24,,, NO HALT ON SW 3 09758 47 09782 00300 08080 DAC 6,H44 @,, HALT H44 09771 00012 08090 R44OK BC2 R44,,, LOOP ON SW 2 09782 46 09578 00200 08100 B R45,,, CONTINUE TO NEXT ROUTINE 09794 49 09836 00000 08110* 08120* ROUTINE 45 08130* BXM - ADD TO MULTIPLE XR, TEST RESULT AND HP SET 08140* 08150 DC 15,001239876543210,, INITIALIZE 3 REGISTERS 09820 00015 08160 DC 15,001239876611109,, EXPECTED RESULT 09835 00015 08170 R45 TF BAND2+XR7,R45-16,, INITIALIZE XR 5,6,7 09836 26 00379 09820 08180 60 *+12,2,, BS, SELECT XR BAND 2 09848 60 09860 00002 08190 66 *+12,0,8, BLXM, INITIALIZE XR 4 09860 66 09872 0-000 08200 62 *+12,67899,8910, BXM, ADD TO XR 7 09872 62 09884 6PQR9 08210 BNP R45E,,, CHECK HP INDICATOR IS SET 09884 47 10064 01100 08220 CM BAND2+XR4,0,, CHECK XR 4 NOT AFFECTED 09896 14 00364 -0000 08230 BNE R45E,,, 09908 47 10064 01200 08240 C BAND2+XR7,R45-1,, CHECK EXPECTED RESULT 09920 24 00379 09835 08250 BNE R45E,,, 09932 47 10064 01200 08260 67 *+12,PROD,8910, BSX, STORE XR 7 09944 67 09956 0--R9 08270 CM PROD,11109,, CHECK XR 7 RESULT 09956 14 00099 J1109 08280 BNE R45E,,, 09968 47 10064 01200 08290 67 *+12,PROD,89, BSX, STORE XR 6 09980 67 09992 0--99 08300 CM PROD,98766,, CHECK XR 6 RESULT 09992 14 00099 R8766 08310 BNE R45E,,, 10004 47 10064 01200 08320 67 *+12,PROD,810, BSX, STORE XR 5 10016 67 10028 0-0R9 08330 CM PROD,00123,, CHECK XR 5 RESULT 10028 14 00099 -0123 08340 BNE R45E,,, 10040 47 10064 01200 08350 B R45OK,,, BR ON SUCCESS 10052 49 10112 00000 08360 R45E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 10064 46 10088 00100 08370 WATY *+25,, 10076 39 10101 00100 08380 BNC3 *+24,,, NO HALT ON SW 3 10088 47 10112 00300 08390 DAC 6,H45 @,, HALT H45 10101 00012 08400 R45OK BC2 R45,,, LOOP ON SW 2 10112 46 09836 00200 08410 B R46,,, CONTINUE TO NEXT ROUTINE 10124 49 10166 00000 08420* 08430* ROUTINE 46 08440* BXM - ADD NEG TO MULTIPLE XR, TEST RESULT AND EZ/HP NOT SET 08450* 08460 DC 15,001239876543210,, INITIALIZE 3 REGISTERS 10150 00015 08470 DC 15,001239876475311,, EXPECTED RESULT 10165 00015 08480 R46 TF BAND2+XR7,R46-16,, INITIALIZE XR 5,6,7 10166 26 00379 10150 08490 60 *+12,2,, BS, SELECT XR BAND 2 10178 60 10190 00002 08500 66 *+12,0,8, BLXM, INITIALIZE XR 4 10190 66 10202 0-000 08510 62 *+12,-67899,8910, BXM, ADD TO XR 7 10202 62 10214 6PQRR 08520 BNP R46E,,, CHECK EZ/HP INDICATORS NOT SET 10214 47 10394 01100 08530 CM BAND2+XR4,0,, CHECK XR 4 NOT AFFECTED 10226 14 00364 -0000 08540 BNE R46E,,, 10238 47 10394 01200 08550 C BAND2+XR7,R46-1,, CHECK EXPECTED RESULT 10250 24 00379 10165 08560 BNE R46E,,, 10262 47 10394 01200 08570 67 *+12,PROD,8910, BSX, STORE XR 7 10274 67 10286 0--R9 08580 CM PROD,75311,, CHECK XR 7 RESULT 10286 14 00099 P5311 08590 BNE R46E,,, 10298 47 10394 01200 08600 67 *+12,PROD,89, BSX, STORE XR 6 10310 67 10322 0--99 08610 CM PROD,98764,, CHECK XR 6 RESULT 10322 14 00099 R8764 08620 BNE R46E,,, 10334 47 10394 01200 08630 67 *+12,PROD,810, BSX, STORE XR 5 10346 67 10358 0-0R9 08640 CM PROD,00123,, CHECK XR 5 RESULT 10358 14 00099 -0123 08650 BNE R46E,,, 10370 47 10394 01200 08660 B R46OK,,, BR ON SUCCESS 10382 49 10442 00000 08670 R46E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 10394 46 10418 00100 08680 WATY *+25,, 10406 39 10431 00100 08690 BNC3 *+24,,, NO HALT ON SW 3 10418 47 10442 00300 08700 DAC 6,H46 @,, HALT H46 10431 00012 08710 R46OK BC2 R46,,, LOOP ON SW 2 10442 46 10166 00200 08720 B R47,,, CONTINUE TO NEXT ROUTINE 10454 49 10466 00000 08730* 08740 R47 B R50,,, (RFE) 10466 49 10502 00000 08750* 08760* ROUTINE 50 08770* BXC - ADD TO XR, TEST RESULT AND HP SET 08780* 08790 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGIST 10487 00010 08800 DSC 1,0,, SLACK DIGIT 10488 00001 08810 DC 5,24690,, EXPECTED RESULT 10493 00005 08820 DSC 1,0,, SLACK DIGIT 10494 00001 08830 DC 2,99,, 2 GUARD, 5 SOURCE DIGITS 10496 00002 08840 DC 5,12345,, 10501 00005 08850 R50 TF BAND1+XR5,R50-15,, CLEAR XR 4,5 FLAGS 10502 26 00329 10487 08860 60 *+12,1,, BS, SELECT XR BAND 1 10514 60 10526 00001 08870 66 *+12,0,8, BLXM, INITIALIZE XR 4 10526 66 10538 0-000 08880 65 *+12,R50-1,810, BLX, INITIALIZE XR 5 10538 65 10550 1-5-1 08890 63 *+24,R50-1,810, BCX, ADD TO XR 5, EXPECT BRANCH 10550 63 10574 1-5-1 08900 B R50E,,, ERROR - DID NOT BRANCH 10562 49 10646 00000 08910 BNP R50E,,, CHECK HP INDICATOR IS SET 10574 47 10646 01100 08920 CM BAND1+XR4,0,, CHECK ONLY 5 DIGITS AFFECTED 10586 14 00324 -0000 08930 BNE R50E,,, 10598 47 10646 01200 08940 C BAND1+XR5,R50-9,, CHECK EXPECTED RESULT 10610 24 00329 10493 08950 BNE R50E,,, 10622 47 10646 01200 08960 B R50OK,,, BR ON SUCCESS 10634 49 10694 00000 08970 R50E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 10646 46 10670 00100 08980 WATY *+25,, 10658 39 10683 00100 08990 BNC3 *+24,,, NO HALT ON SW 3 10670 47 10694 00300 09000 DAC 6,H50 @,, HALT H50 10683 00012 09010 R50OK BC2 R50,,, LOOP ON SW 2 10694 46 10502 00200 09020 B R51,,, CONTINUE TO NEXT ROUTINE 10706 49 10742 00000 09030* 09040* ROUTINE 51 09050* BXC - ADD NEGATIVE TO XR, TEST RESULT AND EZ/HP NOT SET 09060* 09070 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGIST 10727 00010 09080 DSC 1,0,, SLACK DIGIT 10728 00001 09090 DC 5,-12345,, EXPECTED RESULT 10733 00005 09100 DSC 1,0,, SLACK DIGIT 10734 00001 09110 DC 2,99,, 2 GUARD, 5 SOURCE DIGITS 10736 00002 09120 DC 5,-24690,, 10741 00005 09130 R51 TF BAND1+XR3,R51-15,, CLEAR XR 2,3 FLAGS 10742 26 00319 10727 09140 60 *+12,1,, BS, SELECT XR BAND 1 10754 60 10766 00001 09150 66 *+12,0,9, BLXM, INITIALIZE XR 2 10766 66 10778 00-00 09160 66 *+12,12345,910, BLXM, INITIALIZE XR 3 10778 66 10790 12LM5 09170 63 *+24,R51-1,910, BCX, ADD NEGATIVE TO XR 3, EXPECT N 10790 63 10814 10PM1 09180 B *+24,,, OKAY - DID NOT BRANCH 10802 49 10826 00000 09190 B R51E,,, ERROR - BRANCH TAKEN 10814 49 10898 00000 09200 BNN R51E,,, CHECK EZ/HP INDICATORS NOT SET 10826 46 10898 01300 09210 CM BAND1+XR2,0,, CHECK ONLY 5 DIGITS AFFECTED 10838 14 00314 -0000 09220 BNE R51E,,, 10850 47 10898 01200 09230 C BAND1+XR3,R51-9,, CHECK EXPECTED RESULT 10862 24 00319 10733 09240 BNE R51E,,, 10874 47 10898 01200 09250 B R51OK,,, BR ON SUCCESS 10886 49 10946 00000 09260 R51E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 10898 46 10922 00100 09270 WATY *+25,, 10910 39 10935 00100 09280 BNC3 *+24,,, NO HALT ON SW 3 10922 47 10946 00300 09290 DAC 6,H51 @,, HALT H51 10935 00012 09300 R51OK BC2 R51,,, LOOP ON SW 2 10946 46 10742 00200 09310 B R52,,, CONTINUE TO NEXT ROUTINE 10958 49 10994 00000 09320* 09330* ROUTINE 52 09340* BXC - ADD/OVERFLOW TO XR, TEST RESULT AND OVFL NOT SET 09350* 09360 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGIST 10979 00010 09370 DSC 1,0,, SLACK DIGIT 10980 00001 09380 DC 5,22221,, EXPECTED RESULT 10985 00005 09390 DSC 1,0,, SLACK DIGIT 10986 00001 09400 DC 2,99,, 2 GUARD, 5 SOURCE DIGITS 10988 00002 09410 DC 5,66666,, 10993 00005 09420 R52 TF BAND1+XR3,R52-15,, CLEAR XR 2,3 FLAGS 10994 26 00319 10979 09430 60 *+12,1,, BS, SELECT XR BAND 1 11006 60 11018 00001 09440 66 *+12,0,9, BLXM, INITIALIZE XR 2 11018 66 11030 00-00 09450 66 *+12,55555,910, BLXM, INITIALIZE XR 3 11030 66 11042 55NN5 09460 BV *+12,,, RESET OVERFLOW INDICATOR 11042 46 11054 01400 09470 63 *+24,R52-1,910, BCX, ADD WITH OVERFLOW, NO BRANCH 11054 63 11078 10RR3 09480 B *+24,,, OKAY - DID NOT BRANCH 11066 49 11090 00000 09490 B R52E,,, ERROR - BRANCH TAKEN 11078 49 11174 00000 09500 BNP R52E,,, CHECK HP INDICATOR IS SET 11090 47 11174 01100 09510 BV R52E,,, CHECK OVFL INDICATOR IS NOT SET 11102 46 11174 01400 09520 CM BAND1+XR2,0,, CHECK ONLY 5 DIGITS AFFECTED 11114 14 00314 -0000 09530 BNE R52E,,, 11126 47 11174 01200 09540 C BAND1+XR3,R52-9,, CHECK EXPECTED RESULT 11138 24 00319 10985 09550 BNE R52E,,, 11150 47 11174 01200 09560 B R52OK,,, BR ON SUCCESS 11162 49 11222 00000 09570 R52E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 11174 46 11198 00100 09580 WATY *+25,, 11186 39 11211 00100 09590 BNC3 *+24,,, NO HALT ON SW 3 11198 47 11222 00300 09600 DAC 6,H52 @,, HALT H52 11211 00012 09610 R52OK BC2 R52,,, LOOP ON SW 2 11222 46 10994 00200 09620 B R53,,, CONTINUE TO NEXT ROUTINE 11234 49 11270 00000 09630* 09640* ROUTINE 53 09650* BXC - ADD WITH Q FIELD LONGER THAN XR, TEST OVFL SET 09660* 09670 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGS 11255 00010 09680 DSC 1,0,, SLACK DIGIT 11256 00001 09690 DC 5,66666,, EXPECTED RESULT 11261 00005 09700 DSC 1,0,, SLACK DIGIT 11262 00001 09710 DC 7,9911111,, 7 SOURCE DIGITS 11269 00007 09720 R53 TF BAND1+XR3,R53-15,, CLEAR XR 2,3 FLAGS 11270 26 00319 11255 09730 60 *+12,1,, BS, SELECT XR BAND 1 11282 60 11294 00001 09740 66 *+12,0,9, BLXM, INITIALIZE XR 2 11294 66 11306 00-00 09750 66 *+12,55555,910, BLXM, INITIALIZE XR 3 11306 66 11318 55NN5 09760 BV *+12,,, RESET OVERFLOW INDICATOR 11318 46 11330 01400 09770 63 *+24,R53-1,910, BCX, ADD WITH OVERFLOW TO XR 3, BRA 11330 63 11354 11KO9 09780 B R53E,,, ERROR - DID NOT BRANCH 11342 49 11438 00000 09790 BNP R53E,,, CHECK HP INDICATOR IS SET 11354 47 11438 01100 09800 BNV R53E,,, CHECK OVFL INDICATOR IS SET 11366 47 11438 01400 09810 CM BAND1+XR2,0,, CHECK ONLY 5 DIGITS AFFECTED 11378 14 00314 -0000 09820 BNE R53E,,, 11390 47 11438 01200 09830 C BAND1+XR3,R53-9,, CHECK EXPECTED RESULT 11402 24 00319 11261 09840 BNE R53E,,, 11414 47 11438 01200 09850 B R53OK,,, BR ON SUCCESS 11426 49 11486 00000 09860 R53E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 11438 46 11462 00100 09870 WATY *+25,, 11450 39 11475 00100 09880 BNC3 *+24,,, NO HALT ON SW 3 11462 47 11486 00300 09890 DAC 6,H53 @,, HALT H53 11475 00012 09900 R53OK BC2 R53,,, LOOP ON SW 2 11486 46 11270 00200 09910 B R54,,, CONTINUE TO NEXT ROUTINE 11498 49 11534 00000 09920* 09930* ROUTINE 54 09940* BXC - ADD WITH ZERO RESULT, TEST EZ SET 09950* 09960 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGS 11519 00010 09970 DSC 1,0,, SLACK DIGIT 11520 00001 09980 DC 5,0,, EXPECTED RESULT 11525 00005 09990 DSC 1,0,, SLACK DIGIT 11526 00001 10000 DC 2,99,, 7 SOURCE DIGITS 11528 00002 10010 DC 5,-11111,, 11533 00005 10020 R54 TF BAND1+XR3,R54-15,, CLEAR XR 2,3 FLAGS 11534 26 00319 11519 10030 60 *+12,1,, BS, SELECT XR BAND 1 11546 60 11558 00001 10040 66 *+12,0,9, BLXM, INITIALIZE XR 2 11558 66 11570 00-00 10050 66 *+12,11111,910, BLXM, INITIALIZE XR 3 11570 66 11582 11JJ1 10060 BV *+12,,, RESET OVERFLOW INDICATOR 11582 46 11594 01400 10070 63 *+24,R54-1,910, BCX, ADD NEGATIVE TO XR 3, NO BRANC 11594 63 11618 11NL3 10080 B *+24,,, OKAY - DID NOT BRANCH 11606 49 11630 00000 10090 B R54E,,, ERROR - BRANCH TAKEN 11618 49 11714 00000 10100 BNE R54E,,, CHECK EZ INDICATOR IS SET 11630 47 11714 01200 10110 BV R54E,,, CHECK OVFL INDICATOR IS NOT SET 11642 46 11714 01400 10120 CM BAND1+XR2,0,, CHECK ONLY 5 DIGITS AFFECTED 11654 14 00314 -0000 10130 BNE R54E,,, 11666 47 11714 01200 10140 C BAND1+XR3,R54-9,, CHECK EXPECTED RESULT 11678 24 00319 11525 10150 BNE R54E,,, 11690 47 11714 01200 10160 B R54OK,,, BR ON SUCCESS 11702 49 11762 00000 10170 R54E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 11714 46 11738 00100 10180 WATY *+25,, 11726 39 11751 00100 10190 BNC3 *+24,,, NO HALT ON SW 3 11738 47 11762 00300 10200 DAC 6,H54 @,, HALT H54 11751 00012 10210 R54OK BC2 R54,,, LOOP ON SW 2 11762 46 11534 00200 10220 B R55,,, CONTINUE TO NEXT ROUTINE 11774 49 11830 00000 10230* 10240* ROUTINE 55 10250* BXC - ADD TO MULTIPLE XR, TEST RESULT AND HP SET 10260* 10270 DC 15,001239876543210,, INITIALIZE 3 REGISTERS 11800 00015 10280 DC 15,011111111111109,, EXPECTED RESULT 11815 00015 10290 DC 14, 09871234567899,, 14 ADDEND DIGITS 11829 00014 10300 R55 TF BAND2+XR7,R55-30,, INITIALIZE XR 5,6,7 11830 26 00379 11800 10310 60 *+12,2,, BS, SELECT XR BAND 2 11842 60 11854 00002 10320 66 *+12,0,8, BLXM, INITIALIZE XR 4 11854 66 11866 0-000 10330 63 *+24,R55-1,8910, BCX, ADD TO XR 7, BRANCH 11866 63 11890 1JQK9 10340 B R55E,,, ERROR - DID NOT BRANCH 11878 49 12070 00000 10350 BNP R55E,,, CHECK HP INDICATOR IS SET 11890 47 12070 01100 10360 CM BAND2+XR4,0,, CHECK XR 4 NOT AFFECTED 11902 14 00364 -0000 10370 BNE R55E,,, 11914 47 12070 01200 10380 C BAND2+XR7,R55-15,, CHECK EXPECTED RESULT 11926 24 00379 11815 10390 BNE R55E,,, 11938 47 12070 01200 10400 67 *+12,PROD,8910, BSX, STORE XR 7 11950 67 11962 0--R9 10410 CM PROD,11109,, CHECK XR 7 RESULT 11962 14 00099 J1109 10420 BNE R55E,,, 11974 47 12070 01200 10430 67 *+12,PROD,89, BSX, STORE XR 6 11986 67 11998 0--99 10440 CM PROD,11111,, CHECK XR 6 RESULT 11998 14 00099 J1111 10450 BNE R55E,,, 12010 47 12070 01200 10460 67 *+12,PROD,810, BSX, STORE XR 5 12022 67 12034 0-0R9 10470 CM PROD,01111,, CHECK XR 5 RESULT 12034 14 00099 -1111 10480 BNE R55E,,, 12046 47 12070 01200 10490 B R55OK,,, BR ON SUCCESS 12058 49 12118 00000 10500 R55E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 12070 46 12094 00100 10510 WATY *+25,, 12082 39 12107 00100 10520 BNC3 *+24,,, NO HALT ON SW 3 12094 47 12118 00300 10530 DAC 6,H55 @,, HALT H55 12107 00012 10540 R55OK BC2 R55,,, LOOP ON SW 2 12118 46 11830 00200 10550 B R56,,, CONTINUE TO NEXT ROUTINE 12130 49 12186 00000 10560* 10570* ROUTINE 56 10580* BXC - ADD NEG TO MULTIPLE XR, TEST RESULT AND EZ/HP NOT SET 10590* 10600 DC 15,001239876543210,, INITIALIZE 3 REGISTERS 12156 00015 10610 DC 15,-08631358024689,, EXPECTED RESULT 12171 00015 10620 DC 14,-09871234567899,, 14 ADDEND DIGITS 12185 00014 10630 R56 TF BAND2+XR7,R56-30,, INITIALIZE XR 5,6,7 12186 26 00379 12156 10640 60 *+12,2,, BS, SELECT XR BAND 2 12198 60 12210 00002 10650 66 *+12,0,8, BLXM, INITIALIZE XR 4 12210 66 12222 0-000 10660 63 *+24,R56-1,8910, BCX, ADD TO XR 7, NO BRANCH 12222 63 12246 1KJQ5 10670 B *+24,,, OKAY - NO BRANCH 12234 49 12258 00000 10680 B R56E,,, ERROR - BRANCH TAKEN 12246 49 12438 00000 10690 BNN R56E,,, CHECK EZ/HP INDICATORS NOT SET 12258 46 12438 01300 10700 CM BAND2+XR4,0,, CHECK XR 4 NOT AFFECTED 12270 14 00364 -0000 10710 BNE R56E,,, 12282 47 12438 01200 10720 C BAND2+XR7,R56-15,, CHECK EXPECTED RESULT 12294 24 00379 12171 10730 BNE R56E,,, 12306 47 12438 01200 10740 67 *+12,PROD,8910, BSX, STORE XR 7 12318 67 12330 0--R9 10750 CM PROD,-24689,, CHECK XR 7 RESULT 12330 14 00099 K468R 10760 BNE R56E,,, 12342 47 12438 01200 10770 67 *+12,PROD,89, BSX, STORE XR 6 12354 67 12366 0--99 10780 CM PROD,13580,, CHECK XR 6 RESULT 12366 14 00099 J3580 10790 BNE R56E,,, 12378 47 12438 01200 10800 67 *+12,PROD,810, BSX, STORE XR 5 12390 67 12402 0-0R9 10810 CM PROD,00863,, CHECK XR 5 RESULT 12402 14 00099 -0863 10820 BNE R56E,,, 12414 47 12438 01200 10830 B R56OK,,, BR ON SUCCESS 12426 49 12486 00000 10840 R56E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 12438 46 12462 00100 10850 WATY *+25,, 12450 39 12475 00100 10860 BNC3 *+24,,, NO HALT ON SW 3 12462 47 12486 00300 10870 DAC 6,H56 @,, HALT H56 12475 00012 10880 R56OK BC2 R56,,, LOOP ON SW 2 12486 46 12186 00200 10890 B R57,,, CONTINUE TO NEXT ROUTINE 12498 49 12556 00000 10900* 10910* ROUTINE 57 10920* BXC - ADD/OVERFLOW TO MULTIPLE XR, TEST OVFL NOT SET 10930* 10940 DC 15,987654321098765,, INITIALIZE 3 REGISTERS 12524 00015 10950 DC 15,222222211222221,, EXPECTED RESULT 12539 00015 10960 DC 15,234567890123456,, 15 ADDEND DIGITS 12554 00015 10970 DSC 1,0,, ADJUST TO EVEN ADDRESS 12555 00001 10980 R57 TF BAND2+XR7,R57-32,, INITIALIZE XR 5,6,7 12556 26 00379 12524 10990 60 *+12,2,, BS, SELECT XR BAND 2 12568 60 12580 00002 11000 66 *+12,0,8, BLXM, INITIALIZE XR 4 12580 66 12592 0-000 11010 63 *+24,R57-2,8910, BCX, ADD TO XR 7, NO BRANCH 12592 63 12616 1KNN4 11020 B *+24,,, OKAY - DID NOT BRANCH 12604 49 12628 00000 11030 B R57E,,, ERROR - BRANCH TAKEN 12616 49 12808 00000 11040 BNP R57E,,, CHECK HP INDICATOR SET 12628 47 12808 01100 11050 CM BAND2+XR4,0,, CHECK XR 4 NOT AFFECTED 12640 14 00364 -0000 11060 BNE R57E,,, 12652 47 12808 01200 11070 C BAND2+XR7,R57-17,, CHECK EXPECTED RESULT 12664 24 00379 12539 11080 BNE R57E,,, 12676 47 12808 01200 11090 67 *+12,PROD,8910, BSX, STORE XR 7 12688 67 12700 0--R9 11100 CM PROD,22221,, CHECK XR 7 RESULT 12700 14 00099 K2221 11110 BNE R57E,,, 12712 47 12808 01200 11120 67 *+12,PROD,89, BSX, STORE XR 6 12724 67 12736 0--99 11130 CM PROD,22112,, CHECK XR 6 RESULT 12736 14 00099 K2112 11140 BNE R57E,,, 12748 47 12808 01200 11150 67 *+12,PROD,810, BSX, STORE XR 5 12760 67 12772 0-0R9 11160 CM PROD,22222,, CHECK XR 5 RESULT 12772 14 00099 K2222 11170 BNE R57E,,, 12784 47 12808 01200 11180 B R57OK,,, BR ON SUCCESS 12796 49 12856 00000 11190 R57E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 12808 46 12832 00100 11200 WATY *+25,, 12820 39 12845 00100 11210 BNC3 *+24,,, NO HALT ON SW 3 12832 47 12856 00300 11220 DAC 6,H57 @,, HALT H57 12845 00012 11230 R57OK BC2 R57,,, LOOP ON SW 2 12856 46 12556 00200 11240 B R58,,, CONTINUE TO NEXT ROUTINE 12868 49 12880 00000 11250* 11260 R58 B R60,,, (RFE) 12880 49 12908 00000 11270* 11280* ROUTINE 60 11290* BXCM - ADD TO XR, TEST RESULT AND HP SET 11300* 11310 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGIST 12901 00010 11320 DSC 1,0,, SLACK DIGIT 12902 00001 11330 DC 5,24690,, EXPECTED RESULT 12907 00005 11340 R60 TF BAND1+XR5,R60-7,, CLEAR XR 4,5 FLAGS 12908 26 00329 12901 11350 60 *+12,1,, BS, SELECT XR BAND 1 12920 60 12932 00001 11360 66 *+12,0,8, BLXM, INITIALIZE XR 4 12932 66 12944 0-000 11370 66 *+12,12345,810, BLXM, INITIALIZE XR 5 12944 66 12956 1K3M5 11380 64 *+24,12345,810, BCXM, ADD TO XR 5, BRANCH 12956 64 12980 1K3M5 11390 B R60E,,, ERROR - DID NOT BRANCH 12968 49 13052 00000 11400 BNP R60E,,, CHECK HP INDICATOR IS SET 12980 47 13052 01100 11410 CM BAND1+XR4,0,, CHECK ONLY 5 DIGITS AFFECTED 12992 14 00324 -0000 11420 BNE R60E,,, 13004 47 13052 01200 11430 C BAND1+XR5,R60-1,, CHECK EXPECTED RESULT 13016 24 00329 12907 11440 BNE R60E,,, 13028 47 13052 01200 11450 B R60OK,,, BR ON SUCCESS 13040 49 13100 00000 11460 R60E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 13052 46 13076 00100 11470 WATY *+25,, 13064 39 13089 00100 11480 BNC3 *+24,,, NO HALT ON SW 3 13076 47 13100 00300 11490 DAC 6,H60 @,, HALT H60 13089 00012 11500 R60OK BC2 R60,,, LOOP ON SW 2 13100 46 12908 00200 11510 B R61,,, CONTINUE TO NEXT ROUTINE 13112 49 13140 00000 11520* 11530* ROUTINE 61 11540* BXCM - ADD NEGATIVE TO XR, TEST RESULT AND EZ/HP NOT SET 11550* 11560 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGIST 13133 00010 11570 DSC 1,0,, SLACK DIGIT 13134 00001 11580 DC 5,-12345,, EXPECTED RESULT 13139 00005 11590 R61 TF BAND1+XR3,R61-7,, CLEAR XR 2,3 FLAGS 13140 26 00319 13133 11600 60 *+12,1,, BS, SELECT XR BAND 1 13152 60 13164 00001 11610 66 *+12,0,9, BLXM, INITIALIZE XR 2 13164 66 13176 00-00 11620 66 *+12,12345,910, BLXM, INITIALIZE XR 3 13176 66 13188 12LM5 11630 64 *+24,-24690,910, BCXM, ADD NEGATIVE TO XR 3, NO BRAN 13188 64 13212 24OR- 11640 B *+24,,, OKAY - DID NOT BRANCH 13200 49 13224 00000 11650 B R61E,,, ERROR - BRANCH TAKEN 13212 49 13296 00000 11660 BNN R61E,,, CHECK EZ/HP INDICATORS NOT SET 13224 46 13296 01300 11670 CM BAND1+XR2,0,, CHECK ONLY 5 DIGITS AFFECTED 13236 14 00314 -0000 11680 BNE R61E,,, 13248 47 13296 01200 11690 C BAND1+XR3,R61-1,, CHECK EXPECTED RESULT 13260 24 00319 13139 11700 BNE R61E,,, 13272 47 13296 01200 11710 B R61OK,,, BR ON SUCCESS 13284 49 13344 00000 11720 R61E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 13296 46 13320 00100 11730 WATY *+25,, 13308 39 13333 00100 11740 BNC3 *+24,,, NO HALT ON SW 3 13320 47 13344 00300 11750 DAC 6,H61 @,, HALT H61 13333 00012 11760 R61OK BC2 R61,,, LOOP ON SW 2 13344 46 13140 00200 11770 B R62,,, CONTINUE TO NEXT ROUTINE 13356 49 13384 00000 11780* 11790* ROUTINE 62 11800* BXCM - ADD/OVERFLOW TO XR, TEST RESULT AND OVFL NOT SET 11810* 11820 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGIST 13377 00010 11830 DSC 1,0,, SLACK DIGIT 13378 00001 11840 DC 5,22221,, EXPECTED RESULT 13383 00005 11850 R62 TF BAND1+XR3,R62-7,, CLEAR XR 2,3 FLAGS 13384 26 00319 13377 11860 60 *+12,1,, BS, SELECT XR BAND 1 13396 60 13408 00001 11870 66 *+12,0,9, BLXM, INITIALIZE XR 2 13408 66 13420 00-00 11880 66 *+12,55555,910, BLXM, INITIALIZE XR 3 13420 66 13432 55NN5 11890 BV *+12,,, RESET OVERFLOW INDICATOR 13432 46 13444 01400 11900 64 *+24,66666,910, BCXM, ADD WITH OVERFLOW, NO BRANCH 13444 64 13468 66OO6 11910 B *+24,,, OKAY - DID NOT BRANCH 13456 49 13480 00000 11920 B R62E,,, ERROR -- BRANCH TAKEN 13468 49 13564 00000 11930 BNP R62E,,, CHECK HP INDICATOR IS SET 13480 47 13564 01100 11940 BV R62E,,, CHECK OVFL INDICATOR IS NOT SET 13492 46 13564 01400 11950 CM BAND1+XR2,0,, CHECK ONLY 5 DIGITS AFFECTED 13504 14 00314 -0000 11960 BNE R62E,,, 13516 47 13564 01200 11970 C BAND1+XR3,R62-1,, CHECK EXPECTED RESULT 13528 24 00319 13383 11980 BNE R62E,,, 13540 47 13564 01200 11990 B R62OK,,, BR ON SUCCESS 13552 49 13612 00000 12000 R62E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 13564 46 13588 00100 12010 WATY *+25,, 13576 39 13601 00100 12020 BNC3 *+24,,, NO HALT ON SW 3 13588 47 13612 00300 12030 DAC 6,H62 @,, HALT H62 13601 00012 12040 R62OK BC2 R62,,, LOOP ON SW 2 13612 46 13384 00200 12050 B R63,,, CONTINUE TO NEXT ROUTINE 13624 49 13652 00000 12060* 12070* ROUTINE 63 12080* BXCM - ADD WITH Q FIELD LONGER THAN XR, TEST OVFL SET 12090* 12100 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGS 13645 00010 12110 DSC 3,0,,, EXPECTED RESULT 13646 00003 12120 DC 3,666,, 13651 00003 12130 R63 TF BAND1+XR3,R63-7,, CLEAR XR 2,3 FLAGS 13652 26 00319 13645 12140 60 *+12,1,, BS, SELECT XR BAND 1 13664 60 13676 00001 12150 66 *+12,0,9, BLXM, INITIALIZE XR 2 13676 66 13688 00-00 12160 66 *+12,55555,910, BLXM, INITIALIZE XR 3 13688 66 13700 55NN5 12170 SF BAND1+XR3-2,,, MAKE XR 3 A SHORTER FIELD 13700 32 00317 00000 12180 BV *+12,,, RESET OVERFLOW INDICATOR 13712 46 13724 01400 12190 64 *+24,11111,910, BCXM, ADD WITH OVERFLOW, BRANCH 13724 64 13748 11JJ1 12200 B R63E,,, ERROR - DID NOT BRANCH 13736 49 13832 00000 12210 BNP R63E,,, CHECK HP INDICATOR IS SET 13748 47 13832 01100 12220 BNV R63E,,, CHECK OVFL INDICATOR IS SET 13760 47 13832 01400 12230 CM BAND1+XR2,0,, CHECK ONLY 5 DIGITS AFFECTED 13772 14 00314 -0000 12240 BNE R63E,,, 13784 47 13832 01200 12250 C BAND1+XR3,R63-1,, CHECK EXPECTED RESULT 13796 24 00319 13651 12260 BNE R63E,,, 13808 47 13832 01200 12270 B R63OK,,, BR ON SUCCESS 13820 49 13880 00000 12280 R63E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 13832 46 13856 00100 12290 WATY *+25,, 13844 39 13869 00100 12300 BNC3 *+24,,, NO HALT ON SW 3 13856 47 13880 00300 12310 DAC 6,H63 @,, HALT H63 13869 00012 12320 R63OK BC2 R63,,, LOOP ON SW 2 13880 46 13652 00200 12330 B R64,,, CONTINUE TO NEXT ROUTINE 13892 49 13920 00000 12340* 12350* ROUTINE 64 12360* BXCM - ADD WITH ZERO RESULT, TEST EZ SET 12370* 12380 DC 10,0,, INITIALIZE DESTINATION FOR 2 REGS 13913 00010 12390 DSC 1,0,, SLACK DIGIT 13914 00001 12400 DC 5,0,, EXPECTED RESULT 13919 00005 12410 R64 TF BAND1+XR3,R64-7,, CLEAR XR 2,3 FLAGS 13920 26 00319 13913 12420 60 *+12,1,, BS, SELECT XR BAND 1 13932 60 13944 00001 12430 66 *+12,0,9, BLXM, INITIALIZE XR 2 13944 66 13956 00-00 12440 66 *+12,11111,910, BLXM, INITIALIZE XR 3 13956 66 13968 11JJ1 12450 BV *+12,,, RESET OVERFLOW INDICATOR 13968 46 13980 01400 12460 64 *+24,-11111,910, BCXM, ADD NEGATIVE, NO BRANCH 13980 64 14004 11JJJ 12470 B *+24,,, OKAY - DID NOT BRANCH 13992 49 14016 00000 12480 B R64E,,, ERROR - BRANCH TAKEN 14004 49 14100 00000 12490 BNE R64E,,, CHECK EZ INDICATOR IS SET 14016 47 14100 01200 12500 BV R64E,,, CHECK OVFL INDICATOR IS NOT SET 14028 46 14100 01400 12510 CM BAND1+XR2,0,, CHECK ONLY 5 DIGITS AFFECTED 14040 14 00314 -0000 12520 BNE R64E,,, 14052 47 14100 01200 12530 C BAND1+XR3,R64-1,, CHECK EXPECTED RESULT 14064 24 00319 13919 12540 BNE R64E,,, 14076 47 14100 01200 12550 B R64OK,,, BR ON SUCCESS 14088 49 14148 00000 12560 R64E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 14100 46 14124 00100 12570 WATY *+25,, 14112 39 14137 00100 12580 BNC3 *+24,,, NO HALT ON SW 3 14124 47 14148 00300 12590 DAC 6,H64 @,, HALT H64 14137 00012 12600 R64OK BC2 R64,,, LOOP ON SW 2 14148 46 13920 00200 12610 B R65,,, CONTINUE TO NEXT ROUTINE 14160 49 14202 00000 12620* 12630* ROUTINE 65 12640* BXCM - ADD TO MULTIPLE XR, TEST RESULT AND HP SET 12650* 12660 DC 15,001239876543210,, INITIALIZE 3 REGISTERS 14186 00015 12670 DC 15,001239876611109,, EXPECTED RESULT 14201 00015 12680 R65 TF BAND2+XR7,R65-16,, INITIALIZE XR 5,6,7 14202 26 00379 14186 12690 60 *+12,2,, BS, SELECT XR BAND 2 14214 60 14226 00002 12700 66 *+12,0,8, BLXM, INITIALIZE XR 4 14226 66 14238 0-000 12710 64 *+24,67899,8910, BCXM, ADD TO XR 7, BRANCH 14238 64 14262 6PQR9 12720 B R65E,,, ERROR - DID NOT BRANCH 14250 49 14442 00000 12730 BNP R65E,,, CHECK HP INDICATOR IS SET 14262 47 14442 01100 12740 CM BAND2+XR4,0,, CHECK XR 4 NOT AFFECTED 14274 14 00364 -0000 12750 BNE R65E,,, 14286 47 14442 01200 12760 C BAND2+XR7,R65-1,, CHECK EXPECTED RESULT 14298 24 00379 14201 12770 BNE R65E,,, 14310 47 14442 01200 12780 67 *+12,PROD,8910, BSX, STORE XR 7 14322 67 14334 0--R9 12790 CM PROD,11109,, CHECK XR 7 RESULT 14334 14 00099 J1109 12800 BNE R65E,,, 14346 47 14442 01200 12810 67 *+12,PROD,89, BSX, STORE XR 6 14358 67 14370 0--99 12820 CM PROD,98766,, CHECK XR 6 RESULT 14370 14 00099 R8766 12830 BNE R65E,,, 14382 47 14442 01200 12840 67 *+12,PROD,810, BSX, STORE XR 5 14394 67 14406 0-0R9 12850 CM PROD,00123,, CHECK XR 5 RESULT 14406 14 00099 -0123 12860 BNE R65E,,, 14418 47 14442 01200 12870 B R65OK,,, BR ON SUCCESS 14430 49 14490 00000 12880 R65E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 14442 46 14466 00100 12890 WATY *+25,, 14454 39 14479 00100 12900 BNC3 *+24,,, NO HALT ON SW 3 14466 47 14490 00300 12910 DAC 6,H65 @,, HALT H65 14479 00012 12920 R65OK BC2 R65,,, LOOP ON SW 2 14490 46 14202 00200 12930 B R66,,, CONTINUE TO NEXT ROUTINE 14502 49 14544 00000 12940* 12950* ROUTINE 66 12960* BXCM - ADD NEG TO MULTIPLE XR, TEST RESULT AND EZ/HP NOT SET 12970* 12980 DC 15,001239876543210,, INITIALIZE 3 REGISTERS 14528 00015 12990 DC 15,001239876475311,, EXPECTED RESULT 14543 00015 13000 R66 TF BAND2+XR7,R66-16,, INITIALIZE XR 5,6,7 14544 26 00379 14528 13010 60 *+12,2,, BS, SELECT XR BAND 2 14556 60 14568 00002 13020 66 *+12,0,8, BLXM, INITIALIZE XR 4 14568 66 14580 0-000 13030 64 *+24,-67899,8910, BCXM, ADD TO XR 7, BRANCH 14580 64 14604 6PQRR 13040 B R66E,,, ERROR - DID NOT BRANCH 14592 49 14784 00000 13050 BNP R66E,,, CHECK EZ/HP INDICATORS NOT SET 14604 47 14784 01100 13060 CM BAND2+XR4,0,, CHECK XR 4 NOT AFFECTED 14616 14 00364 -0000 13070 BNE R66E,,, 14628 47 14784 01200 13080 C BAND2+XR7,R66-1,, CHECK EXPECTED RESULT 14640 24 00379 14543 13090 BNE R66E,,, 14652 47 14784 01200 13100 67 *+12,PROD,8910, BSX, STORE XR 7 14664 67 14676 0--R9 13110 CM PROD,75311,, CHECK XR 7 RESULT 14676 14 00099 P5311 13120 BNE R66E,,, 14688 47 14784 01200 13130 67 *+12,PROD,89, BSX, STORE XR 6 14700 67 14712 0--99 13140 CM PROD,98764,, CHECK XR 6 RESULT 14712 14 00099 R8764 13150 BNE R66E,,, 14724 47 14784 01200 13160 67 *+12,PROD,810, BSX, STORE XR 5 14736 67 14748 0-0R9 13170 CM PROD,00123,, CHECK XR 5 RESULT 14748 14 00099 -0123 13180 BNE R66E,,, 14760 47 14784 01200 13190 B R66OK,,, BR ON SUCCESS 14772 49 14832 00000 13200 R66E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 14784 46 14808 00100 13210 WATY *+25,, 14796 39 14821 00100 13220 BNC3 *+24,,, NO HALT ON SW 3 14808 47 14832 00300 13230 DAC 6,H66 @,, HALT H66 14821 00012 13240 R66OK BC2 R66,,, LOOP ON SW 2 14832 46 14544 00200 13250 B R67,,, CONTINUE TO NEXT ROUTINE 14844 49 14856 00000 13260* 13270 R67 B R70,,, (RFE) 14856 49 14898 00000 13280* * 13290 P0 DC 5,0,, INDEXING OPERAND FIELDS 14872 00005 13300 Q0 DC 5,0,, 14877 00005 13310 P1 DC 5,0,, 14882 00005 13320 Q1 DC 5,0,, 14887 00005 13330 P2 DC 5,0,, 14892 00005 13340 Q2 DC 5,0,, 14897 00005 13350* 13360* ROUTINE 70 13370* POSITIVE INDEX P FIELD 13380* 13390 R70 60 *+12,1,, BS, SELECT INDEX BAND 1 14898 60 14910 00001 13400 TFM P0,99999,, INITIALIZE OPERANDS 14910 16 14872 R9999 13410 TFM P1,11111,, 14922 16 14882 J1111 13420 TFM P2,22222,, 14934 16 14892 K2222 13430 66 *+12,20,10, BLXM, LOAD +20 TO XR 1 14946 66 14958 000K0 13440 TF P0,P0,5, MOVE P0 TO P0(1)=P2 14958 26 148P2 14872 13450 CM P1,11111,, CHECK FOR PROPER RESULTS 14970 14 14882 J1111 13460 BNE R70E,, 14982 47 15030 01200 13470 CM P2,99999,, 14994 14 14892 R9999 13480 BNE R70E,,, 15006 47 15030 01200 13490 B R70OK 15018 49 15078 00000 13500 R70E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 15030 46 15054 00100 13510 WATY *+25,, 15042 39 15067 00100 13520 BNC3 *+24,,, NO HALT ON SW 3 15054 47 15078 00300 13530 DAC 6,H70 @,, HALT H70 15067 00012 13540 R70OK BC2 R70,,, LOOP ON SW 2 15078 46 14898 00200 13550 B R71,,, CONTINUE TO NEXT ROUTINE 15090 49 15102 00000 13560* 13570* ROUTINE 71 13580* NEGATIVE INDEX P FIELD 13590* 13600 R71 60 *+12,1,, BS, SELECT INDEX BAND 1 15102 60 15114 00001 13610 TFM P0,99999,, INITIALIZE OPERANDS 15114 16 14872 R9999 13620 TFM P1,11111,, 15126 16 14882 J1111 13630 TFM P2,22222,, 15138 16 14892 K2222 13640 66 *+12,-20,10, BLXM, LOAD -20 TO XR 1 15150 66 15162 000K- 13650 TF P2,P2,5, MOVE P2 TO P2(1)=P0 15162 26 148R2 14892 13660 CM P1,11111,, CHECK FOR PROPER RESULTS 15174 14 14882 J1111 13670 BNE R71E,, 15186 47 15234 01200 13680 CM P0,22222,, 15198 14 14872 K2222 13690 BNE R71E,,, 15210 47 15234 01200 13700 B R71OK 15222 49 15282 00000 13710 R71E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 15234 46 15258 00100 13720 WATY *+25,, 15246 39 15271 00100 13730 BNC3 *+24,,, NO HALT ON SW 3 15258 47 15282 00300 13740 DAC 6,H71 @,, HALT H71 15271 00012 13750 R71OK BC2 R71,,, LOOP ON SW 2 15282 46 15102 00200 13760 B R72,,, CONTINUE TO NEXT ROUTINE 15294 49 15306 00000 13770* 13780* ROUTINE 72 13790* POSITIVE INDEX Q FIELD 13800* 13810 R72 60 *+12,1,, BS, SELECT INDEX BAND 1 15306 60 15318 00001 13820 TFM Q0,99999,, INITIALIZE OPERANDS 15318 16 14877 R9999 13830 TFM Q1,11111,, 15330 16 14887 J1111 13840 TFM Q2,22222,, 15342 16 14897 K2222 13850 66 *+12,20,10, BLXM, LOAD +20 TO XR 1 15354 66 15366 000K0 13860 TF Q0,Q0,10, MOVE Q0(1)=Q2 TO Q0 15366 26 14877 148P7 13870 CM Q1,11111,, CHECK FOR PROPER RESULTS 15378 14 14887 J1111 13880 BNE R72E,, 15390 47 15438 01200 13890 CM Q0,22222,, 15402 14 14877 K2222 13900 BNE R72E,,, 15414 47 15438 01200 13910 B R72OK 15426 49 15486 00000 13920 R72E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 15438 46 15462 00100 13930 WATY *+25,, 15450 39 15475 00100 13940 BNC3 *+24,,, NO HALT ON SW 3 15462 47 15486 00300 13950 DAC 6,H72 @,, HALT H72 15475 00012 13960 R72OK BC2 R72,,, LOOP ON SW 2 15486 46 15306 00200 13970 B R73,,, CONTINUE TO NEXT ROUTINE 15498 49 15510 00000 13980* 13990* ROUTINE 73 14000* NEGATIVE INDEX Q FIELD 14010* 14020 R73 60 *+12,1,, BS, SELECT INDEX BAND 1 15510 60 15522 00001 14030 TFM Q0,99999,, INITIALIZE OPERANDS 15522 16 14877 R9999 14040 TFM Q1,11111,, 15534 16 14887 J1111 14050 TFM Q2,22222,, 15546 16 14897 K2222 14060 66 *+12,-20,10, BLXM, LOAD -20 TO XR 1 15558 66 15570 000K- 14070 TF Q2,Q2,10, MOVE Q2(1)=Q0 TO Q2 15570 26 14897 148R7 14080 CM Q1,11111,, CHECK FOR PROPER RESULTS 15582 14 14887 J1111 14090 BNE R73E,, 15594 47 15642 01200 14100 CM Q2,99999,, 15606 14 14897 R9999 14110 BNE R73E,,, 15618 47 15642 01200 14120 B R73OK 15630 49 15690 00000 14130 R73E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 15642 46 15666 00100 14140 WATY *+25,, 15654 39 15679 00100 14150 BNC3 *+24,,, NO HALT ON SW 3 15666 47 15690 00300 14160 DAC 6,H73 @,, HALT H73 15679 00012 14170 R73OK BC2 R73,,, LOOP ON SW 2 15690 46 15510 00200 14180 B R74,,, CONTINUE TO NEXT ROUTINE 15702 49 15714 00000 14190* 14200* ROUTINE 74 14210* TEST INDEXING OVERFLOW 14220* 14230 R74 60 *+12,1,, BS, SELECT INDEX BAND 1 15714 60 15726 00001 14240 TFM Q0,99999,, INITIALIZE OPERANDS 15726 16 14877 R9999 14250 TFM Q1,11111,, 15738 16 14887 J1111 14260 TFM Q2,22222,, 15750 16 14897 K2222 14270 BV *+12,,, RESET OVERFLOW INDICATOR 15762 46 15774 01400 14280 66 *+12,99990,10, BLXM, LOAD 99990 TO XR 1 (I.E. -10) 15774 66 15786 999R0 14290 TF Q2,Q2,10, MOVE Q2(1)=Q1 TO Q2 15786 26 14897 148R7 14300 BV R74E,,, ERROR - ARITH OVERFLOW SET 15798 46 15870 01400 14310 CM Q0,99999,, CHECK FOR PROPER RESULTS 15810 14 14877 R9999 14320 BNE R74E,, 15822 47 15870 01200 14330 CM Q2,11111,, 15834 14 14897 J1111 14340 BNE R74E,,, 15846 47 15870 01200 14350 B R74OK 15858 49 15918 00000 14360 R74E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 15870 46 15894 00100 14370 WATY *+25,, 15882 39 15907 00100 14380 BNC3 *+24,,, NO HALT ON SW 3 15894 47 15918 00300 14390 DAC 6,H74 @,, HALT H74 15907 00012 14400 R74OK BC2 R74,,, LOOP ON SW 2 15918 46 15714 00200 14410 B R75,,, CONTINUE TO NEXT ROUTINE 15930 49 15942 00000 14420* 14430* ROUTINE 75 14440* TEST INDEXING UNDERFLOW 14450* 14460 R75 60 *+12,1,, BS, SELECT INDEX BAND 1 15942 60 15954 00001 14470 TFM Q0,99999,, INITIALIZE OPERANDS 15954 16 14877 R9999 14480 TFM Q1,11111,, 15966 16 14887 J1111 14490 TFM Q2,22222,, 15978 16 14897 K2222 14500 BV *+12,,, RESET OVERFLOW INDICATOR 15990 46 16002 01400 14510 66 *+12,-99990,10, BLXM, LOAD -99990 TO XR 1 (I.E. +10 16002 66 16014 999R- 14520 TF Q1,Q1,10, MOVE Q1(1)=Q2 TO Q1 16014 26 14887 148Q7 14530 BV R75E,,, ERROR - ARITH OVERFLOW SET 16026 46 16098 01400 14540 CM Q0,99999,, CHECK FOR PROPER RESULTS 16038 14 14877 R9999 14550 BNE R75E,, 16050 47 16098 01200 14560 CM Q1,22222,, 16062 14 14887 K2222 14570 BNE R75E,,, 16074 47 16098 01200 14580 B R75OK 16086 49 16146 00000 14590 R75E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 16098 46 16122 00100 14600 WATY *+25,, 16110 39 16135 00100 14610 BNC3 *+24,,, NO HALT ON SW 3 16122 47 16146 00300 14620 DAC 6,H75 @,, HALT H75 16135 00012 14630 R75OK BC2 R75,,, LOOP ON SW 2 16146 46 15942 00200 14640 B R76,,, CONTINUE TO NEXT ROUTINE 16158 49 16352 00000 14650* 14660* ROUTINE 76 14670* TEST INDEXING GENERATION OF INVALID ADDRESS 14680* 14690 R76M1 DAC 47,TEST R76 SHOULD HALT ON A CHECK STOP WITH MAR=@ 16171 00094 14700 R76M2 DSA 99999-Q2+Q1+1 16268 00005 R9990 14710 DC 1,@ 16269 00001 14720 R76M3 DAC 41,TO CONTINUE, PRESS RESET, THEN START... @ 16271 00082 14730* 14740 R76 60 *+12,1,, BS, SELECT INDEX BAND 1 16352 60 16364 00001 14750 RCTY 16364 34 00000 00102 14760 WATY R76M1,,, 16376 39 16171 00100 14770 WNTY R76M2-4,,, 16388 38 16264 00100 14780 RCTY 16400 34 00000 00102 14790 WATY R76M3,,, 16412 39 16271 00100 14800 TFM Q0,99999,, INITIALIZE OPERANDS 16424 16 14877 R9999 14810 TFM Q1,11111,, 16436 16 14887 J1111 14820 TFM Q2,22222,, 16448 16 14897 K2222 14830 BV *+12,,, RESET OVERFLOW INDICATOR 16460 46 16472 01400 14840 66 *+12,-Q2,10, BLXM, LOAD -Q2 TO XR 1 16472 66 16484 148RP 14850 TF Q1,Q1,10, MOVE Q1(1)=99990 TO Q1 16484 26 14887 148Q7 14860 BV R76E,,, ERROR - ARITH OVERFLOW SET 16496 46 16568 01400 14870 CM Q1,11111,, CHECK FOR NO CHANGE 16508 14 14887 J1111 14880 BNE R76E,, 16520 47 16568 01200 14890 CM Q2,22222,, 16532 14 14897 K2222 14900 BNE R76E,,, 16544 47 16568 01200 14910 B R76OK 16556 49 16616 00000 14920 R76E BC1 *+24,,, ERROR - CHECK FOR BYPASS TYPEOUT 16568 46 16592 00100 14930 WATY *+25,, 16580 39 16605 00100 14940 BNC3 *+24,,, NO HALT ON SW 3 16592 47 16616 00300 14950 DAC 6,H76 @,, HALT H76 16605 00012 14960 R76OK BC2 R76,,, LOOP ON SW 2 16616 46 16352 00200 14970 B R77,,, CONTINUE TO NEXT ROUTINE 16628 49 16640 00000 14980* 14990 R77 B ETEST,,, (RFE) 16640 49 16652 00000 15000* 15010* END OF TEST ROUTINE 15020* 15030 ETEST RCTY 16652 34 00000 00102 15040 RCTY 16664 34 00000 00102 15050 WATY ETM1,,, END OF TEST 16676 39 16781 00100 15060 RCTY 16688 34 00000 00102 15070 WATY ETM2,,, IF SW 1 OFF... 16700 39 16831 00100 15080 BC4 START,,, LOOP PROGRAM ON SW 4 16712 46 02402 00400 15090 RCTY 16724 34 00000 00102 15100 RCTY 16736 34 00000 00102 15110 60 *+12,0,, BS, TURN OFF XR BAND SELECTION 16748 60 16760 00000 15120 H 16760 48 00000 00000 15130 CALL EXIT 16772 49 00796 00000 15140* 15150 ETM1 DAC 25,TEST ROUTINES COMPLETED.@ 16781 00050 15160 ETM2 DAC 41,IF SW 1 OFF AND NO ROUTINE NOS TYPED OUT, 16831 00082 15170 DAC 35, MACHINE PERFORMED TESTS PROPERLY.@ 16913 00070 15180* 15190 DEND START 02402 16982 CORE POSITIONS REQUIRED 01521 STATEMENTS PROCESSED