,0080121001                                     COMPLEMENT ADD          0311A00A
,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0311A002
,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0311A003
L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413    CARD 1 OF 3 0311A004
,019026,033,040044,051051/340001       TITLE PRINT ROUTINE  CARD 2 OF 3 0311A005
,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080          CARD 3 OF 3 0311A006
L0313961001B389                 USE WHEN TESTS ARE RUN FROM TAPE        0311A007
L0314041001BS88                   ,,                                    0311A008
L0314081001N000                   ,,                                    0311A009
L0314121001M360392                ,,                                    0311A010
L0314191001/332                 START TEST                              0311A011
L0314231001/                                                            0311A012
L0314241001BS00S521             BR TO TITLE PRINT ROUTINE IF 1 IN S52   0311A013
L0314321001/080                 CLEAR READ AREA                         0311A014
L0314361001B348                 BRANCH TO PROGRAM CHAINING ROUTINE      0311A015
L0314401001,001078              LOAD PRINT AREA                         0311A016
L0314471001L080299                ,,                                    0311A017
L0314541001L072272                ,,                                    0311A018
L0314611001,221241                ,,                                    0311A019
L0314681001B524                 SET AFIELD WM                           0311A020
L0314721001B484013S             BR TO USE SUBTRACT CODE IF S IN 013     0311A021
L0314801001L230270              LOAD B FIELD                            0311A022
L0314871001A210270              ADD WITH UNLIKE SIGNS                   0311A023
L0314941001B461B                B ON TO SCOPE                           0311A024
L0314991001B503                 BRANCH TO TEST FOR ERROR                0311A025
L0315031001L230270              LOAD B FIELD                            0311A026
L0315101001S210270              SUBTRACT WITH LIKE SIGNS                0311A027
L0315171001B484B                B ON TO SCOPE                           0311A028
L0315221001C270250              TEST FOR ERROR                          0311A029
L0315291001B900/                BRANCH TO ERROR PRINT ROUTINE IF UNEQ   0311A030
L0315341001B950C                C ON TO CORRECT PRINT ROUTINE           0311A031
L0315391001B958                 BRANCH TO SENSE D                       0311A032
L0315431001B604232A             CLEAR AFIELD WM                         0311A033
L0315511001B612232B             CLEAR AFIELD WM                         0311A034
L0315591001B620232C             SET AFIELD WM                           0311A035
L0315671001B628232D             SET AFIELD WM                           0311A036
L0315751001B636232E             SET AFIELD WM                           0311A037
L0315831001B644232F             SET AFIELD WM                           0311A038
L0315911001B652232G             SET AFIELD WM                           0311A039
L0315991001B660232H             SET AFIELD WM                           0311A040
L0316071001B668232I             SET AFIELD WM                           0311A041
L0316151001B676232K             SET AFIELD WM                           0311A042
L0316231001)201                 SET AFIELD WM                           0311A043
L0316271001B453                 SET AFIELD WM                           0311A044
L0316311001,202                 SET AFIELD WM                           0311A045
L0316351001B453                 SET AFIELD WM                           0311A046
L0316391001,203                 SET AFIELD WM                           0311A047
L0316431001B453                 SET AFIELD WM                           0311A048
L0316471001,204                 SET AFIELD WM                           0311A049
L0316511001B453                 SET AFIELD WM                           0311A050
L0316551001,205                 SET AFIELD WM                           0311A051
L0316591001B453                 SET AFIELD WM                           0311A052
L0316631001,206                 SET AFIELD WM                           0311A053
L0316671001B453                 SET AFIELD WM                           0311A054
L0316711001,207                 SET AFIELD WM                           0311A055
L0316751001B453                 SET AFIELD WM                           0311A056
L0316791001,208                 SET AFIELD WM                           0311A057
L0316831001B453                 SET AFIELD WM                           0311A058
L0316871001,209                 SET AFIELD WM                           0311A059
L0316911001B453                 SET AFIELD WM                           0311A060
L0316951001,210                 SET AFIELD WM                           0311A061
L0316991001B453                 SET AFIELD WM                           0311A062
L0317031001                     SET AFIELD WM                           0311A063
L0319191001L/14285              BEGIN ERROR PRINT ROUTINE               0311A064
L0319261001B916E                E ON TO ERROR STOP                      0311A065
L03193110012958                 ERROR PRINT                             0311A066
L0319351001.958                 ERROR STOP                              0311A067
L0319391001                     WORD MARK                               0311A068
L0319691001L/19285              CORRECT PRINT ROUTINE                   0311A069
L03197610012                      ,,                                    0311A070
L0319771001B421D                D ON TO REPEAT                          0311A071
L0319821001B417                 BRANCH TO READ NEXT RECORD              0311A072
L031/291001ERROR                CONSTANTS                               0311A073
L031/341001                       ,,                                    0311A074
L031/391001A FIELD                ,,                                    0311A075
L031/591001B FIELD                ,,                                    0311A076
L031/791001RESULT SHOULD BE       ,,                                    0311A077
L031/991001RESULT IS              ,,                                    0311A078
,019027,031,038042B031T98"B400L046352BW04BS88   COMPLEMENT ADD          0311A079
000000000!  ADD OP  0123456789          012345678I                      0311A080
111111110J  ADD OP  123456789'          012345678I                      0311A081
222222211K  ADD OP  234567890A          012345678I                      0311A082
3333332223  ADD OP  345678901K          012345678R                      0311A083
444443333U  ADD OP  456789012L          012345678R                      0311A084
555544444E  ADD OP  567890123M          012345678R                      0311A085
666555555O  SUB OP  678901234N          012345678R                      0311A086
776666666X  SUB OP  7890123456          012345678I                      0311A087
877777777H  SUB OP  890123456X          012345678I                      0311A088
8HQYHQYHQ9  SUB OP  9?JSCMVFPH          012345678I                      0311A089
000000000!  ADD OP  0123456789 A        012345678I                      0311A090
111111110J  ADD OP  123456789' A        012345678I                      0311A091
222222211K  ADD OP  234567890A A        012345678I                      0311A092
3333332223  ADD OP  345678901K A        012345678R                      0311A093
444443333U  ADD OP  456789012L A        012345678R                      0311A094
555544444E  ADD OP  567890123M A        012345678R                      0311A095
666555555O  SUB OP  678901234N A        012345678R                      0311A096
776666666X  SUB OP  7890123456 A        012345678I                      0311A097
877777777H  SUB OP  890123456X A        012345678I                      0311A098
8HQYHQYHQ9  SUB OP  9?JSCMVFPH A        012345678I                      0311A099
000000000!  ADD OP  0123456789 B        012345678I                      0311A100
111111110J  ADD OP  123456789' B        112345678I                      0311A101
222222211K  ADD OP  234567890A B        212345678I                      0311A102
3333332223  ADD OP  345678901K B        312345678R                      0311A103
444443333U  ADD OP  456789012L B        412345678R                      0311A104
555544444E  ADD OP  567890123M B        512345678R                      0311A105
666555555O  SUB OP  678901234N B        612345678R                      0311A106
776666666X  SUB OP  7890123456 B        712345678I                      0311A107
877777777H  SUB OP  890123456X B        812345678I                      0311A108
8HQYHQYHQ9  SUB OP  9?JSCMVFPH B        812345678I                      0311A109
000000000!  ADD OP  0123456789 C        012345678I                      0311A110
111111110J  ADD OP  123456789' C        122345678I                      0311A111
222222211K  ADD OP  234567890A C        232345678I                      0311A112
3333332223  ADD OP  345678901K C        342345678R                      0311A113
444443333U  ADD OP  456789012L C        452345678R                      0311A114
555544444E  ADD OP  567890123M C        562345678R                      0311A115
666555555O  SUB OP  678901234N C        672345678R                      0311A116
776666666X  SUB OP  7890123456 C        782345678I                      0311A117
877777777H  SUB OP  890123456X C        882345678I                      0311A118
8HQYHQYHQ9  SUB OP  9?JSCMVFPH C        892345678I                      0311A119
000000000!  ADD OP  0123456789 D        012345678I                      0311A120
111111110J  ADD OP  123456789' D        123345678I                      0311A121
222222211K  ADD OP  234567890A D        234345678I                      0311A122
3333332223  ADD OP  345678901K D        345345678R                      0311A123
444443333U  ADD OP  456789012L D        456345678R                      0311A124
555544444E  ADD OP  567890123M D        567345678R                      0311A125
666555555O  SUB OP  678901234N D        678345678R                      0311A126
776666666X  SUB OP  7890123456 D        788345678I                      0311A127
877777777H  SUB OP  890123456X D        889345678I                      0311A128
8HQYHQYHQ9  SUB OP  9?JSCMVFPH D        900345678I                      0311A129
000000000!  ADD OP  0123456789 E        012345678I                      0311A130
111111110J  ADD OP  123456789' E        123445678I                      0311A131
222222211K  ADD OP  234567890A E        234545678I                      0311A132
3333332223  ADD OP  345678901K E        345645678R                      0311A133
444443333U  ADD OP  456789012L E        456745678R                      0311A134
555544444E  ADD OP  567890123M E        567845678R                      0311A135
666555555O  SUB OP  678901234N E        678845678R                      0311A136
776666666X  SUB OP  7890123456 E        788945678I                      0311A137
877777777H  SUB OP  890123456X E        890045678I                      0311A138
8HQYHQYHQ9  SUB OP  9?JSCMVFPH E        901145678I                      0311A139
000000000!  ADD OP  0123456789 F        012345678I                      0311A140
111111110J  ADD OP  123456789' F        123455678I                      0311A141
222222211K  ADD OP  234567890A F        234565678I                      0311A142
3333332223  ADD OP  345678901K F        345675678R                      0311A143
444443333U  ADD OP  456789012L F        456785678R                      0311A144
555544444E  ADD OP  567890123M F        567885678R                      0311A145
666555555O  SUB OP  678901234N F        678895678R                      0311A146
776666666X  SUB OP  7890123456 F        789005678I                      0311A147
877777777H  SUB OP  890123456X F        890115678I                      0311A148
8HQYHQYHQ9  SUB OP  9?JSCMVFPH F        901225678I                      0311A149
000000000!  ADD OP  0123456789 G        012345678I                      0311A150
111111110J  ADD OP  123456789' G        123456678I                      0311A151
222222211K  ADD OP  234567890A G        234567678I                      0311A152
3333332223  ADD OP  345678901K G        345678678R                      0311A153
444443333U  ADD OP  456789012L G        456788678R                      0311A154
555544444E  ADD OP  567890123M G        567889678R                      0311A155
666555555O  SUB OP  678901234N G        678900678R                      0311A156
776666666X  SUB OP  7890123456 G        789011678I                      0311A157
877777777H  SUB OP  890123456X G        890122678I                      0311A158
8HQYHQYHQ9  SUB OP  9?JSCMVFPH G        901233678I                      0311A159
000000000!  ADD OP  0123456789 H        012345678I                      0311A160
111111110J  ADD OP  123456789' H        123456778I                      0311A161
222222211K  ADD OP  234567890A H        234567878I                      0311A162
3333332223  ADD OP  345678901K H        345678878R                      0311A163
444443333U  ADD OP  456789012L H        456788978R                      0311A164
555544444E  ADD OP  567890123M H        567890078R                      0311A165
666555555O  SUB OP  678901234N H        678901178R                      0311A166
776666666X  SUB OP  7890123456 H        789012278I                      0311A167
877777777H  SUB OP  890123456X H        890123378I                      0311A168
8HQYHQYHQ9  SUB OP  9?JSCMVFPH H        901234478I                      0311A169
000000000!  ADD OP  0123456789 I        012345678I                      0311A170
111111110J  ADD OP  123456789' I        123456788I                      0311A171
222222211K  ADD OP  234567890A I        234567888I                      0311A172
3333332223  ADD OP  345678901K I        345678898R                      0311A173
444443333U  ADD OP  456789012L I        456789008R                      0311A174
555544444E  ADD OP  567890123M I        567890118R                      0311A175
666555555O  SUB OP  678901234N I        678901228R                      0311A176
776666666X  SUB OP  7890123456 I        789012338I                      0311A177
877777777H  SUB OP  890123456X I        890123448I                      0311A178
8HQYHQYHQ9  SUB OP  9?JSCMVFPH I        901234558I                      0311A179
000000000!  ADD OP  0123456789 K        012345678I                      0311A180
111111110J  ADD OP  123456789' K        123456788I                      0311A181
222222211K  ADD OP  234567890A K        234567889I                      0311A182
3333332223  ADD OP  345678901K K        345678900R                      0311A183
444443333U  ADD OP  456789012L K        456789011R                      0311A184
555544444E  ADD OP  567890123M K        567890122R                      0311A185
666555555O  SUB OP  678901234N K        678901233R                      0311A186
776666666X  SUB OP  7890123456 K        789012344I                      0311A187
877777777H  SUB OP  890123456X K        890123455I                      0311A188
8HQYHQYHQ9  SUB OP  9?JSCMVFPH K        901234566I                      0311A189
