home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / utils / antivir2.zip / NOHARD.PAS < prev    next >
Pascal/Delphi Source File  |  1986-11-30  |  2KB  |  57 lines

  1. {$U+}
  2.  
  3. program NoHardDiskAccess(input,output);
  4.  
  5. const
  6.  INT13 = $4C;
  7.  INT40 = $100;
  8.  
  9. var
  10.  Byte0,
  11.  Byte1,
  12.  Byte2,
  13.  Byte3 : integer;
  14.  
  15. begin
  16.  clrscr;
  17.  writeln('(c) Copyright 1986 Cavan International');
  18.  writeln;
  19.  writeln;
  20.  writeln('This program is released in the public domain to be distributed freely');
  21.  writeln('for non-commercial purposes. If you like this program and would like');
  22.  writeln('to donate, send donations to :');
  23.  textcolor(white);
  24.  writeln('Cavan International');
  25.  writeln('P.O. Box 2');
  26.  writeln('Santa Monica, CA 90406-0002');
  27.  writeln;
  28.  writeln;
  29.  if mem[$0040:$0075] < 1 then begin
  30.   writeln('You don''t have any hard disks. You have no use for this program.');
  31.   writeln('Sorry...');
  32.   halt;
  33.  end;
  34.  writeln;
  35.  writeln('Your hard disk probably has read-only buffering, so you should probably');
  36.  writeln('still be able to do a "dir" of your hard disk, but when the computer does');
  37.  writeln('a physical read or write to/from the disk, you will get an "error reading');
  38.  writeln('drive x:"');
  39.  writeln('Thus, you do not have to worry about Trojan Programs eating your Fixed Disk');
  40.  writeln('because of buffering.');
  41.  writeln;
  42.  write('Press any key to disable hard disk until you do a warm boot...');
  43.  repeat
  44.  until keypressed;
  45.  writeln('Disabling Hard Disk Access...');
  46.  writeln;
  47.  writeln;
  48.  Byte0 := mem[$0:Int40];
  49.  Byte1 := mem[$0:Int40 + 1];
  50.  Byte2 := mem[$0:Int40 + 2];
  51.  Byte3 := mem[$0:Int40 + 3];
  52.  mem[$0:Int13] := Byte0;
  53.  mem[$0:Int13 + 1] := Byte1;
  54.  mem[$0:Int13 + 2] := Byte2;
  55.  mem[$0:Int13 + 3] := Byte3;
  56. end.
  57.