home *** CD-ROM | disk | FTP | other *** search
/ TopWare Tools / TOOLS.iso / tools / top1318 / gepackt.exe / UTILITY / SOURCE / SETMEM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-12-30  |  651 b   |  28 lines
  1. {$m 10000,2000,10000}
  2. program setmem;
  3.  
  4.   uses
  5.     autocopy,dos;
  6.  
  7.   var
  8.     regs : registers;
  9.     st : byte;
  10.     s  : string;
  11.  
  12.   begin
  13.     writeln('SETMEM setzt die Stategie fuer die Speicherverteilung.');
  14.     writeln('SETMEM  oder  SETMEM 0   Speicher wird von unten vergeben.');
  15.     writeln('SETMEM 1                 Speicher wird am besten vergeben.');
  16.     writeln('SETMEM 2                 Speicher wird von oben vergeben.');
  17.     s:=paramstr(1);
  18.     st:=ord(s[1]) and $f;
  19.     st:=st mod 3;
  20.     with regs do begin
  21.       ah:=$58;
  22.       al:=1;
  23.       bx:=st;
  24.       msdos(regs);
  25.       writeln('Gesetzt: ',st);
  26.     end;
  27.   end.
  28.