home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / bor_tips / ti115.asc < prev    next >
Text File  |  1988-04-15  |  644b  |  33 lines
  1. PRODUCT : TURBO PASCAL     NUMBER : 115
  2. VERSION : ALL
  3.      OS : CP/M-80
  4.    DATE : April 7, 1986
  5.  
  6.   TITLE : KAYPRO - EVER-SPINNING DISK DRIVE
  7.  
  8. Place this procedure into your program and call it when you would
  9. like your disk drives to stop spinning.
  10.  
  11.  
  12. { This works for Kaypro 2, 4, 1984 or later } 
  13.  
  14. procedure MotorOff;  
  15. const
  16.   system = $14;                              {Kaypro System port}
  17.  
  18. begin
  19.   port[system] :=port[system] and $EF;       {Turn off motor}
  20. end;
  21.  
  22.  
  23. { This works for the original Kaypro 2 and 4 }
  24.  
  25. procedure MotorOff;
  26. const
  27.   system = $1C;
  28. begin
  29.   port[system] := port[system] or $140;
  30. end;
  31.  
  32.  
  33.