NetNews Usenet Archive 1992 #27/NN_1992_27.iso/spool/comp/lang/pascal/6823

Internet Message Format | 1992-11-22 | 799 b

Path: sparky!uunet!zaphod.mps.ohio-state.edu!uwm.edu!csd4.csd.uwm.edu!randyd
From: [e-mail] (Randall Elton Ding)
Newsgroups: comp.lang.pascal
Subject: Re: TPW1.0 Hex Numbers ...
Date: 23 Nov 1992 03:53:15 GMT
Organization: Computing Services Division, University of Wisconsin - Milwaukee
Lines: 20
Message-ID: <[e-mail]>
References: <[e-mail]>
NNTP-Posting-Host: 129.89.7.4

procedure PrintHexNibble (n: word);
  begin
    n:= n and $F;
    case n of
      0..9   : write (n);
      $A..$F : write (chr(n-$A+ord('A')));
    end;
  end;

procedure PrintHexByte (b: word);
  begin
    PrintHexNibble (b shr 4);
    PrintHexNibble (b);
  end;

procedure PrintHexWord (w: word);
  begin
    PrintHexByte (hi(w));
    PrintHexByte (lo(w));
  end;