mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-27 17:29:49 +00:00
pt3: add pt3 dumper
This commit is contained in:
Vince Weaver
parent
7a1c5e7cb4
commit
f72f2df0eb
@ -8,9 +8,10 @@ all: pt3_player.dsk
|
||||
$(DOS33):
|
||||
cd ../dos33fs-utils && make
|
||||
|
||||
pt3_player.dsk: PT3_PLAYER HELLO
|
||||
pt3_player.dsk: PT3_PLAYER PT3_DUMPER HELLO
|
||||
cp empty.dsk pt3_player.dsk
|
||||
$(DOS33) -y pt3_player.dsk SAVE A HELLO
|
||||
$(DOS33) -y pt3_player.dsk BSAVE -a 0x1000 PT3_DUMPER
|
||||
$(DOS33) -y pt3_player.dsk BSAVE -a 0x1000 PT3_PLAYER
|
||||
$(DOS33) -y pt3_player.dsk BSAVE -a 0x2000 EA.PT3
|
||||
# $(DOS33) -y chiptune_player.dsk BSAVE -a 0x1c00 ./krw/CHRISTMAS.KRW
|
||||
@ -47,6 +48,15 @@ pt3_player.o: pt3_player.s \
|
||||
# song_list.inc chip_title.inc zp.inc chip_title_uncompressed.inc
|
||||
ca65 -o pt3_player.o pt3_player.s -l pt3_player.lst
|
||||
|
||||
|
||||
PT3_DUMPER: pt3_dumper.o
|
||||
ld65 -o PT3_DUMPER pt3_dumper.o -C ../linker_scripts/apple2_1000.inc
|
||||
|
||||
pt3_dumper.o: pt3_dumper.s \
|
||||
gr_fast_clear.s pt3_lib.s interrupt_handler.s
|
||||
ca65 -o pt3_dumper.o pt3_dumper.s -l pt3_dumper.lst
|
||||
|
||||
|
||||
clean:
|
||||
rm -f *~ TITLE.GR *.o *.lst \
|
||||
PT3_PLAYER
|
||||
|
||||
@ -1,4 +1,2 @@
|
||||
5 GR
|
||||
10 PRINT "LOADING PT3 PLAYER V0.0"
|
||||
50 PRINT: X=PEEK(49237):REM DISPLAY PAGE2
|
||||
100 PRINT CHR$ (4)"BRUN PT3_PLAYER"
|
||||
10 PRINT "LOADING PT3 DUMPER V0.0"
|
||||
100 PRINT CHR$ (4)"BRUN PT3_DUMPER"
|
||||
|
||||
274
pt3_player/pt3_dumper.s
Normal file
274
pt3_player/pt3_dumper.s
Normal file
@ -0,0 +1,274 @@
|
||||
; VMW Chiptune Dumper
|
||||
|
||||
; for debug purposes prints the raw values to screen
|
||||
; we re-route this to the printer in Slot #1 for debugging
|
||||
|
||||
.include "zp.inc"
|
||||
|
||||
PT3_LOC = $2000
|
||||
|
||||
UNPACK_BUFFER EQU $6000 ; $6000 - $9800, 14k, $3800
|
||||
NUM_FILES EQU 15
|
||||
|
||||
|
||||
|
||||
;=============================
|
||||
; Setup
|
||||
;=============================
|
||||
pt3_setup:
|
||||
jsr HOME
|
||||
jsr TEXT
|
||||
|
||||
; Init disk code
|
||||
|
||||
jsr rts_init
|
||||
|
||||
; init variables
|
||||
|
||||
lda #0
|
||||
sta DRAW_PAGE
|
||||
sta DONE_PLAYING
|
||||
sta WHICH_FILE
|
||||
|
||||
|
||||
;==================
|
||||
; load first song
|
||||
;==================
|
||||
|
||||
jsr new_song
|
||||
|
||||
|
||||
;============================
|
||||
; Loop forever
|
||||
;============================
|
||||
main_loop:
|
||||
|
||||
|
||||
jmp main_loop
|
||||
|
||||
check_done:
|
||||
lda #$ff
|
||||
bit DONE_PLAYING
|
||||
; beq main_loop ; if was all zeros, loop
|
||||
; bmi main_loop ; if high bit set, paused
|
||||
; bvs minus_song ; if bit 6 set, then left pressed
|
||||
|
||||
; else, either song finished or
|
||||
; right pressed
|
||||
|
||||
|
||||
|
||||
;=================
|
||||
; load a new song
|
||||
;=================
|
||||
|
||||
new_song:
|
||||
|
||||
;=========================
|
||||
; Init Variables
|
||||
;=========================
|
||||
|
||||
lda #$0
|
||||
sta FRAME_COUNT
|
||||
|
||||
|
||||
;===========================
|
||||
; Print loading message
|
||||
;===========================
|
||||
|
||||
; lda #<loading_message
|
||||
; sta OUTL
|
||||
; lda #>loading_message
|
||||
; sta OUTH
|
||||
; jsr print_cout
|
||||
|
||||
|
||||
;===========================
|
||||
; Load in PT3 file
|
||||
;===========================
|
||||
|
||||
jsr get_filename
|
||||
|
||||
; needs to be space-padded $A0 30-byte filename
|
||||
|
||||
lda #<readfile_filename
|
||||
sta namlo
|
||||
lda #>readfile_filename
|
||||
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 $2000)
|
||||
|
||||
jsr read_file ; read PT3 file from disk
|
||||
|
||||
|
||||
;=========================
|
||||
; Print Info
|
||||
;=========================
|
||||
|
||||
; NUL terminate the strings we want to print
|
||||
lda #0
|
||||
sta PT3_LOC+$3E
|
||||
sta PT3_LOC+$62
|
||||
|
||||
; print title
|
||||
|
||||
lda #>(PT3_LOC+$1E) ; point to header title
|
||||
sta OUTH
|
||||
lda #<(PT3_LOC+$1E)
|
||||
sta OUTL
|
||||
|
||||
jsr print_cout
|
||||
|
||||
jsr CROUT1
|
||||
|
||||
; Print Author
|
||||
|
||||
lda #>(PT3_LOC+$42) ; point to header title
|
||||
sta OUTH
|
||||
lda #<(PT3_LOC+$42)
|
||||
sta OUTL
|
||||
|
||||
jsr print_cout
|
||||
|
||||
jsr CROUT1
|
||||
|
||||
jsr pt3_init_song
|
||||
|
||||
rts
|
||||
|
||||
|
||||
|
||||
|
||||
;==================
|
||||
; Get filename
|
||||
;==================
|
||||
; WHICH_FILE holds number
|
||||
; MAX_FILES has max
|
||||
; Scroll through until find
|
||||
; point INH:INL to it
|
||||
get_filename:
|
||||
|
||||
ldy #0
|
||||
ldx WHICH_FILE
|
||||
|
||||
lda #<song_list ; point to filename
|
||||
sta INL
|
||||
lda #>song_list
|
||||
sta INH
|
||||
|
||||
get_filename_loop:
|
||||
cpx #0
|
||||
beq filename_found
|
||||
|
||||
inner_loop:
|
||||
iny
|
||||
lda (INL),Y
|
||||
bne inner_loop
|
||||
|
||||
iny
|
||||
|
||||
dex
|
||||
jmp get_filename_loop
|
||||
|
||||
filename_found:
|
||||
tya
|
||||
clc
|
||||
adc INL
|
||||
sta INL
|
||||
lda INH
|
||||
adc #0
|
||||
sta INH
|
||||
|
||||
rts
|
||||
|
||||
;===============================
|
||||
; Increment file we want to load
|
||||
;===============================
|
||||
increment_file:
|
||||
inc WHICH_FILE
|
||||
lda WHICH_FILE
|
||||
cmp #NUM_FILES
|
||||
bne done_increment
|
||||
lda #0
|
||||
sta WHICH_FILE
|
||||
done_increment:
|
||||
rts
|
||||
|
||||
;===============================
|
||||
; Decrement file we want to load
|
||||
;===============================
|
||||
decrement_file:
|
||||
dec WHICH_FILE
|
||||
bpl done_decrement
|
||||
lda #(NUM_FILES-1)
|
||||
sta WHICH_FILE
|
||||
done_decrement:
|
||||
rts
|
||||
|
||||
|
||||
;===============
|
||||
; print cout
|
||||
;===============
|
||||
print_cout:
|
||||
ldy #0
|
||||
cout_loop:
|
||||
lda (OUTL),Y
|
||||
beq cout_done
|
||||
|
||||
clc
|
||||
adc #$80
|
||||
jsr COUT
|
||||
|
||||
iny
|
||||
jmp cout_loop
|
||||
|
||||
cout_done:
|
||||
rts
|
||||
|
||||
|
||||
|
||||
;==========
|
||||
; filenames
|
||||
;==========
|
||||
|
||||
song_list:
|
||||
|
||||
.include "song_list.inc"
|
||||
|
||||
;=========
|
||||
;routines
|
||||
;=========
|
||||
.include "qkumba_rts.s"
|
||||
.include "../asm_routines/keypress_minimal.s"
|
||||
.include "pt3_lib.s"
|
||||
|
||||
;=========
|
||||
; strings
|
||||
;=========
|
||||
;mocking_message: .asciiz "LOOKING FOR MOCKINGBOARD IN SLOT #4"
|
||||
;not_message: .byte "NOT "
|
||||
;found_message: .asciiz "FOUND"
|
||||
;done_message: .asciiz "DONE PLAYING"
|
||||
;loading_message: .asciiz "LOADING"
|
||||
|
||||
@ -18,11 +18,23 @@ GBASL EQU $26
|
||||
GBASH EQU $27
|
||||
BASL EQU $28
|
||||
BASH EQU $29
|
||||
BAS2L EQU $2A
|
||||
BAS2H EQU $2B
|
||||
H2 EQU $2C
|
||||
V2 EQU $2D
|
||||
MASK EQU $2E
|
||||
LASTIN EQU $3F
|
||||
COLOR EQU $30
|
||||
;INVFLG EQU $32
|
||||
MODE EQU $31
|
||||
INVFLG EQU $32
|
||||
PROMPT EQU $33
|
||||
YSAV EQU $34
|
||||
YSAV1 EQU $35
|
||||
CSWL EQU $36 ; address of COUT1 routine
|
||||
CSWH EQU $37
|
||||
KSWL EQU $38 ; key in routine
|
||||
KSWH EQU $39
|
||||
|
||||
|
||||
; dos33 zero page = 26-2f, 35-38, 3e 3f 40-4d
|
||||
; overlap applesoft 67-6a,6f,70,af,b0,ca-cd,d8
|
||||
@ -219,7 +231,8 @@ SETINV EQU $FE80 ;; INVERSE
|
||||
SETNORM EQU $FE84 ;; NORMAL
|
||||
COUT EQU $FDED ;; output A to screen
|
||||
COUT1 EQU $FDF0 ;; output A to screen
|
||||
|
||||
CROUT EQU $FD8E ;; send a RETURN
|
||||
CROUT1 EQU $FD8B ;; send a RETURN and clear end of line
|
||||
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user