home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / memory / xms / memtest.pas < prev   
Pascal/Delphi Source File  |  1994-10-28  |  3KB  |  99 lines
  1. program Mem_test;
  2.  
  3. uses Memory,crt,gifunit;
  4.  
  5. var xmsh : array[1..2] of XMSHandle;
  6.     emsh : array[1..2] of EMSHandle;
  7.  
  8. procedure xms_test;
  9. var ta : array[1..20] of word;
  10.     li : integer;
  11. begin;
  12.   gotoxy(1,5); write('Orginal : ');
  13.   for li := 1 to 20 do begin;
  14.     ta[li] := li;
  15.     gotoxy(14,li+4);
  16.     write(ta[li]);
  17.   end;
  18.   readln;
  19.  
  20.   gotoxy(21,5); write('sauve la mémoire XMS &');
  21.   gotoxy(21,6); write('rempli de 0 :');
  22.   Getmem_XMS(xmsh[1],40);
  23.   RAM_2_XMS(@ta,xmsh[1],40);
  24.   fillchar(ta,40,0);
  25.   for li := 1 to 20 do begin;
  26.     gotoxy(44,li+4);
  27.     write(ta[li]);
  28.   end;
  29.   readln;
  30.  
  31.   gotoxy(54,5); write('Produit de nouveau la ');
  32.   gotoxy(54,6); write('mémoire XMS :');
  33.   Getmem_XMS(xmsh[2],40);
  34.   XMS_2_XMS(xmsh[1],xmsh[2],40);
  35.   XMS_2_RAM(@ta,xmsh[2],40);
  36.   for li := 1 to 20 do begin;
  37.     gotoxy(74,li+4);
  38.     write(ta[li]);
  39.   end;
  40.   readln;
  41.   Freemem_XMS(xmsH[1]);
  42.   Freemem_XMS(xmsH[2]);
  43. end;
  44.  
  45. procedure Ems_test;
  46. var ta : array[1..20] of word;
  47.     li : integer;
  48.     picptr : pointer;
  49. begin;
  50.   getmem(picptr,64000);
  51.   Init_ModeX;
  52.   blackpal;
  53.   LoadGif('Exemple.gif',picptr,0,0);
  54.   Getmem_EMS(emsh[1],64000);
  55.   RAM_2_EMS(picptr,emsh[1],64000);
  56.   freemem(picptr,64000);
  57.  
  58.   getmem(vscreen,64000);
  59.   fillchar(vscreen^,64000,123);
  60.   EMS_2_RAM(vscreen,emsh[1],64000);
  61.   p13_2_modex(0,16000);
  62.   setpal;
  63.   readln;
  64.  
  65.   freemem(vscreen,64000);
  66.   Freemem_EMS(emsH[1]);
  67.   asm mov ax,0003;  int 10h;  end;
  68. end;
  69.  
  70. begin;
  71.   clrscr;
  72.   writeln('Programme de démonstration de l''unité  MEMORY ');
  73.   writeln('(c) 1994 par MICRO APPLICATION  Auteur: Boris Bertelsons');
  74.   writeln;
  75.   writeln('Mémoire libre       : ',Base_Free,' Octets');
  76.   writeln('XMS libre           : ',XMS_Free,' Octets');
  77.   writeln('EMS libre           : ',EMS_Free,' Octets');
  78.   writeln('XMS Version         : ',hi(XMS_Version),'.',lo(XMS_Version));
  79.   writeln('EMS Version         : ',hi(EMS_Version),'.',lo(EMS_Version));
  80.   readln;
  81.   clrscr;
  82.   writeln('Programme de démonstration de l''unité  MEMORY ');
  83.   writeln('(c) 1994 par MICRO APPLICATION  Auteur: Boris Bertelsons');
  84.   writeln;
  85.   writeln('                     X   M   S     -   T  E  S  T');
  86.   if XMS_existe then
  87.     xms_test
  88.   else
  89.     writeln('Pas de mémoire XMS disponible !');
  90.   clrscr;
  91.   writeln('Programme de démonstration de l''unité  MEMORY ');
  92.   writeln('(c) 1994 par MICRO APPLICATION  Auteur: Boris Bertelsons');
  93.   writeln;
  94.   writeln('                     T E S T  -  E   M   S');
  95.   if EMS_existe then
  96.     ems_test
  97.   else
  98.     writeln('Pas de mémoire EMS disponible !');
  99. end.