*COMDECK PBCHDECOD
_$J+  PAGE EJECT? 
_*****************************
*                            *
*         PBCHDECOD          *    LOCAL TO PBTTYINT 
*   DECODE CONSOLE MSG       *
*                            *
*****************************?
_***********************************************************************
*                                                                      *
**OVERVIEW- PBCHDECODE DECODES CONSOLE CONTROL MESSAGES.               *
*                                                                      *
**INPUT- START INDEX INTO MSG BUFFER.                                  *
*                                                                      *
**OUTPUT- CONSOLE CONTROL MESSAGE INDEX.                               *
*                                                                      *
**EXTERNAL SUBROUTINES- NONE                                           *
*                                                                      *
***********************************************************************?
PROCEDURE PBCHDECODE(START : INTEGER; VAR MSG : INTEGER); 
BEGIN 
  WITH JACT[TTY],JAOLDIBP',WORK2 DO 
  BEGIN 
    MSG := SUPQ;
    BACHARS[1] := BFDATAC[START];           _1ST CHAR OF MSG MNFMONIC  ?
    BACHARS[2] := BFDATAC[START+1];         _2ND CHAR OF MSG MNEMONIC  ?
    WHILE (BAINT " CNSLEMSG[MSG]) &         _LOOK UP MESSAGE           ?
          (BADC " MSG) DO 
    MSG := SUCC(MSG); 
  END; _WITH? 
END; _PBCHDECODE? 
