home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / sigmv079.ark / HEXTEST.PLI < prev    next >
Encoding:
Text File  |  1984-04-29  |  859 b   |  35 lines
  1. hextest: proc options(main);    /* hexbin procedure tester */
  2.     %replace
  3.        TRUE by '1'b,
  4.        FALSE by '0'b;
  5.  
  6.  
  7.     dcl
  8.         hexbin entry(char(8) varying) returns(fixed(15));
  9.  
  10.  
  11.     dcl
  12.         p              ptr,
  13.         hexbyte        bit(8) based(p),
  14.         hexword        bit(16) based(p),
  15.         hexvalue       fixed(15),
  16.         hexstring      char(8) varying;
  17.  
  18.  
  19.     dcl
  20.         UPPERCASE      char(26) static init('ABCDEFGHIJKLMNOPQRSTUVWXYZ'),
  21.         LOWERCASE      char(26) static init('abcdefghijklmnopqrstuvwxyz');
  22.     
  23.     p = addr(hexvalue);
  24.  
  25.         do while(TRUE);
  26.         put skip list('Enter hexadecimal value: ');
  27.         get list (hexstring);
  28.         hexstring = translate(hexstring,UPPERCASE,LOWERCASE);
  29.         hexvalue = hexbin(hexstring);
  30.         put edit('=',hexvalue,hexbyte,hexword)
  31.                 (col(30),a,f(8),x(2),b4,x(2),b4);
  32.         end;
  33.  
  34.     end hextest;
  35.