########## AUTOCODER MODIFICATIONS, 1401SOURCE 0101 JOB DECODE ADDRESS IN AUTOCODER LISTING 3744- 0102 CTL 6611 3744- 0103 ORG 5000 3744- 0104 CT EQU 7 3744- 0105 BCE *&5,326, 3744- 0106 B NOGM 3744- 0107 BCE *&5,303,! Q. GROUP-MARK IN O. MODIFIER 3744- 0108 B NOGM 3744- 0109 MLC @GMARK@,327 3744- 0110 NOGM C CT,@2@ Q. A ADDRESS 3744- 0111 BL HASA 3744- 0112 B EXIT 3744- 0113 HASA BCE AODD,295,% A ADD NOT TO BE CONVERTED 3744- 0114 MLC 297,DECODE 3744- 0115 B CNVRT 3744- 0116 MLC RSLT,312 3744- 0117 AODD C CT,@6@ Q. B ADDRESS 3744- 0118 BL HASB 3744- 0119 B EXIT 3744- 0120 HASB MLC 301,DECODE 3744- 0121 B CNVRT 3744- 0122 MLC RSLT,321 3744- 0123 EXIT BCE 1637,293, Q. BLANK OP, B BADOP 3744- 0124 B 1156 B SETLIT 3744- 0125 * 3744- 0126 * DECODE 3 CHAR ADDR TO 5 CHAR AND INDEX REG 3744- 0127 * 3 CHAR ADDR IN DECODE 3744- 0128 * 8 CHAR RESULT IN RSLT 3744- 0129 * 3744- 0130 CNVRT SBR CNVRTX&3 SOTRE EXIT 3744- 0131 MLC BK8#8,RSLT#8 SET RSLT TO BLANKS 3744- 0132 BCE CNVRTX,DECODE-1,# Q. NO ADDRESS 3744- 0133 BWZ NOIX,DECODE-1,2 Q. ANY INDEX REG 3744- 0134 MLC @*X@,RSLT-1 3744- 0135 BWZ HX1,DECODE-1,S Q. X1 3744- 0136 BWZ HX2,DECODE-1,K Q. X2 3744- 0137 MLC @3@,RSLT SET X3 3744- 0138 B NOIX 3744- 0139 HX1 MLC @1@,RSLT SET X1 3744- 0140 B NOIX 3744- 0141 HX2 MLC @2@,RSLT SET X2 3744- 0142 NOIX MN DECODE#3,RSLT-3 MOVE HUNDREDS DIGITS 3744- 0143 MN 3744- 0144 MN 3744- 0145 MLC @ @,THOU#2 3744- 0146 BWZ T1,DECODE-2,S TEST FOR 1-2-3 THOUSAND 3744- 0147 BWZ T2,DECODE-2,K 3744- 0148 BWZ T3,DECODE-2,B 3744- 0149 B TRY12 3744- 0150 T1 MLC @1@,THOU 3744- 0151 B TRY12 3744- 0152 T2 MLC @2@,THOU 3744- 0153 B TRY12 3744- 0154 T3 MLC @3@,THOU 3744- 0155 TRY12 BWZ T4,DECODE,S Q. 4-8-12 THOUSAND 3744- 0156 BWZ T8,DECODE,K 3744- 0157 BWZ T12,DECODE,B 3744- 0158 B NO12 3744- 0159 T4 A @4@,THOU 3744- 0160 B NO12 3744- 0161 T8 A @8@,THOU 3744- 0162 B NO12 3744- 0163 T12 A @12@,THOU 3744- 0164 NO12 MCS THOU,TMP3#3 3744- 0165 MLC TMP3,RSLT-6 3744- 0166 CNVRTX B * 3744- 0167 END 3744- 010 JOB CONTINUOUS RUNNING CNTR- 020 CTL 6611 CNTR- 022* WITH THIS MODIFICATION, AUTOCODER WILL CONTINUE TO ASSEMBLE CNTR- 024* ALL DECKS STACKED IN READER. THE EXTRA OUTPUT OPTIONS WILL BE CNTR- 026* AVAILABLE ONLY FOR THE LAST DECK. CNTR- 030 ORG 335 CNTR- 040 B 998 CNTR- 042 ORG 530 CNTR- 044 CW 3998,ENDF3 CNTR- 050 ORG 998 CNTR- 060 CS 332 CNTR- 070 CS CNTR- 080 BLC 340 CNTR- 090 CS 899 CNTR- 100 CHAIN8 CNTR- 110RWD1 RWD 1 CNTR- 120 RTW 1,1 CNTR- 130 BER RWD1 CNTR- 140 B 1 CNTR- 150ENDF3 DCW @!@ CNTR- 180 END 0 CNTR- 0101 JOB SCAN LABEL FOR INVALID CHAR. / < \ * $ 3741- 0102 CTL 6611 3741- 0103 ORG 997 3741- 0104 BIN SCAN, 3741- 0105 ORG 1273 3741- 0106 DCW #1 CLEAR OLD GM 3741- 0107 ORG 1500 3741- 0108 SCAN BCE NOLAB,111,. 3741- 0109 CHAIN5 3741- 0110 BCE NOLAB,111,/ 3741- 0111 CHAIN5 3741- 0112 BCE NOLAB,111,< 3741- 0113 CHAIN4 IOCS LABELS 3741- 0114 BCE NOLAB,111,\ 3741- 0115 CHAIN5 3741- 0116 BCE NOLAB,111,$ 3741- 0117 CHAIN5 3741- 0118 BCE NOLAB,111,* 3741- 0119 CHAIN5 3741- 0120 C 118,2979 3741- 0121 B 1004 3741- 0122 NOLAB CS 332 3741- 0123 CS 3741- 0124 MLC 3033,231 MOVE ERROR MESSAGE 3741- 0125 MCS 184,236 MOVE ALTNO 3741- 0126 MLC @