home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / SPEEDFIL.INC < prev    next >
Encoding:
Text File  |  1993-03-08  |  395 b   |  16 lines
  1.  
  2.  
  3.   procedure __speedfil;
  4.   var b,srt: byte;
  5.     dskptrvecofs: integer absolute $0000:$0078;
  6.     dskptrvecseg: integer absolute $0000:$007a;
  7.   begin
  8.    b := mem[dskptrvecseg:dskptrvecofs]; b := (b shl 4) shr 4; srt := $d shl 4;
  9.    {new step rate time} b := b + srt; mem[dskptrvecseg:dskptrvecofs] := b;
  10.    {new head settle time} mem[dskptrvecseg:dskptrvecofs+9] := 00;
  11.   end;
  12.  
  13.  
  14.  
  15.  
  16.