mirror of
https://github.com/cc65/cc65.git
synced 2024-06-01 13:41:34 +00:00
21 lines
441 B
ArmAsm
21 lines
441 B
ArmAsm
|
;
|
||
|
|
; Colin Leroy-Mira, 2024
|
||
|
|
;
|
||
|
|
; void beep(void)
|
||
|
|
;
|
||
|
|
|
||
|
|
.export _beep
|
||
|
|
.import BELL
|
||
|
|
|
||
|
|
.include "apple2.inc"
|
||
|
|
|
||
|
|
.segment "LOWCODE"
|
||
|
|
|
||
|
|
_beep:
|
||
|
|
lda CH ; Bell scrambles CH in 80col mode on IIgs, storing
|
||
|
|
pha ; it in OURCH and resetting CH to 0. Save it.
|
||
|
|
jsr BELL
|
||
|
|
pla
|
||
|
|
sta CH ; Restore CH
|
||
|
|
rts
|