,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