,0080121001 TEST CHARACTER & BRANCH 0050B 0A L0313521001,008012 0050B 02 L0313591001,001 0050B 03 L03136310011001 0050B 04 L03136710011 0050B 05 L0313681001B361080A 0050B 06 L0313761001B421 WHAT'S GOING TO BE AT 421? 0050B 07 L0313801001/340080 0050B 08 L0313871001 0050B 09 L031S1910012 PRINT (SPACE). 0050B 10 L031S201001,049 SET WM FOR TITLE AND BLOCK NO. 0050B 11 L031S241001L077277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 0050B 12 L031S3110012 PRINT TITLE AND BLOCK NO. 0050B 13 L031S321001/277 CLEAR PRINT AREA 0050B 14 L031S3610012 PRINT (SPACE). 0050B 15 L031S371001)/40/60 CLEAR WORD MARKS IN SECOND 0050B 16 L031S441001)/80 LINE STORED INFORMATION. 0050B 17 L031S481001L/99280 LOAD SECOND LINE. 0050B 18 L031S5510012 PRINT SECOND LINE. 0050B 19 L031S561001/280 CLEAR PRINT AREA. 0050B 20 L031S6010012413 PRINT (SPACE) AND BRANCH TO MAIN PROGRA 0050B 21 L031S641001 0050B 22 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0050B 23 L0314041001BS88 ,, 0050B 24 L0314081001N000 ,, 0050B 25 L0314121001M360392 ,, 0050B 26 L0314191001/332 START TEST 0050B 27 L0314231001/ 0050B 28 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0050B 29 L0314321001/080 CLEAR READ AREA 0050B 30 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0050B 31 L0314401001,001078 LOAD PRINT AREA 0050B 32 L0314471001L080299 ,, 0050B 33 L0314541001L072272 ,, 0050B 34 L0314611001,202241 ,, 0050B 35 L0314681001M250456 MOVE B OR N OP INTO 456 0050B 36 L0314751001N486 B OP FOR EQUAL CHAR-N OP FOR UNEQ CHAR 0050B 37 L0314791001M202474 MOVE D MODIFIER TO TEST CHARAC OP 0050B 38 L0314861001B895224X TEST UNEQUAL CHARACTERS 0050B 39 L0314941001B ,, 0050B 40 L0314951001B ,, 0050B 41 L0314961001B467B B ON TO SCOPE 0050B 42 L0315011001B515 BRANCH TO LOAD RESULT COMMENT 0050B 43 L0315051001M202500 MOVE D MODIFIER TO TEST CHARAC OP 0050B 44 L0315121001B510222X TEST EQUAL CHARACTERS 0050B 45 L0315201001B493B B ON TO SCOPE 0050B 46 L0315251001B900 BRANCH TO ERROR PRINT ROUTINE 0050B 47 L0315291001B493B B ON TO SCOPE 0050B 48 L0315341001L247267 LOAD RESULT COMMENT 0050B 49 L0315411001B950C C ON TO CORRECT PRINT ROUTINE 0050B 50 L0315461001B958 BRANCH TO SENSE D 0050B 51 L0319141001B467B B ON TO SCOPE 0050B 52 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0050B 53 L0319261001B916E E ON TO ERROR STOP 0050B 54 L03193110012958 ERROR PRINT 0050B 55 L0319351001.958 ERROR STOP 0050B 56 L0319391001 WORD MARK 0050B 57 L0319691001L/19285 CORRECT PRINT ROUTINE 0050B 58 L03197610012 ,, 0050B 59 L0319771001B421D D ON TO REPEAT 0050B 60 L0319821001/280 CLEAR 0050B 61 L0319861001/080 ,, 0050B 62 L0319901001B417 BRANCH TO READ NEXT RECORD 0050B 63 L031/291001ERROR CONSTANTS 0050B 64 L031/341001 ,, 0050B 65 L031/391001D MODIFIER ,, 0050B 66 L031/591001B FIELD CHARACTERS ,, 0050B 67 L031/791001RESULT SHOULD BE ,, 0050B 68 L031/991001RESULT IS ,, 0050B 69 L031S7110011 0050B 70 /333080 0050B 71