Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-28 22:30:09 +00:00
Code Issues Projects Releases Wiki Activity

chiptune_player: got qkumba's code working. Much faster

Browse Source
This commit is contained in:
Vince Weaver 2018-11-19 14:39:36 -05:00
parent ec3bb325cc
commit e441cd4420
1 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
chiptune_player/chiptune_player.s
View File

@ -310,16 +310,37 @@ new_song:
sta OUTH sta OUTH
jsr print_both_pages jsr print_both_pages
;disk_buff EQU LZ4_BUFFER
;read_size EQU $4000
; open and read a file
; needs to be space-padded $A0 30-byte filename ; needs to be space-padded $A0 30-byte filename
; loads to whatever it was BSAVED at (default is $1C00)
lda #<readfile_filename lda #<readfile_filename
sta namlo sta namlo
lda #>readfile_filename lda #>readfile_filename
sta namhi sta namhi
ldy #0
ldx #30 ; 30 chars
name_loop:
lda (INL),Y
beq space_loop
ora #$80
sta (namlo),Y
iny
dex
bne name_loop
beq done_name_loop
space_loop:
lda #$a0 ; pad with ' '
sta (namlo),Y
iny
dex
bne space_loop
done_name_loop:
; open and read a file
; loads to whatever it was BSAVED at (default is $1C00)
jsr read_file ; read KRW file from disk jsr read_file ; read KRW file from disk