From 2ba176372e5b2643703e3c68e2f8e1cee54a4ec7 Mon Sep 17 00:00:00 2001
From: Colin Leroy-Mira <colin@colino.net>
Date: Thu, 18 Jan 2024 13:55:18 +0100
Subject: [PATCH] Add beep for apple2

---
 doc/apple2.sgml      |  1 +
 doc/apple2enh.sgml   |  1 +
 doc/funcref.sgml     |  5 ++++-
 include/apple2.h     |  3 +++
 libsrc/apple2/beep.s | 20 ++++++++++++++++++++
 libsrc/apple2/bell.s | 20 ++++++++++++++++++++
 6 files changed, 49 insertions(+), 1 deletion(-)
 create mode 100644 libsrc/apple2/beep.s
 create mode 100644 libsrc/apple2/bell.s

diff --git a/doc/apple2.sgml b/doc/apple2.sgml
index fb49ea941..3a3ec3666 100644
--- a/doc/apple2.sgml
+++ b/doc/apple2.sgml
@@ -330,6 +330,7 @@ usage.
 <item>_dos_type
 <item>_filetype
 <item>_datetime
+<item>beep
 <item>get_ostype
 <item>gmtime_dt
 <item>mktime_dt
diff --git a/doc/apple2enh.sgml b/doc/apple2enh.sgml
index 593b226ba..738e5b8af 100644
--- a/doc/apple2enh.sgml
+++ b/doc/apple2enh.sgml
@@ -331,6 +331,7 @@ usage.
 <item>_dos_type
 <item>_filetype
 <item>_datetime
+<item>beep
 <item>get_ostype
 <item>gmtime_dt
 <item>mktime_dt
diff --git a/doc/funcref.sgml b/doc/funcref.sgml
index 740a6d62e..81c63a38b 100644
--- a/doc/funcref.sgml
+++ b/doc/funcref.sgml
@@ -95,6 +95,7 @@ function.
 
 <itemize>
 <item>_dos_type
+<item><ref id="beep" name="beep">
 <item><ref id="get_ostype" name="get_ostype">
 <item><ref id="gmtime_dt" name="gmtime_dt">
 <item><ref id="mktime_dt" name="mktime_dt">
@@ -106,6 +107,7 @@ function.
 
 <itemize>
 <item>_dos_type
+<item><ref id="beep" name="beep">
 <item><ref id="get_ostype" name="get_ostype">
 <item><ref id="gmtime_dt" name="gmtime_dt">
 <item><ref id="mktime_dt" name="mktime_dt">
@@ -1771,10 +1773,11 @@ used in presence of a prototype.
 <descrip>
 <tag/Function/Beep sound.
 <tag/Header/<tt/<ref id="sym1.h" name="sym1.h">/
+<tag/Header/<tt/<ref id="apple2.h" name="apple2.h">/
 <tag/Declaration/<tt/void beep(void);/
 <tag/Description/<tt/beep/ makes a brief tone.
 <tag/Notes/<itemize>
-<item>The function is specific to the Sym-1.
+<item>The function is specific to the Sym-1 and Apple2 platforms.
 </itemize>
 <tag/Availability/cc65
 <tag/See also/
diff --git a/include/apple2.h b/include/apple2.h
index 25995eec2..875c10661 100644
--- a/include/apple2.h
+++ b/include/apple2.h
@@ -197,6 +197,9 @@ extern void a2_lo_tgi[];
 
 
 
+void beep (void);
+/* Beep beep. */
+
 unsigned char get_ostype (void);
 /* Get the machine type. Returns one of the APPLE_xxx codes. */
 
diff --git a/libsrc/apple2/beep.s b/libsrc/apple2/beep.s
new file mode 100644
index 000000000..ebebb6e3f
--- /dev/null
+++ 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
diff --git a/libsrc/apple2/bell.s b/libsrc/apple2/bell.s
new file mode 100644
index 000000000..28e6d24f8
--- /dev/null
+++ b/libsrc/apple2/bell.s
@@ -0,0 +1,20 @@
+;
+; Colin Leroy-Mira, 2024
+;
+; BELL routine
+;
+
+        .export         BELL
+
+        .include        "apple2.inc"
+
+        .segment        "LOWCODE"
+
+BELL:
+        ; Switch in ROM and call BELL
+        bit     $C082
+        jsr     $FF3A           ; BELL
+
+        ; Switch in LC bank 2 for R/O and return
+        bit     $C080
+        rts