home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / voxrom / textes / repwin08 / annexes / squirrel / mem2 / memtest5.pas < prev   
Pascal/Delphi Source File  |  1995-10-01  |  486b  |  20 lines
  1. { Exemple portant sur les mcbs }
  2.  
  3. Uses memory, crt;
  4. var m, m1 : ^mcb;
  5. BEGIN
  6.  
  7.   m := getdib;
  8.   m := ptr(MEMW[seg(m^)-1: ofs(m^)+14], 0);
  9.  
  10.   while m^.id in ['M', 'Z'] do with m^ do begin
  11.     write (m^.id, ' à ', Phexa (Ptr(seg(m^), 1)), ' ');
  12.     write (m^.size SHL 4:9, ' octets │ ');
  13.     m1 := Ptr(seg(m^)+m^.size+1, 0);
  14.     if m^.pspseg = seg(m^)+1
  15.       then writeln ('programme    ', pchar(@m^.name))
  16.       else writeln ('bloc inconnu ');
  17.     m := m1;
  18.   end;
  19.  
  20. END.