BOOTSTRAP ,008047/047046 BOOTSTRAP L038038,054061,068072,0010401040 1 CLEAR STORAGE /099H166B163200R1,001/001199 CLEAR L038200,167171,179180,184191B163 2 BOOTSTRAP ,008047/047046 BOOTSTRAP L038038,054061,068072,0010401040 3 CONVERT ADDRESS IN AUTOCODER LISTING PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 000 JOB CONVERT ADDRESS IN AUTOCODER LISTING 103 ORG 5000 5000 104 CT EQU 7 0007 BCE *+5,326,} 8 5000 B '1S 326 } GMARK 4 106 B NOGM 4 5008 B '3/ 4 BCE *+5,303,} Q. GROUP MARK IN O. MODIFIER 8 5012 B '2U 303 } GMARK 4 108 B NOGM 4 5020 B '3/ 4 109 MLC @GMARK@,327 7 5024 M T0X 327 4 110 NOGM C CT,@3@ Q. A ADDRESS 7 5031 C 007 T0Y 4 111 BH EXIT 5 5038 B '9Z U 5 112 BCE AODD,295,% A ADD NOT TO BE CONVERTED 8 5043 B '6Z 295 % 5 113 MLC 297,DECODE 7 5051 M 297 T3/ 5 114 B CNVRT 4 5058 B /1/ 5 115 MLC RSLT,312 7 5062 M T2V 312 5 116 AODD C CT,@7@ Q. B ADDRESS 7 5069 C 007 T0Z 5 117 BH EXIT 5 5076 B '9Z U 6 118 MLC 301,DECODE 7 5081 M 301 T3/ 6 119 B CNVRT 4 5088 B /1/ 6 120 MLC RSLT,321 7 5092 M T2V 321 6 121 EXIT BCE 1637,293, Q. BLANK OP, B BADOP 8 5099 B W37 293 6 122 B 1156 B SETLIT 4 5107 B /56 6 123 * 124 * DECODE 3 CHAR ADDR TO 5 CHAR AND INDEX REG 125 * 3 CHAR ADDR IN DECODE 126 * 8 CHAR RESULT IN RSLT 127 * 128 CNVRT SBR CNVRTX+3 STORE EXIT 4 5111 H T0S 7 129 MLC BK8#8,RSLT#8 SET RSLT TO BLANKS 7 5115 M T1X T2V 7 130 BCE CNVRTX,DECODE-1,# Q. NO ADDRESS 8 5122 B S9Z T3' # 7 131 BWZ NOIX,DECODE-1,2 Q. ANY INDEX REG 8 5130 V /8S T3' 2 7 132 MLC @*X0@,RSLT 7 5138 M T2Y T2V 7 133 BWZ HX1,DECODE-1,S Q. X1? 8 5145 V /7V T3' S 7 134 BWZ HX2,DECODE-1,K Q. X2? 8 5153 V /6Y T3' K 8 135 A *-6,RSLT 7 5161 A /6/ T2V 8 136 HX2 A *-6,RSLT 7 5168 A /6Y T2V 8 137 HX1 A *-6,RSLT 7 5175 A /7V T2V 8 138 NOIX MN DECODE#3,RSLT-3 MOVE HUNDREDS DIGITS 7 5182 D T3/ T2S 8 139 MN 1 5189 D 8 140 MN 1 5190 D 8 141 ZA THOU#3 4 5191 ? T3U 9 142 BWZ THOU4,DECODE,2,2 TEST FOR 1-2-3 THOUSAND 8 5195 V S4' T3/ 2 9 143 BWZ T1,DECODE-2,S 8 5203 V S3T T2Z S 9 144 BWZ T2,DECODE-2,K 8 5211 V S2W T2Z K 9 145 T3 A *-6,THOU-1 7 5219 A S1Z T3T 9 146 T2 A *-6,THOU-1 7 5226 A S2W T3T 10 CONVERT ADDRESS IN AUTOCODER LISTING PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 147 T1 A *-6,THOU-1 7 5233 A S3T T3T 10 148 THOU4 BWZ NO12,DECODE,2 TEST FOR 4-8-12 THOUSAND 8 5240 V S8V T3/ 2 10 149 BWZ T4,DECODE,S 8 5248 V S7Y T3/ S 10 150 BWZ T8,DECODE,K 8 5256 V S7/ T3/ K 10 151 T12 A NOIX,THOU-1 7 5264 A /8S T3T 11 152 T8 A NOIX,THOU-1 7 5271 A /8S T3T 11 153 T4 A NOIX,THOU-1 7 5278 A /8S T3T 11 154 NO12 MCS THOU-1,TMP3#3 7 5285 Z T3T T3X 11 155 MLC TMP3,RSLT-6 7 5292 M T3X T1Z 11 156 CNVRTX B * 4 5299 B T0S 12 157 LTORG * 5303 DCW @GMARK@ 5 5307 LIT 12 DCW @3@ 1 5308 LIT 12 DCW @7@ 1 5309 LIT 12 BK8 DCW #08 8 5317 AREA 12 RSLT DCW #08 8 5325 AREA 12 DCW @*X0@ 3 5328 LIT 12 DECODE DCW #03 3 5331 AREA 12 THOU DCW #03 3 5334 AREA 13 TMP3 DCW #03 3 5337 AREA 13 167 * 168 * ALTERNATIVE MAIN LINE 169 * 170 ORG NOGM 5031 171 XNOGM BCE EXIT,297, Q. NO A ADDRESS 8 5031 B '9Z 297 14 172 BCE XAODD,295,% A ADD NOT TO BE CONVERTED 8 5039 B '6V 295 % 14 173 MLC 297,DECODE 7 5047 M 297 T3/ 14 174 B CNVRT 4 5054 B /1/ 14 175 MLC RSLT,312 7 5058 M T2V 312 14 176 XAODD BCE EXIT,301, Q. NO B ADDRESS 8 5065 B '9Z 301 15 177 MLC 301,DECODE 7 5073 M 301 T3/ 15 178 B CNVRT 4 5080 B /1/ 15 179 MLC RSLT,321 7 5084 M T2V 321 15 180 END 0 / 000 080 CONVERT ADDRESS IN AUTOCODER LISTING PAGE 3 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS AODD 5069 BK8 5317 CNVRT 5111 CNVRTX 5299 CT 7 DECODE 5331 EXIT 5099 HX1 5175 HX2 5168 NO12 5285 NOGM 5031 NOIX 5182 RSLT 5325 T1 5233 T12 5264 T2 5226 T3 5219 T4 5278 T8 5271 THOU 5334 THOU4 5240 TMP3 5337 XAODD 5065