$JOB           PULL PUNCH OUTPUT                                        PULL0000
$EXECUTE       IBJOB                                                    PULL0010
$IBJOB PULL    NOGO                                                     PULL0020
$TITLE         PULL PUNCHED OUTPUT FROM SYSPP1 TO SYSOU1                PULL0030
$IBMAP PULL    380,FULIST,ABSMOD,MONSYM                                 PULL0040
       PCC                                                              PULL0050
       TITLE                                                            PULL0060
       PCC     OFF                                                      PULL0070
       REM     MNEMONIC EQUIVALENCES FOR NON-DATA SELECT CALLS          PULL0080
       REM                                                              PULL0090
 .RDC. EQU     0              RESET DATA CHANNEL (NOP)                  PULL0100
 .SDL. EQU     1              SET DENSITY LOW                           PULL0110
 .SDH. EQU     2              SET DENSITY HIGH                          PULL0120
 .REW. EQU     3              REWIND                                    PULL0130
 .RUN. EQU     4              REWIND AND UNLOAD                         PULL0140
 .BSR. EQU     5              BACKSPACE RECORD                          PULL0150
 .BSF. EQU     6              BACKSPACE FILE                            PULL0160
 .WEF. EQU     7              WRITE END OF FILE                         PULL0170
 DBLSP EQU     4*512          SPR EXIT FOR DOUBLE SPACE                 PULL0180
       ORG     SYSCUR                                                   PULL0190
       BCI     1,PULL                                                   PULL0200
       ORG     SYSTRA                                                   PULL0210
       TTR     PULL                                                     PULL0220
       ORG     2020                                                     PULL0230
PULL   TSX     WAITOU,4       WAIT FOR SYSOU1 CHANNEL FREE              PULL0240
       TSX     .NDSEL,4       WRITE FILE MARK ON SYSOU1                 PULL0250
       PZE     SYSOU1,,.WEF.                                            PULL0260
       NOP                                                              PULL0270
       TSX     WAITOU,4       WAIT FOR IT TO BE DONE                    PULL0280
       TSX     .NDSEL,4       BACKSPACE OVER IT                         PULL0290
       PZE     SYSOU1,,.BSR.                                            PULL0300
       SWT     6              IF SW6 UP, REWIND SYSOU1                  PULL0310
       TRA     *+2                                                      PULL0320
       TRA     SKPCPY         SKIP COPY OF DECK                         PULL0330
       TSX     WAITOU,4       REWIND SYSOU1                             PULL0340
       TSX     .NDSEL,4                                                 PULL0350
       PZE     SYSIN1,,.REW.                                            PULL0360
       AXT     5,2                                                      PULL0370
WMARK  TSX     WAITPP,4       WRITE FIVE TAPE MARKS TO SYSPP1           PULL0380
       TSX     .NDSEL,4                                                 PULL0390
       PZE     SYSPP1,,.WEF.                                            PULL0400
       NOP                                                              PULL0410
       TIX     WMARK,2,1                                                PULL0420
       AXT     26,1                                                     PULL0430
       CLA     MONE           SET TEMP BUFFER TO ALL ONES               PULL0440
       STO     TEMP,1                                                   PULL0450
       TIX     *-1,1,1                                                  PULL0460
       TSX     IOXRW,4                                                  PULL0470
       MZE     SYSPP1,,OONES                                            PULL0480
       PZE     ERROR,,ERROR                                             PULL0490
       TSX     WAITPP,4       WRITE TAPE MARK TO SYSPP1                 PULL0500
       TSX     .NDSEL,4                                                 PULL0510
       PZE     SYSPP1,,.WEF.                                            PULL0520
       NOP                                                              PULL0530
       TSX     WAITPP,4       REWIND SYSPP1                             PULL0540
       TSX     .NDSEL,4                                                 PULL0550
       PZE     SYSPP1,,.REW.                                            PULL0560
       TSX     .MWR,4                                                   PULL0570
       PZE     1                                                        PULL0580
       PZE                                                              PULL0590
       TSX     .MWR,4         REPORT DECK COPYING                       PULL0600
       PZE     1                                                        PULL0610
       PZE     MSG1,,9+DBLSP                                            PULL0620
       TSX     IOXRW,4        PUT NOT TO OPERATOR ON SYSOU1             PULL0630
       MZE     SYSOU1,1,NOTEIO                                          PULL0640
       PZE     OUTFUL,,ERROR                                            PULL0650
       TSX     WAITOU,4       WRITE TAPE MARK TO SYSOU1                 PULL0660
       TSX     .NDSEL,4                                                 PULL0670
       PZE     SYSOU1,,.WEF.                                            PULL0680
       NOP                                                              PULL0690
       TRA     NXTPP1                                                   PULL0700
       TTL     I/O ROUTINES.                                            PULL0710
