Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-02 12:29:26 +00:00
Code Issues Projects Releases Wiki Activity

pt3: init B and C ornaments/samples

Browse Source
This commit is contained in:
Vince Weaver 2019-05-13 12:47:29 -04:00
parent 91c154ea7b
commit 91ca10d248
1 changed files with 24 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
pt3_player/pt3_lib.s
View File

@ -239,6 +239,7 @@ freq_h: .byte $00
; Load Ornament ; Load Ornament
;=========================== ;===========================
; ornament value in A ; ornament value in A
; note offset in X
load_ornament: load_ornament:
@ -271,13 +272,13 @@ load_ornament:
; Set the loop value ; Set the loop value
; a->ornament_loop=pt3->data[a->ornament_pointer]; ; a->ornament_loop=pt3->data[a->ornament_pointer];
lda (ORNAMENT_A_L),Y lda (ORNAMENT_A_L),Y
sta note_a+NOTE_ORNAMENT_LOOP sta note_a+NOTE_ORNAMENT_LOOP,X
; Set the length value ; Set the length value
; a->ornament_length=pt3->data[a->ornament_pointer]; ; a->ornament_length=pt3->data[a->ornament_pointer];
iny iny
lda (ORNAMENT_A_L),Y lda (ORNAMENT_A_L),Y
sta note_a+NOTE_ORNAMENT_LENGTH sta note_a+NOTE_ORNAMENT_LENGTH,X
; Set the pointer to the value past the length ; Set the pointer to the value past the length
@ -297,6 +298,8 @@ load_ornament:
; Load Sample ; Load Sample
;=========================== ;===========================
; sample in A ; sample in A
; which note offset in X
load_sample: load_sample:
sty ysave sty ysave
@ -326,14 +329,14 @@ load_sample:
ldy #0 ldy #0
lda (SAMPLE_A_L),Y lda (SAMPLE_A_L),Y
sta note_a+NOTE_SAMPLE_LOOP sta note_a+NOTE_SAMPLE_LOOP,X
; Set the length value ; Set the length value
; a->sample_length=pt3->data[a->sample_pointer]; ; a->sample_length=pt3->data[a->sample_pointer];
iny iny
lda (SAMPLE_A_L),Y lda (SAMPLE_A_L),Y
sta note_a+NOTE_SAMPLE_LENGTH sta note_a+NOTE_SAMPLE_LENGTH,X
; Set pointer to beginning of samples ; Set pointer to beginning of samples
@ -373,24 +376,27 @@ pt3_init_song:
sta note_a+NOTE_ENVELOPE_ENABLED sta note_a+NOTE_ENVELOPE_ENABLED
sta note_b+NOTE_ENVELOPE_ENABLED sta note_b+NOTE_ENVELOPE_ENABLED
sta note_c+NOTE_ENVELOPE_ENABLED sta note_c+NOTE_ENVELOPE_ENABLED
lda #'A'
; default ornament/sample in A
lda #0 lda #0
ldx #0
jsr load_ornament
lda #1
jsr load_sample
; default ornament/sample in B
lda #0
ldx #(NOTE_STRUCT_SIZE*1)
jsr load_ornament
lda #1
jsr load_sample
; default ornament/sample in C
lda #0
ldx #(NOTE_STRUCT_SIZE*2)
jsr load_ornament jsr load_ornament
lda #'A'
lda #1 lda #1
jsr load_sample jsr load_sample
; lda #'B'
; lda #0
; jsr load_ornament
; lda #'B'
; lda #1
; jsr load_sample
; lda #'C'
; lda #0
; jsr load_ornament
; lda #'C'
; lda #1
; jsr load_sample
lda #$0 lda #$0
sta pt3_noise_period sta pt3_noise_period