         PCC      0
         SYSTEM   SIG7
         TITLE    '**** HGPSTK ****'
*M*      HGPSTK   RESIDENT PUBLIC GRANULE ALLOCATION DATA
HGPSTK:  RES
         DEF      HGPSTK:           PATCHING DEF
         PAGE
*        DEFS
         DEF      ADJSTCNT      HW: # ENTRIES CHANGED BY ALLOCAT
         DEF      BOTTOM        HW: ALLOCAT'S BOTTOM OF BUFFER
         DEF      BUFLAGS       HW: BUFFER FLAGS(EMPTY,EMPTIED,FILLED)
         DEF      BUFMASK       WD: MAX BUFFER INDEX
         DEF      CATBUF        WD: BUFFER BASE ADDRESS
         DEF      CBAHD             HEAD OF ACTIVE COMMUNICATION BUFFERS
         DEF      CBFHD             HEAD OF FREE COMMUNICATION BUFFERS
         DEF      COMBUF            BASE ADDRESS COMMUNICATION BUFFERS
         DEF      HILEVEL       HW: LEVEL TO FILL TO
         DEF      HITHRSH       HW: LEVEL TO CALL ALLOCAT ABOVE
         DEF      LOLEVEL       HW: LEVEL TO EMPTY TO
         DEF      LOTHRSH       HW: LEVEL TO CALL ALLOCAT UNDER
         DEF      TEMPBOT       HW: GRAN'S BOTTOM OF BUFFER
         DEF      TOP           HW: TOP OF BUFFER
         DEF      WORDCNT       HW: # ENTRIES IN BUFFER
         DEF      PPSTART           END OF MONITOR DATA AREA
         REF      INITIAL
         PAGE
RDBUFSZ  EQU      128
PKBUFSZ  EQU      128
PRBUFSZ  EQU      128
CLBUFSZ  EQU      16
         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,6
HILEVEL  GEN,16,16,16,16            80,80,80,10
LOTHRSH  GEN,16,16,16,16            16,16,16,4
HITHRSH  GEN,16,16,16,16            100,100,100,11
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   X'8000',X'8000',X'8000',X'8000'  FIX RESETS THE BITS
         SPACE    3
         PAGE
*  COMMUNICATION BUFFERS
         SPACE    3
         BOUND    8
COMBUF   EQU      %
CBFHD    GEN,8,24 2,0
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
PPSTART  RES
         B        INITIAL           REAL M:MON START ADDRESS
         END      PPSTART           SO PASS3 KNOWS WHERE TO BIAS RECOVER

