home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / SWAG9605.DDD / 0121_Keyboard LED program.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-05-31  |  407 b   |  29 lines
  1. Program leds;
  2. Uses Crt;
  3.  
  4. Var
  5.    l : Byte;
  6.  
  7. Procedure led(led: Byte); Assembler;
  8. ASM
  9.      mov  AL, $ED
  10.      out  $60, AL
  11.      mov  CX, $200
  12. @@1:
  13.      loop @@1
  14.      mov  AL, led
  15.      out  $60, AL
  16. End;
  17.  
  18. Begin
  19.    l := 1;
  20.    While not KeyPressed do
  21.    Begin
  22.       led(l);
  23.       l := l SHL 1;
  24.       If l = 8 then l := 1;
  25.       Delay(200);
  26.    End;
  27.    While KeyPressed do ReadKey;
  28. End.
  29.