########## 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