########## 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  @<LABEL@,111        REPLACE LABEL TO STOP DEFINITION   3741-
0127           W                                                           3741-
0128           CS   1004,269                                               3741-
0129           LTORG*                                                      3741-
0130           DCW  @!@                                                    3741-
0131           END                                                         3741-
