,0080121001 INDEXING & STORE STARS 3100C 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 3100C 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 3100C 03 L057S4510012,049L0772772/2772)/40/60)/80L/992802/2802413 CARD 1 OF 3 3100C 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 3100C 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 3100C 06 L0313961001B389S571 USE WHEN TESTS ARE RUN FROM TAPE 3100C 07 L0314041001BS88 ,, 3100C 08 L0314081001N000 ,, 3100C 09 L0314121001M360392 ,, 3100C 10 L0314191001/332 START TEST 3100C 11 L0314231001/ 3100C 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 3100C 13 L0314321001/080 CLEAR READ AREA 3100C 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 3100C 15 L0314401001,001021 LOAD PRINT AREA 3100C 16 L0314471001,063078 ,, 3100C 17 L0314541001L080299 ,, 3100C 18 L0314611001L068278 ,, 3100C 19 L0314681001L050250 ,, 3100C 20 L0314751001L ,, 3100C 21 L0314761001L007518 LOAD INDEXED INSTRUCTION FROM DETAIL 3100C 22 L0314831001L007529 RECORD INTO PROGRAM 3100C 23 L0314901001L033099 LOAD INDEX FACTORS INTO INDEX LOCATIONS 3100C 24 L0314971001,099241 SET WORD MARKS 3100C 25 L0315041001B700 BRANCH TO DETERMINE STORAGE SIZE 3100C 26 L0315191001B51206XX IF 06XX BR TO PROCESS DETAIL RECORD 3100C 27 L0315271001B417 IF NOT 06XX BR TO BY-PASS DETAIL RECORD 3100C 28 L0315311001NXXXXXX INDEXED INSTRUCTION 3100C 29 L0315381001Q263 STORE A STAR IN -STARS ARE- FIELD 3100C 30 L0315421001NXXXXXX INDEXED INSTRUCTION 3100C 31 L0315491001H268 STORE B STAR IN -STARS ARE- FIELD 3100C 32 L0315531001B512B B ON TO SCOPE 3100C 33 L0315581001C268248 TEST FOR ERROR 3100C 34 L0315651001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 3100C 35 L0315701001B950C C ON TO CORRECT PRINT ROUTINE 3100C 36 L0315751001B958 BRANCH TO SENSE D 3100C 37 L0317191001/000 CLEAR 000 TO CAUSE WRAP-AROUND & STORE 3100C 38 L0317231001H803 HIGHEST ADDR FROM B STAR INTO 801-8033100C 39 L0317271001V784803B BRANCH IF HIGHEST ADDRESS IS 15999 3100C 40 L0317351001V773803K BRANCH IF HIGHEST ADDRESS IS 11999 3100C 41 L0317431001V762803S BRANCH IF HIGHEST ADDRESS IS 7999 3100C 42 L0317511001V751801B BRANCH IF HIGHEST ADDRESS IS 3999 3100C 43 L0317591001M811507 MOVE TEST-FOR-1.4-OR-2K-INSTR. INTO PROG3100C 44 L0317661001B500 BRANCH TO PROCESS OR BY-PASS 3100C 45 L0317701001M819507 MOVE TEST-FOR-4K-INSTRUC INTO PROGRAM 3100C 46 L0317771001B500 BRANCH TO PROCESS OR BY-PASS 3100C 47 L0317811001M827507 MOVE TEST-FOR-8K-INSTRUC INTO PROGRAM 3100C 48 L0317881001B500 BRANCH TO PROCESS OR BY-PASS 3100C 49 L0317921001M835507 MOVE TEST-FOR-12K-INSTRUC INTO PROGRAM 3100C 50 L0317991001B500 BRANCH TO PROCESS OR BY-PASS 3100C 51 L0318031001M843507 MOVE TEST-FOR-16K-INSTRUC INTO PROGRAM 3100C 52 L0318101001B500 BRANCH TO PROCESS OR BY-PASS 3100C 53 L0318201001XXX HIGHEST ADDR STORED BY STORE B STAR INST3100C 54 L0318231001B5120642 INSTRUC USED BY PROG IF 1.4 OR 2 K STOR 3100C 55 L0318311001B5120654 INSTRUC USED BY PROG IF 4 K STOR 3100C 56 L0318391001B5120668 INSTRUC USED BY PROG IF 8 K STOR 3100C 57 L0318471001B512067- INSTRUC USED BY PROG IF 12 K STOR 3100C 58 L0318551001B512068& INSTRUC USED BY PROG IF 16 K STOR 3100C 59 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 3100C 60 L0319261001B916E E ON TO ERROR STOP 3100C 61 L03193110012958 ERROR PRINT 3100C 62 L0319351001.958 ERROR STOP 3100C 63 L0319391001 WORD MARK 3100C 64 L0319691001L/19285 CORRECT PRINT ROUTINE 3100C 65 L03197610012 ,, 3100C 66 L0319771001B421D D ON TO REPEAT 3100C 67 L0319821001B417 BRANCH TO READ NEXT RECORD 3100C 68 L031/291001ERROR CONSTANTS 3100C 69 L031/341001 ,, 3100C 70 L031/391001INDEXED INSTRUC. ,, 3100C 71 L031/591001INDEX REGISTERS ,, 3100C 72 L031/791001STARS SHOULD BE ,, 3100C 73 L031/991001STARS ARE PROC. ON ,, 3100C 74 ,019027,031,038042B031T98"B400L046352BW04BS88 INDEXING & STORE STARS 3100C 75 N123456 *** *** *** 123 456 1248-& 3100C 76 N5W7890 111 *** *** 678 890 1248-& 3100C 77 N5678R0 *** 222 *** 567 /12 1248-& 3100C 78 N2M68A3 *** /23 I9I T69 812 1248-& 3100C 79 N/T5SD6 A1A *** D5F 246 702 1248-& 3100C 80 C0B20B2 *** *** I9I 020 020 1248-& 3100C 81 P0K00K0 ``` 001 *** 022 022 1248-& 3100C 82 N//1BK2 J35 R8G *** B46 K09 48-& 3100C 83 NBB2MU4 999 *** 77H 000 D43 48-& 3100C 84 NHH8HQ8 *** 111 /1B `00 I99 48-& 3100C 85 N1L52U6 D56 L46 *** M81 G02 48-& 3100C 86 NRQXFE4 *** 111 B22 ?9Y Q7W 8-& 3100C 87 NKUWTEX L3C *** U4D 57Z Q01 8-& 3100C 88 NIO3LWZ N5N F66 *** F2Z 924 8-& 3100C 89 NAK3MN6 *** X77 *** 90` 23T 8-& 3100C 90 N1ST4N6 23U 56P *** 35P `2L -& 3100C 91 N2MOY`J Q9? 13N *** 381 69J -& 3100C 92 NCEPIYX C6Z *** B4F O0L C5F -& 3100C 93 NONU3BJ *** Q52 97N V0O S96 -& 3100C 94 N1SCIBM Y64 *** A9B Z8G A1O & 3100C 95 NAZKUNF /23 K09 *** 31E F6E & 3100C 96 NPQI?AB *** P5C A8F V4B J9H & 3100C 97 NUF!SED *** *** G8Z S49 `4T & 3100C 98 ,0080121001 MOVE RECORD 3110C 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 3110C 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 3110C 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 3110C 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 3110C 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 3110C 06 L0313961001B389S571 USE WHEN TESTS ARE RUN FROM TAPE 3110C 07 L0314041001BS88 ,, 3110C 08 L0314081001N000 ,, 3110C 09 L0314121001M360392 ,, 3110C 10 L0314191001/332 START TEST 3110C 11 L0314231001/ 3110C 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 3110C 13 L0314321001/080 CLEAR READ AREA 3110C 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 3110C 15 L0314401001,001078 LOAD PRINT AREA 3110C 16 L0314471001L080299 ,, 3110C 17 L0314541001L072272 ,, 3110C 18 L0314611001L010250 ,, 3110C 19 L0314681001,205210 ,, 3110C 20 L0314751001,266 ,, 3110C 21 L0314791001P201261 MOVE RECORD 3110C 22 L0314861001P ,, 3110C 23 L0314871001B460B B ON TO SCOPE 3110C 24 L0314921001V4852661 TEST FOR ERROR 3110C 25 L0315001001B900 ,, 3110C 26 L0315041001)266 ,, 3110C 27 L0315151001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 3110C 29 L0315201001B950C C ON TO CORRECT PRINT ROUTINE 3110C 30 L0315081001C270250 ,, 3110C 28 L0315251001B958 BRANCH TO SENSE D 3110C 31 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 3110C 32 L0319261001B916E E ON TO ERROR STOP 3110C 33 L03193110012958 ERROR PRINT 3110C 34 L0319351001.958 ERROR STOP 3110C 35 L0319391001 WORD MARK 3110C 36 L0319691001L/19285 CORRECT PRINT ROUTINE 3110C 37 L03197610012 ,, 3110C 38 L0319771001B421D D ON TO REPEAT 3110C 39 L0319821001/280 CLEAR 3110C 40 L0319861001/080 ,, 3110C 41 L0319901001B417 BRANCH TO READ NEXT RECORD 3110C 42 L031/291001ERROR CONSTANTS 3110C 43 L031/341001 ,, 3110C 44 L031/391001A FIELD ,, 3110C 45 L031/591001 ,, 3110C 46 L031/791001RESULT SHOULD BE ,, 3110C 47 L031/991001RESULT IS ,, 3110C 48 ,019027,031,038042B031T98"B400L046352BW04BS88 MOVE RECORD 3110C 49 ` "E 3110C 50 1`1111111`E 3110C 51 22`222222"E 3110C 52 444`44444`E 3110C 53 8888`8888"E 3110C 54 ////+`///`E 3110C 55 ----_-`--"E 3110C 56 1111G11`1`E 3110C 57 2222.222`"E 3110C 58 )444"4444`E 3110C 59 8888"0SY8"E 3110C 60 ,0080121001 I-STAR TRANSFER 3130C 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 3130C 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 3130C 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 3130C 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 3130C 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 3130C 06 L0313961001B389S571 USE WHEN TESTS ARE RUN FROM TAPE 3130C 07 L0314041001BS88 ,, 3130C 08 L0314081001N000 ,, 3130C 09 L0314121001M360392 ,, 3130C 10 L0314191001/332 START TEST 3130C 11 L0314231001/ 3130C 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 3130C 13 L0314321001/080 CLEAR READ AREA 3130C 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 3130C 15 L0314401001,001041 LOAD PRINT AREA 3130C 16 L0314471001,078 ,, 3130C 17 L0314511001L080299 ,, 3130C 18 L0314581001L072272 ,, 3130C 19 L0314651001L ,, 3130C 20 L0314661001L008461 LOAD INSTRUCTION INTO PROGRAM 3130C 21 L0314731001X500XXXX INSTRUC READ FROM DETAIL CARD 3130C 22 L0314811001H263 STORE B STAR - NO BR OCCURERED IN 454 3130C 23 L0314851001B504 BRANCH TO SENSE B 3130C 24 L0315191001H263 STORE I STAR - BRANCH OCCURRED IN 454 3130C 25 L0315231001B454B B ON TO SCOPE 3130C 26 L0315281001C263243 TEST FOR ERROR 3130C 27 L0315351001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 3130C 28 L0315401001B950C C ON TO CORRECT PRINT ROUTINE 3130C 29 L0315451001B958 BRANCH TO SENSE D 3130C 30 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 3130C 31 L0319261001B916E E ON TO ERROR STOP 3130C 32 L03193110012958 ERROR PRINT 3130C 33 L0319351001.958 ERROR STOP 3130C 34 L0319391001 WORD MARK 3130C 35 L0319691001L/19285 CORRECT PRINT ROUTINE 3130C 36 L03197610012 ,, 3130C 37 L0319771001B421D D ON TO REPEAT 3130C 38 L0319821001B417 BRANCH TO READ NEXT RECORD 3130C 39 L031`181001A ,, 3130C 40 L031/291001ERROR CONSTANTS 3130C 41 L031/341001 ,, 3130C 42 L031/391001INSTR. PERFORMED IN ,, 3130C 43 L031/591001454 ,, 3130C 44 L031/791001RESULT SHOULD BE 3130C 45 L031/991001RESULT IS ,, 3130C 46 ,019027,031,038042B031T98"B400L046352BW04BS88 I-STAR TRANSFER 3130C 47 B500 BRANCH 458 3130C 48 N5009981 NO BRANCH 998 3130C 49 B500 BRANCH 458 3130C 50 N5009981 NO BRANCH 998 3130C 51 B500999A BRANCH 462 3130C 52 V5009992 NO BRANCH 998 3130C 53 B500999A BRANCH 462 3130C 54 V5009992 NO BRANCH 998 3130C 55 V500999B BRANCH 462 3130C 56 B5009991 NO BRANCH 998 3130C 57 V500999B BRANCH 462 3130C 58 B5009991 NO BRANCH 998 3130C 59 /500100 BRANCH 461 3130C 60 ,0080121001 MULTIPLY 3200C 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 3200C 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 3200C 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 3200C 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 3200C 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 3200C 06 L0313961001B389S581 USE WHEN TESTS ARE RUN FROM TAPE 3200C 07 L0314041001BS88 USE WHEN TESTS ARE RUN FROM TAPE 3200C 08 L0314081001N000 USE WHEN TESTS ARE RUN FROM TAPE 3200C 09 L0314121001M360392 USE WHEN TESTS ARE RUN FROM TAPE 3200C 10 L0314191001/332 START TEST 3200C 11 L0314231001/ 3200C 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 3200C 13 L0314321001/080 CLEAR READ AREA 3200C 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 3200C 15 L0314401001,001078 LOAD PRINT AREA 3200C 16 L0314471001L080299 LOAD PRINT AREA 3200C 17 L0314541001L072272 LOAD PRINT AREA 3200C 18 L0314611001,221241 LOAD PRINT AREA 3200C 19 L0314681001B5640800 BR TO TEST MEMORY SIZE IF CARD 100 3200C 20 L0314761001B8570801 BR TO TEST MEMORY SIZE IF CARD 101 3200C 21 L0314841001B510205 BR TO MULT 1 DIGIT FLD IF 205 IS BLANK 3200C 22 L0314921001L205888 LOAD A FIELD 3200C 23 L0314991001L230782 LOAD B FIELD 3200C 24 L0315061001@888782 MULTIPLY 3200C 25 L0315131001B480B SENSE B ON TO SCOPE 3200C 26 L0315181001L782270 LOAD PRINT AREA 3200C 27 L0315251001B543 BRANCH TO TEST FOR ERROR 3200C 28 L0315291001L201677 LOAD A FIELD 3200C 29 L0315361001L223773 LOAD B FIELD 3200C 30 L0315431001@677773 MULTIPLY WITH 1 DIGIT FIELDS 3200C 31 L0315501001B517B SENSE B ON TO SCOPE 3200C 32 L0315551001L773263 LOAD PRINT AREA 3200C 33 L0315621001C270250 TEST FOR ERROR 3200C 34 L0315691001B900/ BR TO ERROR PRINT ROUTINE IF UNEQUAL 3200C 35 L0315741001B950C SENSE C ON TO CORRECT PRINT ROUTINE 3200C 36 L0315791001B958 BRANCH TO SENSE D 3200C 37 L0315831001B790S516 TEST FOR 16K 3200C 38 L0315911001B790S512 TEST FOR 12K 3200C 39 L0315991001B700S518 TEST FOR 8K 3200C 40 L0316071001B633S514 TEST FOR 4K 3200C 41 L0316151001L205/05 BEGIN 1.4-2K MULTIPLY ROUTINE 3200C 42 L0316221001L230`00 3200C 43 L0316291001@/05`00 MULTIPLY 3200C 44 L0316361001B603B SENSE B ON TO SCOPE 3200C 45 L0316411001L`00270 LOAD PRINT AREA 3200C 46 L0316481001B543 BRANCH TO TEST FOR ERROR 3200C 47 L0316521001L205A05 BEGIN 4K MULTIPLY ROUTINE 3200C 48 L0316591001L230?00 3200C 49 L0316661001@A05?00 MULTIPLY 3200C 50 L0316731001B640B SENSE B ON TO SCOPE 3200C 51 L0316781001L?00270 LOAD PRINT AREA 3200C 52 L0316851001B543 BRANCH TO TEST FOR ERROR 3200C 53 L0317191001L205A0V BEGIN 8K MULTIPLY ROUTINE 3200C 54 L0317261001L230?0` 3200C 55 L0317331001@A0V?0` MULTIPLY 3200C 56 L0317401001B707B SENSE B ON TO SCOPE 3200C 57 L0317451001L?0`270 LOAD PRINT AREA 3200C 58 L0317521001B543 BRANCH TO TEST FOR ERROR 3200C 59 L0318091001L20510N BEGIN 1ST 12-16K MULTIPLY ROUTINE 3200C 60 L0318161001L23000! 3200C 61 L0318231001@10N00! MULTIPLY 3200C 62 L0318301001B797B SENSE B ON TO SCOPE 3200C 63 L0318351001L00!270 LOAD PRINT AREA 3200C 64 L0318421001B543 BRANCH TO TEST FOR ERROR 3200C 65 L0318461001L205A0V BEGIN 2ND 12-16K MULTIPLY ROUTINE 3200C 66 L0318531001L23000! 3200C 67 L0318601001@A0V00! MULTIPLY 3200C 68 L0318671001B834B SENSE B ON TO SCOPE 3200C 69 L0318721001B816 BRANCH TO LOAD PRINT AREA 3200C 70 L0318761001B827S516 TEST FOR 16K 3200C 71 L0318841001B827S512 TEST FOR 12K 3200C 72 L0318921001B465 BRANCH TO MAIN ROUTINE 3200C 73 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 3200C 74 L0319261001B916E SENSE E ON TO ERROR STOP 3200C 75 L03193110012958 ERROR PRINT 3200C 76 L0319351001.958 ERROR STOP 3200C 77 L0319391001 WORD MARK 3200C 78 L0319691001L/19285 CORRECT PRINT ROUTINE 3200C 79 L03197610012 CORRECT PRINT ROUTINE 3200C 80 L0319771001B421D SENSE D ON TO REPEAT 3200C 81 L0319821001B417 BRANCH TO READ NEXT RECORD 3200C 82 L012S511001 1.4-2K SELECTION CODE FOR CARD TEST 3200C 83 L012S5110014 4K SELECTION CODE FOR CARD TEST 3200C 84 L012S5110018 8K SELECTION CODE FOR CARD TEST 3200C 85 L012S5110012 12-16K SELECTION CODE FOR CARD TEST 3200C 86 L031/291001ERROR CONSTANTS 3200C 87 L031/341001 CONSTANTS 3200C 88 L031/391001A FIELD CONSTANTS 3200C 89 L031/591001B FIELD CONSTANTS 3200C 90 L031/791001RESULT SHOULD BE CONSTANTS 3200C 91 L031/991001RESULT IS CONSTANTS 3200C 92 ,019027,031,038042B031T98"B400L046352BW04BS88 MULTIPLY 3200C 93 13579 0000 000000000? 3200C 94 0246H A 000000246H 3200C 95 1234V 2 000002469? 3200C 96 67890 Y 000054312? 3200C 97 13579 0R 000012221J 3200C 98 0246Q 087 000021471O 3200C 99 1234N 065M 000807363? 3200C100 FPY90 TKA0 021792690? 3200C101 00? 3200C102 1 0 00? 3200C103 B / 00B 3200C104 R 8 07K 3200C105 Y B 01F 3200C106 0 R 00! 3200C107 R R 08A 3200C108 ,0080121001 DIVIDE 3210A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 3210A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 3210A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 3210A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 3210A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 3210A 06 L0313961001B389S581 USE WHEN TESTS ARE RUN FROM TAPE 3210A 07 L0314041001BS88 ,, 3210A 08 L0314081001N000 ,, 3210A 09 L0314121001M360392 ,, 3210A 10 L0314191001/332 START TEST 3210A 11 L0314231001/ 3210A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 3210A 13 L0314321001/080 CLEAR READ AREA 3210A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 3210A 15 L0314401001,001078 LOAD PRINT AREA 3210A 16 L0314471001L080299 ,, 3210A 17 L0314541001L072272 ,, 3210A 18 L0314611001,221241 ,, 3210A 19 L0314681001,261 ,, 3210A 20 L0314721001B484004 BR TO DIV 1 DIGIT FLDS IF 004 IS BLANK 3210A 21 L0314801001?225270 RESET ADD DIVIDEND INTO B FIELD 3210A 22 L0314871001%204266 DIVIDE 3210A 23 L0314941001B461B B ON TO SCOPE 3210A 24 L0314991001B503 BRANCH TO TEST FOR ERROR 3210A 25 L0315031001?221263 RESET ADD DIVIDEND INTO B FIELD 3210A 26 L0315101001%201263 DIVIDE WITH 1 DIGIT FIELDS 3210A 27 L0315171001B484B B ON TO SCOPE 3210A 28 L0315221001C270250 TEST FOR ERROR 3210A 29 L0315291001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 3210A 30 L0315341001B950C C ON TO CORRECT PRINT ROUTINE 3210A 31 L0315391001B958 BRANCH TO SENSE D 3210A 32 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 3210A 33 L0319261001B916E E ON TO ERROR STOP 3210A 34 L03193110012958 ERROR PRINT 3210A 35 L0319351001.958 ERROR STOP 3210A 36 L0319391001 WORD MARK 3210A 37 L0319691001L/19285 CORRECT PRINT ROUTINE 3210A 38 L03197610012 ,, 3210A 39 L0319771001B421D D ON TO REPEAT 3210A 40 L0319821001B417 BRANCH TO READ NEXT RECORD 3210A 41 L031/291001ERROR CONSTANTS 3210A 42 L031/341001 ,, 3210A 43 L031/391001A FIELD ,, 3210A 44 L031/591001B FIELD ,, 3210A 45 L031/791001RESULT SHOULD BE ,, 3210A 46 L031/991001RESULT IS ,, 3210A 47 ,019027,031,038042B031T98"B400L046352BW04BS88 DIVIDE 3210A 48 1 0246H 0246H0000? 3210A 49 B 2469? 1234E0000? 3210A 50 Q 5431B 0678R0000? 3210A 51 0R 1222J 0135G0000Q 3210A 52 087 8593O 0098P0006P 3210A 53 065D 1549Q 0002L0045O 3210A 54 3210 1518E 0000D0234E 3210A 55 2468 0246 0000? 024F 3210A 56 0000 1357I 000001357I 3210A 57 2468 0000? 0000?0000? 3210A 58 0 I ?0I 3210A 59 1 H H0? 3210A 60 2 G C0A 3210A 61 L F K0? 3210A 62 M N A0J 3210A 63 5 M !0M 3210A 64 6 ? ?0? 3210A 65 ,0080121001 BRANCH DIVIDE OVERFLOW 3220A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 3220A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 3220A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 3220A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 3220A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 3220A 06 L0313961001B389S581 USE WHEN TESTS ARE RUN FROM TAPE 3220A 07 L0314041001BS88 ,, 3220A 08 L0314081001N000 ,, 3220A 09 L0314121001M360392 ,, 3220A 10 L0314191001/332 START TEST 3220A 11 L0314231001/ 3220A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 3220A 13 L0314321001/080 CLEAR READ AREA 3220A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 3220A 15 L0314401001,001078 LOAD PRINT AREA 3220A 16 L0314471001L080299 ,, 3220A 17 L0314541001L072272 ,, 3220A 18 L0314611001,221261 ,, 3220A 19 L0314681001B454Z RESET OVERFLOW LATCH 3220A 20 L0314731001?225270 RESET ADD DIVIDEND INTO B FIELD 3220A 21 L0314801001%204266 DIVIDE 3220A 22 L0314871001B490Z BRANCH IF OVERFLOW 3220A 23 L0314921001B454B B ON TO SCOPE 3220A 24 L0314971001B507006N NO ERROR IF N IN 006 3220A 25 L0315051001B900 BRANCH TO ERROR PRINT ROUTINE 3220A 26 L0315091001B454B B ON TO SCOPE 3220A 27 L0315141001B507006 NO ERROR IF BLANK IN 006 3220A 28 L0315221001B900 BRANCH TO ERROR PRINT ROUTINE 3220A 29 L0315261001B950C C ON TO CORRECT PRINT ROUTINE 3220A 30 L0315311001B958 BRANCH TO SENSE D 3220A 31 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 3220A 32 L0319261001B916E E ON TO ERROR STOP 3220A 33 L03193110012958 ERROR PRINT 3220A 34 L0319351001.958 ERROR STOP 3220A 35 L0319391001 WORD MARK 3220A 36 L0319691001L/19285 CORRECT PRINT ROUTINE 3220A 37 L03197610012 ,, 3220A 38 L0319771001B421D D ON TO REPEAT 3220A 39 L0319821001B417 BRANCH TO READ NEXT RECORD 3220A 40 L031/291001ERROR CONSTANTS 3220A 41 L031/341001 ,, 3220A 42 L031/391001A FIELD ,, 3220A 43 L031/591001B FIELD ,, 3220A 44 L031/791001RESULT SHOULD BE ,, 3220A 45 L031/991001RESULT IS ,, 3220A 46 ,019027,031,038042B031T98"B400L046352BW04BS88 BRANCH DIVIDE OVERFLOW 3220A 47 0001 NO OVERFLOW 0246H 0246H0000? 3220A 48 0000 OVERFLOW 1357I 000001357I 3220A 49 2468 NO OVERFLOW 0000? 0000?0000? 3220A 50 0000 OVERFLOW 0000? 000000000? 3220A 51 ,0080121001 BRANCH HIGH 3300A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 3300A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 3300A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 3300A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 3300A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 3300A 06 L0313961001B389S591 USE WHEN TESTS ARE RUN FROM TAPE 3300A 07 L0314041001BS88 ,, 3300A 08 L0314081001N000 ,, 3300A 09 L0314121001M360392 ,, 3300A 10 L0314191001/332 START TEST 3300A 11 L0314231001/ 3300A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 3300A 13 L0314321001L653441 SET INSTR IN 438 & 464 TO INITIAL COND 3300A 14 L0314391001L660470 ,, 3300A 15 L0314461001B850 BR TO GEN WD SEP & A BIT FOR TABLE 3300A 16 L0314531001)439 SET WORD MARK IN ALL ODD ADDR OF TABLE 3300A 17 L0314571001,701439 ,, 3300A 18 L0314641001V4648291 ,, 3300A 19 L0314721001A971441 ,, 3300A 20 L0314791001B434 ,, 3300A 21 L0314831001C702704 COMPARE 3300A 22 L0314901001B485U BRANCH HIGH - SHOULD BRANCH 3300A 23 L0314951001B464B B ON TO SCOPE 3300A 24 L0315001001B900 BRANCH TO ERROR PRINT ROUTINE 3300A 25 L0315041001B464B B ON TO SCOPE 3300A 26 L0315091001,513 INTERCHANGE A & B FLDS OF COMP IN 464 3300A 27 L0315131001M467518 TO SET UP COMP IN 512 FOR LOW COND 3300A 28 L0315201001M470515 ,, 3300A 29 L0315271001)513 ,, 3300A 30 L0315311001C704702 COMPARE 3300A 31 L0315381001B632U BRANCH HIGH - SHOULD NOT BRANCH 3300A 32 L0315431001B512B B ON TO SCOPE 3300A 33 L0315481001C470666 TEST FOR END OF TABLE IN B FIELD OF 464 3300A 34 L0315551001B545/ BRANCH IF UNEQUAL TO ADD 2 TO B FIELD 3300A 35 L0315601001B564 BRANCH TO TEST FOR END OF TABLE IN A FLD3300A 36 L0315641001,468 ADD 2 TO B FIELD OF COMP IN 464 3300A 37 L0315681001A971470 ,, 3300A 38 L0315751001)468 ,, 3300A 39 L0315791001B464 BRANCH TO COMPARE NEXT SET OF CHARACTERS3300A 40 L0315831001C467663 TEST FOR END OF TABLE IN A FIELD 3300A 41 L0315901001B596/ BRANCH IF UNEQUAL TO ADD 2 TO A FIELD 3300A 42 L0315951001B413G G ON TO REPEAT TEST 3300A 43 L0316001001)711829 CLEAR ANY GM-WM FROM PROGRAM 3300A 44 L0316071001/230 ,, 3300A 45 L0316111001B348 BRANCH TO READ NEXT RECORD 3300A 46 L0316151001,465 ADD 2 TO A FIELD OF COMP IN 464 3300A 47 L0316191001A971467 ,, 3300A 48 L0316261001L467470 MAKE B FIELD 2 GREATER THAN A FIELD 3300A 49 L0316331001A971470 ,, 3300A 50 L0316401001)465468 ,, 3300A 51 L0316471001B464 BRANCH TO COMPARE NEXT SET OF CHARACTERS3300A 52 L0316511001B512B B ON TO SCOPE 3300A 53 L0316561001B`10 BRANCH TO ERROR PRINT ROUTINE 3300A 54 L0316691001,701 CONSTANTS TO SET INSTR TO INITIAL COND 3300A 55 L0316731001C702704 ,, 3300A 56 L0316801001828 CONSTANTS TO DETECT END OF TABLE 3300A 57 L0316831001830 ,, 3300A 58 L0316861001HIGH CONSTANTS FOR PRINTOUTS 3300A 59 L0316911001LOW ,, 3300A 60 L0316961001EQUAL ,, 3300A 61 L0317011001ERROR ,, 3300A 62 L0317201001 . ) [ < " & $ * ] TABLE USED IN COMPARING 3300A 63 L0317401001; _ - / , % : \ + ,, 3300A 64 L0317601001# @ : > ( ? A B C D ,, 3300A 65 L0317801001E F G H I ! J K L M ,, 3300A 66 L0318001001N O P Q R ` S T U V ,, 3300A 67 L0318201001W X Y Z 0 1 2 3 4 5 ,, 3300A 68 L03184010016 7 819 91 ,, 3300A 69 L0318691001Y850733 GENERATE WORD SEPARATOR CHARAC FOR TABLE3300A 70 L0318761001Y857739 GENERATE A BIT FOR TABLE 3300A 71 L0318831001B434 BRANCH TO SET WORD MARKS IN TABLE 3300A 72 L0319191001,929936 ERROR PRINT ROUTINE IF NO BR OCCURRED 3300A 73 L0319261001M467931 ON HIGH CONDITION 3300A 74 L0319331001M470938 ,, 3300A 75 L0319401001)929936 ,, 3300A 76 L0319471001LAAA202 ,, 3300A 77 L0319541001LBBB222 ,, 3300A 78 L0319611001L671245 ,, 3300A 79 L0319681001B985T ,, 3300A 80 L0319731001B996S ,, 3300A 81 L0319781001L686285 ,, 3300A 82 L0319851001B975E E ON TO ERROR STOP 3300A 83 L03199010012976 ERROR PRINT 3300A 84 L0319941001. ERROR STOP 3300A 85 L0319951001B464D D ON TO REPEAT SAME COMPARE 3300A 86 L031`001001B490 BRANCH TO CONTINUE TEST 3300A 87 L031`041001L676265 LOAD -RESULT IS- COMMENT 3300A 88 L031`111001B959 ,, 3300A 89 L031`151001L681265 ,, 3300A 90 L031`221001B959 ,, 3300A 91 L031`291001,`39`46 ERROR PRINT ROUTINE IF BRANCH OCCURRED 3300A 92 L031`361001M515`41 ON LOW CONDITION 3300A 93 L031`431001M518`48 ,, 3300A 94 L031`501001)`39`46 ,, 3300A 95 L031`571001LAAA202 ,, 3300A 96 L031`641001LBBB222 ,, 3300A 97 L031`711001L676245 ,, 3300A 98 L031`781001B`95U ,, 3300A 99 L031`831001B/06S ,, 3300A100 L031`881001L686285 ,, 3300A101 L031`951001B`85E E ON TO ERROR STOP 3300A102 L031/0010012`86 ERROR PRINT 3300A103 L031/041001. ERROR STOP 3300A104 L031/051001B512D D ON TO REPEAT SAME COMPARE 3300A105 L031/101001B529 BRANCH TO CONTINUE TEST 3300A106 L031/141001L671265 LOAD -RESULT IS- COMMENT 3300A107 L031/211001B`69 ,, 3300A108 L031/251001L681265 ,, 3300A109 L031/321001B`69 ,, 3300A110 L031/391001A FIELD HEADINGS CONSTANTS 3300A111 L031/591001B FIELD ,, 3300A112 L031/791001RESULT SHOULD BE ,, 3300A113 L031/991001RESULT IS ,, 3300A114 ,019027,031,038042B031T98"B400L046352BW04BS88 BRANCH HIGH 3300A115 ,0080121001 BRANCH LOW 3310A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 3310A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 3310A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 3310A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 3310A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 3310A 06 L0313961001B389S591 USE WHEN TESTS ARE RUN FROM TAPE 3310A 07 L0314041001BS88 ,, 3310A 08 L0314081001N000 ,, 3310A 09 L0314121001M360392 ,, 3310A 10 L0314191001/332 START TEST 3310A 11 L0314231001/ 3310A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 3310A 13 L0314321001L653441 SET INSTR IN 438 & 464 TO INITIAL COND 3310A 14 L0314391001L660470 ,, 3310A 15 L0314461001B850 BR TO GEN WD SEP & A BIT FOR TABLE 3310A 16 L0314531001)439 SET WORD MARK IN ALL ODD ADDR OF TABLE 3310A 17 L0314571001,701439 ,, 3310A 18 L0314641001V4648291 ,, 3310A 19 L0314721001A971441 ,, 3310A 20 L0314791001B434 ,, 3310A 21 L0314831001C704702 COMPARE 3310A 22 L0314901001B485T BRANCH LOW - SHOULD BRANCH 3310A 23 L0314951001B464B B ON TO SCOPE 3310A 24 L0315001001B900 BRANCH TO ERROR PRINT ROUTINE 3310A 25 L0315041001B464B B ON TO SCOPE 3310A 26 L0315091001,513 INTERCHANGE A & B FLDS OF COMP IN 464 3310A 27 L0315131001M467518 TO SET UP COMP IN 512 FOR HIGH COND 3310A 28 L0315201001M470515 ,, 3310A 29 L0315271001)513 ,, 3310A 30 L0315311001C702704 COMPARE 3310A 31 L0315381001B632T BRANCH LOW - SHOULD NOT BRANCH 3310A 32 L0315431001B512B B ON TO SCOPE 3310A 33 L0315481001C467666 TEST FOR END OF TABLE IN A FIELD OF 464 3310A 34 L0315551001B545/ BRANCH IF UNEQUAL TO ADD 2 TO A FIELD 3310A 35 L0315601001B564 BRANCH TO TEST FOR END OF TABLE IN B FLD3310A 36 L0315641001,465 ADD 2 TO A FIELD OF COMP IN 464 3310A 37 L0315681001A971467 ,, 3310A 38 L0315751001)465 ,, 3310A 39 L0315791001B464 BRANCH TO COMPARE NEXT SET OF CHARACTERS3310A 40 L0315831001C470663 TEST FOR END OF TABLE IN B FIELD 3310A 41 L0315901001B596/ BRANCH IF UNEQUAL TO ADD 2 TO B FIELD 3310A 42 L0315951001B413G G ON TO REPEAT TEST 3310A 43 L0316001001)711829 CLEAR ANY GM-WM FROM PROGRAM 3310A 44 L0316071001/230 ,, 3310A 45 L0316111001B348 BRANCH TO READ NEXT RECORD 3310A 46 L0316151001,468 ADD 2 TO B FIELD OF COMP IN 464 3310A 47 L0316191001A971470 ,, 3310A 48 L0316261001L470467 MAKE A FIELD 2 GREATER THAN B FIELD 3310A 49 L0316331001A971467 ,, 3310A 50 L0316401001)465468 ,, 3310A 51 L0316471001B464 BRANCH TO COMPARE NEXT SET OF CHARACTERS3310A 52 L0316511001B512B B ON TO SCOPE 3310A 53 L0316561001B`10 BRANCH TO ERROR PRINT ROUTINE 3310A 54 L0316691001,701 CONSTANTS TO SET INSTR TO INITIAL COND 3310A 55 L0316731001C704702 ,, 3310A 56 L0316801001828 CONSTANTS TO DETECT END OF TABLE 3310A 57 L0316831001830 ,, 3310A 58 L0316861001HIGH CONSTANTS FOR PRINTOUTS 3310A 59 L0316911001LOW ,, 3310A 60 L0316961001EQUAL ,, 3310A 61 L0317011001ERROR ,, 3310A 62 L0317201001 . ) [ < " & $ * ] TABLE USED IN COMPARING 3310A 63 L0317401001; _ - / , % : \ + ,, 3310A 64 L0317601001# @ : > ( ? A B C D ,, 3310A 65 L0317801001E F G H I ! J K L M ,, 3310A 66 L0318001001N O P Q R ` S T U V ,, 3310A 67 L0318201001W X Y Z 0 1 2 3 4 5 ,, 3310A 68 L03184010016 7 819 91 ,, 3310A 69 L0318691001Y850733 GENERATE WORD SEPARATOR CHARAC FOR TABLE3310A 70 L0318761001Y857739 GENERATE A BIT FOR TABLE 3310A 71 L0318831001B434 BRANCH TO SET WORD MARKS IN TABLE 3310A 72 L0319191001,929936 ERROR PRINT ROUTINE IF NO BR OCCURRED 3310A 73 L0319261001M467931 ON LOW CONDITION 3310A 74 L0319331001M470938 ,, 3310A 75 L0319401001)929936 ,, 3310A 76 L0319471001LAAA202 ,, 3310A 77 L0319541001LBBB222 ,, 3310A 78 L0319611001L676245 ,, 3310A 79 L0319681001B985U ,, 3310A 80 L0319731001B996S ,, 3310A 81 L0319781001L686285 ,, 3310A 82 L0319851001B975E E ON TO ERROR STOP 3310A 83 L03199010012976 ERROR PRINT 3310A 84 L0319941001. ERROR STOP 3310A 85 L0319951001B464D D ON TO REPEAT SAME COMPARE 3310A 86 L031`001001B490 BRANCH TO CONTINUE TEST 3310A 87 L031`041001L671265 LOAD -RESULT IS- COMMENT 3310A 88 L031`111001B959 ,, 3310A 89 L031`151001L681265 ,, 3310A 90 L031`221001B959 ,, 3310A 91 L031`291001,`39`46 ERROR PRINT ROUTINE IF BRANCH OCCURRED 3310A 92 L031`361001M515`41 ON HIGH CONDITION 3310A 93 L031`431001M518`48 ,, 3310A 94 L031`501001)`39`46 ,, 3310A 95 L031`571001LAAA202 ,, 3310A 96 L031`641001LBBB222 ,, 3310A 97 L031`711001L671245 ,, 3310A 98 L031`781001B`95T ,, 3310A 99 L031`831001B/06S ,, 3310A100 L031`881001L686285 ,, 3310A101 L031`951001B`85E E ON TO ERROR STOP 3310A102 L031/0010012`86 ERROR PRINT 3310A103 L031/041001. ERROR STOP 3310A104 L031/051001B512D D ON TO REPEAT SAME COMPARE 3310A105 L031/101001B529 BRANCH TO CONTINUE TEST 3310A106 L031/141001L676265 LOAD -RESULT IS- COMMENT 3310A107 L031/211001B`69 ,, 3310A108 L031/251001L681265 ,, 3310A109 L031/321001B`69 ,, 3310A110 L031/391001A FIELD HEADINGS CONSTANTS 3310A111 L031/591001B FIELD ,, 3310A112 L031/791001RESULT SHOULD BE ,, 3310A113 L031/991001RESULT IS ,, 3310A114 ,019027,031,038042B031T98"B400L046352BW04BS88 BRANCH LOW 3310A115 ,0080121001 BRANCH EQUAL 3320A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 3320A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 3320A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 3320A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 3320A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 3320A 06 L0313961001B389S591 USE WHEN TESTS ARE RUN FROM TAPE 3320A 07 L0314041001BS88 ,, 3320A 08 L0314081001N000 ,, 3320A 09 L0314121001M360392 ,, 3320A 10 L0314191001/332 START TEST 3320A 11 L0314231001/ 3320A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 3320A 13 L0314321001/080 CLEAR READ AREA 3320A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 3320A 15 L0314401001,001078 LOAD PRINT AREA 3320A 16 L0314471001L080299 ,, 3320A 17 L0314541001L072272 ,, 3320A 18 L0314611001,222 ,, 3320A 19 L0314651001C203223 COMPARE 3320A 20 L0314721001B475S BRANCH EQUAL 3320A 21 L0314771001B446B B ON TO SCOPE 3320A 22 L0314821001B492041U NO ERROR IF U IN 041 3320A 23 L0314901001B900 BRANCH TO ERROR PRINT ROUTINE 3320A 24 L0314941001B446B B ON TO SCOPE 3320A 25 L0314991001B492041E NO ERROR IF E IN 041 3320A 26 L0315071001B889 BRANCH TO ERROR PRINT ROUTINE 3320A 27 L0315111001,241 LOAD -RESULT IS- COMMENT 3320A 28 L0315151001L250270 ,, 3320A 29 L0315221001B950C C ON TO CORRECT PRINT ROUTINE 3320A 30 L0315271001B958 BRANCH TO SENSE D 3320A 31 L0319081001L`89270 LOAD -RESULT IS- COMMENT 3320A 32 L0319151001B910 ,, 3320A 33 L0319191001B971U ERROR PRINT ROUTINE 3320A 34 L0319241001B982T ,, 3320A 35 L0319291001L/14285 ,, 3320A 36 L0319361001B926E E ON TO ERROR STOP 3320A 37 L03194110012958 ERROR PRINT 3320A 38 L0319451001. ERROR STOP 3320A 39 L0319461001B958 BRANCH TO SENSE D 3320A 40 L0319691001L/19285 CORRECT PRINT ROUTINE 3320A 41 L03197610012 ,, 3320A 42 L0319771001B421D D ON TO REPEAT SAME COMPARE 3320A 43 L0319821001/280 CLEAR ANY GM-WM FROM PROGRAM 3320A 44 L0319861001B417 BRANCH TO READ NEXT RECORD 3320A 45 L0319901001L`99270 LOAD -RESULT IS- COMMENT 3320A 46 L0319971001B910 ,, 3320A 47 L031`011001L/09270 ,, 3320A 48 L031`081001B910 ,, 3320A 49 L031`991001EQUAL CONSTANTS FOR PRINTOUTS 3320A 50 L031/091001HIGH ,, 3320A 51 L031/191001LOW ,, 3320A 52 L031/291001ERROR ,, 3320A 53 L031/341001 ,, 3320A 54 L031/391001A FIELD ,, 3320A 55 L031/591001B FIELD ,, 3320A 56 L031/791001RESULT SHOULD BE ,, 3320A 57 L031/991001RESULT IS ,, 3320A 58 ,019027,031,038042B031T98"B400L046352BW04BS88 BRANCH EQUAL 3320A 59 BLANK BLANK EQUAL 3320A 60 " GM " GM EQUAL 3320A 61 1 BLANK UNEQUAL 3320A 62 BLANK 1 UNEQUAL 3320A 63 2 BLANK UNEQUAL 3320A 64 BLANK 2 UNEQUAL 3320A 65 4 BLANK UNEQUAL 3320A 66 BLANK 4 UNEQUAL 3320A 67 8 BLANK UNEQUAL 3320A 68 BLANK 8 UNEQUAL 3320A 69 / 1 UNEQUAL 3320A 70 1 / UNEQUAL 3320A 71 - BLANK UNEQUAL 3320A 72 BLANK - UNEQUAL 3320A 73 RW RW EQUAL 3320A 74 RW RR UNEQUAL 3320A 75 RR RW UNEQUAL 3320A 76 ,008015,022029,033033N0000001001 HI-LO-EQUAL FIELD COMP. 3330A 0A ,008015,022029,033033N0000001001 SET WORD MARK CARD 3330A 02 L060128,106111,116122,1251271001HIGH LOW EQUAL0010210410099 3330A 03 L067367,340344,348349,3573611001,008012,00110011B361080AB428/340080 3330A 04 L069404,377385,389393,4004041001 B389S591BS88N000M360392/332/ 3330A 05 L069441,413417,424428,4354421001BS00S521/080,100297B348M080299M041100 3330A 06 L070479,449456,463470,4754801001,001021C010030M010210M030230B449BB494U 3330A 07 L072519,485490,494501,5095131001B513TB532S.449M105265B551100HB604M1102653330A 08 L070557,528532,539547,5515581001B562100LB604M115265B573100EB604M105245 3330A 09 L070595,562569,573580,5875961001B580M110245B580M115245M/19285B769 3330A 10 L070633,600604,612620,62763410012754.754B643100HB654100LM115245M/14285 3330A 11 L068669,639643,650654,6616651001B600EB596M105245B627M110245B627B449G 3330A 12 L068705,677685,692699,7067061001)001021B7244441,443671A347448A347676 3330A 13 L071744,713720,724731,7387451001A344438)443671B435M124438M121448M121676 3330A 14 L068780,750754,758765,7697761001B435DB348/230M117126B665C126128B792S 3330A 15 L072820,788792,797797,7977971001A118126B449B596CB754 `0063330A 16 L072/49,/15/20,/40/40,/40/401001ERROR A FIELD B FIELD 3330A 17 L072/89)/50/50,/60/80,/80/801001 RESULT SHOULD BE RESULT IS 3330A 18 L055S12)/90/90,S00S01,S05S121001 2,049L0772772 3330A 19 L060S40,S17S18,S25S29,S36S371001/2772)/40/60)/80L/892702/277 3330A 20 L040S48,S45S45,S45S45,S45S4510012413 3330A 21 /333080 CLEAR WORD MARK CARD 3330A 22 ,019027,031,038042B031T98"B400L046352BW04BS88 HI-LO-EQUAL FIELD COMP. 3330A 23 A1B2C3D4E5 BJCKDLEMFN HLHLHLHLHL 3330A 24 01BC45FG89 /STUVWXYZ LLHHLLHHLL 3330A 25 R8P6N4L2J0 Q873N5C2RZ LHHLHHLHHL 3330A 26 FIELDCOMP. AX/7&6OMP. LHLHLHEEEE 3330A 27 AX/7&LOMP. FIELDCOMP. HLHLHLEEEE 3330A 28 0123456789 9876543210 HHHHHLLLLL 3330A 29 JFBL306GNZ JBRL196)SZ LLHLLHLLHE 3330A 30 9876543210 0123456789 LLLLLHHHHH 3330A 31 AMS/DNWXF0 KBS3,N9HF7 HLHHLHHLHH 3330A 32 AKT4BLU5CM ,3T2RLL9CD LHLLHLLHLL 3330A 33 ,0080121001 MODIFY ADDRESS 3700A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 3700A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 3700A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 3700A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 3700A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 3700A 06 L0313961001B389S641 USE WHEN TESTS ARE RUN FROM TAPE 3700A 07 L0314041001BS88 ,, 3700A 08 L0314081001N000 ,, 3700A 09 L0314121001M360392 ,, 3700A 10 L0314191001/332 START TEST 3700A 11 L0314231001/ 3700A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 3700A 13 L0314321001/080 CLEAR READ AREA 3700A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 3700A 15 L0314401001,001078 LOAD PRINT AREA 3700A 16 L0314471001L080299 ,, 3700A 17 L0314541001L072272 ,, 3700A 18 L0314611001,221241 ,, 3700A 19 L0314681001L224264 LOAD B FIELD 3700A 20 L0314751001,203264 ,, 3700A 21 L0314821001#204264 MODIFY ADDRESS 3700A 22 L0314891001B449B B ON TO SCOPE 3700A 23 L0314941001)264 TEST FOR ERROR 3700A 24 L0314981001C264244 ,, 3700A 25 L0315051001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 3700A 26 L0315101001B950C C ON TO CORRECT PRINT ROUTINE 3700A 27 L0315151001B958 BRANCH TO SENSE D 3700A 28 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 3700A 29 L0319261001B916E E ON TO ERROR STOP 3700A 30 L03193110012958 ERROR PRINT 3700A 31 L0319351001.958 ERROR STOP 3700A 32 L0319391001 WORD MARK 3700A 33 L0319691001L/19285 CORRECT PRINT ROUTINE 3700A 34 L03197610012 ,, 3700A 35 L0319771001B421D D ON TO REPEAT 3700A 36 L0319821001B417 BRANCH TO READ NEXT RECORD 3700A 37 L031/291001ERROR CONSTANTS 3700A 38 L031/341001 ,, 3700A 39 L031/391001A FIELD ,, 3700A 40 L031/591001B FIELD ,, 3700A 41 L031/791001RESULT SHOULD BE ,, 3700A 42 L031/991001RESULT IS ,, 3700A 43 ,019027,031,038042B031T98"B400L046352BW04BS88 MODIFY ADDRESS 3700A 44 000 000 000 3700A 45 777 888 W65 3700A 46 /23 !24 A47 3700A 47 K34 F81 Z1V 3700A 48 C45 T57 70S 3700A 49 U5O Z0B C5Y 3700A 50 F7Q /3N 81T 3700A 51 N6P U6Y 035 3700A 52 X8I PI? 5GI 3700A 53 Q9? KMW /LW 3700A 54 I0A Q/L P/M 3700A 55 `AS E7I 59/ 3700A 56 JKT ?2U /4G 3700A 57 BTU F8J R15 3700A 58