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 D. MODIFIER 8 5012 B '2U 303 } GMARK 1 108 B NOGM 4 5020 B '3/ 1 109 MLC @GMARK@,327 7 5024 M S9Z 327 1 110 NOGM BCE EXIT,297, Q. NO A ADDRESS 8 5031 B '9/ 297 1 111 BCE XAODD,295,% A ADD NOT TO BE CONVERTED 8 5039 B '6V 295 % 2 112 MLC 297,DECODE 7 5047 M 297 T2/ 2 113 B CNVRT 4 5054 B /0T 2 114 MLC RSLT,312 7 5058 M T1V 312 2 115 XAODD BCE EXIT,301, Q. NO B ADDRESS 8 5065 B '9/ 301 2 116 MLC 301,DECODE 7 5073 M 301 T2/ 3 117 B CNVRT 4 5080 B /0T 3 118 MLC RSLT,321 7 5084 M T1V 321 3 119 EXIT BCE 1637,293, Q. BLANK OP, B BADOP 8 5091 B W37 293 3 120 B 1156 B SETLIT 4 5099 B /56 3 121 * 122 * DECODE 3 CHAR ADDR TO 5 CHAR AND INDEX REG 123 * 3 CHAR ADDR IN DECODE 124 * 8 CHAR RESULT IN RSLT 125 * 126 CNVRT SBR CNVRTX&3 STORE EXIT 4 5103 H S9U 3 127 MLC BK8#8,RSLT#8 SET RSLT TO BLANKS 7 5107 M T0X T1V 4 128 BCE CNVRTX,DECODE-1,# Q. NO ADDRESS 8 5114 B S9/ T2' # 4 129 BWZ NOIX,DECODE-1,2 Q. ANY INDEX REG 8 5122 V /7U T2' 2 4 130 MLC @*X0@,RSLT 7 5130 M T1Y T1V 4 131 BWZ HX1,DECODE-1,S Q. X1? 8 5137 V /6X T2' S 4 132 BWZ HX2,DECODE-1,K Q. X2? 8 5145 V /6' T2' K 5 133 A *-6,RSLT 7 5153 A /5T T1V 5 134 HX2 A *-6,RSLT 7 5160 A /6' T1V 5 135 HX1 A *-6,RSLT 7 5167 A /6X T1V 5 136 NOIX MN DECODE#3,RSLT-3 MOVE HUNDREDS DIGITS 7 5174 D T2/ T1S 5 137 MN 1 5181 D 5 138 MN 1 5182 D 5 139 ZA THOU#3 4 5183 ? T2U 6 140 BWZ THOU4,DECODE,2,2 TEST FOR 1-2-3 THOUSAND 8 5187 V S3S T2/ 2 6 141 BWZ T1,DECODE-2,S 8 5195 V S2V T1Z S 6 142 BWZ T2,DECODE-2,K 8 5203 V S1Y T1Z K 6 143 T3 A *-6,THOU-1 7 5211 A S1/ T2T 6 144 T2 A *-6,THOU-1 7 5218 A S1Y T2T 7 145 T1 A *-6,THOU-1 7 5225 A S2V T2T 7 146 THOU4 BWZ NO12,DECODE,2 TEST FOR 4-8-12 THOUSAND 8 5232 V S7X T2/ 2 7 147 BWZ T4,DECODE,S 8 5240 V S7' T2/ S 7 148 BWZ T8,DECODE,K 8 5248 V S6T T2/ K 7 149 T12 A NOIX,THOU-1 7 5256 A /7U T2T 8 150 T8 A NOIX,THOU-1 7 5263 A /7U T2T 8 1 CONVERT ADDRESS IN AUTOCODER LISTING PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 151 T4 A NOIX,THOU-1 7 5270 A /7U T2T 8 152 NO12 MCS THOU-1,TMP3#3 7 5277 Z T2T T2X 8 153 MLC TMP3,RSLT-6 7 5284 M T2X T0Z 8 154 CNVRTX B * 4 5291 B S9U 8 155 LTORG * 5295 DCW @GMARK@ 5 5299 LIT 9 BK8 DCW #08 8 5307 AREA 9 RSLT DCW #08 8 5315 AREA 9 DCW @*X0@ 3 5318 LIT 9 DECODE DCW #03 3 5321 AREA 9 THOU DCW #03 3 5324 AREA 9 TMP3 DCW #03 3 5327 AREA 9 156 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 BK8 5307 CNVRT 5103 CNVRTX 5291 CT 7 DECODE 5321 EXIT 5091 HX1 5167 HX2 5160 NO12 5277 NOGM 5031 NOIX 5174 RSLT 5315 T1 5225 T12 5256 T2 5218 T3 5211 T4 5270 T8 5263 THOU 5324 THOU4 5232 TMP3 5327 XAODD 5065