diff --git a/pt3_player/interrupt_handler.s b/pt3_player/interrupt_handler.s index 65bf0d91..6255e61f 100644 --- a/pt3_player/interrupt_handler.s +++ b/pt3_player/interrupt_handler.s @@ -78,7 +78,7 @@ mb_write_frame: ;================================== mb_write_loop: - lda REGISTER_DUMP,X ; load register value ; 4 + lda AY_REGISTERS,X ; load register value ; 4 ; special case R13. If it is 0xff, then don't update ; otherwise might spuriously reset the envelope settings @@ -103,7 +103,7 @@ mb_not_13: sta MOCK_6522_ORB2 ; 4 ; value - lda REGISTER_DUMP,X ; load register value ; 4 + lda AY_REGISTERS,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 @@ -292,7 +292,7 @@ quiet_exit: jsr clear_ay_both lda #$ff ; also mute the channel - sta REGISTER_DUMP+7 ; just in case + sta AY_REGISTERS+7 ; just in case exit_interrupt: diff --git a/pt3_player/pt3_dumper.s b/pt3_player/pt3_dumper.s index 905c3542..5c0da4b0 100644 --- a/pt3_player/pt3_dumper.s +++ b/pt3_player/pt3_dumper.s @@ -65,9 +65,9 @@ main_loop: jsr COUT lda #':'+$80 jsr COUT - lda REGISTER_DUMP+1 + lda AY_REGISTERS+1 jsr PRBYTE - lda REGISTER_DUMP+0 + lda AY_REGISTERS+0 jsr PRBYTE lda #' '+$80 jsr COUT @@ -77,9 +77,9 @@ main_loop: jsr COUT lda #':'+$80 jsr COUT - lda REGISTER_DUMP+3 + lda AY_REGISTERS+3 jsr PRBYTE - lda REGISTER_DUMP+2 + lda AY_REGISTERS+2 jsr PRBYTE lda #' '+$80 jsr COUT @@ -89,9 +89,9 @@ main_loop: jsr COUT lda #':'+$80 jsr COUT - lda REGISTER_DUMP+5 + lda AY_REGISTERS+5 jsr PRBYTE - lda REGISTER_DUMP+4 + lda AY_REGISTERS+4 jsr PRBYTE lda #' '+$80 jsr COUT @@ -101,7 +101,7 @@ main_loop: jsr COUT lda #':'+$80 jsr COUT - lda REGISTER_DUMP+6 + lda AY_REGISTERS+6 jsr PRBYTE lda #' '+$80 jsr COUT @@ -111,7 +111,7 @@ main_loop: jsr COUT lda #':'+$80 jsr COUT - lda REGISTER_DUMP+7 + lda AY_REGISTERS+7 jsr PRBYTE lda #' '+$80 jsr COUT @@ -130,7 +130,7 @@ six_space: jsr COUT lda #':'+$80 jsr COUT - lda REGISTER_DUMP+8 + lda AY_REGISTERS+8 jsr PRBYTE lda #' '+$80 jsr COUT @@ -144,7 +144,7 @@ six_space: jsr COUT lda #':'+$80 jsr COUT - lda REGISTER_DUMP+9 + lda AY_REGISTERS+9 jsr PRBYTE lda #' '+$80 jsr COUT @@ -158,7 +158,7 @@ six_space: jsr COUT lda #':'+$80 jsr COUT - lda REGISTER_DUMP+10 + lda AY_REGISTERS+10 jsr PRBYTE lda #' '+$80 jsr COUT @@ -172,15 +172,15 @@ six_space: jsr COUT lda #':'+$80 jsr COUT - lda REGISTER_DUMP+12 + lda AY_REGISTERS+12 jsr PRBYTE - lda REGISTER_DUMP+11 + lda AY_REGISTERS+11 jsr PRBYTE ; Envelope type lda #','+$80 jsr COUT - lda REGISTER_DUMP+13 + lda AY_REGISTERS+13 jsr PRBYTE jsr CROUT1 diff --git a/pt3_player/pt3_lib.s b/pt3_player/pt3_lib.s index 4a6d27e2..71ceb896 100644 --- a/pt3_player/pt3_lib.s +++ b/pt3_player/pt3_lib.s @@ -1806,9 +1806,9 @@ do_frame: ; Load up the Frequency Registers lda note_a+NOTE_TONE_L ; Note A Period L - sta REGISTER_DUMP+0 ; into R0 + sta AY_REGISTERS+0 ; into R0 lda note_a+NOTE_TONE_H ; Note A Period H - sta REGISTER_DUMP+1 ; into R1 + sta AY_REGISTERS+1 ; into R1 lda convert_177 beq no_scale_a @@ -1816,41 +1816,41 @@ do_frame: ; Convert from 1.77MHz to 1MHz by multiplying by 9/16 ; first multiply by 8 - asl REGISTER_DUMP+0 - rol REGISTER_DUMP+1 - asl REGISTER_DUMP+0 - rol REGISTER_DUMP+1 - asl REGISTER_DUMP+0 - rol REGISTER_DUMP+1 + asl AY_REGISTERS+0 + rol AY_REGISTERS+1 + asl AY_REGISTERS+0 + rol AY_REGISTERS+1 + asl AY_REGISTERS+0 + rol AY_REGISTERS+1 ; add in original to get 9 clc lda note_a+NOTE_TONE_L - adc REGISTER_DUMP+0 - sta REGISTER_DUMP+0 + adc AY_REGISTERS+0 + sta AY_REGISTERS+0 lda note_a+NOTE_TONE_H - adc REGISTER_DUMP+1 - sta REGISTER_DUMP+1 + adc AY_REGISTERS+1 + sta AY_REGISTERS+1 ; divide by 16 to get proper value - ror REGISTER_DUMP+1 - ror REGISTER_DUMP+0 - ror REGISTER_DUMP+1 - ror REGISTER_DUMP+0 - ror REGISTER_DUMP+1 - ror REGISTER_DUMP+0 - ror REGISTER_DUMP+1 - ror REGISTER_DUMP+0 - lda REGISTER_DUMP+1 + ror AY_REGISTERS+1 + ror AY_REGISTERS+0 + ror AY_REGISTERS+1 + ror AY_REGISTERS+0 + ror AY_REGISTERS+1 + ror AY_REGISTERS+0 + ror AY_REGISTERS+1 + ror AY_REGISTERS+0 + lda AY_REGISTERS+1 and #$0f - sta REGISTER_DUMP+1 + sta AY_REGISTERS+1 no_scale_a: lda note_b+NOTE_TONE_L ; Note B Period L - sta REGISTER_DUMP+2 ; into R2 + sta AY_REGISTERS+2 ; into R2 lda note_b+NOTE_TONE_H ; Note B Period H - sta REGISTER_DUMP+3 ; into R3 + sta AY_REGISTERS+3 ; into R3 lda convert_177 beq no_scale_b @@ -1858,41 +1858,41 @@ no_scale_a: ; Convert from 1.77MHz to 1MHz by multiplying by 9/16 ; first multiply by 8 - asl REGISTER_DUMP+2 - rol REGISTER_DUMP+3 - asl REGISTER_DUMP+2 - rol REGISTER_DUMP+3 - asl REGISTER_DUMP+2 - rol REGISTER_DUMP+3 + asl AY_REGISTERS+2 + rol AY_REGISTERS+3 + asl AY_REGISTERS+2 + rol AY_REGISTERS+3 + asl AY_REGISTERS+2 + rol AY_REGISTERS+3 ; add in original to get 9 clc lda note_b+NOTE_TONE_L - adc REGISTER_DUMP+2 - sta REGISTER_DUMP+2 + adc AY_REGISTERS+2 + sta AY_REGISTERS+2 lda note_b+NOTE_TONE_H - adc REGISTER_DUMP+3 - sta REGISTER_DUMP+3 + adc AY_REGISTERS+3 + sta AY_REGISTERS+3 ; divide by 16 to get proper value - ror REGISTER_DUMP+3 - ror REGISTER_DUMP+2 - ror REGISTER_DUMP+3 - ror REGISTER_DUMP+2 - ror REGISTER_DUMP+3 - ror REGISTER_DUMP+2 - ror REGISTER_DUMP+3 - ror REGISTER_DUMP+2 - lda REGISTER_DUMP+3 + ror AY_REGISTERS+3 + ror AY_REGISTERS+2 + ror AY_REGISTERS+3 + ror AY_REGISTERS+2 + ror AY_REGISTERS+3 + ror AY_REGISTERS+2 + ror AY_REGISTERS+3 + ror AY_REGISTERS+2 + lda AY_REGISTERS+3 and #$0f - sta REGISTER_DUMP+3 + sta AY_REGISTERS+3 no_scale_b: lda note_c+NOTE_TONE_L ; Note C Period L - sta REGISTER_DUMP+4 ; into R4 + sta AY_REGISTERS+4 ; into R4 lda note_c+NOTE_TONE_H ; Note C Period H - sta REGISTER_DUMP+5 ; into R5 + sta AY_REGISTERS+5 ; into R5 lda convert_177 beq no_scale_c @@ -1900,34 +1900,34 @@ no_scale_b: ; Convert from 1.77MHz to 1MHz by multiplying by 9/16 ; first multiply by 8 - asl REGISTER_DUMP+4 - rol REGISTER_DUMP+5 - asl REGISTER_DUMP+4 - rol REGISTER_DUMP+5 - asl REGISTER_DUMP+4 - rol REGISTER_DUMP+5 + asl AY_REGISTERS+4 + rol AY_REGISTERS+5 + asl AY_REGISTERS+4 + rol AY_REGISTERS+5 + asl AY_REGISTERS+4 + rol AY_REGISTERS+5 ; add in original to get 9 clc lda note_c+NOTE_TONE_L - adc REGISTER_DUMP+4 - sta REGISTER_DUMP+4 + adc AY_REGISTERS+4 + sta AY_REGISTERS+4 lda note_c+NOTE_TONE_H - adc REGISTER_DUMP+5 - sta REGISTER_DUMP+5 + adc AY_REGISTERS+5 + sta AY_REGISTERS+5 ; divide by 16 to get proper value - ror REGISTER_DUMP+5 - ror REGISTER_DUMP+4 - ror REGISTER_DUMP+5 - ror REGISTER_DUMP+4 - ror REGISTER_DUMP+5 - ror REGISTER_DUMP+4 - ror REGISTER_DUMP+5 - ror REGISTER_DUMP+4 - lda REGISTER_DUMP+5 + ror AY_REGISTERS+5 + ror AY_REGISTERS+4 + ror AY_REGISTERS+5 + ror AY_REGISTERS+4 + ror AY_REGISTERS+5 + ror AY_REGISTERS+4 + ror AY_REGISTERS+5 + ror AY_REGISTERS+4 + lda AY_REGISTERS+5 and #$0f - sta REGISTER_DUMP+5 + sta AY_REGISTERS+5 no_scale_c: @@ -1938,7 +1938,7 @@ no_scale_c: lda pt3_noise_period adc pt3_noise_add and #$1f - sta REGISTER_DUMP+6 + sta AY_REGISTERS+6 sta temp_word_l lda convert_177 @@ -1947,23 +1947,23 @@ no_scale_c: ; Convert from 1.77MHz to 1MHz by multiplying by 9/16 ; first multiply by 8 - asl REGISTER_DUMP+6 - asl REGISTER_DUMP+6 - asl REGISTER_DUMP+6 + asl AY_REGISTERS+6 + asl AY_REGISTERS+6 + asl AY_REGISTERS+6 ; add in original to get 9 clc lda temp_word_l - adc REGISTER_DUMP+6 + adc AY_REGISTERS+6 ; divide by 16 to get proper value - ror REGISTER_DUMP+6 - ror REGISTER_DUMP+6 - ror REGISTER_DUMP+6 - ror REGISTER_DUMP+6 - lda REGISTER_DUMP+6 + ror AY_REGISTERS+6 + ror AY_REGISTERS+6 + ror AY_REGISTERS+6 + ror AY_REGISTERS+6 + lda AY_REGISTERS+6 and #$1f - sta REGISTER_DUMP+6 + sta AY_REGISTERS+6 no_scale_n: @@ -1971,15 +1971,15 @@ no_scale_n: ; Mixer lda pt3_mixer_value - sta REGISTER_DUMP+7 + sta AY_REGISTERS+7 ; Amplitudes lda note_a+NOTE_AMPLITUDE - sta REGISTER_DUMP+8 + sta AY_REGISTERS+8 lda note_b+NOTE_AMPLITUDE - sta REGISTER_DUMP+9 + sta AY_REGISTERS+9 lda note_c+NOTE_AMPLITUDE - sta REGISTER_DUMP+10 + sta AY_REGISTERS+10 ; Envelope period ; result=period+add+slide (16-bits) @@ -1995,11 +1995,11 @@ no_scale_n: lda pt3_envelope_slide_l adc temp_word_l sta temp_word_l - sta REGISTER_DUMP+11 + sta AY_REGISTERS+11 lda temp_word_h adc pt3_envelope_slide_h sta temp_word_h - sta REGISTER_DUMP+12 + sta AY_REGISTERS+12 lda convert_177 beq no_scale_e @@ -2007,34 +2007,34 @@ no_scale_n: ; Convert from 1.77MHz to 1MHz by multiplying by 9/16 ; first multiply by 8 - asl REGISTER_DUMP+11 - rol REGISTER_DUMP+12 - asl REGISTER_DUMP+11 - rol REGISTER_DUMP+12 - asl REGISTER_DUMP+11 - rol REGISTER_DUMP+12 + asl AY_REGISTERS+11 + rol AY_REGISTERS+12 + asl AY_REGISTERS+11 + rol AY_REGISTERS+12 + asl AY_REGISTERS+11 + rol AY_REGISTERS+12 ; add in original to get 9 clc lda temp_word_l - adc REGISTER_DUMP+11 - sta REGISTER_DUMP+11 + adc AY_REGISTERS+11 + sta AY_REGISTERS+11 lda temp_word_h - adc REGISTER_DUMP+12 - sta REGISTER_DUMP+12 + adc AY_REGISTERS+12 + sta AY_REGISTERS+12 ; divide by 16 to get proper value - ror REGISTER_DUMP+12 - ror REGISTER_DUMP+11 - ror REGISTER_DUMP+12 - ror REGISTER_DUMP+11 - ror REGISTER_DUMP+12 - ror REGISTER_DUMP+11 - ror REGISTER_DUMP+12 - ror REGISTER_DUMP+11 - lda REGISTER_DUMP+12 + ror AY_REGISTERS+12 + ror AY_REGISTERS+11 + ror AY_REGISTERS+12 + ror AY_REGISTERS+11 + ror AY_REGISTERS+12 + ror AY_REGISTERS+11 + ror AY_REGISTERS+12 + ror AY_REGISTERS+11 + lda AY_REGISTERS+12 and #$0f - sta REGISTER_DUMP+12 + sta AY_REGISTERS+12 no_scale_e: @@ -2046,7 +2046,7 @@ no_scale_e: envelope_same: lda #$ff ; if same, store $ff envelope_diff: - sta REGISTER_DUMP+13 + sta AY_REGISTERS+13 lda pt3_envelope_type sta pt3_envelope_type_old ; copy old to new diff --git a/pt3_player/pt3_timer.s b/pt3_player/pt3_timer.s index 6ace3da0..670648d7 100644 --- a/pt3_player/pt3_timer.s +++ b/pt3_player/pt3_timer.s @@ -382,7 +382,7 @@ mb_write_frame: ;================================== mb_write_loop: - lda REGISTER_DUMP,X ; load register value ; 4 + lda AY_REGISTERS,X ; load register value ; 4 ; special case R13. If it is 0xff, then don't update ; otherwise might spuriously reset the envelope settings @@ -407,7 +407,7 @@ mb_not_13: sta MOCK_6522_ORB2 ; 4 ; value - lda REGISTER_DUMP,X ; load register value ; 4 + lda AY_REGISTERS,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 diff --git a/pt3_player/zp.inc b/pt3_player/zp.inc index 72c2f620..4a58cfd6 100644 --- a/pt3_player/zp.inc +++ b/pt3_player/zp.inc @@ -70,7 +70,7 @@ FILEMH EQU $65 ;DY_I EQU $6E ;DY_F EQU $6F -REGISTER_DUMP EQU $70 +AY_REGISTERS EQU $70 A_FINE_TONE EQU $70 A_COARSE_TONE EQU $71 B_FINE_TONE EQU $72