home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol079 / hexbin.pli < prev    next >
Text File  |  1984-04-29  |  376b  |  20 lines
  1.  
  2. /* hexbin - convert two hex digits to binary byte value */
  3.     hexbin: proc(s) returns(fixed(15));
  4.     dcl
  5.         s        char(8) varying,
  6.         v        fixed(15),
  7.         i        fixed(7);
  8.     
  9.     %replace
  10.         HEXDIGITS  by '123456789ABCDEF';
  11.  
  12.     v = 0;
  13.         do i = 1 to length(s);
  14.         v = v * 16 + index(HEXDIGITS, substr(s,i,1));
  15.         end;
  16.     return(v);
  17.     end hexbin;
  18.  
  19.  
  20.