mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 08:54:51 +00:00
sa: add 4-channel KR4 file
This commit is contained in:
parent
59a26997d0
commit
2385c53473
@ -24,13 +24,13 @@ initial 40 col support: 18864
|
|||||||
have art loading properly 40col: 18910
|
have art loading properly 40col: 18910
|
||||||
lz4 encode the ascii art: 15529
|
lz4 encode the ascii art: 15529
|
||||||
revert because lz4 code not re-entrant: 18910
|
revert because lz4 code not re-entrant: 18910
|
||||||
|
add 4-channel music (KR4): 20128
|
||||||
|
|
||||||
|
|
||||||
Memory Map
|
Memory Map
|
||||||
|
|
||||||
|
|
||||||
Lowmem: 4k
|
Lowmem: 4k
|
||||||
Code: 16k (8k=audio, 5k=lyrics, 3k=art)
|
Code: 20k (8k=audio, 5k=lyrics, 3k=art)
|
||||||
Sound buffers: 14k
|
Sound buffers: 14k
|
||||||
Sound buffer2: 14k?
|
|
||||||
|
BIN
still_alive/SA.KR4
Normal file
BIN
still_alive/SA.KR4
Normal file
Binary file not shown.
@ -1,6 +1,6 @@
|
|||||||
;================================
|
;================================
|
||||||
;================================
|
;================================
|
||||||
; mockingboard interrupt handler
|
; mockingboard KR4 interrupt handler
|
||||||
;================================
|
;================================
|
||||||
;================================
|
;================================
|
||||||
; On Apple II/6502 the interrupt handler jumps to address in 0xfffe
|
; On Apple II/6502 the interrupt handler jumps to address in 0xfffe
|
||||||
@ -45,57 +45,57 @@ mb_write_frame:
|
|||||||
; loop through the 14 registers
|
; loop through the 14 registers
|
||||||
; reading the value, then write out
|
; reading the value, then write out
|
||||||
;==================================
|
;==================================
|
||||||
; inlined "write_ay_both" to save up to 156 (12*13) cycles
|
|
||||||
; unrolled
|
; This is actually a KRW4 player
|
||||||
|
; plays 4 channels, right is 123, left is 143
|
||||||
|
; used for converted MOD files
|
||||||
|
; To save space also no envelope support
|
||||||
|
|
||||||
mb_write_loop:
|
mb_write_loop:
|
||||||
lda REGISTER_DUMP,X ; load register value ; 4
|
lda REGISTER_DUMP,X ; load register value ; 4
|
||||||
cmp REGISTER_OLD,X ; compare with old values ; 4
|
cmp REGISTER_OLD,X ; compare with old values ; 4
|
||||||
beq mb_no_write ; 3/2nt
|
beq mb_no_write_left ; 3/2nt
|
||||||
;=============
|
|
||||||
; typ 11
|
|
||||||
|
|
||||||
; special case R13. If it is 0xff, then don't update
|
|
||||||
; otherwise might spuriously reset the envelope settings
|
|
||||||
|
|
||||||
cpx #13 ; 2
|
|
||||||
bne mb_not_13 ; 3/2nt
|
|
||||||
cmp #$ff ; 2
|
|
||||||
beq mb_skip_13 ; 3/2nt
|
|
||||||
;============
|
|
||||||
; typ 5
|
|
||||||
mb_not_13:
|
|
||||||
|
|
||||||
; address
|
; address
|
||||||
stx MOCK_6522_ORA1 ; put address on PA1 ; 4
|
stx MOCK_6522_ORA1 ; put address on PA1 ; 4
|
||||||
stx MOCK_6522_ORA2 ; put address on PA2 ; 4
|
|
||||||
lda #MOCK_AY_LATCH_ADDR ; latch_address for PB1 ; 2
|
lda #MOCK_AY_LATCH_ADDR ; latch_address for PB1 ; 2
|
||||||
sta MOCK_6522_ORB1 ; latch_address on PB1 ; 4
|
sta MOCK_6522_ORB1 ; latch_address on PB1 ; 4
|
||||||
sta MOCK_6522_ORB2 ; latch_address on PB2 ; 4
|
|
||||||
lda #MOCK_AY_INACTIVE ; go inactive ; 2
|
lda #MOCK_AY_INACTIVE ; go inactive ; 2
|
||||||
sta MOCK_6522_ORB1 ; 4
|
sta MOCK_6522_ORB1 ; 4
|
||||||
sta MOCK_6522_ORB2 ; 4
|
|
||||||
|
|
||||||
; value
|
; value
|
||||||
lda REGISTER_DUMP,X ; load register value ; 4
|
lda REGISTER_DUMP,X ; load register value ; 4
|
||||||
sta MOCK_6522_ORA1 ; put value on PA1 ; 4
|
sta MOCK_6522_ORA1 ; put value on PA1 ; 4
|
||||||
sta MOCK_6522_ORA2 ; put value on PA2 ; 4
|
|
||||||
lda #MOCK_AY_WRITE ; ; 2
|
lda #MOCK_AY_WRITE ; ; 2
|
||||||
sta MOCK_6522_ORB1 ; write on PB1 ; 4
|
sta MOCK_6522_ORB1 ; write on PB1 ; 4
|
||||||
sta MOCK_6522_ORB2 ; write on PB2 ; 4
|
|
||||||
lda #MOCK_AY_INACTIVE ; go inactive ; 2
|
lda #MOCK_AY_INACTIVE ; go inactive ; 2
|
||||||
sta MOCK_6522_ORB1 ; 4
|
sta MOCK_6522_ORB1 ; 4
|
||||||
|
|
||||||
|
mb_no_write_left:
|
||||||
|
|
||||||
|
lda REGISTER_DUMP2,X; load register value ; 4
|
||||||
|
cmp REGISTER_OLD2,X ; compare with old values ; 4
|
||||||
|
beq mb_no_write_right ; 3/2nt
|
||||||
|
|
||||||
|
; address
|
||||||
|
stx MOCK_6522_ORA2 ; put address on PA2 ; 4
|
||||||
|
lda #MOCK_AY_LATCH_ADDR ; latch_address for PB1 ; 2
|
||||||
|
sta MOCK_6522_ORB2 ; latch_address on PB2 ; 4
|
||||||
|
lda #MOCK_AY_INACTIVE ; go inactive ; 2
|
||||||
sta MOCK_6522_ORB2 ; 4
|
sta MOCK_6522_ORB2 ; 4
|
||||||
|
|
||||||
;===========
|
; value
|
||||||
; 62
|
lda REGISTER_DUMP2,X ; load register value ; 4
|
||||||
mb_no_write:
|
sta MOCK_6522_ORA2 ; put value on PA2 ; 4
|
||||||
|
lda #MOCK_AY_WRITE ; ; 2
|
||||||
|
sta MOCK_6522_ORB2 ; write on PB2 ; 4
|
||||||
|
lda #MOCK_AY_INACTIVE ; go inactive ; 2
|
||||||
|
sta MOCK_6522_ORB2 ; 4
|
||||||
|
|
||||||
|
mb_no_write_right:
|
||||||
inx ; point to next register ; 2
|
inx ; point to next register ; 2
|
||||||
cpx #14 ; if 14 we're done ; 2
|
cpx #12 ; if 14 we're done ; 2
|
||||||
bmi mb_write_loop ; otherwise, loop ; 3/2nt
|
bmi mb_write_loop ; otherwise, loop ; 3/2nt
|
||||||
;============
|
|
||||||
; 7
|
|
||||||
mb_skip_13:
|
|
||||||
|
|
||||||
|
|
||||||
;=====================================
|
;=====================================
|
||||||
@ -105,10 +105,10 @@ mb_skip_13:
|
|||||||
mb_reg_copy:
|
mb_reg_copy:
|
||||||
lda REGISTER_DUMP,X ; load register value ; 4
|
lda REGISTER_DUMP,X ; load register value ; 4
|
||||||
sta REGISTER_OLD,X ; compare with old values ; 4
|
sta REGISTER_OLD,X ; compare with old values ; 4
|
||||||
|
lda REGISTER_DUMP2,X; load register value ; 4
|
||||||
|
sta REGISTER_OLD2,X ; compare with old values ; 4
|
||||||
dex ; 2
|
dex ; 2
|
||||||
bpl mb_reg_copy ; 2nt/3
|
bpl mb_reg_copy ; 2nt/3
|
||||||
;=============
|
|
||||||
; 171
|
|
||||||
|
|
||||||
;===================================
|
;===================================
|
||||||
; Load all 14 registers in advance
|
; Load all 14 registers in advance
|
||||||
@ -125,9 +125,29 @@ mb_load_values:
|
|||||||
|
|
||||||
mb_load_loop:
|
mb_load_loop:
|
||||||
lda (INL),y ; load register value ; 5
|
lda (INL),y ; load register value ; 5
|
||||||
|
|
||||||
|
cpx #11
|
||||||
|
bne mb_load12
|
||||||
|
mb_load11:
|
||||||
|
sta REGISTER_DUMP2+2
|
||||||
|
jmp mb_done_load
|
||||||
|
mb_load12:
|
||||||
|
cpx #12
|
||||||
|
bne mb_load13
|
||||||
|
sta REGISTER_DUMP2+3
|
||||||
|
jmp mb_done_load
|
||||||
|
mb_load13:
|
||||||
|
cpx #12
|
||||||
|
bne mb_regular_load
|
||||||
|
sta REGISTER_DUMP2+9
|
||||||
|
jmp mb_done_load
|
||||||
|
mb_regular_load:
|
||||||
sta REGISTER_DUMP,X ; 4
|
sta REGISTER_DUMP,X ; 4
|
||||||
;============
|
sta REGISTER_DUMP2,X
|
||||||
; 9
|
|
||||||
|
mb_done_load:
|
||||||
|
|
||||||
|
|
||||||
;====================
|
;====================
|
||||||
; point to next page
|
; point to next page
|
||||||
;====================
|
;====================
|
||||||
@ -340,3 +360,6 @@ exit_interrupt:
|
|||||||
|
|
||||||
REGISTER_OLD:
|
REGISTER_OLD:
|
||||||
.byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
.byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||||
|
|
||||||
|
REGISTER_OLD2:
|
||||||
|
.byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
||||||
|
@ -354,5 +354,5 @@ lyrics:
|
|||||||
.include "ascii_art.inc"
|
.include "ascii_art.inc"
|
||||||
|
|
||||||
LZ4_BUFFER:
|
LZ4_BUFFER:
|
||||||
.incbin "SA.KRW"
|
.incbin "SA.KR4"
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user