From a9cc254a7403fb52ed3abc611a5633547d113c07 Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Mon, 26 Mar 2018 13:24:42 -0400
Subject: [PATCH] .

---
 src/pitchdark.a | 33 ++++++++-------------------------
 src/sound.a     | 29 +++++++++++++++++++++++++++++
 2 files changed, 37 insertions(+), 25 deletions(-)
 create mode 100644 src/sound.a

diff --git a/src/pitchdark.a b/src/pitchdark.a
index 5e15b22..a65c668 100644
--- a/src/pitchdark.a
+++ b/src/pitchdark.a
@@ -10,8 +10,9 @@
 
          !source "src/macros.a"
          !source "src/memory.a"
-         !source "src/gamelist.a"
          !source "src/WeeGUI_MLI.s"
+
+         !source "src/gamelist.a"
          !source "src/okvs.a"
          !source "src/prodos.a"
          !source "src/ramdisk.a"
@@ -22,6 +23,7 @@
          !source "src/paintcommon.a"
          !source "src/paint.a"
          !source "src/paintoptions.a"
+         !source "src/sound.a"
 
 .weeguiFilename
          !byte 10
@@ -33,10 +35,12 @@ Start
          cmp   #$30                  ; 128K?
          beq   +                     ; yes, continue
 -        jmp   QuitToProDOS
-+        !byte $1a                   ; 65C02 INC, clear Z flag if supported
-         beq   -                     ; not a 65C02
++        inc                         ; 65C02-only INC instruction will clear Z flag
+         beq   -                     ; if Z flag is still set, this is not a 65C02
+
          jsr   DisconnectRAM32       ; disconnect /RAM in S3,D2 so we can use DHGR
-         bit   $C010
+         bit   $C010                 ; clear keyboard strobe
+
          jsr   LoadFile              ; load WEEGUI binary at $4000
          !word .weeguiFilename
          !word WGInit
@@ -75,26 +79,5 @@ ExitWeeGUI
          ldx   #WGExit               ; clean up WeeGUI
          jmp   WeeGUI
 
-WAIT     = $FCA8
-SPEAKER  = $C030
-
-SoftBell
-         php
-         phx
-         pha
-         ldx   #32
--        lda   #2
-         jsr   WAIT
-         bit   SPEAKER
-         lda   #33
-         jsr   WAIT
-         bit   SPEAKER
-         dex
-         bne   -
-         pla
-         plx
-         plp
-         rts
-
 gPrefsStore
          !word *+2                 ; address of storage space for prefs
diff --git a/src/sound.a b/src/sound.a
new file mode 100644
index 0000000..9fbd81e
--- /dev/null
+++ b/src/sound.a
@@ -0,0 +1,29 @@
+;license:MIT
+;(c) 2018 by 4am
+;
+; Sound routines
+;
+; Public functions
+; - SoftBell
+;
+
+WAIT     = $FCA8
+SPEAKER  = $C030
+
+SoftBell
+         php
+         phx
+         pha
+         ldx   #32
+-        lda   #2
+         jsr   WAIT
+         bit   SPEAKER
+         lda   #33
+         jsr   WAIT
+         bit   SPEAKER
+         dex
+         bne   -
+         pla
+         plx
+         plp
+         rts