CP/M/CPM_CDROM.iso/cpm/turbopas/tp-util.ark/WRITEHEX.SRC

Text File | 1986-01-06 | 256 b | 12 lines

PROCEDURE WRITE_HEX(VAR DEVICE : TEXT; BT : BYTE);

CONST HEXDIGITS : ARRAY[0..15] OF CHAR = '0123456789ABCDEF';

VAR BZ : BYTE;

BEGIN
  BZ := BT AND $0F;
  BT := BT SHR 4;
  WRITE(DEVICE,HEXDIGITS[BT],HEXDIGITS[BZ])
END;
σσσσσσσσσσσσσσσσσσσσσ