Apple-2-SW
/
Applecorn
mirror of https://github.com/bobbimanners/Applecorn.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Reverted early audio tinkering in main. (See 'ensoniq' for that).

This commit is contained in:
Bobbi Webber-Manners 2022-10-04 20:49:02 -04:00
parent 75e0df40ea
commit 73a21d628b
5 changed files with 6 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

1
applecorn.s
View File

@ -198,7 +198,6 @@ MAINZP MAC
PUT AUXMEM.BYTWRD
PUT AUXMEM.CHARIO
PUT AUXMEM.MISC
PUT AUXMEM.AUDIO
* Automatically save the object file:
SAV APPLECORN

4
auxmem.bytwrd.s
View File

@ -94,8 +94,8 @@ OSWBASE DW WORD00 ; OSWORD 0 - Read input line
DW WORD04 ; OSWORD 4 - Write interval timer
DW WORD05 ; OSWORD 5 - Read I/O memory
DW WORD06 ; OSWORD 6 - Write I/O memory
DW WORD07 ; OSWORD 7 - SOUND
DW WORD08 ; OSWORD 8 - ENVELOPE
* DW WORD07 ; OSWORD 7 - SOUND
* DW WORD08 ; OSWORD 8 - ENVELOPE
* DW WORD09 ; OSWORD 9 - POINT
* DW WORD0A ; OSWORD 10 - Read character bitmap
* DW WORD0B ; OSWORD 11 - Read palette

10
auxmem.init.s
View File

@ -126,16 +126,6 @@ MOSHIGH SEI ; Disable IRQ while initializing
DEX
BPL :INITPG2
LDX #3
LDA #$80 ; Initialize sound queues
:INITSND STA SND0EMPTY,X
STZ SND0STARTIDX,X
STZ SND0ENDIDX,X
DEX
BNE :INITSND
JSR ENSQINIT ; Initialize Ensoniq DOC
LDA $C036 ; GS speed register
AND #$80 ; Speed bit only
STA GSSPEED ; In Alt LC for IRQ/BRK hdlr

21
auxmem.mosequ.s
View File

@ -68,23 +68,6 @@ FINDV EQU $21C ; OSFIND vector
FSCV EQU $21E ; FSCV misc file ops
BYTEVARBASE EQU $190 ; Base of OSBYTE variables
EMPTYFLAGS EQU $2CF
SND0EMPTY EQU $2D3 ; Empty flag for sound bufs
SND1EMPTY EQU $2D4
SND2EMPTY EQU $2D5
SND3EMPTY EQU $2D6
STARTINDICES EQU $2D8
SND0STARTIDX EQU $2DC ; Start index for sound bufs
SND1STARTIDX EQU $2DD
SND2STARTIDX EQU $2DE
SND3STARTIDX EQU $2DF
ENDINDICES EQU $2E1
SND0ENDIDX EQU $2E5 ; End index for sound bufs
SND1ENDIDX EQU $2E6
SND2ENDIDX EQU $2E7
SND3ENDIDX EQU $2E8
OSFILECB EQU $2EE ; OSFILE control block
OSGBPBCB EQU OSFILECB+1 ; OSGBPB control block
@ -93,3 +76,7 @@ OSGBPBCB EQU OSFILECB+1 ; OSGBPB control block
* $03E0-$03FF Used for interfacing with ProDOS XFER