Enable Ensoniq if machine is a GS.

2024-06-06 07:29:31 +00:00 · 2022-10-14 00:47:42 -04:00 · 2022-10-14 00:47:42 -04:00 · cf2cb41deb
commit cf2cb41deb
parent 3bc68390fd
3 changed files with 8 additions and 3 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/applecorn.s
+++ b/applecorn.s
@ -18,6 +18,7 @@ BELL        EQU   $FBDD
 PRBYTE      EQU   $FDDA
 COUT1       EQU   $FDED
 CROUT       EQU   $FD8E
+IDROUTINE   EQU   $FE1F
 HOME        EQU   $FC58
 AUXMOVE     EQU   $C311
 XFER        EQU   $C314
--- a/mainmem.ldr.s
+++ b/mainmem.ldr.s
@ -110,9 +110,13 @@ DISCONN     LDA   MACHID
            LDA   DEVADR01+1
            STA   DEVADR32+1
            DEC   DEVCNT
-:S1
-*            JSR   ENSQINIT          ; INITIALIZE ENSONIQ
-            JSR   ROMMENU           ; This really needs to happen elsewhere
+
+:S1         SEC
+            JSR   IDROUTINE         ; See if we have a GS
+            BCS   :NOTGS
+            JSR   ENSQINIT          ; Initialize Ensoniq
+
+:NOTGS      JSR   ROMMENU           ; This really needs to happen elsewhere

            LDA   #<:FDFILE
            STA   OPENPL+1