          SPACE  4,10
*         CTEXT  CTP$SCI ZERO PP BUFFER.
*
*         THIS DECK CONTAINS A ROUTINE WHICH CAN BE USED TO ZERO OUT
*         THE *MBUF* BUFFER IN *SCI*.
 ZPB      SPACE  4,10
**        ZPB - ZERO PP BUFFER.
*
*         ENTRY  (A) = AMOUNT TO CLEAR.
*
*         EXIT   (MBUF - MBUF+A*4) = CLEARED.
*                (T1) = SIZE CLEARED.
*
*         USES   T4.


 ZPB      SUBR               ENTRY/EXIT
          STD    T1
          SHN    2
          STD    T4
 ZPB5     LDN    0           CLEAR MEMORY BUFFER
          STM    MBUF-4,T4
          STM    MBUF-3,T4
          STM    MBUF-2,T4
          STM    MBUF-1,T4
          LCN    4
          RAD    T4
          NJN    ZPB5        IF MORE BUFFER TO CLEAR
          UJN    ZPBX        RETURN

*         ENDX   CTP$SCI ZERO PP BUFFER.

