Added template for Mockingboard code.

applecorn.s

@@ -278,7 +278,8 @@ MAINZP      MAC
             PUT   MAINMEM.MISC
             PUT   MAINMEM.AUDIO
             PUT   MAINMEM.ENSQ
-            PUT   MAINMEM.FREQ
+            PUT   MAINMEM.ENSQFREQ
+            PUT   MAINMEM.MOCK
 
 * Automatically save the object file:
             SAV   APLCORN.SYSTEM

mainmem.ensq.s

@@ -154,6 +154,9 @@ ENSQAMP     PHX
             PLX
             RTS
 
+**
+** Private functions follow (ie: not part of driver API)
+**
 
 * Add oscillator number to value in A, return sum in X
 * Used by ENSQNOTE & ENSQFREQ

mainmem.ensqfreq.s

@@ -1,12 +1,10 @@
-* MAINMEM.FREQ.S
+* MAINMEM.ENSQFREQ.S
 * (c) Bobbi 2022 GPLv3
 *
 * Table of frequency values for Ensoniq
 * Generated by freq_table script
 *
 
-
-
 FREQHIGH
           DB >72
           DB >73

mainmem.mock.s

@@ -0,0 +1,43 @@
+* MAINMEM.MOCK.S
+* (c) Bobbi 2022 GPLv3
+*
+* Mockingboard Driver.
+*
+
+* Mockingboard control registers
+
+* Initialize Mockingboard
+MOCKINIT                                    ; TODO
+            RTS
+
+
+* Silence all channels
+MOCKSILENT                                  ; TODO
+            RTS
+
+
+* Configure a Mockingboard oscillator to play a note
+* On entry: X - oscillator number 0-3 , A - frequency, Y - amplitude
+* Preserves all registers
+MOCKNOTE                                    ; TODO
+            RTS
+
+
+* Adjust frequency of note already playing
+* On entry: Y - frequency to set
+* Preserves X & Y
+MOCKFREQ                                    ; TODO
+            RTS
+
+
+* Adjust amplitude of note already playing
+* On entry: Y - amplitude to set
+* Preserves X & Y
+MOCKAMP     PHX
+            PHY                             ; Gonna need it again
+                                            ; TODO
+            PLY
+            PLX
+            RTS
+
+