,0080121001                                     COMPLEMENT ADD          0310A 0A
,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0310A 02
,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0310A 03
L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413    CARD 1 OF 3 0310A 04
,019026,033,040044,051051/340001       TITLE PRINT ROUTINE  CARD 2 OF 3 0310A 05
,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080          CARD 3 OF 3 0310A 06
L0313961001B389                 USE WHEN TESTS ARE RUN FROM TAPE        0310A 07
L0314041001BS88                   ,,                                    0310A 08
L0314081001N000                   ,,                                    0310A 09
L0314121001M360392                ,,                                    0310A 10
L0314191001/332                 START TEST                              0310A 11
L0314231001/                                                            0310A 12
L0314241001BS00S521             BR TO TITLE PRINT ROUTINE IF 1 IN S52   0310A 13
L0314321001/080                 CLEAR READ AREA                         0310A 14
L0314361001B348                 BRANCH TO PROGRAM CHAINING ROUTINE      0310A 15
L0314401001,001078              LOAD PRINT AREA                         0310A 16
L0314471001L080299                ,,                                    0310A 17
L0314541001L072272                ,,                                    0310A 18
L0314611001,221241                ,,                                    0310A 19
L0314681001)201                   ,,                                    0310A 20
L0314721001B484013S             BR TO USE SUBTRACT CODE IF S IN 013     0310A 21
L0314801001L230270              LOAD B FIELD                            0310A 22
L0314871001A210270              ADD WITH UNLIKE SIGNS                   0310A 23
L0314941001B461B                B ON TO SCOPE                           0310A 24
L0314991001B503                 BRANCH TO TEST FOR ERROR                0310A 25
L0315031001L230270              LOAD B FIELD                            0310A 26
L0315101001S210270              SUBTRACT WITH LIKE SIGNS                0310A 27
L0315171001B484B                B ON TO SCOPE                           0310A 28
L0315221001C270250              TEST FOR ERROR                          0310A 29
L0315291001B900/                BRANCH TO ERROR PRINT ROUTINE IF UNEQ   0310A 30
L0315341001B950C                C ON TO CORRECT PRINT ROUTINE           0310A 31
L0315391001B958                 BRANCH TO SENSE D                       0310A 32
L0319191001L/14285              BEGIN ERROR PRINT ROUTINE               0310A 33
L0319261001B916E                E ON TO ERROR STOP                      0310A 34
L03193110012958                 ERROR PRINT                             0310A 35
L0319351001.958                 ERROR STOP                              0310A 36
L0319391001                     WORD MARK                               0310A 37
L0319691001L/19285              CORRECT PRINT ROUTINE                   0310A 38
L03197610012                      ,,                                    0310A 39
L0319771001B421D                D ON TO REPEAT                          0310A 40
L0319821001B417                 BRANCH TO READ NEXT RECORD              0310A 41
L031/291001ERROR                CONSTANTS                               0310A 42
L031/341001                       ,,                                    0310A 43
L031/391001A FIELD                ,,                                    0310A 44
L031/591001B FIELD                ,,                                    0310A 45
L031/791001RESULT SHOULD BE       ,,                                    0310A 46
L031/991001RESULT IS              ,,                                    0310A 47
,019027,031,038042B031T98"B400L046352BW04BS88   COMPLEMENT ADD          0310A 48
000000000!  ADD OP  0123456789          012345678I                      0310A 49
111111110J  ADD OP  123456789'          012345678I                      0310A 50
222222211K  ADD OP  234567890A          012345678I                      0310A 51
3333332223  ADD OP  345678901K          012345678R                      0310A 52
444443333U  ADD OP  456789012L          012345678R                      0310A 53
555544444E  ADD OP  567890123M          012345678R                      0310A 54
666555555O  SUB OP  678901234N          012345678R                      0310A 55
776666666X  SUB OP  7890123456          012345678I                      0310A 56
877777777H  SUB OP  890123456X          012345678I                      0310A 57
8HQYHQYHQ9  SUB OP  9?JSCMVFPH          012345678I                      0310A 58
