         DEF      HGPSTK
         PCC      0
         SPACE    3
*  THIS MODULE REPLACES HGPSTK FOR CP-V RELEASE A00.
         SPACE
*                                          CLIFF MELESON.
         SPACE    6
HGPSTK   CSECT    0
         PAGE
         DEF      BUFMASK,LOLEVEL,HILEVEL,LOTHRSH
         DEF      HITHRSH,CATBUF
         DEF      COMBUF,CBFHD,CBRHD,CBAHD
         DEF      TOP,BOTTOM,TEMPBOT
         DEF      WORDCNT,ADJSTCNT,BUFLAGS
         REF      HGP
         SPACE    3
RDBUFSZ  EQU      128
PKBUFSZ  EQU      128
PRBUFSZ  EQU      128
CLBUFSZ  EQU      8
         SPACE    3
         BOUND    4
BUFMASK  GEN,32,32,32,32      RDBUFSZ-1,PKBUFSZ-1,;
                              PRBUFSZ-1,CLBUFSZ-1
LOLEVEL  GEN,16,16,16,16      40,40,40,3
HILEVEL  GEN,16,16,16,16      80,80,80,5
LOTHRSH  GEN,16,16,16,16      16,16,16,2
HITHRSH  GEN,16,16,16,16      100,100,100,6
CATBUF   DATA,4   RADBUF,PACKBUF,PERBUF,CYLBUF
         BOUND    4
         SPACE    3
TOP      DATA,2   0,0,0,0
BOTTOM   DATA,2   0,0,0,0
TEMPBOT  DATA,2   0,0,0,0
WORDCNT  DATA,2   0,0,0,0
ADJSTCNT DATA,2   0,0,0,0
*                 BUFLAGS BIT ZERO SET = HGP IS EMPTY
*                 BUFLAGS BIT  ONE SET = BUFFER JUST EMPTIED
*                 BUFLAGS BIT  TWO SET = BUFFER JUST FILLED
         SPACE
BUFLAGS  DATA,2   0,0,0,0
         SPACE    3
         PAGE
*  COMMUNICATION BUFFERS
         SPACE    3
         BOUND    8
COMBUF   EQU      %
CBFHD    GEN,8,24 2,0
CBRHD    EQU      %
CBAHD    DATA     0
I        DO       8
         GEN,8,24 2*I+2,0
         DATA     0
         FIN
         DATA     0,0
         PAGE
RADBUF   EQU      %
         DO1      RDBUFSZ
         DATA     0
PACKBUF  EQU      %
         DO1      PKBUFSZ
         DATA     0
PERBUF   EQU      %
         DO1      PRBUFSZ
         DATA     0
CYLBUF   EQU      %
         DO1      CLBUFSZ
         DATA     0
         END

