mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-04 08:29:30 +00:00
mode7: unoptimize the mockingboard playing
This commit is contained in:
parent
61e4ae51e3
commit
d5686d153f
|
@ -53,49 +53,74 @@ mb_play_music:
|
|||
mb_write_frame:
|
||||
|
||||
|
||||
ldx #0 ; set up reg count ; 2
|
||||
;============
|
||||
; 2
|
||||
|
||||
|
||||
;==================================
|
||||
; loop through the 11 registers
|
||||
; reading the value, then write out
|
||||
;==================================
|
||||
ldx #0 ; set up reg count ; 2
|
||||
|
||||
mb_write_loop:
|
||||
mb_write_loop_left:
|
||||
lda REGISTER_DUMP,X ; load register value ; 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
|
||||
|
||||
; address
|
||||
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
|
||||
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
|
||||
sta MOCK_6522_ORB1 ; 4
|
||||
sta MOCK_6522_ORB2 ; 4
|
||||
|
||||
; value
|
||||
lda REGISTER_DUMP,X ; load register value ; 4
|
||||
sta MOCK_6522_ORA1 ; put value on PA1 ; 4
|
||||
sta MOCK_6522_ORA2 ; put value on PA2 ; 4
|
||||
lda #MOCK_AY_WRITE ; ; 2
|
||||
sta MOCK_6522_ORB1 ; write on PB1 ; 4
|
||||
sta MOCK_6522_ORB2 ; write on PB2 ; 4
|
||||
lda #MOCK_AY_INACTIVE ; go inactive ; 2
|
||||
sta MOCK_6522_ORB1 ; 4
|
||||
|
||||
;===========
|
||||
; 36
|
||||
mb_no_write_left:
|
||||
inx ; point to next register ; 2
|
||||
cpx #11 ; if 11 we're done ; 2
|
||||
bmi mb_write_loop_left ; otherwise, loop ; 3/2nt
|
||||
;============
|
||||
; 7
|
||||
|
||||
ldx #0 ; set up reg count ; 2
|
||||
mb_write_loop_right:
|
||||
lda REGISTER_DUMP,X ; load register value ; 4
|
||||
cmp REGISTER_OLD,X ; compare with old values ; 4
|
||||
beq mb_no_write_right ; 3/2nt
|
||||
;=============
|
||||
; typ 11
|
||||
|
||||
; 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
|
||||
|
||||
; value
|
||||
lda REGISTER_DUMP,X ; load register value ; 4
|
||||
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
|
||||
|
||||
;===========
|
||||
; 62
|
||||
mb_no_write:
|
||||
; 36
|
||||
mb_no_write_right:
|
||||
inx ; point to next register ; 2
|
||||
cpx #11 ; if 11 we're done ; 2
|
||||
bmi mb_write_loop ; otherwise, loop ; 3/2nt
|
||||
bmi mb_write_loop_right ; otherwise, loop ; 3/2nt
|
||||
;============
|
||||
; 7
|
||||
|
||||
|
|
|
@ -29,3 +29,15 @@
|
|||
; Note: each byte, values stored LSB first (legend says woz saved 2 chips)
|
||||
|
||||
; $2000, $2400, $2800, $2C00, $3000, $3400, $3800, $3C00
|
||||
|
||||
XXX X X XX XX X X XXX XXX XXX XX X X XXX XXX XXX XXX XXX
|
||||
XXX X X X X X X X X XXX X X X X X X X X X X X X X X
|
||||
X X X X X XX XX X X XXX XX XXX XXX X XXX XXX X X
|
||||
0 ! 2 ! 4 ! 6 ! 7 ! 10 ! 12 ! 14 ! 16 !
|
||||
|
||||
* 11 11 11 0 * 0 00 11 00 * 11 00 11 1 * 1 00 11 11 *
|
||||
* 11 11 11 0 * 0 00 11 00 * 11 00 11 0 * 0 11 00 11 *
|
||||
* 11 00 11 0 * 0 00 00 11 * 00 00 11 0 * 0 00 00 11 *
|
||||
.byte $bf,$98,
|
||||
.byte $bf,$98
|
||||
.byte $b3,$e0
|
||||
|
|
Loading…
Reference in New Issue
Block a user