mirror of
https://github.com/cc65/cc65.git
synced 2024-11-16 02:10:52 +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
|