The KEYBOARD.I include file resides on the Kyan Pascal 2.x Utilities Disk 1.
- PROCEDURE Enable_Keyboard;
- PROCEDURE Disable_Keyboard;
Source Code
PROCEDURE Enable_Keyboard;
BEGIN
#A
LDA #$00 ;zero out
STA $26D ;...(621)
#
END;(* enable keyboard procedure *)
PROCEDURE Disable_Keyboard;
BEGIN
#A
LDA #$FF ;poke 255 into
STA $26D ;...(621)
#
END;(* disable keyboard procedure *)
No comments:
Post a Comment