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