IOXRW  SXA     IOXS4,4        SAVE RETURN ADDRESS                       PULL0720
       CLA     2,4            GET SECOND PARAMETER                      PULL0730
       STA     IOXEF          SAVE EOF EXIT                             PULL0740
       ARS     18                                                       PULL0750
       STA     IOXER          SET PERMANENT REDUNDANCY EXIT             PULL0760
       CAL     1,4            GET FIRST PARAMETER                       PULL0770
       STT     IOXSLL         SAVE MODE FOR SELECT                      PULL0780
       STP     IOXSLL         SAVE PREFIX FOR SELECT TYPE               PULL0790
       STA     IOXND          PUT LOC IN ACTIVE CALLING SEQUENCE        PULL0800
       STA     *+1            SET TO PICK UP UCB                        PULL0810
       LAC     **,4           -L(UCB)                                   PULL0820
       ARS     18             I/O COMMANDS LOC TO ADDRESS               PULL0830
       STA     IOXSLL         PUT IN SELECT WORD                        PULL0840
       CLA     IOXSLL         GET SELECT WORD                           PULL0850
       ZET     1,4            WAIT FOR CHANNEL FREE                     PULL0860
       TRA     *-1                                                      PULL0870
       STO     1,4            SIGNED CONTROL WORD TO UCB WORD 2         PULL0880
       STZ     IOXIN          SET IN-OPERATION WORD ON                  PULL0890
       TSX     .ACTV,4        ACTIVE DEVICE                             PULL0900
IOXND  PZE     **             UNIT                                      PULL0910
       NZT     IOXIN          TEST FOR REQUEST COMPLETE                 PULL0920
       TRA     *-1            NOT DONE, WAIT                            PULL0930
       LDI     IOXIN          PICK UP COMPLETION BITS SET BY IOXSEL-    PULL0940
IOXS4  AXT     **,4           SET FOR EXIT                              PULL0950
       LFT     200000         TEST EOF, EOT                             PULL0960
IOXEF  TRA     **             EOF EXIT                                  PULL0970
       LFT     100000         TEST FOR PERM. REDUNDANCY                 PULL0980
IOXER  TRA     **             YES, ERROR EXIT                           PULL0990
       TRA     3,4            NORMAL RETURN                             PULL1000
IOXSLL PZE     **,**,IOSEL                                              PULL1010
IOXIN  OCT     0                                                        PULL1020
IOXMD  OCT     0                                                        PULL1030
       TTL     IOSELECT ROUTINE.                                        PULL1040
IOSEL  SXA     IOSLX4,4       SAVE XRC                                  PULL1050
       PAC     ,4             -L(UCB)                                   PULL1060
       TMI     IOXPST         SELECT MINUS OR POSTING ENTRY             PULL1070
       CLA     0,4            UCB WORD 1                                PULL1080
       PDX     ,2             UNIT TO XRB                               PULL1090
       CLA     1,4            UCB WORD 2                                PULL1100
       STA*    .RCHX          STORE LOC TO RCHX                         PULL1110
       STT     IOXMD          SAVE MODE FLAG                            PULL1120
       NZT     IOXMD          TEST MODE FLAG                            PULL1130
       TXI     *+1,2,16       SET BINARY MODE FOR UNIT                  PULL1140
       TMI     IOXWR          WRITE                                     PULL1150
       SXA     *+1,2          PLACE READ SELECT ADDRESS                 PULL1160
       RDS     **             READ SELECT                               PULL1170
       XEC*    .RCHX          ISSUE RESET LOAD CHANNEL                  PULL1180
IOSLX4 AXT     **,4           RESTORE XRC                               PULL1190
       TRA     1,4            AND EXIT IOSEL                            PULL1200
IOXWR  SXA     *+1,2          PLACE SELECT ADDRESS FOR WRITE            PULL1210
       WRS     **             WRITE SELECT                              PULL1220
       TRA     IOSLX4-1       GO ISSUE CHANNEL COMMAND                  PULL1230
