01010AUTOCODER RUN THRU OUTPUT 01020 JOB RESEQUENCE AUTOCODER DECKS 01030 CTL 311 0PPP11 01040* 01050********** 01060* 01070* SENSE SWITCH B ON - INPUT FROM PUNCH SIDE %PUNCH FEED READ REQ,D) 01080* 01090* SENSE SWITCH C ON - LIST RESEQUENCED DECK. 01100* 01110********** 01120* 01130* CONTROL CARD FORMAT.. 01140* 01150* CARD COLUMNS 01160* 01170* 1-5 *HDR* %IDENTIFIER). 01180* 7-9 INCREMENT FACTOR -- IF BLANK, 010 ASSUMED. 01190* 11-13 LINE LIMIT -- IF BLANK, NONE ASSUMED. 01200* 14-18 STARTING PAGE/LINE NUMBER -- IF BLANK, 01010 IS 01210* ASSUMED. 01220* 76-80 DESIRED PROGRAM IDENTIFICATION. 01230* 01240********** 01250* 01260* NOTE...IF INPUT IS FROM THE PUNCH SIDE, A CARD WITH *END* MUST BE 01270* INCLUDED AS THE LAST CARD. 01280* 01290********** 01300* 02010 SKIPN 02030START CS 80 02040 R 02050 C 5,@*HDR*@ Q. CONTROL CARD 02060 BE CNTRL YES 02070 NOP 111 NO--ERROR 02080 H 02090 B START 02100* 02110CNTRL MLC 80,SAVEID#5 02120 MLC 9,INCR#3 02130 MLC 13,LIMIT#3 02140 MLC 18,PAGELN#5 02150 C @ @,INCR 02160 BU *&8 02170 MLC @010@,INCR 02180 C @ @,PAGELN 02190 BU *&8 02200 MLC @01010@,PAGELN 02210 CS 332 02220 CS 02223 SW 6,16 02226 SW 21 02230* 02240READ BSS PFR,B 02250 BLC LASTCD 03010 CS 180 03020 R 03030 MLC 75,175 03035 CHAIN2 03040 MLC PAGELN,105 03050 MLC SAVEID,180 03060 P 03070TESTC BSS PRINT,C 03080TSTLIM C PAGELN,LIMIT 03090 BU BUMP 03100 A *-6,PAGELN-3 INCREMENT PAGE NUMBER 03110 MLC INCR,PAGELN 03120 B *&8 03130BUMP A INCR,PAGELN 03140 B READ 03150* 03160PFR RF 03170 CS 180 03180 C 5,@*END*@ 03190 BE LASTCD 03200 SS 4 03210 C 80,@ @ Q. ID ALREADY PRESENT 03220 BU *&8 YES 03230 MLC SAVEID,180 NO--MOVE IN ID 03240 C 5,@ @ 03250 BU TESTC 04010 MLC PAGELN,105 04020 B TESTC 04030* 04040LASTCD BSS *&5,C 04043 B *&3 04046 CC 1 04050 NOP 999 04055 H 04060 MLC @N@,PRINT 04065 B START 04070* 04080PRINT NOP CLEAR 04090 MLC @B@,PRINT 04110 MLC @PG/LIN LABEL OPCOD OPERAND@,231 04120 MLC SAVEID,280 04130 CC S 04140 W 04150CLEAR CS 299 04160 MLCWA@ & @,206 04170 MCE PAGELN,206 04175 BCE COMENT,6,* 04180 MLC 15,217 04190 MLC 20,223 04200MVOPR MLC 75,279 04210 BCV *&5 04220 B *&10 04230 CC A 04240 MLC @N@,PRINT 04250 W TSTLIM 04253COMENT MLC 75,277 04255 CHAIN2 04257 B MVOPR 04260********** 04270 END START