,0080121001 COMPLEMENT ADD 0311A00A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0311A002 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0311A003 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0311A004 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0311A005 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0311A006 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0311A007 L0314041001BS88 ,, 0311A008 L0314081001N000 ,, 0311A009 L0314121001M360392 ,, 0311A010 L0314191001/332 START TEST 0311A011 L0314231001/ 0311A012 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0311A013 L0314321001/080 CLEAR READ AREA 0311A014 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0311A015 L0314401001,001078 LOAD PRINT AREA 0311A016 L0314471001L080299 ,, 0311A017 L0314541001L072272 ,, 0311A018 L0314611001,221241 ,, 0311A019 L0314681001B524 SET AFIELD WM 0311A020 L0314721001B484013S BR TO USE SUBTRACT CODE IF S IN 013 0311A021 L0314801001L230270 LOAD B FIELD 0311A022 L0314871001A210270 ADD WITH UNLIKE SIGNS 0311A023 L0314941001B461B B ON TO SCOPE 0311A024 L0314991001B503 BRANCH TO TEST FOR ERROR 0311A025 L0315031001L230270 LOAD B FIELD 0311A026 L0315101001S210270 SUBTRACT WITH LIKE SIGNS 0311A027 L0315171001B484B B ON TO SCOPE 0311A028 L0315221001C270250 TEST FOR ERROR 0311A029 L0315291001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0311A030 L0315341001B950C C ON TO CORRECT PRINT ROUTINE 0311A031 L0315391001B958 BRANCH TO SENSE D 0311A032 L0315431001B604232A CLEAR AFIELD WM 0311A033 L0315511001B612232B CLEAR AFIELD WM 0311A034 L0315591001B620232C SET AFIELD WM 0311A035 L0315671001B628232D SET AFIELD WM 0311A036 L0315751001B636232E SET AFIELD WM 0311A037 L0315831001B644232F SET AFIELD WM 0311A038 L0315911001B652232G SET AFIELD WM 0311A039 L0315991001B660232H SET AFIELD WM 0311A040 L0316071001B668232I SET AFIELD WM 0311A041 L0316151001B676232K SET AFIELD WM 0311A042 L0316231001)201 SET AFIELD WM 0311A043 L0316271001B453 SET AFIELD WM 0311A044 L0316311001,202 SET AFIELD WM 0311A045 L0316351001B453 SET AFIELD WM 0311A046 L0316391001,203 SET AFIELD WM 0311A047 L0316431001B453 SET AFIELD WM 0311A048 L0316471001,204 SET AFIELD WM 0311A049 L0316511001B453 SET AFIELD WM 0311A050 L0316551001,205 SET AFIELD WM 0311A051 L0316591001B453 SET AFIELD WM 0311A052 L0316631001,206 SET AFIELD WM 0311A053 L0316671001B453 SET AFIELD WM 0311A054 L0316711001,207 SET AFIELD WM 0311A055 L0316751001B453 SET AFIELD WM 0311A056 L0316791001,208 SET AFIELD WM 0311A057 L0316831001B453 SET AFIELD WM 0311A058 L0316871001,209 SET AFIELD WM 0311A059 L0316911001B453 SET AFIELD WM 0311A060 L0316951001,210 SET AFIELD WM 0311A061 L0316991001B453 SET AFIELD WM 0311A062 L0317031001 SET AFIELD WM 0311A063 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0311A064 L0319261001B916E E ON TO ERROR STOP 0311A065 L03193110012958 ERROR PRINT 0311A066 L0319351001.958 ERROR STOP 0311A067 L0319391001 WORD MARK 0311A068 L0319691001L/19285 CORRECT PRINT ROUTINE 0311A069 L03197610012 ,, 0311A070 L0319771001B421D D ON TO REPEAT 0311A071 L0319821001B417 BRANCH TO READ NEXT RECORD 0311A072 L031/291001ERROR CONSTANTS 0311A073 L031/341001 ,, 0311A074 L031/391001A FIELD ,, 0311A075 L031/591001B FIELD ,, 0311A076 L031/791001RESULT SHOULD BE ,, 0311A077 L031/991001RESULT IS ,, 0311A078 ,019027,031,038042B031T98"B400L046352BW04BS88 COMPLEMENT ADD 0311A079 000000000! ADD OP 0123456789 012345678I 0311A080 111111110J ADD OP 123456789` 012345678I 0311A081 222222211K ADD OP 234567890A 012345678I 0311A082 3333332223 ADD OP 345678901K 012345678R 0311A083 444443333U ADD OP 456789012L 012345678R 0311A084 555544444E ADD OP 567890123M 012345678R 0311A085 666555555O SUB OP 678901234N 012345678R 0311A086 776666666X SUB OP 7890123456 012345678I 0311A087 877777777H SUB OP 890123456X 012345678I 0311A088 8HQYHQYHQ9 SUB OP 9?JSCMVFPH 012345678I 0311A089 000000000! ADD OP 0123456789 A 012345678I 0311A090 111111110J ADD OP 123456789` A 012345678I 0311A091 222222211K ADD OP 234567890A A 012345678I 0311A092 3333332223 ADD OP 345678901K A 012345678R 0311A093 444443333U ADD OP 456789012L A 012345678R 0311A094 555544444E ADD OP 567890123M A 012345678R 0311A095 666555555O SUB OP 678901234N A 012345678R 0311A096 776666666X SUB OP 7890123456 A 012345678I 0311A097 877777777H SUB OP 890123456X A 012345678I 0311A098 8HQYHQYHQ9 SUB OP 9?JSCMVFPH A 012345678I 0311A099 000000000! ADD OP 0123456789 B 012345678I 0311A100 111111110J ADD OP 123456789` B 112345678I 0311A101 222222211K ADD OP 234567890A B 212345678I 0311A102 3333332223 ADD OP 345678901K B 312345678R 0311A103 444443333U ADD OP 456789012L B 412345678R 0311A104 555544444E ADD OP 567890123M B 512345678R 0311A105 666555555O SUB OP 678901234N B 612345678R 0311A106 776666666X SUB OP 7890123456 B 712345678I 0311A107 877777777H SUB OP 890123456X B 812345678I 0311A108 8HQYHQYHQ9 SUB OP 9?JSCMVFPH B 812345678I 0311A109 000000000! ADD OP 0123456789 C 012345678I 0311A110 111111110J ADD OP 123456789` C 122345678I 0311A111 222222211K ADD OP 234567890A C 232345678I 0311A112 3333332223 ADD OP 345678901K C 342345678R 0311A113 444443333U ADD OP 456789012L C 452345678R 0311A114 555544444E ADD OP 567890123M C 562345678R 0311A115 666555555O SUB OP 678901234N C 672345678R 0311A116 776666666X SUB OP 7890123456 C 782345678I 0311A117 877777777H SUB OP 890123456X C 882345678I 0311A118 8HQYHQYHQ9 SUB OP 9?JSCMVFPH C 892345678I 0311A119 000000000! ADD OP 0123456789 D 012345678I 0311A120 111111110J ADD OP 123456789` D 123345678I 0311A121 222222211K ADD OP 234567890A D 234345678I 0311A122 3333332223 ADD OP 345678901K D 345345678R 0311A123 444443333U ADD OP 456789012L D 456345678R 0311A124 555544444E ADD OP 567890123M D 567345678R 0311A125 666555555O SUB OP 678901234N D 678345678R 0311A126 776666666X SUB OP 7890123456 D 788345678I 0311A127 877777777H SUB OP 890123456X D 889345678I 0311A128 8HQYHQYHQ9 SUB OP 9?JSCMVFPH D 900345678I 0311A129 000000000! ADD OP 0123456789 E 012345678I 0311A130 111111110J ADD OP 123456789` E 123445678I 0311A131 222222211K ADD OP 234567890A E 234545678I 0311A132 3333332223 ADD OP 345678901K E 345645678R 0311A133 444443333U ADD OP 456789012L E 456745678R 0311A134 555544444E ADD OP 567890123M E 567845678R 0311A135 666555555O SUB OP 678901234N E 678845678R 0311A136 776666666X SUB OP 7890123456 E 788945678I 0311A137 877777777H SUB OP 890123456X E 890045678I 0311A138 8HQYHQYHQ9 SUB OP 9?JSCMVFPH E 901145678I 0311A139 000000000! ADD OP 0123456789 F 012345678I 0311A140 111111110J ADD OP 123456789` F 123455678I 0311A141 222222211K ADD OP 234567890A F 234565678I 0311A142 3333332223 ADD OP 345678901K F 345675678R 0311A143 444443333U ADD OP 456789012L F 456785678R 0311A144 555544444E ADD OP 567890123M F 567885678R 0311A145 666555555O SUB OP 678901234N F 678895678R 0311A146 776666666X SUB OP 7890123456 F 789005678I 0311A147 877777777H SUB OP 890123456X F 890115678I 0311A148 8HQYHQYHQ9 SUB OP 9?JSCMVFPH F 901225678I 0311A149 000000000! ADD OP 0123456789 G 012345678I 0311A150 111111110J ADD OP 123456789` G 123456678I 0311A151 222222211K ADD OP 234567890A G 234567678I 0311A152 3333332223 ADD OP 345678901K G 345678678R 0311A153 444443333U ADD OP 456789012L G 456788678R 0311A154 555544444E ADD OP 567890123M G 567889678R 0311A155 666555555O SUB OP 678901234N G 678900678R 0311A156 776666666X SUB OP 7890123456 G 789011678I 0311A157 877777777H SUB OP 890123456X G 890122678I 0311A158 8HQYHQYHQ9 SUB OP 9?JSCMVFPH G 901233678I 0311A159 000000000! ADD OP 0123456789 H 012345678I 0311A160 111111110J ADD OP 123456789` H 123456778I 0311A161 222222211K ADD OP 234567890A H 234567878I 0311A162 3333332223 ADD OP 345678901K H 345678878R 0311A163 444443333U ADD OP 456789012L H 456788978R 0311A164 555544444E ADD OP 567890123M H 567890078R 0311A165 666555555O SUB OP 678901234N H 678901178R 0311A166 776666666X SUB OP 7890123456 H 789012278I 0311A167 877777777H SUB OP 890123456X H 890123378I 0311A168 8HQYHQYHQ9 SUB OP 9?JSCMVFPH H 901234478I 0311A169 000000000! ADD OP 0123456789 I 012345678I 0311A170 111111110J ADD OP 123456789` I 123456788I 0311A171 222222211K ADD OP 234567890A I 234567888I 0311A172 3333332223 ADD OP 345678901K I 345678898R 0311A173 444443333U ADD OP 456789012L I 456789008R 0311A174 555544444E ADD OP 567890123M I 567890118R 0311A175 666555555O SUB OP 678901234N I 678901228R 0311A176 776666666X SUB OP 7890123456 I 789012338I 0311A177 877777777H SUB OP 890123456X I 890123448I 0311A178 8HQYHQYHQ9 SUB OP 9?JSCMVFPH I 901234558I 0311A179 000000000! ADD OP 0123456789 K 012345678I 0311A180 111111110J ADD OP 123456789` K 123456788I 0311A181 222222211K ADD OP 234567890A K 234567889I 0311A182 3333332223 ADD OP 345678901K K 345678900R 0311A183 444443333U ADD OP 456789012L K 456789011R 0311A184 555544444E ADD OP 567890123M K 567890122R 0311A185 666555555O SUB OP 678901234N K 678901233R 0311A186 776666666X SUB OP 7890123456 K 789012344I 0311A187 877777777H SUB OP 890123456X K 890123455I 0311A188 8HQYHQYHQ9 SUB OP 9?JSCMVFPH K 901234566I 0311A189