,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 L012S5210011 0050A ,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