home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / keyboard.swg / 0077_Caps.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-24  |  1.5 KB  |  86 lines
  1. {
  2. hereya go. I've found that these come in pretty handy. You can make
  3. some cool things with them too. I also have the code to detect if
  4. the lights are on/off also if you want it.
  5. }
  6. uses crt; Procedure TurnCapsOn;Assembler;
  7. ASM
  8.  
  9.     SUB    AX,AX
  10.     MOV    ES,AX
  11.     MOV    AL,64
  12.     OR     ES:[417h],AL
  13.     RET
  14. END;
  15.  
  16. Procedure TurnNumOn;Assembler;
  17. ASM
  18.  
  19.     SUB    AX,AX
  20.     MOV    ES,AX
  21.     MOV    AL,32
  22.     OR     ES:[417h],AL
  23.     RET
  24. END;
  25.  
  26. Procedure TurnScrollOn;Assembler;
  27. ASM
  28.  
  29.     SUB    AX,AX
  30.     MOV    ES,AX
  31.     MOV    AL,16
  32.     OR     ES:[417h],AL
  33.     RET
  34. END;
  35.  
  36. Procedure TurnCapsOff;Assembler;
  37. ASM
  38.  
  39.     SUB   AX,AX
  40.     MOV   ES,AX
  41.     MOV   AL,10111111b
  42.     AND   ES:[417h],AL
  43.     RET
  44. END;
  45.  
  46. Procedure TurnNumOff;Assembler;
  47. ASM
  48.  
  49.     SUB   AX,AX
  50.     MOV   ES,AX
  51.     MOV   AL,11011111b
  52.     AND   ES:[417h],AL
  53.     RET
  54. END;
  55.  
  56. Procedure TurnScrollOff;Assembler;
  57. ASM
  58.  
  59.     SUB   AX,AX
  60.     MOV   ES,AX
  61.     MOV   AL,11101111b
  62.     AND   ES:[417h],AL
  63.     RET
  64. END;
  65.  
  66. var
  67.    x : integer;
  68. {Watch your lights} begin
  69.     x:=0;
  70.     repeat
  71.          inc(x);
  72.          if x mod 3 = 0 then
  73.          Begin             TurnNumOn;TurnCapsOff;TurnScrollOff;
  74.          End;
  75.          If X mod 3 = 1 then
  76.          Begin
  77.              TurnNumOff;TurnCapsOn;TurnScrollOff;
  78.          End;
  79.          If X Mod 3 = 2 then
  80.          Begin
  81.              TurnNumOff;TurnCapsOff;TurnScrollOn;
  82.          End;
  83.          Delay(115);
  84.     until keypressed;
  85. end.
  86.