IOXPST STI     IOXIN          POSTING ENTRY  SAVE ERROR FLAGS           PULL1240
       STL     IOXIN          SET IN-OPERATION WORD OFF                 PULL1250
       STZ     1,4            SET UCB WORD 2 ZERO                       PULL1260
       TRA     IOSLX4         GO TO EXIT                                PULL1270
       TTL     COPY DATA                                                PULL1280
NXTPP1 STZ     ERRCNT                                                   PULL1290
       TSX     IOXRW,4        READ SYSPP1 INTO BUFFER, 28 WORDS         PULL1300
       PTW     SYSPP1,0,IOBUF                                           PULL1310
       PZE     EOFPP1,,ERRPP1                                           PULL1320
       CAL     BUFFER         CHECK FOR IDENT.                          PULL1330
       ERA     IDENT                                                    PULL1340
       TZE     SHOWID                                                   PULL1350
       CAL     BUFFER         CHECK FOR JOB CARD                        PULL1360
       ERA     JOB                                                      PULL1370
       TZE     SHOWID                                                   PULL1380
       NZT     BUFFER+1       SECOND WORD CAN'T BE 0.                   PULL1390
       TRA     RERROR                                                   PULL1400
NEWJOB ZET     JFLAG          CHECK IF WE HAVE JOB IDENTIFIER.          PULL1410
       TRA     NXTPP1                                                   PULL1420
       STZ     OFLAG          FLAG THAT WE ARE OUTPUTING.               PULL1430
       TSX     IOXRW,4        SAVE BUFFER TO SYSOU1                     PULL1440
       MZE     SYSOU1,,IOBUF                                            PULL1450
       PZE     OUTFUL,,ERROR                                            PULL1460
       TRA     NXTPP1                                                   PULL1470
ERRPP1 LXA     ERRCNT,1       INCREMENT READ ERROR COUNTS.              PULL1480
       TXI     *+1,1,1                                                  PULL1490
       SXA     ERRCNT,1                                                 PULL1500
       TXL     RETRY,1,2                                                PULL1510
WERR   TSX     .MWR,4         SIGNAL ERROR WRITING SYSPP1               PULL1520
       PZE     1                                                        PULL1530
       PZE     EMSG,,6+DBLSP                                            PULL1540
       TSX     .MWR,4         SIGNAL ID CARD MISSING.                   PULL1550
       PZE     1                                                        PULL1560
       PZE     NOID,,7                                                  PULL1570
       TSX     .MWR,4         ASK PROGRAMMER TO RESUBMIT JOB            PULL1580
       PZE     1                                                        PULL1590
       PZE     RESUB,,6                                                 PULL1600
       TRA     NXTPP1                                                   PULL1610
RETRY  TSX     WAITPP,4       WAIT FOR SYSPP1 READY.                    PULL1620
       TSX     .NDSEL,4       BACKSPACE ONE RECORD.                     PULL1630
       PZE     SYSPP1,,.BSR.                                            PULL1640
       TSX     IOXRW,4        READ INTO BUFFER                          PULL1650
       PTW     SYSPP1,1,OREC                                            PULL1660
       PZE     EOFPP1,,WERR                                             PULL1670
       CAL     BUFFER         CHECK FOR IDENT RECORD.                   PULL1680
       ERA     IDENT                                                    PULL1690
       TZE     SHOWID         YES GO SHOW IDENT.                        PULL1700
       CAL     BUFFER         CHECK IF JOB RECORD.                      PULL1710
       ERA     JOB                                                      PULL1720
       TNZ     DATREC         NOPE, DATA RECORD.                        PULL1730
SHOWID TSX     .MWR,4         WRITE OUT JOB RECORD.                     PULL1740
       PZE     1                                                        PULL1750
       PZE     BUFFER,,12                                               PULL1760
       STZ     JFLAG          CLEAR JOB FLAG.                           PULL1770
       CAL     BUFFER+1       GET ID OF JOB                             PULL1780
       ARS     30                                                       PULL1790
       ERA     STAR           CHECK IF STARTS WITH STAR                 PULL1800
       TNZ     OUTREC         NO LEAVE FLAG CLEAR                       PULL1810
       STL     JFLAG          YES SET FLAG.                             PULL1820
       TRA     OUTREC                                                   PULL1830
