home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / voxrom / textes / repwin08 / annexes / squirrel / mem2 / memtest3.pas < prev    next >
Pascal/Delphi Source File  |  1995-10-01  |  684b  |  27 lines
  1. { Exemple portant sur la HMA }
  2. Uses memory, crt;
  3. Var h : word;
  4.     e : exmm;
  5. BEGIN
  6.  
  7.   If isXms then begin
  8.  
  9.     Writeln ('Xms version ', HI(Xms_Ver), '.', LO(Xms_Ver),
  10.     ' [révision ', HI(xms_rev), '.', LO(xms_rev), ']');
  11.  
  12.     if Xms_GetHMA
  13.       then Writeln ('HMA libre')
  14.       else Writeln ('HMA occupée ou non gérée');
  15.  
  16.     if Xms_A20unlocked
  17.       then Writeln ('Ligne A20 libre')
  18.       else Writeln ('Ligne A20 verrouillée');
  19.  
  20.     { Si la HMA est libre, il est facile de se l'approprier.
  21.       Si la ligne A20 est libre, les lectures du type
  22.  
  23.       MEMx[$FFFF:xxxx] sont autorisées ! }
  24.  
  25.   end else writeln ('Pas d''xms !! Chargez HIMEM.SYS !!');
  26.  
  27. END.