home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / SLOT / SLOT.PAS < prev   
Pascal/Delphi Source File  |  1991-01-31  |  1KB  |  49 lines
  1. {programma: slot.pas
  2. status van het slotschakelaar testen
  3. taal : turbo pascal
  4. auteur: W.Lorenz)
  5. bron: DOS International feb 91
  6.  
  7. (C) 1990 DMV-Verlag, DOS International}
  8. uses CRT;
  9.  
  10. function Afgesloten: Boolean;
  11. begin
  12. {interrupts blokkeren}
  13. inline ($FA);
  14. {wachten tot de toetsenbordprocessor 8042 klaar is}
  15. repeat until Port [$64] AND 2=0;
  16. {bevel "lees invoerpoort" uitzetten}
  17. Port[$64]:=$C0;
  18. {wachten tot het uitgevoerd is]
  19. repeat until Port[$64] AND 2=0;
  20. {wachten tot data binnenkomen}
  21. repeat until PORT[$64] AND 1=1;
  22. {bit 7 is de sleutelschakelaar}
  23. Afgesloten:=Port[$60]<$80;
  24. {interrupts weer toelaten}
  25. inline ($FB);
  26. end;
  27.  
  28. var Status: Boolean;
  29.  
  30. begin
  31. {toestand schakelaar initialiseren}
  32. Status:= NOT Afgesloten;
  33. repeat
  34. {als de instelling veranderd is}
  35.       if Afgesloten<>Status then
  36.          begin
  37.          {toestandsvariabele actualiseren}
  38.          Status:=NOT Status;
  39.          if Status then write (#13, 'Het toetsenbord is geblokkeerd')
  40.          else write (#13, 'Het toetsenbord is vrij');
  41.          ClrEol;
  42.        end;
  43.        {vertraging maakt toetsherkenning mogelijk}
  44.        Delay(10);
  45. {herhaal tot afbreken met toets}
  46. until KeyPressed;
  47. {toetsenbordbuffer leegmaken}
  48. repeat until ReadKey<>#0;
  49. end.