,0080121001 RECOMPLEMENT 0320B 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0320B 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0320B 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0320B 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0320B 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0320B 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0320B 07 L0314041001BS88 ,, 0320B 08 L0314081001N000 ,, 0320B 09 L0314121001M360392 ,, 0320B 10 L0314191001/332 START TEST 0320B 11 L0314231001/ 0320B 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0320B 13 L0314321001/080 CLEAR READ AREA 0320B 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0320B 15 L0314401001,001078 LOAD PRINT AREA 0320B 16 L0314471001L080299 ,, 0320B 17 L0314541001L072272 ,, 0320B 18 L0314611001,221241 ,, 0320B 19 L0314681001)201 ,, 0320B 20 L0314721001B484013S BR TO USE SUBTRACT CODE IF S IN 013 0320B 21 L0314801001L230270 LOAD B FIELD 0320B 22 L0314871001A210270 ADD WITH UNLIKE SIGNS 0320B 23 L0314941001B461B B ON TO SCOPE 0320B 24 L0314991001B503 BRANCH TO TEST FOR ERROR 0320B 25 L0315031001L230270 LOAD B FIELD 0320B 26 L0315101001S210270 SUBTRACT WITH LIKE SIGNS 0320B 27 L0315171001B484B B ON TO SCOPE 0320B 28 L0315221001C270250 TEST FOR ERROR 0320B 29 L0315291001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0320B 30 L0315341001B950C C ON TO CORRECT PRINT ROUTINE 0320B 31 L0315391001B958 BRANCH TO SENSE D 0320B 32 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0320B 33 L0319261001B916E E ON TO ERROR STOP 0320B 34 L03193110012958 ERROR PRINT 0320B 35 L0319351001.958 ERROR STOP 0320B 36 L0319391001 WORD MARK 0320B 37 L0319691001L/19285 CORRECT PRINT ROUTINE 0320B 38 L03197610012 ,, 0320B 39 L0319771001B421D D ON TO REPEAT 0320B 40 L0319821001B417 BRANCH TO READ NEXT RECORD 0320B 41 L031/291001ERROR CONSTANTS 0320B 42 L031/341001 ,, 0320B 43 L031/391001A FIELD ,, 0320B 44 L031/591001B FIELD ,, 0320B 45 L031/791001RESULT SHOULD BE ,, 0320B 46 L031/991001RESULT IS ,, 0320B 47 ,019027,031,038042B031T98"B400L046352BW04BS88 RECOMPLEMENT 0320B 48 012345678R ADD OP 0000000000 012345678R 0320B 49 123456789! ADD OP 111111110/ 012345678R 0320B 50 234567890J ADD OP 222222211B 012345678R 0320B 51 3456789012 ADD OP 333333222L 012345678I 0320B 52 456789012T ADD OP 444443333M 012345678I 0320B 53 567890123D ADD OP 555544444N 012345678I 0320B 54 678901234N SUB OP 666555555O 012345678I 0320B 55 789012345W SUB OP 7766666667 012345678R 0320B 56 890123456G SUB OP 877777777Y 012345678R 0320B 57 9?JSCMVFP8 SUB OP 8HQYHQYHQI 012345678R 0320B 58