,008015,022029,033119L0701181001,001L080290B114@B108A3K08512./080F0811 LC2 1 ,085092,097102,103108,109110,040,114047,051052/332/B110 LC2 2 ,0080121001 TEST CHARACTER & BRANCH 0050A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0050A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0050A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0050A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0050A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0050A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0050A 07 L0314041001BS88 ,, 0050A 08 L0314081001N000 ,, 0050A 09 L0314121001M360392 ,, 0050A 10 L0314191001/332 START TEST 0050A 11 L0314231001/ 0050A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0050A 13 L0314321001/080 CLEAR READ AREA 0050A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0050A 15 L0314401001,001078 LOAD PRINT AREA 0050A 16 L0314471001L080299 ,, 0050A 17 L0314541001L072272 ,, 0050A 18 L0314611001,202241 ,, 0050A 19 L0314681001M250456 MOVE B OR N OP INTO 456 0050A 20 L0314751001 486 B OP FOR EQUAL CHAR-N OP FOR UNEQ CHAR 0050A 21 L0314791001M202474 MOVE D MODIFIER TO TEST CHARAC OP 0050A 22 L0314861001B895224X TEST UNEQUAL CHARACTERS 0050A 23 L0314941001B ,, 0050A 24 L0314951001B ,, 0050A 25 L0314961001B467B B ON TO SCOPE 0050A 26 L0315011001B515 BRANCH TO LOAD RESULT COMMENT 0050A 27 L0315051001M202500 MOVE D MODIFIER TO TEST CHARAC OP 0050A 28 L0315121001B510222X TEST EQUAL CHARACTERS 0050A 29 L0315201001B493B B ON TO SCOPE 0050A 30 L0315251001B900 BRANCH TO ERROR PRINT ROUTINE 0050A 31 L0315291001B493B B ON TO SCOPE 0050A 32 L0315341001L247267 LOAD RESULT COMMENT 0050A 33 L0315411001B950C C ON TO CORRECT PRINT ROUTINE 0050A 34 L0315461001B958 BRANCH TO SENSE D 0050A 35 L0319141001B467B B ON TO SCOPE 0050A 36 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0050A 37 L0319261001B916E E ON TO ERROR STOP 0050A 38 L03193110012958 ERROR PRINT 0050A 39 L0319351001.958 ERROR STOP 0050A 40 L0319391001 WORD MARK 0050A 41 L0319691001L/19285 CORRECT PRINT ROUTINE 0050A 42 L03197610012 ,, 0050A 43 L0319771001B421D D ON TO REPEAT 0050A 44 L0319821001/280 CLEAR 0050A 45 L0319861001/080 ,, 0050A 46 L0319901001B417 BRANCH TO READ NEXT RECORD 0050A 47 L031/291001ERROR CONSTANTS 0050A 48 L031/341001 ,, 0050A 49 L031/391001D MODIFIER ,, 0050A 50 L031/591001B FIELD CHARACTERS ,, 0050A 51 L031/791001RESULT SHOULD BE ,, 0050A 52 L031/991001RESULT IS ,, 0050A 53 ,019027,031,038042B031T98"B400L046352BW04BS88 TEST CHARACTER & BRANCH 0050A 54 EQUAL B 0050A 55 " " EQUAL B 0050A 56 1 1 EQUAL B 0050A 57 2 2 EQUAL B 0050A 58 4 4 EQUAL B 0050A 59 8 8 EQUAL B 0050A 60 / / EQUAL B 0050A 61 - - EQUAL B 0050A 62 124 UNEQUAL N 0050A 63 8/- UNEQUAL N 0050A 64 1 24 UNEQUAL N 0050A 65 1 8/- UNEQUAL N 0050A 66 2 14 UNEQUAL N 0050A 67 2 8/- UNEQUAL N 0050A 68 4 12 UNEQUAL N 0050A 69 4 8/- UNEQUAL N 0050A 70 8 12 UNEQUAL N 0050A 71 8 4/- UNEQUAL N 0050A 72 / 12 UNEQUAL N 0050A 73 / 48- UNEQUAL N 0050A 74 - 12 UNEQUAL N 0050A 75 - 48/ UNEQUAL N 0050A 76 ,0080121001 TEST FOR ZONE OR WM & BR0060A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0060A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0060A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0060A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0060A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0060A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0060A 07 L0314041001BS88 ,, 0060A 08 L0314081001N000 ,, 0060A 09 L0314121001M360392 ,, 0060A 10 L0314191001/332 START TEST 0060A 11 L0314231001/ 0060A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0060A 13 L0314321001/080 CLEAR READ AREA 0060A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0060A 15 L0314401001,001078 LOAD PRINT AREA 0060A 16 L0314471001L080299 ,, 0060A 17 L0314541001L072272 ,, 0060A 18 L0314611001B600224* BR TO SET WM IN ALL * AND % CHARAC 0060A 19 L0314691001B600224% ,, 0060A 20 L0314771001B493041 BR TO TEST EQUAL ZONES IF BLANK IN 041 0060A 21 L0314851001M201480 MOVE D MODIFIER TO TEST ZONE OP 0060A 22 L0314921001V895224X TEST UNEQUAL ZONES OR WM 0060A 23 L0315001001V ,, 0060A 24 L0315011001V ,, 0060A 25 L0315021001V ,, 0060A 26 L0315031001B473B B ON TO SCOPE 0060A 27 L0315081001B522 BRANCH TO LOAD RESULT COMMENT 0060A 28 L0315121001M201507 MOVE D MODIFIER TO TEST ZONE OP 0060A 29 L0315191001V517224X TEST EQUAL ZONES OR WM 0060A 30 L0315271001B500B B ON TO SCOPE 0060A 31 L0315321001B900 BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0060A 32 L0315361001B500B B ON TO SCOPE 0060A 33 L0315411001,241 LOAD RESULT COMMENT 0060A 34 L0315451001L247267 ,, 0060A 35 L0315521001B950C C ON TO CORRECT PRINT ROUTINE 0060A 36 L0315571001B958 BRANCH TO SENSE D 0060A 37 L0316191001,224 SET WM IN 224 IF * OR % 0060A 38 L0316231001B458 ,, 0060A 39 L0319141001B473B B ON TO SCOPE 0060A 40 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0060A 41 L0319261001B916E E ON TO ERROR STOP 0060A 42 L03193110012958 ERROR PRINT 0060A 43 L0319351001.958 ERROR STOP 0060A 44 L0319391001 WORD MARK 0060A 45 L0319691001L/19285 CORRECT PRINT ROUTINE 0060A 46 L03197610012 ,, 0060A 47 L0319771001B421D D ON TO REPEAT 0060A 48 L0319821001B417 BRANCH TO READ NEXT RECORD 0060A 49 L031/291001ERROR CONSTANTS 0060A 50 L031/341001 ,, 0060A 51 L031/391001D MODIFIER ,, 0060A 52 L031/591001B FIELD CHARACTERS ,, 0060A 53 L031/791001RESULT SHOULD BE ,, 0060A 54 L031/991001RESULT IS ,, 0060A 55 ,019027,031,038042B031T98"B400L046352BW04BS88 TEST FOR ZONE OR WM & BR0060A 56 B A EQUAL 0060A 57 K K EQUAL 0060A 58 S T EQUAL 0060A 59 2 4 EQUAL 0060A 60 1 * EQUAL 0060A 61 C E EQUAL 0060A 62 L O EQUAL 0060A 63 T X EQUAL 0060A 64 3 8 EQUAL 0060A 65 C * EQUAL 0060A 66 L % EQUAL 0060A 67 T * EQUAL 0060A 68 3 * EQUAL 0060A 69 B KT4* UNEQUAL 0060A 70 K AT4% UNEQUAL 0060A 71 S AK4* UNEQUAL 0060A 72 2 AKT* UNEQUAL 0060A 73 1 AKT4 UNEQUAL 0060A 74 C OX8$ UNEQUAL 0060A 75 L EX8, UNEQUAL 0060A 76 T EO8# UNEQUAL 0060A 77 3 EOX. UNEQUAL 0060A 78 ,0080121001 COMPARE & BR UNEQUAL 0100A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0100A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0100A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0100A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0100A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0100A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0100A 07 L0314041001BS88 ,, 0100A 08 L0314081001N000 ,, 0100A 09 L0314121001M360392 ,, 0100A 10 L0314191001/332 START TEST 0100A 11 L0314231001/ 0100A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0100A 13 L0314321001/080 CLEAR READ AREA 0100A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0100A 15 L0314401001,002078 LOAD PRINT AREA 0100A 16 L0314471001L080299 ,, 0100A 17 L0314541001L072272 ,, 0100A 18 L0314611001B458046L BR TO MAKE B FIELD LARGER IF L IN 046 0100A 19 L0314691001,222 SET B FLD WM IF NO L IN 046 0100A 20 L0314731001B462 BRANCH TO COMPARE 0100A 21 L0314771001,221 SET B FLD WM IF L IN 046 0100A 22 L0314811001C203223 COMPARE & BRANCH UNEQUAL 0100A 23 L0314881001B491/ ,, 0100A 24 L0314931001B462B B ON TO SCOPE 0100A 25 L0314981001B508041 NO ERROR IF BLANK IN 041 0100A 26 L0315061001B900 BRANCH TO ERROR PRINT ROUTINE 0100A 27 L0315101001B462B B ON TO SCOPE 0100A 28 L0315151001B508041U NO ERROR IF U IN 041 0100A 29 L0315231001B900 BRANCH TO ERROR PRINT ROUTINE 0100A 30 L0315271001,241 LOAD RESULT COMMENT 0100A 31 L0315311001L260280 ,, 0100A 32 L0315381001B950C C ON TO CORRECT PRINT ROUTINE 0100A 33 L0315431001B958 BRANCH TO SENSE D 0100A 34 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0100A 35 L0319261001B916E E ON TO ERROR STOP 0100A 36 L03193110012958 ERROR PRINT 0100A 37 L0319351001.958 ERROR STOP 0100A 38 L0319391001 WORD MARK 0100A 39 L0319691001L/19285 CORRECT PRINT ROUTINE 0100A 40 L03197610012 ,, 0100A 41 L0319771001B421D D ON TO REPEAT 0100A 42 L0319821001B417 BRANCH TO READ NEXT RECORD 0100A 43 L031/291001ERROR CONSTANTS 0100A 44 L031/341001 ,, 0100A 45 L031/391001A FIELD ,, 0100A 46 L031/591001B FIELD ,, 0100A 47 L031/791001RESULT SHOULD BE ,, 0100A 48 L031/991001RESULT IS ,, 0100A 49 ,019027,031,038042B031T98"B400L046352BW04BS88 COMPARE & BR UNEQUAL 0100A 50 EQUAL 0100A 51 1 UNEQUAL 0100A 52 1 1 EQUAL 0100A 53 1 UNEQUAL 0100A 54 2 2 EQUAL 0100A 55 2 UNEQUAL 0100A 56 3 3 EQUAL 0100A 57 2 UNEQUAL 0100A 58 4 4 EQUAL 0100A 59 4 UNEQUAL 0100A 60 5 5 EQUAL 0100A 61 4 UNEQUAL 0100A 62 6 6 EQUAL 0100A 63 8 UNEQUAL 0100A 64 7 7 EQUAL 0100A 65 8 UNEQUAL 0100A 66 8 8 EQUAL 0100A 67 / UNEQUAL 0100A 68 9 9 EQUAL 0100A 69 / UNEQUAL 0100A 70 / / EQUAL 0100A 71 - UNEQUAL 0100A 72 - - EQUAL 0100A 73 - UNEQUAL 0100A 74 H7 H7 EQUAL 0100A 75 H7 HH UNEQUAL 0100A 76 RW RW EQUAL 0100A 77 RW RW UNEQ LARGER B FIELD 0100A 78 ,0080121001 LOAD COMPARE 0110A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0110A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0110A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0110A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0110A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0110A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0110A 07 L0314041001BS88 ,, 0110A 08 L0314081001N000 ,, 0110A 09 L0314121001M360392 ,, 0110A 10 L0314191001/332 START TEST 0110A 11 L0314231001/ 0110A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0110A 13 L0314321001/080 CLEAR READ AREA 0110A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0110A 15 L0314401001,001078 LOAD PRINT AREA 0110A 16 L0314471001L080299 ,, 0110A 17 L0314541001L072272 ,, 0110A 18 L0314611001,210241 ,, 0110A 19 L0314681001L210270 LOAD OP WITH CHAINING 0110A 20 L0314751001L ,, 0110A 21 L0314761001B449B B ON TO SCOPE 0110A 22 L0314811001)270 TEST FOR ERROR 0110A 23 L0314851001C270250 ,, 0110A 24 L0314921001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0110A 25 L0314971001B950C C ON TO CORRECT PRINT ROUTINE 0110A 26 L0315021001B958 BRANCH TO SENSE D 0110A 27 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0110A 28 L0319261001B916E E ON TO ERROR STOP 0110A 29 L03193110012958 ERROR PRINT 0110A 30 L0319351001.958 ERROR STOP 0110A 31 L0319391001 WORD MARK 0110A 32 L0319691001L/19285 CORRECT PRINT ROUTINE 0110A 33 L03197610012 ,, 0110A 34 L0319771001B421D D ON TO REPEAT 0110A 35 L0319821001B417 BRANCH TO READ NEXT RECORD 0110A 36 L031/291001ERROR CONSTANTS 0110A 37 L031/341001 ,, 0110A 38 L031/391001A FIELD ,, 0110A 39 L031/591001B FIELD ,, 0110A 40 L031/791001RESULT SHOULD BE ,, 0110A 41 L031/991001RESULT IS ,, 0110A 42 ,019027,031,038042B031T98"B400L046352BW04BS88 LOAD COMPARE 0110A 43 1111111111 1111111111 0110A 44 2222222222 2222222222 0110A 45 4444444444 4444444444 0110A 46 8888888888 8888888888 0110A 47 ////////// ////////// 0110A 48 ---------- ---------- 0110A 49 AKT4 BLU5 AKT4 BLU5 0110A 50 CMV6 DNW7 CMV6 DNW7 0110A 51 EOX8 FPY9 EOX8 FPY9 0110A 52 GQZ0 HR`# GQZ0 HR`# 0110A 53 I-,@ &$%0 I-,@ &$%0 0110A 54 1.*/ )JS3 1.*/ )JS3 0110A 55 ,0080121001 MOVE COMPARE 0200A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0200A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0200A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0200A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0200A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0200A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0200A 07 L0314041001BS88 ,, 0200A 08 L0314081001N000 ,, 0200A 09 L0314121001M360392 ,, 0200A 10 L0314191001/332 START TEST 0200A 11 L0314231001/ 0200A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0200A 13 L0314321001/080 CLEAR READ AREA 0200A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0200A 15 L0314401001,001078 LOAD PRINT AREA 0200A 16 L0314471001L080299 ,, 0200A 17 L0314541001L072272 ,, 0200A 18 L0314611001,241270 ,, 0200A 19 L0314681001M210270 MOVE OP WITH CHAINING 0200A 20 L0314751001M ,, 0200A 21 L0314761001B449B B ON TO SCOPE 0200A 22 L0314811001)270 TEST FOR ERROR 0200A 23 L0314851001C270250 ,, 0200A 24 L0314921001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0200A 25 L0314971001B950C C ON TO CORRECT PRINT ROUTINE 0200A 26 L0315021001B958 BRANCH TO SENSE D 0200A 27 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0200A 28 L0319261001B916E E ON TO ERROR STOP 0200A 29 L03193110012958 ERROR PRINT 0200A 30 L0319351001.958 ERROR STOP 0200A 31 L0319391001 WORD MARK 0200A 32 L0319691001L/19285 CORRECT PRINT ROUTINE 0200A 33 L03197610012 ,, 0200A 34 L0319771001B421D D ON TO REPEAT 0200A 35 L0319821001B417 BRANCH TO READ NEXT RECORD 0200A 36 L031/291001ERROR CONSTANTS 0200A 37 L031/341001 ,, 0200A 38 L031/391001A FIELD ,, 0200A 39 L031/591001B FIELD ,, 0200A 40 L031/791001RESULT SHOULD BE ,, 0200A 41 L031/991001RESULT IS ,, 0200A 42 ,019027,031,038042B031T98"B400L046352BW04BS88 MOVE COMPARE 0200A 43 1111111111 1111111111 0200A 44 2222222222 2222222222 0200A 45 4444444444 4444444444 0200A 46 8888888888 8888888888 0200A 47 ////////// ////////// 0200A 48 ---------- ---------- 0200A 49 AKT4 BLU5 AKT4 BLU5 0200A 50 CMV6 DNW7 CMV6 DNW7 0200A 51 EOX8 FPY9 EOX8 FPY9 0200A 52 GQZ0 HR`# GQZ0 HR`# 0200A 53 I-,@ &$%0 I-,@ &$%0 0200A 54 1.*/ )JS3 1.*/ )JS3 0200A 55 ,0080121001 MOVE DIGIT 0210A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0210A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0210A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0210A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0210A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0210A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0210A 07 L0314041001BS88 ,, 0210A 08 L0314081001N000 ,, 0210A 09 L0314121001M360392 ,, 0210A 10 L0314191001/332 START TEST 0210A 11 L0314231001/ 0210A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0210A 13 L0314321001/080 CLEAR READ AREA 0210A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0210A 15 L0314401001,001078 LOAD PRINT AREA 0210A 16 L0314471001L080299 ,, 0210A 17 L0314541001L072272 ,, 0210A 18 L0314611001,221241 ,, 0210A 19 L0314681001L225265 ,, 0210A 20 L0314751001D205265 MOVE DIGIT OP WITH CHAINING 0210A 21 L0314821001D ,, 0210A 22 L0314831001D ,, 0210A 23 L0314841001D ,, 0210A 24 L0314851001D ,, 0210A 25 L0314861001B456B B ON TO SCOPE 0210A 26 L0314911001C265245 TEST FOR ERROR 0210A 27 L0314981001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0210A 28 L0315031001B950C C ON TO CORRECT PRINT ROUTINE 0210A 29 L0315081001B958 BRANCH TO SENSE D 0210A 30 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0210A 31 L0319261001B916E E ON TO ERROR STOP 0210A 32 L03193110012958 ERROR PRINT 0210A 33 L0319351001.958 ERROR STOP 0210A 34 L0319391001 WORD MARK 0210A 35 L0319691001L/19285 CORRECT PRINT ROUTINE 0210A 36 L03197610012 ,, 0210A 37 L0319771001B421D D ON TO REPEAT 0210A 38 L0319821001B417 BRANCH TO READ NEXT RECORD 0210A 39 L031/291001ERROR CONSTANTS 0210A 40 L031/341001 ,, 0210A 41 L031/391001A FIELD ,, 0210A 42 L031/591001B FIELD ,, 0210A 43 L031/791001RESULT SHOULD BE ,, 0210A 44 L031/991001RESULT IS ,, 0210A 45 ,019027,031,038042B031T98"B400L046352BW04BS88 MOVE DIGIT 0210A 46 12345 67890 12345 0210A 47 67890 12345 67890 0210A 48 &&&&& ----- ----- 0210A 49 ----- &&&&& &&&&& 0210A 50 AKT4 5678 1234 0210A 51 EOX8 1234 5678 0210A 52 9`$) 6789 90#@ 0210A 53 5678 AKT4 EOX8 0210A 54 1234 EOX8 AKT4 0210A 55 ,0080121001 MOVE ZONE 0220A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0220A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0220A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0220A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0220A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0220A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0220A 07 L0314041001BS88 ,, 0220A 08 L0314081001N000 ,, 0220A 09 L0314121001M360392 ,, 0220A 10 L0314191001/332 START TEST 0220A 11 L0314231001/ 0220A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0220A 13 L0314321001/080 CLEAR READ AREA 0220A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0220A 15 L0314401001,001078 LOAD PRINT AREA 0220A 16 L0314471001L080299 ,, 0220A 17 L0314541001L072272 ,, 0220A 18 L0314611001,221241 ,, 0220A 19 L0314681001L225265 ,, 0220A 20 L0314751001Y205265 MOVE ZONE OP WITH CHAINING 0220A 21 L0314821001Y ,, 0220A 22 L0314831001Y ,, 0220A 23 L0314841001Y ,, 0220A 24 L0314851001Y ,, 0220A 25 L0314861001B456B B ON TO SCOPE 0220A 26 L0314911001C265245 TEST FOR ERROR 0220A 27 L0314981001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0220A 28 L0315031001B950C C ON TO CORRECT PRINT ROUTINE 0220A 29 L0315081001B958 BRANCH TO SENSE D 0220A 30 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0220A 31 L0319261001B916E E ON TO ERROR STOP 0220A 32 L03193110012958 ERROR PRINT 0220A 33 L0319351001.958 ERROR STOP 0220A 34 L0319391001 WORD MARK 0220A 35 L0319691001L/19285 CORRECT PRINT ROUTINE 0220A 36 L03197610012 ,, 0220A 37 L0319771001B421D D ON TO REPEAT 0220A 38 L0319821001B417 BRANCH TO READ NEXT RECORD 0220A 39 L031/291001ERROR CONSTANTS 0220A 40 L031/341001 ,, 0220A 41 L031/391001A FIELD ,, 0220A 42 L031/591001B FIELD ,, 0220A 43 L031/791001RESULT SHOULD BE ,, 0220A 44 L031/991001RESULT IS ,, 0220A 45 ,019027,031,038042B031T98"B400L046352BW04BS88 MOVE ZONE 0220A 46 12345 67890 67890 0220A 47 67890 12345 12345 0220A 48 &&&&& ----- &&&&& 0220A 49 ----- &&&&& ----- 0220A 50 AKT4 5678 EOX8 0220A 51 EOX8 1234 AKT4 0220A 52 9`$) 6789 6XQI 0220A 53 5678 AKT4 1234 0220A 54 1234 EOX8 5678 0220A 55 ,0080121001 MOVE & ZERO SUPPRESS 0230A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0230A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0230A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0230A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0230A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0230A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0230A 07 L0314041001BS88 ,, 0230A 08 L0314081001N000 ,, 0230A 09 L0314121001M360392 ,, 0230A 10 L0314191001/332 START TEST 0230A 11 L0314231001/ 0230A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0230A 13 L0314321001/080 CLEAR READ AREA 0230A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0230A 15 L0314401001,001078 LOAD PRINT AREA 0230A 16 L0314471001L080299 ,, 0230A 17 L0314541001L072272 ,, 0230A 18 L0314611001,241265 ,, 0230A 19 L0314681001B480010 BR TO MOVE 1 POS FLD IF BLANK IN 010 0230A 20 L0314761001Z210270 MOVE & ZERO SUPPRESS 10 POS FIELD 0230A 21 L0314831001B457B B ON TO SCOPE 0230A 22 L0314881001C270250 TEST FOR ERROR 0230A 23 L0314951001B499 ,, 0230A 24 L0314991001Z201261 MOVE & ZERO SUPPRESS 1 POS FIELD 0230A 25 L0315061001B480B B ON TO SCOPE 0230A 26 L0315111001C261241 TEST FOR ERROR 0230A 27 L0315181001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0230A 28 L0315231001B950C C ON TO CORRECT PRINT ROUTINE 0230A 29 L0315281001B958 BRANCH TO SENSE D 0230A 30 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0230A 31 L0319261001B916E E ON TO ERROR STOP 0230A 32 L03193110012958 ERROR PRINT 0230A 33 L0319351001.958 ERROR STOP 0230A 34 L0319391001 WORD MARK 0230A 35 L0319691001L/19285 CORRECT PRINT ROUTINE 0230A 36 L03197610012 ,, 0230A 37 L0319771001B421D D ON TO REPEAT 0230A 38 L0319821001B417 BRANCH TO READ NEXT RECORD 0230A 39 L031/291001ERROR CONSTANTS 0230A 40 L031/341001 ,, 0230A 41 L031/391001A FIELD ,, 0230A 42 L031/591001B FIELD ,, 0230A 43 L031/791001RESULT SHOULD BE ,, 0230A 44 L031/991001RESULT IS ,, 0230A 45 ,019027,031,038042B031T98"B400L046352BW04BS88 MOVE & ZERO SUPPRESS 0230A 46 00.000.000 0230A 47 00.000.009 9 0230A 48 00.000.090 90 0230A 49 00.000.80I 809 0230A 50 00.00070A& 70A 0230A 51 00.0060K0R 60K 9 0230A 52 00.050T0Q- 50T Q 0230A 53 00.40D0Z0Z 40D Z 9 0230A 54 0030N0&0-` 30N & - 0230A 55 020W0$0`07 20W $ ` 7 0230A 56 10G0)0#0@0 10G ) # @ 0230A 57 7 7 0230A 58 R 9 0230A 59 & 0230A 60 ` 0230A 61 0 0230A 62 ) @ 0230A 63 , # 0230A 64 ,0080121001 TRUE ADD 0300A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0300A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0300A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0300A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0300A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0300A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0300A 07 L0314041001BS88 ,, 0300A 08 L0314081001N000 ,, 0300A 09 L0314121001M360392 ,, 0300A 10 L0314191001/332 START TEST 0300A 11 L0314231001/ 0300A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0300A 13 L0314321001/080 CLEAR READ AREA 0300A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0300A 15 L0314401001,001078 LOAD PRINT AREA 0300A 16 L0314471001L080299 ,, 0300A 17 L0314541001L072272 ,, 0300A 18 L0314611001,221241 ,, 0300A 19 L0314681001,202 ,, 0300A 20 L0314721001B484013S BR TO USE SUBTRACT CODE IF S IN 013 0300A 21 L0314801001L230270 LOAD B FIELD 0300A 22 L0314871001A210270 ADD WITH LIKE SIGNS 0300A 23 L0314941001B461B B ON TO SCOPE 0300A 24 L0314991001B503 BRANCH TO TEST FOR ERROR 0300A 25 L0315031001L230270 LOAD B FIELD 0300A 26 L0315101001S210270 SUBTRACT WITH UNLIKE SIGNS 0300A 27 L0315171001B484B B ON TO SCOPE 0300A 28 L0315221001C270250 TEST FOR ERROR 0300A 29 L0315291001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0300A 30 L0315341001B950C C ON TO CORRECT PRINT ROUTINE 0300A 31 L0315391001B958 BRANCH TO SENSE D 0300A 32 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0300A 33 L0319261001B916E E ON TO ERROR STOP 0300A 34 L03193110012958 ERROR PRINT 0300A 35 L0319351001.958 ERROR STOP 0300A 36 L0319391001 WORD MARK 0300A 37 L0319691001L/19285 CORRECT PRINT ROUTINE 0300A 38 L03197610012 ,, 0300A 39 L0319771001B421D D ON TO REPEAT 0300A 40 L0319821001B417 BRANCH TO READ NEXT RECORD 0300A 41 L031/291001ERROR CONSTANTS 0300A 42 L031/341001 ,, 0300A 43 L031/391001A FIELD ,, 0300A 44 L031/591001B FIELD ,, 0300A 45 L031/791001RESULT SHOULD BE ,, 0300A 46 L031/991001RESULT IS ,, 0300A 47 ,019027,031,038042B031T98"B400L046352BW04BS88 TRUE ADD 0300A 48 E123456789 ADD OP 0000000000 0123456789 0300A 49 E12345678I ADD OP 1111111101 1234567890 0300A 50 E12345678Z ADD OP 2222222112 2345678901 0300A 51 E12345678I ADD OP 333333222T 345678901S 0300A 52 E123456789 ADD OP 444443333D 456789012C 0300A 53 E12345678R ADD OP 555544444N 567890123M 0300A 54 E12345678R SUB OP 6665555556 6789012345 0300A 55 E12345678R SUB OP 776666666G 789012345F 0300A 56 E123456789 SUB OP 877777777Q 890123456P 0300A 57 EAKTDNWGQI SUB OP 8HQYHQYHQR 901234567Q 0300A 58 E 2 4 6 8 ADD OP 1 3 5 7 9 0123456789 0300A 59 ,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 ,0080121001 RECOMPLEMENT 0320A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0320A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0320A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0320A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0320A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0320A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0320A 07 L0314041001BS88 ,, 0320A 08 L0314081001N000 ,, 0320A 09 L0314121001M360392 ,, 0320A 10 L0314191001/332 START TEST 0320A 11 L0314231001/ 0320A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0320A 13 L0314321001/080 CLEAR READ AREA 0320A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0320A 15 L0314401001,001078 LOAD PRINT AREA 0320A 16 L0314471001L080299 ,, 0320A 17 L0314541001L072272 ,, 0320A 18 L0314611001,221241 ,, 0320A 19 L0314681001N000 ,, 0320A 20 L0314721001B484013S BR TO USE SUBTRACT CODE IF S IN 013 0320A 21 L0314801001L230270 LOAD B FIELD 0320A 22 L0314871001A210270 ADD WITH UNLIKE SIGNS 0320A 23 L0314941001B461B B ON TO SCOPE 0320A 24 L0314991001B503 BRANCH TO TEST FOR ERROR 0320A 25 L0315031001L230270 LOAD B FIELD 0320A 26 L0315101001S210270 SUBTRACT WITH LIKE SIGNS 0320A 27 L0315171001B484B B ON TO SCOPE 0320A 28 L0315221001C270250 TEST FOR ERROR 0320A 29 L0315291001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0320A 30 L0315341001B950C C ON TO CORRECT PRINT ROUTINE 0320A 31 L0315391001B958 BRANCH TO SENSE D 0320A 32 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0320A 33 L0319261001B916E E ON TO ERROR STOP 0320A 34 L03193110012958 ERROR PRINT 0320A 35 L0319351001.958 ERROR STOP 0320A 36 L0319391001 WORD MARK 0320A 37 L0319691001L/19285 CORRECT PRINT ROUTINE 0320A 38 L03197610012 ,, 0320A 39 L0319771001B421D D ON TO REPEAT 0320A 40 L0319821001B417 BRANCH TO READ NEXT RECORD 0320A 41 L031/291001ERROR CONSTANTS 0320A 42 L031/341001 ,, 0320A 43 L031/391001A FIELD ,, 0320A 44 L031/591001B FIELD ,, 0320A 45 L031/791001RESULT SHOULD BE ,, 0320A 46 L031/991001RESULT IS ,, 0320A 47 ,019027,031,038042B031T98"B400L046352BW04BS88 RECOMPLEMENT 0320A 48 012345678R ADD OP 0000000000 012345678R 0320A 49 123456789! ADD OP 111111110/ 012345678R 0320A 50 234567890J ADD OP 222222211B 012345678R 0320A 51 3456789012 ADD OP 333333222L 012345678I 0320A 52 456789012T ADD OP 444443333M 012345678I 0320A 53 567890123D ADD OP 555544444N 012345678I 0320A 54 678901234N SUB OP 666555555O 012345678I 0320A 55 789012345W SUB OP 7766666667 012345678R 0320A 56 890123456G SUB OP 877777777Y 012345678R 0320A 57 9?JSCMVFP8 SUB OP 8HQYHQYHQI 012345678R 0320A 58 ,0080121001 RESET ADD 0330A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0330A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0330A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0330A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0330A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0330A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0330A 07 L0314041001BS88 ,, 0330A 08 L0314081001N000 ,, 0330A 09 L0314121001M360392 ,, 0330A 10 L0314191001/332 START TEST 0330A 11 L0314231001/ 0330A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0330A 13 L0314321001/080 CLEAR READ AREA 0330A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0330A 15 L0314401001,001078 LOAD PRINT AREA 0330A 16 L0314471001L080299 ,, 0330A 17 L0314541001L072272 ,, 0330A 18 L0314611001,206241 ,, 0330A 19 L0314681001,261 ,, 0330A 20 L0314721001B484010 BR TO RESET ADD 1 POS FLD IF BL IN 010 0330A 21 L0314801001?210270 RESET ADD 10 POSITION FIELD 0330A 22 L0314871001B461B B ON TO SCOPE 0330A 23 L0314921001C270250 TEST FOR ERROR 0330A 24 L0314991001B507 ,, 0330A 25 L0315031001L201261 LOAD A FIELD 0330A 26 L0315101001?261 RESET ADD 1 POSITION FIELD 0330A 27 L0315141001B484B B ON TO SCOPE 0330A 28 L0315191001C261241 TEST FOR ERROR 0330A 29 L0315261001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0330A 30 L0315311001B950C C ON TO CORRECT PRINT ROUTINE 0330A 31 L0315361001B958 BRANCH TO SENSE D 0330A 32 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0330A 33 L0319261001B916E E ON TO ERROR STOP 0330A 34 L03193110012958 ERROR PRINT 0330A 35 L0319351001.958 ERROR STOP 0330A 36 L0319391001 WORD MARK 0330A 37 L0319691001L/19285 CORRECT PRINT ROUTINE 0330A 38 L03197610012 ,, 0330A 39 L0319771001B421D D ON TO REPEAT 0330A 40 L0319821001B417 BRANCH TO READ NEXT RECORD 0330A 41 L031/291001ERROR CONSTANTS 0330A 42 L031/341001 ,, 0330A 43 L031/391001A FIELD ,, 0330A 44 L031/591001B FIELD ,, 0330A 45 L031/791001RESULT SHOULD BE ,, 0330A 46 L031/991001RESULT IS ,, 0330A 47 ,019027,031,038042B031T98"B400L046352BW04BS88 RESET ADD 0330A 48 01234 000000123D 0330A 49 5678Z 000005678I 0330A 50 AKTM 00000 123M 0330A 51 EOXH 00000 567H 0330A 52 I!,@ 00000 90#) 0330A 53 T C 0330A 54 P P 0330A 55 I I 0330A 56 # . 0330A 57 ,0080121001 RESET SUBTRACT 0340A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0340A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0340A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0340A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0340A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0340A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0340A 07 L0314041001BS88 ,, 0340A 08 L0314081001N000 ,, 0340A 09 L0314121001M360392 ,, 0340A 10 L0314191001/332 START TEST 0340A 11 L0314231001/ 0340A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0340A 13 L0314321001/080 CLEAR READ AREA 0340A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0340A 15 L0314401001,001078 LOAD PRINT AREA 0340A 16 L0314471001L080299 ,, 0340A 17 L0314541001L072272 ,, 0340A 18 L0314611001,206241 ,, 0340A 19 L0314681001,261 ,, 0340A 20 L0314721001B484010 BR TO RESET SUB 1 POS FLD IF BL IN 010 0340A 21 L0314801001!210270 RESET SUB 10 POSITION FIELD 0340A 22 L0314871001B461B B ON TO SCOPE 0340A 23 L0314921001C270250 TEST FOR ERROR 0340A 24 L0314991001B507 ,, 0340A 25 L0315031001L201261 LOAD A FIELD 0340A 26 L0315101001!261 RESET SUB 1 POSITION FIELD 0340A 27 L0315141001B484B B ON TO SCOPE 0340A 28 L0315191001C261241 TEST FOR ERROR 0340A 29 L0315261001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0340A 30 L0315311001B950C C ON TO CORRECT PRINT ROUTINE 0340A 31 L0315361001B958 BRANCH TO SENSE D 0340A 32 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0340A 33 L0319261001B916E E ON TO ERROR STOP 0340A 34 L03193110012958 ERROR PRINT 0340A 35 L0319351001.958 ERROR STOP 0340A 36 L0319391001 WORD MARK 0340A 37 L0319691001L/19285 CORRECT PRINT ROUTINE 0340A 38 L03197610012 ,, 0340A 39 L0319771001B421D D ON TO REPEAT 0340A 40 L0319821001B417 BRANCH TO READ NEXT RECORD 0340A 41 L031/291001ERROR CONSTANTS 0340A 42 L031/341001 ,, 0340A 43 L031/391001A FIELD ,, 0340A 44 L031/591001B FIELD ,, 0340A 45 L031/791001RESULT SHOULD BE ,, 0340A 46 L031/991001RESULT IS ,, 0340A 47 ,019027,031,038042B031T98"B400L046352BW04BS88 RESET SUBTRACT 0340A 48 01234 000000123M 0340A 49 5678Z 000005678R 0340A 50 AKTM 00000 123D 0340A 51 EOXH 00000 567Q 0340A 52 I!,@ 00000 90#* 0340A 53 T L 0340A 54 P G 0340A 55 I R 0340A 56 # $ 0340A 57 ,0080121001 ZONE ADD 0350A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0350A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0350A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0350A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0350A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0350A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0350A 07 L0314041001BS88 ,, 0350A 08 L0314081001N000 ,, 0350A 09 L0314121001M360392 ,, 0350A 10 L0314191001/332 START TEST 0350A 11 L0314231001/ 0350A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0350A 13 L0314321001/080 CLEAR READ AREA 0350A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0350A 15 L0314401001,001078 LOAD PRINT AREA 0350A 16 L0314471001L080299 ,, 0350A 17 L0314541001L072272 ,, 0350A 18 L0314611001,221241 ,, 0350A 19 L0314681001N000 ,, 0350A 20 L0314721001B484002 BR TO ADD 1 DIGIT FLD IF 002 IS BLANK 0350A 21 L0314801001L222262 LOAD B FIELD 0350A 22 L0314871001A202262 ZONE ADD WITH 2 DIGIT FIELDS 0350A 23 L0314941001B461B B ON TO SCOPE 0350A 24 L0314991001B503 BRANCH TO TEST FOR ERROR 0350A 25 L0315031001L221261 LOAD B FIELD 0350A 26 L0315101001A201261 ZONE ADD WITH 1 DIGIT FIELDS 0350A 27 L0315171001B484B B ON TO SCOPE 0350A 28 L0315221001C262242 TEST FOR ERROR 0350A 29 L0315291001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0350A 30 L0315341001B950C C ON TO CORRECT PRINT ROUTINE 0350A 31 L0315391001B958 BRANCH TO SENSE D 0350A 32 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0350A 33 L0319261001B916E E ON TO ERROR STOP 0350A 34 L03193110012958 ERROR PRINT 0350A 35 L0319351001.958 ERROR STOP 0350A 36 L0319391001 WORD MARK 0350A 37 L0319691001L/19285 CORRECT PRINT ROUTINE 0350A 38 L03197610012 ,, 0350A 39 L0319771001B421D D ON TO REPEAT 0350A 40 L0319821001B417 BRANCH TO READ NEXT RECORD 0350A 41 L031/291001ERROR CONSTANTS 0350A 42 L031/341001 ,, 0350A 43 L031/391001A FIELD ,, 0350A 44 L031/591001B FIELD ,, 0350A 45 L031/791001RESULT SHOULD BE ,, 0350A 46 L031/991001RESULT IS ,, 0350A 47 ,019027,031,038042B031T98"B400L046352BW04BS88 ZONE ADD 0350A 48 40 40 80 0350A 49 1! 90 8? 0350A 50 Z0 R0 80 0350A 51 U0 D0 80 0350A 52 M0 M0 80 0350A 53 40 U0 Y0 0350A 54 90 90 Y0 0350A 55 Z0 I0 Y0 0350A 56 R0 R0 Y0 0350A 57 D0 M0 Y0 0350A 58 40 M0 Q0 0350A 59 Z0 90 Q0 0350A 60 U0 U0 Q0 0350A 61 R0 I0 Q0 0350A 62 D0 D0 Q0 0350A 63 40 D0 H0 0350A 64 R0 90 H0 0350A 65 U0 M0 H0 0350A 66 Z0 Z0 H0 0350A 67 I0 I0 H0 0350A 68 4 4 8 0350A 69 9 9 8 0350A 70 M M Q 0350A 71 I I H 0350A 72 U U Y 0350A 73 J 9 H 0350A 74 1 R Q 0350A 75 9 J H 0350A 76 R 1 Q 0350A 77 ,0080121001 BRANCH OVERFLOW 0360A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0360A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0360A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0360A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0360A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0360A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0360A 07 L0314041001BS88 ,, 0360A 08 L0314081001N000 ,, 0360A 09 L0314121001M360392 ,, 0360A 10 L0314191001/332 START TEST 0360A 11 L0314231001/ 0360A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0360A 13 L0314321001/080 CLEAR READ AREA 0360A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0360A 15 L0314401001,001078 LOAD PRINT AREA 0360A 16 L0314471001L080299 ,, 0360A 17 L0314541001L072272 ,, 0360A 18 L0314611001,221 ,, 0360A 19 L0314651001B451Z RESET OVERFLOW LATCH 0360A 20 L0314701001L222262 LOAD B FIELD 0360A 21 L0314771001A202262 ADD 0360A 22 L0314841001B487Z BRANCH IF OVERFLOW 0360A 23 L0314891001B451B B ON TO SCOPE 0360A 24 L0314941001B504006N NO ERROR IF N IN 006 0360A 25 L0315021001B900 BRANCH TO ERROR PRINT ROUTINE 0360A 26 L0315061001B451B B ON TO SCOPE 0360A 27 L0315111001B504006 NO ERROR IF BLANK IN 006 0360A 28 L0315191001B900 BRANCH TO ERROR PRINT ROUTINE 0360A 29 L0315231001B950C C ON TO CORRECT PRINT ROUTINE 0360A 30 L0315281001B958 BRANCH TO SENSE D 0360A 31 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0360A 32 L0319261001B916E E ON TO ERROR STOP 0360A 33 L03193110012958 ERROR PRINT 0360A 34 L0319351001.958 ERROR STOP 0360A 35 L0319391001 WORD MARK 0360A 36 L0319691001L/19285 CORRECT PRINT ROUTINE 0360A 37 L03197610012 ,, 0360A 38 L0319771001B421D D ON TO REPEAT 0360A 39 L0319821001B417 BRANCH TO READ NEXT RECORD 0360A 40 L031/291001ERROR CONSTANTS 0360A 41 L031/341001 ,, 0360A 42 L031/391001A FIELD ,, 0360A 43 L031/591001B FIELD ,, 0360A 44 L031/791001RESULT SHOULD BE ,, 0360A 45 L031/991001RESULT IS ,, 0360A 46 ,019027,031,038042B031T98"B400L046352BW04BS88 BRANCH OVERFLOW 0360A 47 40 NO OVERFLOW 40 80 0360A 48 1! NO OVERFLOW 90 8? 0360A 49 Z0 OVERFLOW R0 80 0360A 50 U0 NO OVERFLOW D0 80 0360A 51 M0 NO OVERFLOW M0 80 0360A 52 40 NO OVERFLOW U0 Y0 0360A 53 90 OVERFLOW 90 Y0 0360A 54 Z0 OVERFLOW I0 Y0 0360A 55 R0 OVERFLOW R0 Y0 0360A 56 D0 NO OVERFLOW M0 Y0 0360A 57 40 NO OVERFLOW M0 Q0 0360A 58 Z0 OVERFLOW 90 Q0 0360A 59 U0 NO OVERFLOW U0 Q0 0360A 60 R0 OVERFLOW I0 Q0 0360A 61 D0 NO OVERFLOW D0 Q0 0360A 62 40 NO OVERFLOW D0 H0 0360A 63 R0 OVERFLOW 90 H0 0360A 64 U0 NO OVERFLOW M0 H0 0360A 65 Z0 OVERFLOW Z0 H0 0360A 66 ,0080121001 EDIT 0370B 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0370B 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0370B 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0370B 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0370B 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0370B 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0370B 07 L0314041001BS88 ,, 0370B 08 L0314081001N000 ,, 0370B 09 L0314121001M360392 ,, 0370B 10 L0314191001/332 START TEST 0370B 11 L0314231001/ 0370B 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0370B 13 L0314321001/080 CLEAR READ AREA 0370B 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0370B 15 L0314401001,001078 LOAD PRINT AREA 0370B 16 L0314471001L080299 ,, 0370B 17 L0314541001L072272 ,, 0370B 18 L0314611001,221241 ,, 0370B 19 L0314681001L237277 LOAD CONTROL WORD 0370B 20 L0314751001E208277 EDIT 0370B 21 L0314821001B449B B ON TO SCOPE 0370B 22 L0314871001C277257 TEST FOR ERROR 0370B 23 L0314941001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0370B 24 L0314991001B950C C ON TO CORRECT PRINT ROUTINE 0370B 25 L0315041001B958 BRANCH TO SENSE D 0370B 26 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0370B 27 L0319261001B916E E ON TO ERROR STOP 0370B 28 L03193110012958 ERROR PRINT 0370B 29 L0319351001.958 ERROR STOP 0370B 30 L0319391001 WORD MARK 0370B 31 L0319691001L/19285 CORRECT PRINT ROUTINE 0370B 32 L03197610012 ,, 0370B 33 L0319771001B421D D ON TO REPEAT 0370B 34 L0319821001B417 BRANCH TO READ NEXT RECORD 0370B 35 L031/291001ERROR CONSTANTS 0370B 36 L031/341001 ,, 0370B 37 L031/391001A FIELD ,, 0370B 38 L031/591001B FIELD ,, 0370B 39 L031/791001RESULT SHOULD BE ,, 0370B 40 L031/991001RESULT IS ,, 0370B 41 ,019027,031,038042B031T98"B400L046352BW04BS88 EDIT 0370B 42 00000012 &&&&&& 00000012 0370B 43 00000034 0 &&&&&& 000034 0370B 44 00000056 0 &&&&&& 0056 0370B 45 00000078 0 &&&&&& 78 0370B 46 00000901 0 &&&&&& 901 0370B 47 00004567 0, &&&&&& 45,67 0370B 48 00005678 . 0, &&&&&& 56,78 0370B 49 00456789 . 0, &&&&** 4.567,89 ** 0370B 50 00567890 $ . 0, &&**** $5.678,90 **** 0370B 51 00678901 $ . 0, ****** $ 6.789,01****** 0370B 52 0078901K $ . 0, &CR&** $ 7.890,12 CR ** 0370B 53 0089012L $ . 0, &&-&** $ 8.901,23 - ** 0370B 54 00901234 $ . 0, &&&&CR $ 9.012,34 0370B 55 0001234V $ . 0, &&CR&* $ 123,45 * 0370B 56 0012345F $ . 0, CR&*** $ 1.234,56 *** 0370B 57 0000456G CR0, &&&*** 4CR5,67 *** 0370B 58 00056789 SIGN LEFT - 0, &&&*** 567,89 *** 0370B 66 12345678 . . , &&CR&* 123.456,78 * 0370B 67 ,0080121001 PRINT WORD MARKS 1010B 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 1010B 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 1010B 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 1010B 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 1010B 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 1010B 06 L0313961001B389S611 USE WHEN TESTS ARE RUN FROM TAPE 1010B 07 L0314041001BS88 ,, 1010B 08 L0314081001N000 ,, 1010B 09 L0314121001M360392 ,, 1010B 10 L0314191001/332 START TEST 1010B 11 L0314231001/ 1010B 12 L0314241001L654S22 MODIFY TITLE PRINT TO SKIP HEADINGS 1010B 13 L0314311001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 1010B 14 L0314391001,200 SET WORD MARK IN 200 1010B 15 L0314431001D459332 MOVE LOZENGE INTO 332 1010B 16 L0314501001M332331 MOVE LOZENGE INTO ALL PRINT POSITIONS 1010B 17 L0314571001M660472 MOVE 201234 TO START A & B OF INSTR 466 1010B 18 L0314641001M666479 MOVE 267300 TO START A & B OF INSTR 473 1010B 19 L03147110012) PRINT WORD MARKS 1010B 20 L0314731001B452B B ON TO SCOPE 1010B 21 L0314781001)467474 CLEAR WORD MARKS IN 467 AND 474 1010B 22 L0314851001,201234 SET TWO WORD MARKS IN PRINT AREA 1010B 23 L0314921001,267300 SET TWO WORD MARKS IN PRINT AREA 1010B 24 L0314991001C479669 COMPARE LAST POSITION SET WITH 333 1010B 25 L0315061001B496/ UNEQUAL-BRANCH TO SET WM IN 467 AND 474 1010B 26 L0315111001B521 EQUAL-BRANCH TO BEGIN REMOVING WMS 1010B 27 L0315151001,467474 SET WORD MARKS IN 467 AND 474 1010B 28 L0315221001A676472 ADD 1001 TO INCREMENT AB OF INSTR 466 1010B 29 L0315291001A676479 ADD 1001 TO INCREMENT AB OF INSTR 473 1010B 30 L0315361001B452 LOOP TO PRINT WORD MARKS 1010B 31 L0315401001M660548 MOVE 201234 TO START A & B OF INSTR 542 1010B 32 L0315471001M666555 MOVE 267300 TO START A & B OF INSTR 549 1010B 33 L0315541001)543550 CLEAR WORD MARKS IN 543 AND 550 1010B 34 L0315611001)201234 CLEAR TWO WORD MARKS IN PRINT AREA 1010B 35 L0315681001)267300 CLEAR TWO WORD MARKS IN PRINT AREA 1010B 36 L03157510012562) PRINT UNCLEARED WORD MARKS & BRANCH 1010B 37 L0315801001. ERROR STOP IF NO BRANCH 1010B 38 L0315811001B556B B ON TO SCOPE 1010B 39 L0315861001C555672 COMPARE LAST POSITION CLEARED WITH 332 1010B 40 L0315931001B588/ UNEQUAL-BRANCH TO SET WM IN 543 AND 550 1010B 41 L0315981001B420D EQUAL-D ON TO REPEAT TEST 1010B 42 L0316031001B348 BRANCH TO READ NEXT RECORD 1010B 43 L0316071001,543550 SET WORD MARKS IN 543 AND 550 1010B 44 L0316141001A676548 ADD 1001 TO INCREMENT AB OF INSTR 542 1010B 45 L0316211001A676555 ADD 1001 TO INCREMENT AB OF INSTR 549 1010B 46 L0316281001B535 LOOP TO PRINT UNCLEARED WORD MARKS 1010B 47 L0316691001B420 BRANCH INSTRUCTION TO MODIFY TITLE PRINT1010B 48 L0316741001201234 CONSTANT TO START AB FIELDS 1010B 49 L0316801001267300 CONSTANT TO START AB FIELDS 1010B 50 L0316861001333 CONSTANT TO END SET WM LOOPS 1010B 51 L0316891001332 CONSTANT TO END CLEAR WM LOOPS 1010B 52 L03169210011001 CONSTANT TO INCREMENT AB FIELDS 1010B 53 ,019027,031,038042B031T98"B400L046352BW04BS88 PRINT WORD MARKS 1010B 54 ,0080121001 RIPPLE PRINT 1020A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 1020A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 1020A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 1020A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 1020A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 1020A 06 L0313961001B389S611 USE WHEN TESTS ARE RUN FROM TAPE 1020A 07 L0314041001BS88 ,, 1020A 08 L0314081001N000 ,, 1020A 09 L0314121001M360392 ,, 1020A 10 L0314191001/332 START TEST 1020A 11 L0314231001/ 1020A 12 L0314241001L604S22 MODIFY TITLE PRINT TO SKIP HEADINGS 1020A 13 L0314311001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 1020A 14 L0314391001)721741 EXPAND TABLE FROM 701-760 TO 701-940 1020A 15 L0314461001L760820 ,, 1020A 16 L0314531001)761 ,, 1020A 17 L0314571001L820940 ,, 1020A 18 L0314641001)821 ,, 1020A 19 L0314681001,201 SET WM IN PRINT AREA 1020A 20 L0314721001L607614 LOAD LINE COUNTER 1020A 21 L0314791001M614470 MOVE LINE CTR INTO NEXT INSTRUC 1020A 22 L0314861001M832332 MOVE TABLE INTO PRINT AREA 1020A 23 L03149310012 PRINT 1020A 24 L0314941001B474B B ON TO SCOPE 1020A 25 L0314991001C611614 COMPARE LINE COUNTER WITH 891 1020A 26 L0315061001B501/ BRANCH TO ADD 1 IF NOT 891 1020A 27 L0315111001B453D D ON TO REPEAT TEST 1020A 28 L0315161001B348 BRANCH TO READ NEXT RECORD 1020A 29 L0315201001A608614 ADD 1 TO LINE COUNTER 1020A 30 L0315271001B460 BRANCH TO PRINT NEXT LINE 1020A 31 L0316191001B420 BRANCH INSTRUCTION TO MODIFY TITLE PRINT1020A 32 L0316241001832 CONSTANT TO START LINE COUNTER 1020A 33 L03162710011 CONSTANT TO INCREMENT LINE COUNTER 1020A 34 L0316281001891 CONSTANT TO STOP LINE COUNTER 1020A 35 L0316311001XXX LINE COUNTER 1020A 36 L0317201001AKT4 BLU5 CMV6"DNW7 TABLE TO BE RIPPLE PRINTED 1020A 37 L0317401001EOX8 FPY9_GQZ0 HR`# ,, 1020A 38 L0317601001I-,@+&$%1 .*/2 )JS3( ,, 1020A 39 ,019027,031,038042B031T98"B400L046352BW04BS88 RIPPLE PRINT 1020A 40 ,0080121001 RIPPLE PUNCH 1030A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 1030A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 1030A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 1030A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 1030A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 1030A 06 L0313961001B389S621 USE WHEN TESTS ARE RUN FROM TAPE 1030A 07 L0314041001BS88 ,, 1030A 08 L0314081001N000 ,, 1030A 09 L0314121001M360392 ,, 1030A 10 L0314191001/332 START TEST 1030A 11 L0314231001/ 1030A 12 L0314241001L604S22 MODIFY TITLE PRINT TO SKIP HEADINGS 1030A 13 L0314311001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 1030A 14 L0314391001)721741 EXPAND TABLE FROM 701-760 TO 701-880 1030A 15 L0314461001L760820 ,, 1030A 16 L0314531001L760880 ,, 1030A 17 L0314601001)761821 ,, 1030A 18 L0314671001/180 CLEAR PUNCH AREA 1030A 19 L0314711001,101 SET WM IN PUNCH AREA 1030A 20 L0314751001L607614 LOAD CARD COUNTER 1030A 21 L0314821001M614473 MOVE CARD COUNTER INTO NEXT INSTRUCTION 1030A 22 L0314891001M780180 MOVE TABLE INTO PUNCH AREA 1030A 23 L0314961001V4951012 BR TO PUNCH AND BRANCH IF NO ZONE IN 1011030A 24 L03150410014 PUNCH 1030A 25 L0315051001B485B B ON TO SCOPE 1030A 26 L0315101001B505 BRANCH TO TEST FOR LAST CARD 1030A 27 L03151410014500 PUNCH & BRANCH 1030A 28 L0315181001. ERROR STOP IF NO BRANCH 1030A 29 L0315191001B495B B ON TO SCOPE 1030A 30 L0315241001C611614 COMPARE CARD COUNTER WITH 839 1030A 31 L0315311001B526/ BRANCH TO ADD 1 IF NOT 839 1030A 32 L0315361001B456D D ON TO REPEAT TEST 1030A 33 L0315411001B348 BRANCH TO READ NEXT RECORD 1030A 34 L0315451001A608614 ADD 1 TO CARD COUNTER 1030A 35 L0315521001B463 BRANCH TO PUNCH NEXT CARD 1030A 36 L0316191001B420 BRANCH INSTRUCTION TO MODIFY TITLE PRINT1030A 37 L0316241001780 CONSTANT TO START CARD COUNTER 1030A 38 L03162710011 CONSTANT TO INCREMENT CARD COUNTER 1030A 39 L0316281001839 CONSTANT TO STOP CARD COUNTER 1030A 40 L0316311001XXX CARD COUNTER 1030A 41 L0317201001AKT4 BLU5"CMV6 DNW7_ TABLE TO BE RIPPLE PUNCHED 1030A 42 L0317401001EOX8 FPY9+GQZ0 HR`#( ,, 1030A 43 L0317601001I-,@ &$%1?.*/2 )JS3! ,, 1030A 44 ,019027,031,038042B031T98"B400L046352BW04BS88 RIPPLE PUNCH 1030A 45 ,0080121001 RIPPLE READ 1040A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 1040A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 1040A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 1040A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 1040A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 1040A 06 L0313961001B389S631 USE WHEN TESTS ARE RUN FROM TAPE 1040A 07 L0314041001BS88 ,, 1040A 08 L0314081001N000 ,, 1040A 09 L0314121001M360392 ,, 1040A 10 L0314191001/332 START TEST 1040A 11 L0314231001/ 1040A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 1040A 13 L0314321001)721741 EXPAND TABLE FROM 701-760 TO 701-880 1040A 14 L0314391001L760820 ,, 1040A 15 L0314461001L760880 ,, 1040A 16 L0314531001)761821 ,, 1040A 17 L0314601001L690692 SET CARD COUNTER TO ONE 1040A 18 L0314671001/080 CLEAR READ AREA 1040A 19 L0314711001,001 SET WM IN 001 1040A 20 L03147510011 READ 1040A 21 L0314761001L080280 LOAD CARD INTO PRINT AREA 1040A 22 L0314831001L692299 LOAD CARD NUMBER INTO PRINT AREA 1040A 23 L0314901001L697700 START RIPPLING COUNTER AT 779 1040A 24 L0314971001A692700 ADD CARD COUNTER TO RIPPLING COUNTER 1040A 25 L0315041001M700495 MOVE RIPPLING COUNTER INTO NEXT INSTRUCT1040A 26 L0315111001CXXX080 COMPARE TABLE WITH CARD 1040A 27 L0315181001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 1040A 28 L0315231001B912C C ON TO CORRECT PRINT 1040A 29 L0315281001C692694 COMPARE CARD COUNTER WITH 60 1040A 30 L0315351001B525/ BR TO ADD 1 TO CARD COUNTER IF NOT 60 1040A 31 L0315401001B536 BRANCH TO SENSE D IF 60 1040A 32 L0315441001A690692 ADD 1 TO CARD COUNTER 1040A 33 L0315511001B456 BRANCH TO READ NEXT DETAIL CARD 1040A 34 L0315551001B441D D ON TO REPEAT TEST 1040A 35 L0315601001B348 BRANCH TO READ NEXT RECORD 1040A 36 L031708100101 CONSTANT TO INCREMENT CARD COUNTER 1040A 37 L0317101001XX CARD COUNTER 1040A 38 L031712100160 CONSTANT TO STOP CARD COUNTER 1040A 39 L0317141001779 CONSTANT TO START RIPPLING COUNTER 1040A 40 L0317171001XXX RIPPLING COUNTER 1040A 41 L0317201001AKT4 BLU5"CMV6 DNW7_ TABLE 1040A 42 L0317401001EOX8 FPY9+GQZ0 HR`#( ,, 1040A 43 L0317601001I-,@ &$%1?.*/2 )JS3! ,, 1040A 44 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 1040A 45 L0319261001B916E E ON TO ERROR STOP 1040A 46 L03193110012920 PRINT CARD 1040A 47 L0319351001.509 ERROR STOP 1040A 48 L0319391001/299 CLEAR PRINT AREA 1040A 49 L0319431001,201 SET WM IN PRINT AREA 1040A 50 L0319471001M700938 MOVE RIPPLING COUNTER INTO NEXT INSTRUCT1040A 51 L0319541001MXXX280 MOVE TABLE INTO PRINT AREA 1040A 52 L03196110012 PRINT TABLE 1040A 53 L0319621001/299 CLEAR PRINT AREA 1040A 54 L03196610012509 SPACE 1040A 55 L0319701001 WORD MARK 1040A 56 L031/291001ERROR CONSTANTS 1040A 57 L031/391001FIRST LINE CARD ,, 1040A 58 L031/591001 ,, 1040A 59 L031/791001SECOND LINE TABLE ,, 1040A 60 L031/991001 ,, 1040A 61 ,019027,031,038042B031T98"B400L046352BW04BS88 RIPPLE READ 1040A 62 AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_ KT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_E T4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EO 4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 LU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 F U5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FP 5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY "CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9 CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+ MV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+G V6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQ 6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 NW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 H W7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR 7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR` _EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`# EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#( OX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I X8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I- 8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-, FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ PY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ & Y9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$ 9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$% +GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1 GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1? QZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?. Z0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.* 0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/ HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 R`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 ) `#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )J #(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS (I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3 I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3! -,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!A ,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AK @ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 $%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 B %1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BL 1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU ?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5 .*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5" */2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"C /2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CM 2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 D S3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DN 3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW !AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7 ,0080121001 PRINT-PUNCH 1050A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 1050A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 1050A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 1050A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 1050A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 1050A 06 L0314191001/332 START TEST 1050A 07 L0314231001/ 1050A 08 L0314241001L604S22 MODIFY TITLE PRINT TO SKIP HEADINGS 1050A 09 L0314311001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 1050A 10 L0314391001)721741 EXPAND TABLE FROM 701-760 TO 701-820 1050A 11 L0314461001L760820 ,, 1050A 12 L0314531001)761761 ,, 1050A 13 L0314601001/180 CLEAR PUNCH 1050A 14 L0314641001,101201 SET WM IN PUNCH AND PRINT AREAS 1050A 15 L0314711001L607614 LOAD 780 INTO CARD COUNTER 1050A 16 L0314781001M614476 MOVE CARD COUNTER INTO LOCATION 474-476 1050A 17 L0314851001M614483 MOVE CARD COUNTER INTO LOCATION 481-483 1050A 18 L0314921001MXXX280 MOVE TABLE INTO PRINT AREA 1050A 19 L0314991001MXXX180 MOVE TABLE INTO PUNCH AREA 1050A 20 L0315061001V5051012 BR TO PRINT-PUNCH & BR IF NO ZONE IN 1011050A 21 L03151410016 PRINT-PUNCH 1050A 22 L0315151001B495B B ON TO SCOPE 1050A 23 L0315201001B515 BRANCH TO TEST FOR LAST CARD 1050A 24 L03152410016510 PRINT-PUNCH & BRANCH 1050A 25 L0315281001. ERROR STOP IF NO BRANCH 1050A 26 L0315291001B505B B ON TO SCOPE 1050A 27 L0315341001C611614 COMPARE CARD COUNTER WITH 799 1050A 28 L0315411001B536/ BRANCH TO ADD 1 IF NOT 799 1050A 29 L0315461001B452D D ON TO REPEAT TEST 1050A 30 L0315511001B348 BRANCH TO READ NEXT RECORD 1050A 31 L0315551001A608614 ADD 1 TO CARD COUNTER 1050A 32 L0315621001B459 BRANCH TO PRINT-PUNCH NEXT CARD 1050A 33 L0316191001B420 BRANCH INSTRUCTION TO MODIFY TITLE PRINT1050A 34 L0316241001780 CONSTANT TO START CARD COUNTER 1050A 35 L03162710011 CONSTANT TO INCREMENT CARD COUNTER 1050A 36 L0316281001799 CONSTANT TO STOP CARD COUNTER 1050A 37 L0316311001XXX CARD COUNTER 1050A 38 L0317201001AKT4 BLU5"CMV6 DNW7_ TABLE TO BE PRINT-PUNCHED 1050A 39 L0317401001EOX8 FPY9+GQZ0 HR`#( ,, 1050A 40 L0317601001I-,@ &$%1?.*/2 )JS3! ,, 1050A 41 B400 PRINT-PUNCH 1050A 42 ,0080121001 PRINT-READ 1060A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 1060A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 1060A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 1060A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 1060A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 1060A 06 L0314191001/332 START TEST 1060A 07 L0314231001/ 1060A 08 L0314241001L604S22 MODIFY TITLE PRINT TO SKIP HEADINGS 1060A 09 L0314311001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 1060A 10 L0314391001/080 CLEAR READ AREA 1060A 11 L0314431001,001 SET WM IN READ AREA 1060A 12 L03144710011 READ 1060A 13 L0314481001L080280 LOAD PRINT AREA 1060A 14 L0314551001V4540012 BRANCH IF NO ZONE IN 001 1060A 15 L03146310013 PRINT-READ 1060A 16 L0314641001B444B B ON TO SCOPE 1060A 17 L0314691001B464 BRANCH TO MODIFY CHAIN. ROUTINE 1060A 18 L03147310013459 PRINT-READ AND BRANCH 1060A 19 L0314771001. ERROR STOP IF NO BRANCH 1060A 20 L0314781001B454B B ON TO SCOPE 1060A 21 L0314831001D479360 MODIFY B421 IN CHAINING ROUTINE TO B429 1060A 22 L0314901001B420D D ON TO REPEAT TEST 1060A 23 L0314951001B349 BRANCH TO TEST FOR NEXT PROGRAM 1060A 24 L0316191001B420 BRANCH INSTRUCTION TO MODIFY TITLE PRINT1060A 25 B400 PRINT-READ 1060A 26 AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CM1060A 27 KT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV1060A 28 T4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV61060A 29 4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 1060A 30 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 D1060A 31 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DN1060A 32 LU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW1060A 33 U5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW71060A 34 5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_1060A 35 "CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_E1060A 36 CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EO1060A 37 MV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX1060A 38 V6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX81060A 39 6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 1060A 40 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 F1060A 41 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FP1060A 42 NW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY1060A 43 W7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY91060A 44 7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+1060A 45 _EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+G1060A 46 ,0080121001 READ-PUNCH 1070A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 1070A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 1070A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 1070A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 1070A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 1070A 06 L0314191001/332 START TEST 1070A 07 L0314231001/ 1070A 08 L0314241001L604S22 MODIFY TITLE PRINT TO SKIP HEADINGS 1070A 09 L0314311001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 1070A 10 L0314391001/080 CLEAR READ AREA 1070A 11 L0314431001,001 SET WM IN READ AREA 1070A 12 L03144710011 READ 1070A 13 L0314481001L080180 LOAD PUNCH AREA 1070A 14 L0314551001V4540012 BRANCH IF NO ZONE IN 001 1070A 15 L03146310015 READ-PUNCH 1070A 16 L0314641001B444B B ON TO SCOPE 1070A 17 L0314691001B464 BRANCH TO MODIFY CHAIN. ROUTINE 1070A 18 L03147310015459 READ-PUNCH AND BRANCH 1070A 19 L0314771001. ERROR STOP IF NO BRANCH 1070A 20 L0314781001B454B B ON TO SCOPE 1070A 21 L0314831001D479360 MODIFY B421 IN CHAINING ROUTINE TO B429 1070A 22 L0314901001B420D D ON TO REPEAT TEST 1070A 23 L0314951001B349 BRANCH TO TEST FOR NEXT PROGRAM 1070A 24 L0316191001B420 BRANCH INSTRUCTION TO MODIFY TITLE PRINT1070A 25 B400 READ-PUNCH 1070A 26 AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CM1070A 27 KT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV1070A 28 T4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV61070A 29 4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 1070A 30 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 D1070A 31 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DN1070A 32 LU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW1070A 33 U5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW71070A 34 5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_1070A 35 "CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_E1070A 36 CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EO1070A 37 MV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX1070A 38 V6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX81070A 39 6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 1070A 40 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 F1070A 41 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FP1070A 42 NW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY1070A 43 W7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY91070A 44 7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+1070A 45 _EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+G1070A 46 ,0080121001 PRINT-READ-PUNCH 1080A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 1080A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 1080A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 1080A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 1080A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 1080A 06 L0314191001/332 START TEST 1080A 07 L0314231001/ 1080A 08 L0314241001L604S22 MODIFY TITLE PRINT TO SKIP HEADINGS 1080A 09 L0314311001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 1080A 10 L0314391001/080 CLEAR READ AREA 1080A 11 L0314431001,001 SET WM IN READ AREA 1080A 12 L03144710011 READ 1080A 13 L0314481001L080180 LOAD PUNCH AREA 1080A 14 L0314551001L080280 LOAD PRINT AREA 1080A 15 L0314621001V4610012 BRANCH IF NO ZONE IN 001 1080A 16 L03147010017 PRINT-READ-PUNCH 1080A 17 L0314711001B451B B ON TO SCOPE 1080A 18 L0314761001B471 BRANCH TO MODIFY CHAIN. ROUTINE 1080A 19 L03148010017466 PRINT-READ-PUNCH AND BRANCH 1080A 20 L0314841001. ERROR STOP IF NO BRANCH 1080A 21 L0314851001B461B B ON TO SCOPE 1080A 22 L0314901001D486360 MODIFY B421 IN CHAINING ROUTINE TO B429 1080A 23 L0314971001B420D D ON TO REPEAT TEST 1080A 24 L0315021001B349 BRANCH TO TEST FOR NEXT PROGRAM 1080A 25 L0316191001B420 BRANCH INSTRUCTION TO MODIFY TITLE PRINT1080A 26 B400 PRINT-READ-PUNCH 1080A 27 AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CM1080A 28 KT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV1080A 29 T4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV61080A 30 4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 1080A 31 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 D1080A 32 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DN1080A 33 LU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW1080A 34 U5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW71080A 35 5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_1080A 36 "CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_E1080A 37 CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EO1080A 38 MV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX1080A 39 V6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX81080A 40 6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 1080A 41 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 F1080A 42 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FP1080A 43 NW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY1080A 44 W7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY91080A 45 7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+1080A 46 _EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+G1080A 47 ,0080121001 FORMS SPACING 2000B 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 2000B 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 2000B 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 2000B 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 2000B 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 2000B 06 L0313961001B389S611 USE WHEN TESTS ARE RUN FROM TAPE 2000B 07 L0314041001BS88 ,, 2000B 08 L0314081001N000 ,, 2000B 09 L0314121001M360392 ,, 2000B 10 L0314191001/332 CLEAR PRINT AREA 2000B 11 L0314231001/ ,, 2000B 12 L0314241001L750S22 MODIFY TITLE PRINT TO SKIP HEADINGS 2000B 13 L0314311001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 2000B 14 L0314391001,201 SET WORD MARK IN PRINT AREA 2000B 15 L0314431001M800332 MOVE HYPHEN INTO 332 2000B 16 L0314501001M332331 MOVE HYPHEN INTO ALL PRINT POSITIONS 2000B 17 L0314571001L820250 LOAD PRINT-AUTO.-SPACE--- 2000B 18 L0314641001L942944 LOAD 1 INTO LINE COUNTER 2000B 19 L0314711001C944946 COMPARE LINE COUNTER WITH CONSTANT 05 2000B 20 L0314781001B468/ UNEQUAL BRANCH TO PRINT 2000B 21 L0314831001B485 EQUAL BRANCH TO CHANGE OPERATION COMMENT 2000B 22 L03148710012 PRINT OPERATION COMMENT 2000B 23 L0314881001B468B B ON TO SCOPE 2000B 24 L0314931001A942944 ADD 1 TO LINE COUNTER 2000B 25 L0315001001B452 BRANCH TO LOOP 2000B 26 L0315041001L840250 LOAD AFTER-PRINT-SPACE-1- 2000B 27 L0315111001C944948 COMPARE LINE COUNTER WITH CONSTANT 09 2000B 28 L0315181001B508/ UNEQUAL BRANCH TO FORMS CONTROL 2000B 29 L0315231001B527 EQUAL BRANCH TO CHANGE OPERATION COMMENT 2000B 30 L0315271001F/ FORMS CONTROL 2000B 31 L03152910012 PRINT OPERATION COMMENT 2000B 32 L0315301001B508B B ON TO SCOPE 2000B 33 L0315351001A942944 ADD 1 TO LINE COUNTER 2000B 34 L0315421001B492 BRANCH TO LOOP 2000B 35 L0315461001L860250 LOAD AFTER-PRINT-SPACE-2- 2000B 36 L0315531001C944950 COMPARE LINE COUNTER WITH CONSTANT 13 2000B 37 L0315601001B550/ UNEQUAL BRANCH TO FORMS CONTROL 2000B 38 L0315651001B569 EQUAL BRANCH TO CHANGE OPERATION COMMENT 2000B 39 L0315691001FS FORMS CONTROL 2000B 40 L03157110012 PRINT OPERATION COMMENT 2000B 41 L0315721001B550B B ON TO SCOPE 2000B 42 L0315771001A942944 ADD 1 TO LINE COUNTER 2000B 43 L0315841001B534 BRANCH TO LOOP 2000B 44 L0315881001L880250 LOAD AFTER-PRINT-SPACE-3- 2000B 45 L0315951001C944952 COMPARE LINE COUNTER WITH CONSTANT 17 2000B 46 L0316021001B592/ UNEQUAL BRANCH TO FORMS CONTROL 2000B 47 L0316071001B611 EQUAL BRANCH TO CHANGE OPERATION COMMENT 2000B 48 L0316111001FT FORMS CONTROL 2000B 49 L03161310012 PRINT OPERATION COMMENT 2000B 50 L0316141001B592B B ON TO SCOPE 2000B 51 L0316191001A942944 ADD 1 TO LINE COUNTER 2000B 52 L0316261001B576 BRANCH TO LOOP 2000B 53 L0316301001L900250 LOAD IMMEDIATE-SPACE-1--- 2000B 54 L0316371001C944954 COMPARE LINE COUNTER WITH CONSTANT 21 2000B 55 L0316441001B634/ UNEQUAL BRANCH TO FORMS CONTROL 2000B 56 L0316491001B653 EQUAL BRANCH TO CHANGE OPERATION COMMENT 2000B 57 L0316531001FJ FORMS CONTROL 2000B 58 L03165510012 PRINT OPERATION COMMENT 2000B 59 L0316561001B634B B ON TO SCOPE 2000B 60 L0316611001A942944 ADD 1 TO LINE COUNTER 2000B 61 L0316681001B618 BRANCH TO LOOP 2000B 62 L0316721001L920250 LOAD IMMEDIATE-SPACE-2--- 2000B 63 L0316791001C944956 COMPARE LINE COUNTER WITH CONSTANT 25 2000B 64 L0316861001B676/ UNEQUAL BRANCH TO FORMS CONTROL 2000B 65 L0316911001B695 EQUAL BRANCH TO CHANGE OPERATION COMMENT 2000B 66 L0316951001FK FORMS CONTROL 2000B 67 L03169710012 PRINT OPERATION COMMENT 2000B 68 L0316981001B676B B ON TO SCOPE 2000B 69 L0317031001A942944 ADD 1 TO LINE COUNTER 2000B 70 L0317101001B660 BRANCH TO LOOP 2000B 71 L0317141001L940250 LOAD IMMEDIATE-SPACE-3--- 2000B 72 L0317211001C944958 COMPARE LINE COUNTER WITH CONSTANT 29 2000B 73 L0317281001B718/ UNEQUAL BRANCH TO FORMS CONTROL 2000B 74 L0317331001B737 EQUAL BRANCH TO SENSE D 2000B 75 L0317371001FL FORMS CONTROL 2000B 76 L03173910012 PRINT OPERATION COMMENT 2000B 77 L0317401001B718B B ON TO SCOPE 2000B 78 L0317451001A942944 ADD 1 TO LINE COUNTER 2000B 79 L0317521001B702 BRANCH TO LOOP 2000B 80 L0317561001B420D D ON TO REPEAT TEST 2000B 81 L0317611001B348 BRANCH TO READ NEXT RECORD 2000B 82 L0317651001B420 BRANCH INSTRUCTION TO MODIFY TITLE PRINT 2000B 83 L0318191001- CONSTANT HYPHEN TO LOAD INTO PRINT AREA 2000B 84 L0318201001PRINT-AUTO.-SPACE--- 2000B 85 L0318401001AFTER-PRINT-SPACE-1- 2000B 86 L0318601001AFTER-PRINT-SPACE-2- 2000B 87 L0318801001AFTER-PRINT-SPACE-3- 2000B 88 L0319001001IMMEDIATE-SPACE-1--- 2000B 89 L0319201001IMMEDIATE-SPACE-2--- 2000B 90 L0319401001IMMEDIATE-SPACE-3--- 2000B 91 L031960100101 CONSTANT TO INCREMENT LINE COUNTER 2000B 92 L0319621001XX LINE COUNTER 2000B 93 L031964100105 CONSTANT TO CHANGE OPERATION COMMENT 2000B 94 L031966100109 ,, 2000B 95 L031968100113 ,, 2000B 96 L031970100117 ,, 2000B 97 L031972100121 ,, 2000B 98 L031974100125 ,, 2000B 99 L031976100129 CONSTANT TO END TEST 2000B100 ,019027,031,038042B031T98"B400L046352BW04BS88 FORMS SPACING 2000B101 ,0080121001 FORMS SKIPPING 2010A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 2010A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 2010A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 2010A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 2010A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 2010A 06 L0313961001B389S611 USE WHEN TESTS ARE RUN FROM TAPE 2010A 07 L0314041001BS88 ,, 2010A 08 L0314081001N000 ,, 2010A 09 L0314121001M360392 ,, 2010A 10 L0314191001/332 START TEST 2010A 11 L0314231001/ ,, 2010A 12 L0314241001L699S22 MODIFY TITLE PRINT TO SKIP HEADINGS 2010A 13 L0314311001BS00S521 BRANCH TO PRINT TITLE IF 1 IN S52 2010A 14 L0314391001,201 SET WORD MARK IN PRINT AREA 2010A 15 L0314431001M941332 MOVE HYPHEN INTO 332 2010A 16 L0314501001M332331 MOVE HYPHEN INTO ALL PRINT POSITIONS 2010A 17 L0314571001L920250 LOAD SKIP TO 1 IMMEDIATE 2010A 18 L0314641001F1 FORMS CONTROL 2010A 19 L03146610012 PRINT OPERATION COMMENT 2010A 20 L0314671001D942240 LOAD SKIP TO 2 IMMEDIATE 2010A 21 L0314741001F2 FORMS CONTROL 2010A 22 L03147610012 PRINT OPERATION COMMENT 2010A 23 L0314771001D943240 LOAD SKIP TO 3 IMMEDIATE 2010A 24 L0314841001F3 FORMS CONTROL 2010A 25 L03148610012 PRINT OPERATION COMMENT 2010A 26 L0314871001D944240 LOAD SKIP TO 4 IMMEDIATE 2010A 27 L0314941001F4 FORMS CONTROL 2010A 28 L03149610012 PRINT OPERATION COMMENT 2010A 29 L0314971001D945240 LOAD SKIP TO 5 IMMEDIATE 2010A 30 L0315041001F5 FORMS CONTROL 2010A 31 L03150610012 PRINT OPERATION COMMENT 2010A 32 L0315071001D946240 LOAD SKIP TO 6 IMMEDIATE 2010A 33 L0315141001F6 FORMS CONTROL 2010A 34 L03151610012 PRINT OPERATION COMMENT 2010A 35 L0315171001D947240 LOAD SKIP TO 7 IMMEDIATE 2010A 36 L0315241001F7 FORMS CONTROL 2010A 37 L03152610012 PRINT OPERATION COMMENT 2010A 38 L0315271001D948240 LOAD SKIP TO 8 IMMEDIATE 2010A 39 L0315341001F8 FORMS CONTROL 2010A 40 L03153610012 PRINT OPERATION COMMENT 2010A 41 L0315371001D949240 LOAD SKIP TO 9 IMMEDIATE 2010A 42 L0315441001F9 FORMS CONTROL 2010A 43 L03154610012 PRINT OPERATION COMMENT 2010A 44 L0315471001M951240 LOAD SKIP TO 10 IMMEDIATE 2010A 45 L0315541001F0 FORMS CONTROL 2010A 46 L03155610012 PRINT OPERATION COMMENT 2010A 47 L0315571001D950240 LOAD SKIP TO 11 IMMEDIATE 2010A 48 L0315641001F# FORMS CONTROL 2010A 49 L03156610012 PRINT OPERATION COMMENT 2010A 50 L0315671001D942240 LOAD SKIP TO 12 IMMEDIATE 2010A 51 L0315741001F@ FORMS CONTROL 2010A 52 L03157610012 PRINT OPERATION COMMENT 2010A 53 L0315771001L940250 LOAD SKIP TO 1 AFTER PRINT 2010A 54 L0315841001FA FORMS CONTROL 2010A 55 L03158610012 PRINT OPERATION COMMENT 2010A 56 L0315871001D942240 LOAD SKIP TO 2 AFTER PRINT 2010A 57 L0315941001FB FORMS CONTROL 2010A 58 L03159610012 PRINT OPERATION COMMENT 2010A 59 L0315971001D943240 LOAD SKIP TO 3 AFTER PRINT 2010A 60 L0316041001FC FORMS CONTROL 2010A 61 L03160610012 PRINT OPERATION COMMENT 2010A 62 L0316071001D944240 LOAD SKIP TO 4 AFTER PRINT 2010A 63 L0316141001FD FORMS CONTROL 2010A 64 L03161610012 PRINT OPERATION COMMENT 2010A 65 L0316171001D945240 LOAD SKIP TO 5 AFTER PRINT 2010A 66 L0316241001FE FORMS CONTROL 2010A 67 L03162610012 PRINT OPERATION COMMENT 2010A 68 L0316271001D946240 LOAD SKIP TO 6 AFTER PRINT 2010A 69 L0316341001FF FORMS CONTROL 2010A 70 L03163610012 PRINT OPERATION COMMENT 2010A 71 L0316371001D947240 LOAD SKIP TO 7 AFTER PRINT 2010A 72 L0316441001FG FORMS CONTROL 2010A 73 L03164610012 PRINT OPERATION COMMENT 2010A 74 L0316471001D948240 LOAD SKIP TO 8 AFTER PRINT 2010A 75 L0316541001FH FORMS CONTROL 2010A 76 L03165610012 PRINT OPERATION COMMENT 2010A 77 L0316571001D949240 LOAD SKIP TO 9 AFTER PRINT 2010A 78 L0316641001FI FORMS CONTROL 2010A 79 L03166610012 PRINT OPERATION COMMENT 2010A 80 L0316671001M951240 LOAD SKIP TO 10 AFTER PRINT 2010A 81 L0316741001F? FORMS CONTROL 2010A 82 L03167610012 PRINT OPERATION COMMENT 2010A 83 L0316771001D950240 LOAD SKIP TO 11 AFTER PRINT 2010A 84 L0316841001F. FORMS CONTROL 2010A 85 L03168610012 PRINT OPERATION COMMENT 2010A 86 L0316871001D942240 LOAD SKIP TO 12 AFTER PRINT 2010A 87 L0316941001F) FORMS CONTROL 2010A 88 L03169610012 PRINT OPERATION COMMENT 2010A 89 L0316971001L971250 LOAD END OF TEST COMMENT 20101 90 L03170410012 PRINT 2010A 91 L0317051001B420D D ON TO REPEAT TEST 2010A 92 L0317101001B348 BRANCH TO READ NEXT RECORD 2010A 93 L0317141001B420 BRANCH INSTRUCTION TO MODIFY TITLE PRINT2010A 94 L0319201001SKIP-TO--1-IMMEDIATE 2010A 95 L0319401001SKIP-TO--1-AFTER-PRT 2010A 96 L0319601001-23456789 CONSTANTS TO MODIFY SKIP INSTRUCTIONS 2010A 97 L031969100110 ,, 2010A 98 L0319711001----END OF TEST----- 2010A 99 ,019027,031,038042B031T98"B400L046352BW04BS88 FORMS SKIPPING 2010A100