*COMDECK PBTOAH 
_$J+  PAGE EJECT? 
_*****************************
*                            *
*         PBTOAH             *
*  CONVERT TO ASCII HEX      *
*                            *
*****************************?
_$R-,G-,I+                NON-RECURSIVE 
                          NON-INTERRUPTIBLE  ?
_***********************************************************************
*                                                                      *
**OVERVIEW- PBTOAH CONVERTS A GIVEN 16-BIT BINARY WORD TO 4 ASCII      *
*           HEX CHARACTERS AND PLACES THESE CHARACTERS INTO A          *
*           USER SPECIFIED PLACE IN A BUFFER.  A CHECK IS MADE TO      *
*           PREVENT THE USER FROM PLACING THE CHARACTERS IN OTHER      *
*           THEN THE DATA PORTION OF THE BUFFER.                       *
*                                                                      *
**INPUT- WORD TO CONVERT, BUFFER TO PLACE THE CHARACTERS AND           *
*           THE START AND STOP INDICES IN THE BUFFER.                  *
**OUTPUT- WORD CONVERTED.                                              *
*                                                                      *
**EXTERNAL SUBROUTINES-                                                *
*              1) PBMAX            CALCULATE MAX OF 2 NUMBERS          *
***********************************************************************?
PROCEDURE PBTOAH(WORD : B0HEX; BFR : B0BUFPTR; START,STOP : INTEGER); 
BEGIN 
  WITH BFR',WORD DO 
  BEGIN 
    BFDATAC[START  ] := JMCNVTO[B0H1];      _CONVERT BITS 15-12        ?
    BFDATAC[START+1] := JMCNVTO[B0H2];      _CONVERT BITS 11-8         ?
    BFDATAC[START+2] := JMCNVTO[B0H3];      _CONVERT BITS  7-4         ?
    BFDATAC[START+3] := JMCNVTO[B0H4];      _CONVERT BITS  3-0         ?
    BFDATAC[START+4] := # #;                _INSERT BLANK              ?
  END;
END; _PBTOAH? 
