Add beep for apple2

2024-01-18 13:55:18 +01:00
parent 6c7106c9d9
commit 2ba176372e
6 changed files with 49 additions and 1 deletions
--- a/libsrc/apple2/beep.s
+++ b/libsrc/apple2/beep.s
@@ -0,0 +1,20 @@
+;
+; 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