Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-01-01 09:32:09 +00:00
Code Issues Projects Releases Wiki Activity

Some draft Mockingboard code - not complete.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-11-17 22:26:46 -05:00
parent 05b98edbc1
commit 1afcae2025
4 changed files with 111 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

5
mainmem.audio.s
View File

@ -372,9 +372,8 @@ CHORD PHA
:CNT DB $00 ; Counter
* Called from Ensoniq interrupt handler - process audio queue
* Should be called at 100Hz
ENSQISR INC SYSCLOCK+0 ; Increment system clock
* Called at 100Hz. Process audio queue.
AUDIOISR INC SYSCLOCK+0 ; Increment system clock
BNE :S1
INC SYSCLOCK+1
BNE :S1

4
mainmem.ensq.s
View File

@ -154,6 +154,10 @@ ENSQAMP PHX
PLX
RTS
* Ensoniq interrupt service routine - just calls generic audio ISR
ENSQISR JMP AUDIOISR
**
** Private functions follow (ie: not part of driver API)
**

108
mainmem.mock.s
View File

@ -4,15 +4,85 @@
* Mockingboard Driver.
*
*
* I borrowed some ideas from Deater:
* https://github.com/deater/dos33fsprogs/blob/master/music/pt3_lib/pt3_lib_mockingboard_setup.s
*
* Mockingboard control registers
* ASSUMES SLOT 4
MOCK_6522_ORB1 EQU $C400 ; 6522 #1 port b data
MOCK_6522_ORA1 EQU $C401 ; 6522 #1 port a data
MOCK_6522_DDRB1 EQU $C402 ; 6522 #1 data direction port B
MOCK_6522_DDRA1 EQU $C403 ; 6522 #1 data direction port A
MOCK_6522_T1CL EQU $C404 ; 6522 #1 t1 low order latches
MOCK_6522_T1CH EQU $C405 ; 6522 #1 t1 high order counter
MOCK_6522_T1LL EQU $C406 ; 6522 #1 t1 low order latches
MOCK_6522_T1LH EQU $C407 ; 6522 #1 t1 high order latches
MOCK_6522_T2CL EQU $C408 ; 6522 #1 t2 low order latches
MOCK_6522_T2CH EQU $C409 ; 6522 #1 t2 high order counters
MOCK_6522_SR EQU $C40A ; 6522 #1 shift register
MOCK_6522_ACR EQU $C40B ; 6522 #1 auxilliary control register
MOCK_6522_PCR EQU $C40C ; 6522 #1 peripheral control register
MOCK_6522_IFR EQU $C40D ; 6522 #1 interrupt flag register
MOCK_6522_IER EQU $C40E ; 6522 #1 interrupt enable register
MOCK_6522_ORANH EQU $C40F ; 6522 #1 port a data no handshake
MOCK_6522_ORB2 EQU $C480 ; 6522 #2 port b data
MOCK_6522_ORA2 EQU $C481 ; 6522 #2 port a data
MOCK_6522_DDRB2 EQU $C482 ; 6522 #2 data direction port B
MOCK_6522_DDRA2 EQU $C483 ; 6522 #2 data direction port A
; AY-3-8910 commands on port B
MOCK_AY_RESET EQU $0
MOCK_AY_INACTIVE EQU $4
MOCK_AY_READ EQU $5
MOCK_AY_WRITE EQU $6
MOCK_AY_LATCH_ADDR EQU $7
* Initialize Mockingboard
MOCKINIT ; TODO
RTS
MOCKINIT LDA #$FF ; All VIA pins output
STA MOCK_6522_DDRB1
STA MOCK_6522_DDRA1
STA MOCK_6522_DDRB2
STA MOCK_6522_DDRA2
LDA #MOCK_AY_RESET ; Reset left AY-3
STA MOCK_6522_ORB1
LDA #MOCK_AY_INACTIVE
STA MOCK_6522_ORB1
LDA #MOCK_AY_RESET ; Reset right AY-3
STA MOCK_6522_ORB2
LDA #MOCK_AY_INACTIVE
STA MOCK_6522_ORB2
LDA #<MOCKISR ; Setup interrupt handler
STA A2IRQV+0 ; TODO: Should chain existing handler
LDA #>MOCKISR
STA A2IRQV+1
PHP
SEI
LDA #$40 ; Configure VIA interrupt
STA MOCK_6522_ACR
LDA #$7F
STA MOCK_6522_IER
LDA #$C0
STA MOCK_6522_IFR
STA MOCK_6522_IER
LDA #$F4 ; $27F4 => 100Hz
STA MOCK_6522_T1CL
LDA #$27
STA MOCK_6522_T1CH
PLP
* Silence all channels
MOCKSILENT ; TODO
MOCKSILENT LDX #13 ; Clear all 14 AY-3 regs
LDA #$00
:L0 JSR MOCKWRT
DEX
BPL :L0
RTS
@ -41,3 +111,35 @@ MOCKAMP PHX
RTS
* Mockingboard interrupt service routine - just calls generic audio ISR
MOCKISR JMP AUDIOISR
**
** Private functions follow (ie: not part of driver API)
**
* Write to both AY-3s
* On entry: A - value, X - register
* On exit: A and X unchanged, Y trashed.
MOCKWRT STX MOCK_6522_ORA1 ; Latch the address
STX MOCK_6522_ORA2
LDY #MOCK_AY_LATCH_ADDR
STY MOCK_6522_ORB1
STY MOCK_6522_ORB2
LDY #MOCK_AY_INACTIVE ; Go inactive
STY MOCK_6522_ORB1
STY MOCK_6522_ORB2
STA MOCK_6522_ORA1 ; Write data
STA MOCK_6522_ORA2
LDY #MOCK_AY_WRITE
STY MOCK_6522_ORB1
STY MOCK_6522_ORB2
LDY #MOCK_AY_INACTIVE ; Go inactive
STY MOCK_6522_ORB1
STY MOCK_6522_ORB2
RTS