,0080121001 TRUE ADD 0300 0A L0313521001,008012 PROGRAM CHAINING ROUTINE 0300 02 L0313591001,001 ,, 0300 03 L03136310011001 ,, 0300 04 L03136710011 READ DETAIL OR PROGRAM HEADER 0300 05 L0313681001B361080A BRANCH IF HEADER 0300 06 L0313761001B421 CONTINUE PROGRAM 0300 07 L0313801001/340080 BRANCH TO CHAINING ROUTINE 0300 08 L0313871001 0300 09 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0300 10 L0314041001BS88 ,, 0300 11 L0314081001N000 ,, 0300 12 L0314121001M360392 ,, 0300 13 L0314191001/332 START TEST 0300 14 L0314231001/ 0300 15 L0314241001BS00S521 BRANCH TO TITLE PRINT ROUTINE 0300 16 L0314321001/080 CLEAR READ AREA 0300 17 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0300 18 L0314401001,001078 LOAD PRINT AREA 0300 19 L0314471001L080299 ,, 0300 20 L0314541001L072272 ,, 0300 21 L0314611001,221241 ,, 0300 22 L0314681001,202 ,, 0300 23 L0314721001B484013S BR TO USE SUBTRACT CODE IF S IN 013 0300 24 L0314801001L230270 LOAD B FIELD 0300 25 L0314871001A210270 ADD WITH LIKE SIGNS 0300 26 L0314941001B461B B ON TO SCOPE 0300 27 L0314991001B503 BRANCH TO TEST FOR ERROR 0300 28 L0315031001L230270 LOAD B FIELD 0300 29 L0315101001S210270 SUBTRACT WITH UNLIKE SIGNS 0300 30 L0315171001B484B B ON TO SCOPE 0300 31 L0315221001C270250 TEST FOR ERROR 0300 32 L0315291001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0300 33 L0315341001B950C C ON TO CORRECT PRINT ROUTINE 0300 34 L0315391001B958 BRANCH TO SENSE D 0300 35 L0315431001 0300 36 )0025241001 0300 37 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0300 38 L0319261001B916E E ON TO ERROR STOP 0300 39 L03193110012958 ERROR PRINT 0300 40 L0319351001.958 ERROR STOP 0300 41 L0319391001 WORD MARK 0300 42 L0319691001L/19285 CORRECT PRINT ROUTINE 0300 43 L03197610012 ,, 0300 44 L0319771001B421D D ON TO REPEAT 0300 45 L0319821001B417 BRANCH TO READ NEXT RECORD 0300 46 L031/291001ERROR CONSTANTS 0300 47 L031/341001 ,, 0300 48 L031/391001A FIELD ,, 0300 49 L031/591001B FIELD ,, 0300 50 L031/791001RESULT SHOULD BE ,, 0300 51 L031/991001RESULT IS ,, 0300 52 L031S1910012 PRINT (SPACE). 0300 53 L031S201001,049 SET WM FOR TITLE AND BLOCK NO. 0300 54 L031S241001L077277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 0300 55 L031S3110012 PRINT TITLE AND BLOCK NO. 0300 56 L031S321001/277 CLEAR PRINT AREA 0300 57 L031S3610012 PRINT (SPACE). 0300 58 L031S371001)/40/60 CLEAR WORD MARKS IN SECOND 0300 59 L031S441001)/80 LINE STORED INFORMATION. 0300 60 L031S481001L/89270 LOAD SECOND LINE. 0300 61 L031S5510012 PRINT SECOND LINE. 0300 62 L031S561001/270 CLEAR PRINT AREA. 0300 63 L031S6010012413 PRINT (SPACE) AND BRANCH TO MAIN PROGRA 0300 64 L031S641001 0300 65 /333080 0300 66