JOB RESEQUENCE AUTOCODER DECKS * * Sequence Autocoder decks starting with 0101 in cc 1-4. * Restart the sequence upon encountering a JOB card. * CTL 6611 START R READ FIRST CARD SW 6,76 MARK SEQUENCE, ID FIELDS SW 101 FOR UPDATING SEQUENCE MCW INIT,104 SET 0100 SEQUENCE NUMBER OUTER MCW 80,180 MOVE ID INNER A ONE,104 UPDATE SEQUENCE NUMBER MCW 75,175 MOVE NON-SEQUENCE NON-ID PART BLC LAST Q. LAST CARD? RP NO, PUNCH AND READ C 18,JOB Q. JOB CARD? BU INNER NO, GO UPDATE SEQUENCE NUMBER B OUTER YES, SET 0100 SEQUENCE AGAIN LAST P PUNCH LAST CARD CS P AND TWO BLANK ONES P H 333 INIT DCW @0100@ INITIAL SEQUENCE NUMBER ONE DCW 1 JOB DCW @JOB@ END START