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

chiptune: more paramater prepwork

Browse Source
This commit is contained in:
Vince Weaver 2018-02-24 17:28:10 -05:00
parent 21d183616e
commit e4d66a70b8
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
asm_routines/dos33_routines.s
View File

@ -1,12 +1,6 @@
; File I/O routines based on sample code in ; File I/O routines based on sample code in
; "Beneath Apple DOS" by Don Worth and Pieter Lechner ; "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 ;; For the disk-read code
;RWTSL EQU $F0 ;RWTSL EQU $F0
;RWTSH EQU $F1 ;RWTSH EQU $F1
@ -40,7 +34,9 @@ FILEMANAGER EQU $3D6
;================================ ;================================
; FILENAME pointed to by INH:INL ; FILENAME pointed to by INH:INL
; OUTH:OUTL trashed ; OUTH:OUTL trashed
; ; output buffer: disk_buff
; size to read: read_size
read_file: read_file:
jsr LOCATE_FILEM_PARAM ; $3DC entry point jsr LOCATE_FILEM_PARAM ; $3DC entry point
; load file manager param list ; load file manager param list

4
chiptune_player/chiptune_player.s
View File

@ -8,6 +8,7 @@ UNPACK_BUFFER EQU $5E00 ; $5E00 - $9600, 14k, $3800
; Reserve 3 chunks plus spare (14k) ; Reserve 3 chunks plus spare (14k)
CHUNKSIZE EQU $3 CHUNKSIZE EQU $3
;============================= ;=============================
; Setup ; Setup
;============================= ;=============================
@ -245,6 +246,9 @@ new_song:
lda #>krw_file lda #>krw_file
sta INH sta INH
disk_buff EQU LZ4_BUFFER
read_size EQU $4000
jsr read_file ; read KRW file from disk jsr read_file ; read KRW file from disk