/***************************************\
              *                                     *
              *       R 2 P M M . L I T             *
              *                                     *
             \***************************************/
             
DECLARE /*** PMM type codes. ***/
   PMM$get$blk$type      LITERALLY '4', 
   PMM$UC$get$blk$type   LITERALLY '5',
   PMM$free$blk$type     LITERALLY '40',
   PMM$create$pool$type  LITERALLY '41',
   PMM$error$type        LITERALLY '6',
   PMM$no$space$type     LITERALLY '43';
   

DECLARE PMM$msg$struc   LITERALLY 'STRUCTURE (
    link          ADDRESS,
    length        WORD,
    type          BYTE,
    home$ex       ADDRESS,
    resp$ex       ADDRESS,
    msg$inf       WORD,
    memory$pool   BYTE)';