         SYSTEM   SIG7P
         DEF      PTRP,PTRPCU
         REF      DCT3,NB31TO0
         REF      COMLIST,RE:ENT,IOSERCK,IOSCU
:DOT     COM,8,8,8,8 BA(AF(1))-BA(DOT),AF(2),AF(3),AF(4)
:CLST    COM,8    DA(AF(1))-DA(DOT)
:CDW     COM,8,24,8,1,15,8 AF(1),AF(2),AF(3),1,AF(4),AF(5)
XEF      EQU      NB31TO0+5
EOF      EQU      7
PTDOT    EQU      %
DOT      SET      %
PU:DOT   :DOT     PU,4,0,0          0 => PUNCH
         :DOT     PU,4,1,1          SO DOES 1 (SYMBIONT BIN VS. BCD)
RDI:DOT  :DOT     RDI,4,2,2         2 => READ IMMEDIATE
RDS:DOT  :DOT     RDS,4,3,3         3 => READ SKIPPING LEADER (X'00' BYTES)
PU       :CLST    PUCDW
RDI      :CLST    RDICDW
RDS      :CLST    RDSCDW
         BOUND    8
PUCDW    :CDW     X'01',0,X'1E',2,0
RDICDW   :CDW     X'82',0,X'1E',2,0
RDSCDW   :CDW     X'02',0,X'1E',2,0
PTRP     LI,10    PTDOT
         B        COMLIST           BUILD CLIST AND GO TO IOSST
PTRPCU   BAL,0    RE:ENT            RE-ENTRANCE TEST
         LB,6     DCT3,1            RESET TIMEOUT
         AND,6    XEF               TO KILL MESSAGE TO OC
         STB,6    DCT3,1            FROM IOSERCK
         WD,0     X'27'             ****ENABLE****
ERRCHK   BAL,9    IOSERCK           GENERAL ERROR CHECK
         B        IOSCU             ERROR, HANDLE IN GENERAL WAY
         CI,11    0                 TEST THE REMAINING BYTE COUNT
         BE       IOSCU             NORMAL TYC
         LI,12    EOF               RBC NON-ZERO => TIMEOUT
         B        IOSCU             WHICH WE WILL CALL EOF
SIZE     EQU      %-PTDOT
         END
