The IOBEEP.I include file resides on the Kyan Pascal 2.x Utilities Disk 1.
- PROCEDURE Disable_IO_Beep;
- PROCEDURE Enable_IO_Beep;
See SOUNDR on page 12 of Mapping The Atari Revised Edition for more information.
Source Code
PROCEDURE Disable_IO_Beep;
BEGIN
#A
LDA #$00 ;poke zero into
STA $41 ;...SOUNDR (65) for silence
#
END;(* IO Beep Off procedure *)
PROCEDURE Enable_IO_Beep;
BEGIN
#A
LDA #$FF ;poke 255 into
STA $41 ;...SOUNDR (65)
#
END;(* IO Beep On procedure *)
No comments:
Post a Comment