,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