mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-09-27 00:55:55 +00:00
Enable Ensoniq if machine is a GS.
This commit is contained in:
parent
3bc68390fd
commit
cf2cb41deb
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user