mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 08:54:51 +00:00
chiptune_player: got qkumba's code working. Much faster
This commit is contained in:
parent
ec3bb325cc
commit
e441cd4420
@ -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
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user