DATREC ZET     JFLAG          IF JOB NAME HAS STAR, SKIP IT.            PULL1840
       TRA     NXTPP1                                                   PULL1850
OUTREC STZ     OFLAG          OUTPUT RECORD TO SYSOU1                   PULL1860
       TSX     IOXRW,4                                                  PULL1870
       MZE     SYSOU1,1,OREC                                            PULL1880
       PZE     OUTFUL,,ERROR                                            PULL1890
       TRA     NXTPP1         GO GET NEXT RECORD.                       PULL1900
EOFPP1 ZET     OFLAG          WERE WE OUTPUTING SYSPP1                  PULL1910
       TRA     NJOB                                                     PULL1920
       TSX     WAITOU,4       WAIT FOR CHANNEL TO BE IDLE.              PULL1930
       TSX     .NDSEL,4       WRITE TAPE MARK ON SYSOU1.                PULL1940
       PZE     SYSOU1,,.WEF.                                            PULL1950
       NOP                                                              PULL1960
NJOB   STL     OFLAG          FLAG WE NEED A JOB RECORD.                PULL1970
       TRA     NXTPP1                                                   PULL1980
RERROR AXT     28,1                                                     PULL1990
       CLA     BUFFER+28,1                                              PULL2000
       SUB     TEMP,1                                                   PULL2010
       TNZ     NEWJOB                                                   PULL2020
       TIX     RERROR+1,1,1                                             PULL2030
       TSX     WAITPP,4                                                 PULL2040
       TSX     .NDSEL,4                                                 PULL2050
       PZE     SYSPP1,,.REW.                                            PULL2060
SYOUEF AXT     5,2            WRITE 5 FILE MARKS ON SYSOU1              PULL2070
       TSX     WAITOU,4                                                 PULL2080
       TSX     .NDSEL,4                                                 PULL2090
       PZE     SYSOU1,,.WEF.                                            PULL2100
       NOP                                                              PULL2110
       TIX     SYOUEF+1,2,1                                             PULL2120
       TSX     WAITOU,4       UNLOAD SYSOU1                             PULL2130
       TSX     .NDSEL,4                                                 PULL2140
       PZE     SYSOU1,,.RUN.                                            PULL2150
NTAPE  TSX     .MWR,4         ASK FOR NEW INPUT TAPE                    PULL2160
       PZE     1                                                        PULL2170
       PZE     NITAPE,,4                                                PULL2180
       TSX     RTIME,4                                                  PULL2190
       TSX     .PAUSE,4                                                 PULL2200
       TRA     SYSRET         RETURN TO IBSYS                           PULL2210
NEWOUT SXA     NEWXR4,4                                                 PULL2220
       TSX     WAITOU,4                                                 PULL2230
       TSX     .NDSEL,4       UNLOAD SYOU1                              PULL2240
       PZE     SYSOU1,,.RUN.                                            PULL2250
       LAC     ZERO,1         WAIT FOR CHANNEL A IDLE                   PULL2260
       ZET*    .CHXAC                                                   PULL2270
       TRA     *-1                                                      PULL2280
       TSX     .MWR,4         ASK FOR NEW SYSOU1 TAPE                   PULL2290
       PZE     1                                                        PULL2300
       PZE     NOTAPE,,9+DBLSP                                          PULL2310
       TSX     .PAUSE,4                                                 PULL2320
NEWXR4 AXT     **,4                                                     PULL2330
       TRA     1,4                                                      PULL2340
       SXA     *+2,4                                                    PULL2350
       TSX     NEWOUT,4                                                 PULL2360
       AXT     **,4                                                     PULL2370
       TRA     1,4                                                      PULL2380
OUTFUL SXA     SXR4,4         SAVE XR4 AND XR2                          PULL2390
       SXA     SXR4+1,2                                                 PULL2400
       AXT     5,2                                                      PULL2410
NXTMRK TSX     WAITOU,4       WRITE FIVE TAPE MARKS ON SYSOU1           PULL2420
       TSX     .NDSEL,4                                                 PULL2430
       PZE     SYSOU1,,.WEF.                                            PULL2440
       NOP                                                              PULL2450
       TIX     NXTMRK,2,1                                               PULL2460
       TSX     NEWOUT,4       REQUEST A NEW OUTPUT TAPE.                PULL2470
