From 24f5bac8994a1a009ae46f5e4db2cdb927bee001 Mon Sep 17 00:00:00 2001
From: Wayne Parham <wayne@parhamdata.com>
Date: Thu, 10 Jun 2021 16:07:39 -0500
Subject: [PATCH] Added BEL -> beep() functionality

---
 libsrc/sym1/read.s | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/libsrc/sym1/read.s b/libsrc/sym1/read.s
index 7ab88f1e8..fe4990601 100644
--- a/libsrc/sym1/read.s
+++ b/libsrc/sym1/read.s
@@ -30,10 +30,13 @@ begin:  dec     ptr2
 
 getch:  jsr     INTCHR           ; Get character using Monitor ROM call
         jsr     OUTCHR           ; Echo it
-        and     #$7F             ; Clear hi bit and check for '\r'
-        cmp     #$0D
-        bne     putch
-        lda     #$0A             ; Replace with '\n' and set count to zero
+        and     #$7F             ; Clear hi bit
+        cmp     #$07             ; Check for '\a'
+        bne     chkcr            ; ...if BEL character
+        jsr     BEEP             ; Make beep sound
+chkcr:  cmp     #$0D             ; Check for '\r'
+        bne     putch            ; ...if CR character
+        lda     #$0A             ; Replace with '\n'
 
 putch:  ldy     #$00             ; Put char into return buffer
         sta     (ptr1),y