From e4d66a70b8f4b797f6ff44cb81ba324b12e35fde Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Sat, 24 Feb 2018 17:28:10 -0500 Subject: [PATCH] chiptune: more paramater prepwork --- asm_routines/dos33_routines.s | 10 +++------- chiptune_player/chiptune_player.s | 4 ++++ 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/asm_routines/dos33_routines.s b/asm_routines/dos33_routines.s index 65bfc020..8cc0ab70 100644 --- a/asm_routines/dos33_routines.s +++ b/asm_routines/dos33_routines.s @@ -1,12 +1,6 @@ ; File I/O routines based on sample code in ; "Beneath Apple DOS" by Don Worth and Pieter Lechner -; FIXME: make these a parameter -; filename - -disk_buff EQU $1C00 -read_size EQU $4000 ; 16kB - ;; For the disk-read code ;RWTSL EQU $F0 ;RWTSH EQU $F1 @@ -40,7 +34,9 @@ FILEMANAGER EQU $3D6 ;================================ ; FILENAME pointed to by INH:INL ; OUTH:OUTL trashed - ; + ; output buffer: disk_buff + ; size to read: read_size + read_file: jsr LOCATE_FILEM_PARAM ; $3DC entry point ; load file manager param list diff --git a/chiptune_player/chiptune_player.s b/chiptune_player/chiptune_player.s index 69bc4da3..637bf3d2 100644 --- a/chiptune_player/chiptune_player.s +++ b/chiptune_player/chiptune_player.s @@ -8,6 +8,7 @@ UNPACK_BUFFER EQU $5E00 ; $5E00 - $9600, 14k, $3800 ; Reserve 3 chunks plus spare (14k) CHUNKSIZE EQU $3 + ;============================= ; Setup ;============================= @@ -245,6 +246,9 @@ new_song: lda #>krw_file sta INH +disk_buff EQU LZ4_BUFFER +read_size EQU $4000 + jsr read_file ; read KRW file from disk