SXR4   AXT     **,4                                                     PULL2480
       AXT     **,2                                                     PULL2490
       TRA     3,4                                                      PULL2500
ERROR  TSX     .MWR,4         ERROR ON SYSPP1                           PULL2510
       PZE     1                                                        PULL2520
       PZE     INERR,,9+DBLSP                                           PULL2530
       TSX     WAITPP,4                                                 PULL2540
       TSX     .NDSEL,4                                                 PULL2550
       PZE     SYSPP1,,.RUN.                                            PULL2560
       TRA     SYOUEF                                                   PULL2570
WAITPP CAL*    SYSPP1         GET NEGATIVE OF CHANNEL INTO XRA          PULL2580
       ARS     9                                                        PULL2590
       ANA     UMASK                                                    PULL2600
       PDC     ,1                                                       PULL2610
       TXI     *+1,1,1        FORM TWO'S COMPLIMENT                     PULL2620
       ZET*    .CHXAC         WAIT FOR ACTIVITY TO FINISH               PULL2630
       TRA     *-1                                                      PULL2640
       TRA     1,4                                                      PULL2650
WAITOU CAL*    SYSOU1         GET NEGATIVE OF CHANNEL INTO XRA          PULL2660
       TRA     WAITPP+1                                                 PULL2670
       TSX     WAITPP,4                                                 PULL2680
       TSX     .NDSEL,4                                                 PULL2690
       PZE     SYSPP1,,.BSR.                                            PULL2700
       TRA     NXTPP1+1                                                 PULL2710
SKPCPY TSX     .MWR,4                                                   PULL2720
       PZE     1                                                        PULL2730
       PZE                                                              PULL2740
       TSX     .MWR,4         NOTIFY OPERATOR THAT NO DECK WAS PULLED.  PULL2750
       PZE     1                                                        PULL2760
       PZE     NODECK,,10+DBLSP                                         PULL2770
       TRA     NTAPE          GO ASK FOR NEW INPUT TAPE                 PULL2780
       TTL     DATA                                                     PULL2790
MSG1   BCI     9,COPYING FOLLOWING BINARY DECKS FROM SYSPP1 TO SYSOU1   PULL2800
NOTE   BCI     9,1     SET 1401 FOR PUNCHING OF BINARY DECKS|1          PULL2810
NOTEIO IORT    NOTE,0,9                                                 PULL2820
ERRCNT PZE     **                                                       PULL2830
IOBUF  IORT    BUFFER,0,28                                              PULL2840
BUFFER BSS     28                                                       PULL2850
EMSG   BCI     6,    TAPE ERROR IN READING SYSPP1                       PULL2860
NOID   BCI     7,    DECK FOR PREVIOUS ID HAS MISSING CARD              PULL2870
RESUB  BCI     6,    TELL PROGRAMMER TO RESUBMIT JOB                    PULL2880
JOB    BCI     1,$JOB                                                   PULL2890
OREC   IORT    BUFFER,0,14                                              PULL2900
IDENT  BCI     1,$ID                                                    PULL2910
       BCI     1,                                                       PULL2920
OONES  IORT    MONE,0,28                                                PULL2930
MONE   OCT     -377777777777                                            PULL2940
       OCT     0                                                        PULL2950
TEMP   BES     26                                                       PULL2960
       OCT     0                                                        PULL2970
JFLAG  OCT     0            LOOKING FOR JOB                             PULL2980
OFLAG  OCT     0            OUTPUTING RECORDS.                          PULL2990
NOTAPE BCI     9,REACHED END OF TAPE ON SYSOU1 - MOUNT BLANK REEL       PULL3000
INERR  BCI     9,IMPOSSIBLE CONDITION - USE SYSPP1 FOR PUNCH TAPE       PULL3010
NODECK BCI     8,SENSE SWITCH 6 DOWN - NO DECKS PULLED FROM SYSPP       PULL3020
       BCI     2,1 TO SYSOU1                                            PULL3030
NITAPE BCI     4,MOUNT NEW INPUT TAPE                                   PULL3040
TIMMSG BCI     4,ELAPSED TIME FOR PULLING                               PULL3050
MINUTE BCI     4,NNN.NN MINUTES, OR                                     PULL3060
HOURS  BCI     3,NN.NNN HOURS                                           PULL3070
       REM                                                              PULL3080
       REM     TABLE TO TRIM LEADING ZEROS OFF BCD NUMBER               PULL3090
       TTL     TIME PRINTING                                            PULL3100
