home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / memory.swg / 0028_Detect Which Memory.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-08-27  |  483 b   |  32 lines
  1. Uses
  2.   Dos;
  3.  
  4. Var
  5.   HaveMem : Boolean;
  6.  
  7. procedure check_xms(VAR installed : boolean);
  8. Var
  9.   regs : registers;
  10. begin
  11.   regs.ax := $4300;
  12.   intr($2F, regs);
  13.   installed := regs.al = $80;
  14. end;
  15.  
  16. procedure check_ems(VAR installed : boolean);
  17. var
  18.   regs : registers;
  19. begin
  20.   regs.ah := $46;
  21.   intr($67, regs);
  22.   installed := regs.ah = $00;
  23. end;
  24.  
  25. begin
  26.   check_xms(HaveMem);
  27.   writeln('XMS: ',HaveMem);
  28.   check_ems(HaveMem);
  29.   writeln('EMS: ',HaveMem);
  30. end.
  31.  
  32.