
        .TITLE FNEW
        .GLOBL .NEWF
        .GLOBL .AX
        .GLOBL EFUN3
        .GLOBL .AW
.NEWF   .NEWFE-.-1/2\777777+1
        .SIXBT 'PTP'
        JMP  TAPE
        .SIXBT 'TTP'
        JMP  NTAP
        .SIXBT 'PUN'
        JMP  PUNCH
.NEWFE=.
TAPE    JMS   PTPRD
        AND   (77
        RTL
        RTL
        RTL
        DAC   TP1
        JMS   PTPRD
        AND   (77
        TAD   TP1
        RTL
        RTL
        RTL
        DAC   TP1
        JMS   PTPRD
        AND   (77
        TAD   TP1
        JMS*  .AW
        JMP*  EFUN3
TP1     0
PTPRD   0
        IOF
RD1     RSA
RD2     RSF
        JMP   .-1
        RRB
        SNA
        JMP   RD1
        ION
        JMP*  PTPRD
NTAP    IORS
        AND  (1000
        SZA
        LAC  (1
        JMS* .AW
        JMP* EFUN3
RSF=700101
RRB=700112
RSA=700104
IORS=700314
PUNCH   JMS* .AX
        RTL
        RTL
        RTL
        RAL
        JMS  PUN
        RTL
        RTL
        RTL
        JMS  PUN
        RTL
        RTL
        RTL
        JMS  PUN
        JMP* EFUN3
PUN     0
        IOF
        PSB
        PSF
        JMP  .-1
        PCF
        ION
        JMP*  PUN
PCF=700202
PSF=700201
PSB=700246
 .END
