CONVERT ADDRESS IN AUTOCODER LISTING PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 000 JOB CONVERT ADDRESS IN AUTOCODER LISTING 102 CTL 6611 103 ORG 5000 5000 104 CT EQU 7 0007 105 BCE *&5,326, 8 5000 B '1S 326 1 106 B NOGM 4 5008 B '3/ 1 107 BCE *&5,303,} Q. GROUP MARK IN O. MODIFIER 8 5012 B '2U 303 } GMARK 1 108 B NOGM 4 5020 B '3/ 1 109 MLC @GMARK@,327 7 5024 M T5' 327 1 110 NOGM C CT,@2@ Q. A ADDRESS 7 5031 C 007 T5/ 1 111 BL HASA 5 5038 B '4X T 2 112 B EXIT 4 5043 B /0X 2 113 HASA BCE AODD,295,% A ADD NOT TO BE CONVERTED 8 5047 B '7T 295 % 2 114 MLC 297,DECODE 7 5055 M 297 T7V 2 115 B CNVRT 4 5062 B /1Z 2 116 MLC RSLT,312 7 5066 M T6Y 312 2 117 AODD C CT,@6@ Q. B ADDRESS 7 5073 C 007 T5S 3 118 BL HASB 5 5080 B '8Z T 3 119 B EXIT 4 5085 B /0X 3 120 HASB MLC 301,DECODE 7 5089 M 301 T7V 3 121 B CNVRT 4 5096 B /1Z 3 122 MLC RSLT,321 7 5100 M T6Y 321 3 123 EXIT BCE 1637,293, Q. BLANK OP, B BADOP 8 5107 B W37 293 4 124 B 1156 B SETLIT 4 5115 B /56 4 125 * 126 * DECODE 3 CHAR ADDR TO 5 CHAR AND INDEX REG 127 * 3 CHAR ADDR IN DECODE 128 * 8 CHAR RESULT IN RSLT 129 * 130 CNVRT SBR CNVRTX&3 STORE EXIT 4 5119 H T4V 4 131 MLC BK8#8,RSLT#8 SET RSLT TO BLANKS 7 5123 M T6' T6Y 4 132 BCE CNVRTX,DECODE-1,# Q. NO ADDRESS 8 5130 B T4S T7U # 4 133 BWZ NOIX,DECODE-1,2 Q. ANY INDEX REG 8 5138 V /9Y T7U 2 4 134 MLC @*X@,RSLT 7 5146 M T7' T6Y 5 135 BWZ HX1,DECODE-1,S Q. X1? 8 5153 V /8' T7U S 5 136 BWZ HX2,DECODE-1,K Q. X2? 8 5161 V /9/ T7U K 5 137 MLC @3@,RSLT SET X3 7 5169 M T7/ T6Y 5 138 B NOIX 4 5176 B /9Y 5 139 HX1 MLC @1@,RSLT SET X1 7 5180 M T7S T6Y 6 140 B NOIX 4 5187 B /9Y 6 141 HX2 MLC @2@,RSLT SET X2 7 5191 M T5/ T6Y 6 142 NOIX MN DECODE#3,RSLT-3 MOVE HUNDREDS DIGITS 7 5198 D T7V T6V 6 143 MN 1 5205 D 6 144 MN 1 5206 D 6 145 MLC @ @,THOU#2 7 5207 M T7X T7Z 6 146 BWZ T1,DECODE-2,S TEST FOR 1-2-3 THOUSAND 8 5214 V S4S T7T S 7 147 BWZ T2,DECODE-2,K 8 5222 V S5T T7T K 7 148 BWZ T3,DECODE-2,B 8 5230 V S6U T7T B 7 149 B TRY12 4 5238 B S7/ 7 150 T1 MLC @1@,THOU 7 5242 M T7S T7Z 7 1 CONVERT ADDRESS IN AUTOCODER LISTING PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 151 B TRY12 4 5249 B S7/ 7 152 T2 MLC @2@,THOU 7 5253 M T5/ T7Z 8 153 B TRY12 4 5260 B S7/ 8 154 T3 MLC @3@,THOU 7 5264 M T7/ T7Z 8 155 TRY12 BWZ T4,DECODE,S TEST FOR 4-8-12 THOUSAND 8 5271 V S9Z T7V S 8 156 BWZ T8,DECODE,K 8 5279 V T1' T7V K 8 157 BWZ T12,DECODE,B 8 5287 V T2/ T7V B 9 158 B NO12 4 5295 B T2Y 9 159 T4 A @4@,THOU 7 5299 A T8' T7Z 9 160 B NO12 4 5306 B T2Y 9 161 T8 A @8@,THOU 7 5310 A T8/ T7Z 9 162 B NO12 4 5317 B T2Y 9 163 T12 A @12@,THOU 7 5321 A T8T T7Z 10 164 NO12 MCS THOU,TMP3#3 7 5328 Z T7Z T8W 10 165 MLC TMP3,RSLT-6 7 5335 M T8W T6S 10 166 CNVRTX B * 4 5342 B T4V 10 167 LTORG * 5346 DCW @GMARK@ 5 5350 LIT 10 DCW @2@ 1 5351 LIT 10 DCW @6@ 1 5352 LIT 10 BK8 DCW #08 8 5360 AREA 11 RSLT DCW #08 8 5368 AREA 11 DCW @*X@ 2 5370 LIT 11 DCW @3@ 1 5371 LIT 11 DCW @1@ 1 5372 LIT 11 DECODE DCW #03 3 5375 AREA 11 DCW @ @ 2 5377 LIT 11 THOU DCW #02 2 5379 AREA 12 DCW @4@ 1 5380 LIT 12 DCW @8@ 1 5381 LIT 12 DCW @12@ 2 5383 LIT 12 TMP3 DCW #03 3 5386 AREA 12 168 END 0 / 000 080 1 CONVERT ADDRESS IN AUTOCODER LISTING PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS AODD 5073 BK8 5360 CNVRT 5119 CNVRTX 5342 CT 7 DECODE 5375 EXIT 5107 HASA 5047 HASB 5089 HX1 5180 HX2 5191 NO12 5328 NOGM 5031 NOIX 5198 RSLT 5368 T1 5242 T12 5321 T2 5253 T3 5264 T4 5299 T8 5310 THOU 5379 TMP3 5386 TRY12 5271