,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