dos33fsprogs/demosplash/pt3_lib_play_frame.s
2019-11-08 13:28:14 -05:00

302 lines
5.9 KiB
ArmAsm

; ZZ points to offset from pointer
;D000 ;0 $9000,$9100,$9200 = A Low (reg0)
;D100 ;1 $9300,$9400,$9500 = A high (reg1) [top], B high (reg3) [bottom]
;D200 ;2 $9600,$9700,$9800 = B Low (reg2)
;D300 ;3 $9900,$9A00,$9B00 = C Low (reg4)
;D400 ;4 $9C00,$9D00,$9E00 = Envelope Shape (r13) [top], C high (reg5) [bot]
;D500 ;5 $9F00,$A000,$A100 = Noise (r6), bit7 = don't change envelope
;D600 ;6 $A200,$A300,$A400 = Enable (r7)
;D700 ;7 $A500,$A600,$A700 = A amp (r8), bit 5 of r8,r9,r10
;D800 ;8 $A800,$A900,$AA00 = C amp (r10) [top], B amp (r9) [bottom]
;D900 ;9 $AB00,$AC00,$AD00 = ENV low (r11)
;DA00 ;a $AE00,$AF00,$B000 = ENV high (r12)
; 3+ 72 + 72 + 83 + 74 + 72 + 77 + 19 + 70 + 74 + 72 +
; 77 + 18 + 82 + 85 + 72 + 72 + 10 + 127 + 6 = 1237 /////1180
play_frame_compressed:
ldy FRAME_PLAY_OFFSET ; 3
; Register 0: A fine
ldx #0 ; 2
r0_smc:
lda $D000,Y ; 4+
jsr play_mb_write ; 6+60
;======
; 72
; Register 2: B fine
ldx #2 ; 2
r2_smc:
lda $D200,Y ; 4+
jsr play_mb_write ; 6+60
;======
; 72
; Register 1: A coarse
ldx #1 ; 2
r1_smc:
lda $D100,Y ; 4+
pha ; 3
lsr ; 2
lsr ; 2
lsr ; 2
lsr ; 2
jsr play_mb_write ; 6+60
;======
; 83
; Register 3: B low
ldx #3 ; 2
pla ; 4
and #$f ; 2
jsr play_mb_write ; 6+60
;======
; 74
; Register 4: C fine
ldx #4 ; 2
r4_smc:
lda $D300,Y ; 4+
jsr play_mb_write ; 6+60
;=======
; 72
; Register 5: C coarse
ldx #5 ; 2
r5_smc:
lda $D400,Y ; 4+
pha ; 3
and #$f ; 2
jsr play_mb_write ; 6+60
;========
; 77
; Register 13: E type
pla ; 4
lsr ; 2
lsr ; 2
lsr ; 2
lsr ; 2
r13_smc:
ldx $D500,Y ; check for env update ; 4
bmi skip_envelope_write ; 3
;============
; 19
; -1
ldx #13 ; 2
jsr play_mb_write ; 6+60
jmp done_envelope_write ; 3
;=====
; 70
skip_envelope_write:
; KILL CYCLES... Need to kill 70
; delay 25+a (so 70-2-25=43)
lda #43 ; 2
jsr delay_a ; 25+43
;======
; 70
done_envelope_write:
; Register 6: Noise
ldx #6 ; 2
r6_smc:
lda $D500,Y ; 4+
and #$1f ; 2
jsr play_mb_write ; 6+60
;=======
; 74
; Register 7: Enable
ldx #7 ; 2
r7_smc:
lda $D600,Y ; 4+
jsr play_mb_write ; 6+60
;========
; 72
; Register 8: a-amp
ldx #8 ; 2
r8_smc:
lda $D700,Y ; 4+
pha ; 3
and #$1f ; 2
jsr play_mb_write ; 6+60
;=======
; 77
pla ; 4
and #$e0 ; 2
lsr ; 2
sta AY_WRITE_TEMP ; 3
lsr ; 2
and #$10 ; 2
sta AY_WRITE_TEMP2 ; 3
;====
; 18
; Register 9: b-amp (bottom)
ldx #9 ; 2
r9_smc:
lda $D800,Y ; 4+
pha ; 3
and #$f ; 2
ora AY_WRITE_TEMP ; 3
and #$1f ; 2
jsr play_mb_write ; 6+60
;=======
; 82
; Register 10: c-amp (top)
ldx #10 ; 2
pla ; 4
lsr ; 2
lsr ; 2
lsr ; 2
lsr ; 2
ora AY_WRITE_TEMP2 ; 3
and #$1f ; 2
jsr play_mb_write ; 6+60
;======
; 85
; Register 11: E fine
ldx #11 ; 2
r11_smc:
lda $D900,Y ; 4+
jsr play_mb_write ; 6+60
;======
; 72
; Register 12: E coarse
ldx #12 ; 2
r12_smc:
lda $DA00,Y ; 4+
jsr play_mb_write ; 6+60
;======
; 72
; incrememnt offset
; wrap to next
iny ; 2
sty FRAME_PLAY_OFFSET ; 3
cpy #59*3 ; FIXME: song specific ; 2
beq frame_wrap ; 3
;==========
; 10
no_frame_wrap:
; -1
; delay 127+1-3=125
lda #98 ; 2
jsr delay_a ; 125-2-25=98
jmp done_frame_wrap ; 3
frame_wrap:
lda #0 ; 2
sta FRAME_PLAY_OFFSET ; 3
inc FRAME_PLAY_PAGE ; 5
jsr update_pt3_play ; 6+111
;=====
; 127
done_frame_wrap:
rts ; 6
;========================
; 28+26+6= 60
; trashes A,X
play_mb_write:
; address
stx MOCK_6522_ORA1 ; put address on PA1 ; 4
stx MOCK_6522_ORA2 ; put address on PA2 ; 4
ldx #MOCK_AY_LATCH_ADDR ; latch_address for PB1 ; 2
stx MOCK_6522_ORB1 ; latch_address on PB1 ; 4
stx MOCK_6522_ORB2 ; latch_address on PB2 ; 4
ldx #MOCK_AY_INACTIVE ; go inactive ; 2
stx MOCK_6522_ORB1 ; 4
stx MOCK_6522_ORB2 ; 4
;===========
; 28
; value
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
stx MOCK_6522_ORB1 ; 4
stx MOCK_6522_ORB2 ; 4
;===========
; 26
rts ; 6
;===========================
; update the SMC counters
; 13+92+6=111
update_pt3_play:
lda FRAME_PLAY_PAGE ; 3
asl ; 2
asl ; 2
asl ; 2
asl ; 2
tay ; 2
;===
; 13
lda music_addr_table+0,Y ; 4
sta r0_smc+2 ; 4 ; D0
lda music_addr_table+1,Y ; 4
sta r1_smc+2 ; 4 ; D1
lda music_addr_table+2,Y ; 4
sta r2_smc+2 ; 4 ; D2
lda music_addr_table+3,Y ; 4
sta r4_smc+2 ; 4 ; D3
lda music_addr_table+5,Y ; 4
sta r5_smc+2 ; 4 ; D4
lda music_addr_table+4,Y ; 4 ; D5
sta r6_smc+2 ; 4
sta r13_smc+2 ; 4 ; D5
lda music_addr_table+6,Y ; 4 ; D6
sta r7_smc+2 ; 4
lda music_addr_table+7,Y ; 4 ; D7
sta r8_smc+2 ; 4
lda music_addr_table+8,Y ; 4 ; D8
sta r9_smc+2 ; 4
lda music_addr_table+9,Y ; 4 ; D9
sta r11_smc+2 ; 4
lda music_addr_table+10,Y ; 4 ; DA
sta r12_smc+2 ; 4
;==========
; 11*8+4 = 92
rts ; 6