home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol079 / dumptest.pli < prev    next >
Encoding:
Text File  |  1984-04-29  |  942 b   |  41 lines
  1. dumptest: proc options(main);    /* dump procedures tester */
  2.     %replace
  3.        TRUE by '1'b,
  4.        FALSE by '0'b;
  5.  
  6.  
  7.     dcl
  8.         odump entry(ptr,fixed(15)),
  9.         aodump entry(ptr,fixed(15)),
  10.         adump entry(ptr,fixed(15));
  11.  
  12.  
  13.     dcl
  14.         module         fixed(7) static init(0),
  15.         length         fixed(15),
  16.         adrptr         ptr,
  17.         address        bit(16);
  18.  
  19.     
  20.         do while(module < 1 | module > 3);
  21.         put skip list('Test: (1) ODUMP, (2) AODUMP, (3) ADUMP ? ');
  22.         get list (module);
  23.         end;
  24.  
  25.  
  26.         do while(TRUE);
  27.         put skip list('Enter address: (hexadecimal) ');
  28.         get edit (address) (b4(4));
  29.         put skip list('Enter length: (decimal) ');
  30.         get list (length);
  31.         unspec(adrptr) = address;
  32.         if module = 1 then
  33.             call odump(adrptr,length);
  34.         else if module = 2 then
  35.             call aodump(adrptr,length);
  36.         else
  37.             call adump(adrptr,length);
  38.         end;
  39.  
  40.     end dumptest;
  41.