LZERO  VFD     O6/60,15/0,15/LZERO                                      PULL3110
       VFD     H6/1,15/0,15/NZERO                                       PULL3120
       VFD     H6/2,15/0,15/NZERO                                       PULL3130
       VFD     H6/3,15/0,15/NZERO                                       PULL3140
       VFD     H6/4,15/0,15/NZERO                                       PULL3150
       VFD     H6/5,15/0,15/NZERO                                       PULL3160
       VFD     H6/6,15/0,15/NZERO                                       PULL3170
       VFD     H6/7,15/0,15/NZERO                                       PULL3180
       VFD     H6/8,15/0,15/NZERO                                       PULL3190
       VFD     H6/9,15/0,15/NZERO                                       PULL3200
NZERO  VFD     H6/0,15/0,15/NZERO                                       PULL3210
       VFD     H6/1,15/0,15/NZERO                                       PULL3220
       VFD     H6/2,15/0,15/NZERO                                       PULL3230
       VFD     H6/3,15/0,15/NZERO                                       PULL3240
       VFD     H6/4,15/0,15/NZERO                                       PULL3250
       VFD     H6/5,15/0,15/NZERO                                       PULL3260
       VFD     H6/6,15/0,15/NZERO                                       PULL3270
       VFD     H6/7,15/0,15/NZERO                                       PULL3280
       VFD     H6/8,15/0,15/NZERO                                       PULL3290
       VFD     H6/9,15/0,15/NZERO                                       PULL3300
PERIOD OCT     33             PERIOD                                    PULL3310
RTIME  SXA     RTIME1,4       SAVE XRC FOR LATER                        PULL3320
       LDQ     5              LOAD CURRENT TIMER VALUE                  PULL3330
       STQ     TEMP           SAVE IT FOR LATER                         PULL3340
       ZAC                                                              PULL3350
       DVP     K36            DIVIDE BY 36                              PULL3360
       XCA                                                              PULL3370
       TSX     .DECVA,4       CONVERT TO DECIMAL                        PULL3380
       RQL     6                                                        PULL3390
       CRQ     LZERO,,3       STRIP LEADING 0 FROM 3 DIGITS             PULL3400
       RQL     12                                                       PULL3410
       LGL     24                                                       PULL3420
       ALS     6                                                        PULL3430
       ORA     PERIOD         PUT PERIOD IN DIGIT.                      PULL3440
       LGL     12             TWO MORE DIGITS                           PULL3450
       SLW     MINUTE                                                   PULL3460
       LDQ     TEMP           TIME IN HOURS                             PULL3470
       ZAC                                                              PULL3480
       DVP     K216           DIVIDE BY 216                             PULL3490
       XCA                                                              PULL3500
       TSX     .DECVA,4                                                 PULL3510
       RQL     6                                                        PULL3520
       CRQ     LZERO,,2       STRIP LEADING 0 FROM 2 DIGITS.            PULL3530
       RQL     18                                                       PULL3540
       LGL     18                                                       PULL3550
       ALS     6                                                        PULL3560
       ORA     PERIOD                                                   PULL3570
       LGL     18                                                       PULL3580
       SLW     HOURS                                                    PULL3590
       TSX     .MWR,4         REPORT TIME SPENT PULLING DECK            PULL3600
       PZE     1                                                        PULL3610
       PZE     TIMMSG,,11+DBLSP                                         PULL3620
RTIME1 AXT     **,4                                                     PULL3630
       TRA     1,4                                                      PULL3640
ZERO   OCT     0                                                        PULL3650
K36    DEC     36                                                       PULL3660
STAR   OCT     54                                                       PULL3670
K216   DEC     216                                                      PULL3680
UMASK  PZE     0,,15                                                    PULL3690
       END     -1                                                       PULL3700
~                                                                       PULL3710
$IBSYS                                                                  PULL3720
$BLOCK         BCD,0084
$ENDFIL        SYSPP1
$REWIND        SYSPP1
$SWITCH        SYSUT2,SYSPP1
$IBEDT
      *EDIT    MAP,MODS
      *PLACE   PULL,1,1
      *AFTER   EDITOR
      *INSERT  FILEMK
TAPE  *INSERT                        PULL
~
$IBSYS
$*            NEW SYSTEM ON A3.
$RESTORE
$STOP
~
