########## PUNCH AUTOCODER TAPE 4, 1401 SOURCE                                  
0101           JOB  PUNCH AUTOCODER WITH MACROS, VERSION 2                 PAUT2
0102           CTL  6611                                                   PAUT2
0103           DIOCS                                                       PAUT2
0104 DIOCSORG       336                                                    PAUT2
0105 IODEVICES      TAPE                                                   PAUT2
0106 READERROR      CLEAN,SCAN                                             PAUT2
0107 TAPEUSE        INPUT                                                  PAUT2
0108           DTF  IN                                                     PAUT2
0109 CHANDRIVE      4                                                      PAUT2
0110 EOFADDR        EOF4                                                   PAUT2
0111 FILETYPE       TAPE,INPUT                                             PAUT2
0112 IOAREA         INA                                                    PAUT2
0113 RECFORM        FIXED,UNBLOCKED                                        PAUT2
0114 SIZERECORD     86                                                     PAUT2
0115           SEQNC                                                       PAUT2
0116           INDEX                                                       PAUT2
0117 104       DCW  @0100@                                                 PAUT2
0118 INA       DA   1X86,G                                                 PAUT2
0119 LABEL          6,11                                                   PAUT2
0120 OP             16,20                                                  PAUT2
0121 OPR            72                                                     PAUT2
0122 TYPE           75,75                                                  PAUT2
0123 ID             76,80                                                  PAUT2
0124 CLEAR     DA   1X70                                                   PAUT2
0125 INSKIP    DA   1X2,G                                                  PAUT2
0126 *                                                                     PAUT2
0127 * IOCS MACROS                                                         PAUT2
0128           DCW  @*@                                                    PAUT2
0129           DCW  @GET  @                                                PAUT2
0130           DCW  @PUT  @                                                PAUT2
0131           DCW  @RELSE@                                                PAUT2
0132           DCW  @SPACE@                                                PAUT2
0133           DCW  @SKIP @                                                PAUT2
0134           DCW  @OPEN @                                                PAUT2
0135           DCW  @CLOSE@                                                PAUT2
0136           DCW  @FEORL@                                                PAUT2
0137           DCW  @RDLIN@                                                PAUT2
0138 IOCSM     DCW  @DCLOS@                                                PAUT2
0139 *                                                                     PAUT2
0140 START     OPEN IN                                                     PAUT2
0141           BLC  *&2                                                    PAUT2
0142           R                                                           PAUT2
0143 READ      GET  IN                                                     PAUT2
01435QTYPE     MLC  TYPE,105                                               PAUT2
0144           BCE  COMENT,LABEL-5,*    Q. TYPE                            PAUT2
0145           BCE  MACRO,TYPE,R                                           PAUT2
0146           BCE  MACRO,TYPE,S                                           PAUT2
0147           BCE  MACRO,TYPE,Z                                           PAUT2
0148           BCE  IOCSP,TYPE,W                                           PAUT2
0149           C    OP,@JOB  @                                             PAUT2
0150           BU   MOVE                                                   PAUT2
0151           MLC  ID,180              JOB, MOVE ID                       PAUT2
0152 MOVE      MLC  LABEL,111                                              PAUT2
0153 MOVE2     MLC  OPR,172                                                PAUT2
0154 GOP       B    PUNCH                                                  PAUT2
0155           B    READ                                                   PAUT2
0156 *                                                                     PAUT2
0157 COMENT    MLC  OPR,172             COMMENT                            PAUT2
0158           MLC                                                         PAUT2
0159           B    GOP                                                    PAUT2
0160 *                                                                     PAUT2
0161 IOCSP     MLC  OPR-1,172           IOCS PARAMETER                     PAUT2
0162           MLC                                                         PAUT2
0163           MLC  @*@                                                    PAUT2
0164           B    GOP                                                    PAUT2
0165 *                                                                     PAUT2
0166 MACRO     C    OP,@CHAIN@          MACRO                              PAUT2
0167           BU   MACROA                                                 PAUT2
0168           ZA   *-6,WK3                                                PAUT2
0169           BCE  MACRO1,OP&2,        Q. CHAIN X                         PAUT2
0170           BCE  MACRO2,OP&3,        Q. CHAIN XX                        PAUT2
0171           BCE  MACRO3,OP&4,        Q. CHAIN XXX                       PAUT2
0172           B    MACROA                                                 PAUT2
0173 MACRO1    MN   OP&1,WK3#3                                             PAUT2
0174           B    MACROB                                                 PAUT2
0175 MACRO2    MN   OP&2,WK3                                               PAUT2
0176           MN                                                          PAUT2
0177           B    MACROB                                                 PAUT2
0178 MACRO3    MN   OP&3,WK3                                               PAUT2
0179           MN                                                          PAUT2
0180           MN                                                          PAUT2
0181 MACROB    S    @1@,WK3                                                PAUT2
0182           BWZ  MOVE,WK3,K          DROP GENERATED CHAIN               PAUT2
0183           RT   4,INSKIP                                               PAUT2
0184           B    MACROB                                                 PAUT2
0185 *                                                                     PAUT2
0186 MACROA    SBR  X1,IOCSM                                               PAUT2
0187           C    OP,0&X1             Q. IOCS MACRO                      PAUT2
0188           SBR  X1                                                     PAUT2
0189           BE   MIOCS                                                  PAUT2
0190           BCE  *&5,0&X1,*                                             PAUT2
0191           B    MACROA&7                                               PAUT2
0192           BCE  MIOCS,TYPE,Z        Q. MACRO IN IOCS                   PAUT2
0193           BCE  MIOCS,TYPE,S                                           PAUT2
0194           BCE  MIOCS,1,B           Q. PUNCH ALL MACROS AS COMMENTS    PAUT2
0195           BCE  READ,1,A            Q. PUNCH GENERATED                 PAUT2
0196           MLC  OPR,172              NO                                PAUT2
0197           MLC  LABEL,111                                              PAUT2
01975          MLC  @ @,105                                                PAUT2
0198           B    PUNCH                                                  PAUT2
0199 READ2     GET  IN                                                     PAUT2
0200           BCE  READ2,TYPE,C                                           PAUT2
0201           B    QTYPE                                                  PAUT2
0202 *                                                                     PAUT2
0203 MIOCS     MLC  LABEL,112                                              PAUT2
0204           MLC  @*@                                                    PAUT2
0205           B    MOVE2                                                  PAUT2
0206 *                                                                     PAUT2
0207 PUNCH     SBR  PUNCHX&3            PUNCH CARD                         PAUT2
0208           A    *-6,104                                                PAUT2
0209           P                                                           PAUT2
0210           MLC  CLEAR&69,175                                           PAUT2
0211 PUNCHX    B    *                                                      PAUT2
0212 *                                                                     PAUT2
0213 EOF4      CLOSEIN                                                     PAUT2
0214           CS   180                                                    PAUT2
0215           P                                                           PAUT2
0216           P                                                           PAUT2
0217           H    *-3                                                    PAUT2
0218           END  START                                                  PAUT2
