home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / voxrom / textes / repwin08 / annexes / squirrel / mem2 / memtest4.pas < prev    next >
Pascal/Delphi Source File  |  1995-10-01  |  1KB  |  39 lines
  1. { Exemple portant sur la mémoire externe }
  2.  
  3. {$M 4000, 0, 20000}
  4. Uses memory, crt;
  5. VAR UMBaddy : word;
  6.     p : pointer;
  7. const info : array[0..3] of string = (
  8.   'Premier  bloc convenable',
  9.   'meilleur bloc convenable',
  10.   'dernier  bloc convenable',
  11.   '??' );
  12.  
  13. BEGIN
  14.  
  15.   ClrScr;
  16.  
  17.   IF isXms then begin  { en paragraphes }
  18.     Writeln ('Avant allocation    : ', Xms_UMBMaxAvail*16);
  19.     UMBaddy := Xms_UMBalloc (100);
  20.     if xms_ok then begin
  21.       Writeln ('Après allocation    : ', Xms_UMBMaxAvail*16);
  22.       Xms_UMBUnalloc (UMBaddy);
  23.       Writeln ('Après désallocation : ', Xms_UMBMaxAvail*16);
  24.     end;
  25.   end else writeln ('Pas de driver Xms !');
  26.  
  27.   if dosversion >= 50 then begin
  28.     Writeln ('Stratégie                            : ',
  29.       info[xm_GetStrategy AND 3]);
  30.     Writeln ('UMB intégrés dans la gestion mémoire : ',
  31.       xm_isUMB);
  32.     Writeln ('Allouer en priorité dans les UMBs    : ',
  33.       xm_GetStrategy AND 128 = 128);
  34.   end else writeln ('dos < 5');
  35.  
  36.   xm_GetMem (p, 2000);
  37.   xm_Freemem (p);
  38.  
  39. END.