mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-28 14:29:42 +00:00
Merge branch 'master' of https://github.com/deater/dos33fsprogs
This commit is contained in:
commit
2c56f552cb
|
@ -12,7 +12,7 @@ demosplash2019:
|
|||
;==================================================
|
||||
|
||||
lda #$38
|
||||
ldy #$20
|
||||
ldy #$0
|
||||
zp_clear_loop:
|
||||
sta $0,y
|
||||
iny
|
||||
|
@ -37,7 +37,8 @@ zp_clear_loop:
|
|||
jsr clear_ay_both
|
||||
jsr pt3_init_song
|
||||
|
||||
|
||||
lda #1
|
||||
sta LOOP
|
||||
|
||||
;====================================
|
||||
; turn on language card
|
||||
|
@ -51,9 +52,6 @@ zp_clear_loop:
|
|||
|
||||
jsr pt3_write_lc_4
|
||||
|
||||
lda #1
|
||||
sta LOOP
|
||||
|
||||
;===========================
|
||||
; Enable graphics
|
||||
;===========================
|
||||
|
@ -102,6 +100,8 @@ main_body:
|
|||
; missing scene
|
||||
;===========================
|
||||
|
||||
;blarh: jmp blarh
|
||||
|
||||
; nop
|
||||
; nop
|
||||
; nop
|
||||
|
|
|
@ -41,6 +41,26 @@ filbuf = $3D6 ; filbuf: .res 4 ; = bit2tbl+86
|
|||
start:
|
||||
jsr init ; unhook DOS, init nibble table
|
||||
|
||||
|
||||
|
||||
clear_out_ram:
|
||||
ldx #$14
|
||||
stx OUTH
|
||||
ldy #0
|
||||
sty OUTL
|
||||
lda #$77
|
||||
clear_ram_outer:
|
||||
ldy #0
|
||||
clear_ram_inner:
|
||||
dey
|
||||
sta (OUTL),Y
|
||||
bne clear_ram_inner
|
||||
|
||||
inx
|
||||
stx OUTH
|
||||
cpx #$c0
|
||||
bne clear_ram_outer
|
||||
|
||||
;======================
|
||||
|
||||
which_load_loop:
|
||||
|
|
|
@ -30,7 +30,7 @@ zero_song_structs_loop:
|
|||
sta pt3_envelope_slide_add_h_smc+1 ; 4
|
||||
sta pt3_envelope_add_smc+1 ; 4
|
||||
sta pt3_envelope_type_smc+1 ; 4
|
||||
sta pt3_envelope_type_old_smc+1 ; 4
|
||||
sta pt3_envelope_type_old_smc+1 ; ok as set_env always ; 4
|
||||
sta pt3_envelope_delay_smc+1 ; 4
|
||||
sta pt3_envelope_delay_orig_smc+1 ; 4
|
||||
|
||||
|
@ -45,6 +45,8 @@ zero_song_structs_loop:
|
|||
sta note_b+NOTE_VOLUME ; 4
|
||||
sta note_c+NOTE_VOLUME ; 4
|
||||
|
||||
|
||||
|
||||
; default ornament/sample in A
|
||||
; X is zero coming in here
|
||||
;ldx #(NOTE_STRUCT_SIZE*0) ; 2
|
||||
|
|
|
@ -66,7 +66,7 @@ r4_smc:
|
|||
|
||||
; Register 5: C coarse
|
||||
ldx #5 ; 2
|
||||
r5_smc:
|
||||
r13_smc:
|
||||
lda $D400,Y ; 4+
|
||||
pha ; 3
|
||||
and #$f ; 2
|
||||
|
@ -81,7 +81,7 @@ r5_smc:
|
|||
lsr ; 2
|
||||
lsr ; 2
|
||||
|
||||
r13_smc:
|
||||
r5_smc:
|
||||
ldx $D500,Y ; check for env update ; 4
|
||||
bmi skip_envelope_write ; 3
|
||||
;============
|
||||
|
@ -274,12 +274,12 @@ update_pt3_play:
|
|||
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
|
||||
sta r13_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+5,Y ; 4
|
||||
sta r5_smc+2 ; 4 ; D5
|
||||
sta r6_smc+2 ; 4 ; D5
|
||||
|
||||
lda music_addr_table+6,Y ; 4 ; D6
|
||||
sta r7_smc+2 ; 4
|
||||
|
|
|
@ -55,7 +55,7 @@ r4_wrsmc:
|
|||
; Register 5: Envelope Shape [top] / C coarse [bottom]
|
||||
lda C_COARSE_TONE
|
||||
and #$f
|
||||
sta C_COARSE_TONE
|
||||
sta C_COARSE_TEMP
|
||||
|
||||
lda ENVELOPE_SHAPE
|
||||
cmp #$ff
|
||||
|
@ -67,19 +67,17 @@ yes_envelope:
|
|||
asl
|
||||
asl
|
||||
asl
|
||||
ora C_COARSE_TONE
|
||||
sta C_COARSE_TONE
|
||||
ora C_COARSE_TEMP
|
||||
sta C_COARSE_TEMP
|
||||
|
||||
lda #0
|
||||
sta ENVELOPE_SHAPE
|
||||
jmp done_envelope
|
||||
no_envelope:
|
||||
lda #$80
|
||||
sta ENVELOPE_SHAPE
|
||||
|
||||
done_envelope:
|
||||
sta ENV_SHAPE_TEMP
|
||||
|
||||
lda C_COARSE_TONE
|
||||
lda C_COARSE_TEMP
|
||||
r13_wrsmc:
|
||||
sta $D400,Y
|
||||
|
||||
|
@ -88,7 +86,7 @@ r13_wrsmc:
|
|||
; Register 6: Noise
|
||||
lda NOISE
|
||||
and #$1f
|
||||
ora ENVELOPE_SHAPE
|
||||
ora ENV_SHAPE_TEMP
|
||||
r6_wrsmc:
|
||||
sta $D500,Y
|
||||
|
||||
|
@ -103,19 +101,19 @@ r7_wrsmc:
|
|||
|
||||
lda A_VOLUME
|
||||
and #$1f
|
||||
sta A_VOLUME
|
||||
sta A_VOL_TEMP
|
||||
|
||||
lda B_VOLUME
|
||||
and #$10
|
||||
asl
|
||||
ora A_VOLUME
|
||||
sta A_VOLUME
|
||||
ora A_VOL_TEMP
|
||||
sta A_VOL_TEMP
|
||||
|
||||
lda C_VOLUME
|
||||
and #$10
|
||||
asl
|
||||
asl
|
||||
ora A_VOLUME
|
||||
ora A_VOL_TEMP
|
||||
r8_wrsmc:
|
||||
sta $D700,Y
|
||||
|
||||
|
@ -124,14 +122,14 @@ r8_wrsmc:
|
|||
|
||||
lda B_VOLUME
|
||||
and #$f
|
||||
sta B_VOLUME
|
||||
sta A_VOL_TEMP
|
||||
|
||||
lda C_VOLUME
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
ora B_VOLUME
|
||||
ora A_VOL_TEMP
|
||||
r9_wrsmc:
|
||||
sta $D800,Y
|
||||
|
||||
|
|
|
@ -139,6 +139,9 @@ pt3_set_pages:
|
|||
music_table_begin:
|
||||
|
||||
music_addr_table:
|
||||
;.byte $a0,$a1,$a2,$a3,$a4,$a5,$a6,$a7,$a8,$a9,$aa,$BB,$CC,$DD,$EE,$FF ;0
|
||||
;.byte $b0,$b1,$b2,$b3,$b4,$b5,$b6,$b7,$b8,$b9,$ba,$BB,$CC,$DD,$EE,$FF ;0
|
||||
|
||||
.byte $f1,$f2,$f3,$f4,$f5,$f6,$f7,$f8,$f9,$fa,$fb,$BB,$CC,$DD,$EE,$FF ;0
|
||||
.byte $e6,$e7,$e8,$e9,$ea,$eb,$ec,$ed,$ee,$ef,$f0,$BB,$CC,$DD,$EE,$FF ;1
|
||||
.byte $db,$dc,$dd,$de,$df,$e0,$e1,$e2,$e3,$e4,$e5,$BB,$CC,$DD,$EE,$FF ;2
|
||||
|
|
|
@ -88,6 +88,9 @@ MB_ADDRH = $87
|
|||
DONE_PLAYING = $88
|
||||
DONE_SONG = $89
|
||||
PT3_TEMP = $8A
|
||||
ENV_SHAPE_TEMP = $8B
|
||||
C_COARSE_TEMP = $8C
|
||||
A_VOL_TEMP = $8D
|
||||
|
||||
KEYPTRL = $90
|
||||
KEYPTRH = $91
|
||||
|
|
Loading…
Reference in New Issue
Block a user