mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-03-03 12:31:32 +00:00
chiptune_player: change how the opening title is loaded
not sure if a total improvement
This commit is contained in:
Vince Weaver
parent
3eb5e013fa
commit
18aab4ba25
@ -11,7 +11,7 @@ $(DOS33):
|
||||
chiptune_player.dsk: CHIPTUNE_PLAYER ./krw/INTRO2.KRW HELLO
|
||||
cp chiptune_empty.dsk chiptune_player.dsk
|
||||
$(DOS33) -y chiptune_player.dsk SAVE A HELLO
|
||||
$(DOS33) -y chiptune_player.dsk BSAVE -a 0x0C00 CHIPTUNE_PLAYER
|
||||
$(DOS33) -y chiptune_player.dsk BSAVE -a 0x0800 CHIPTUNE_PLAYER
|
||||
$(DOS33) -y chiptune_player.dsk BSAVE -a 0x1c00 ./krw/CAMOUFLAGE.KRW
|
||||
$(DOS33) -y chiptune_player.dsk BSAVE -a 0x1c00 ./krw/CHRISTMAS.KRW
|
||||
$(DOS33) -y chiptune_player.dsk BSAVE -a 0x1c00 ./krw/CRMOROS.KRW
|
||||
@ -35,30 +35,30 @@ chiptune_player.dsk: CHIPTUNE_PLAYER ./krw/INTRO2.KRW HELLO
|
||||
|
||||
chiptune_unrolled.dsk: CHIPTUNE_UNROLLED ./krw/INTRO2.KRW
|
||||
cp chiptune_empty.dsk chiptune_unrolled.dsk
|
||||
$(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x0C00 CHIPTUNE_UNROLLED
|
||||
$(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/CAMOUFLAGE.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/CHRISTMAS.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/CRMOROS.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/DEATH2.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/DEMO4.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/HARKONEN.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/INTRO2.KRW
|
||||
# $(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/KORO.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/LYRA2.KRW
|
||||
# $(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/MMCM.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/RANDOM.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/ROBOT.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/SDEMO.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/SPUTNIK.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/TECHNO.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/UNIVERSE.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk SAVE B ./krw/WAVE.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x0800 CHIPTUNE_UNROLLED
|
||||
$(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/CAMOUFLAGE.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/CHRISTMAS.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/CRMOROS.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/DEATH2.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/DEMO4.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/HARKONEN.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/INTRO2.KRW
|
||||
# $(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/KORO.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/LYRA2.KRW
|
||||
# $(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/MMCM.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/RANDOM.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/ROBOT.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/SDEMO.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/SPUTNIK.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/TECHNO.KRW
|
||||
$(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/UNIVERSE.KRW
|
||||
# $(DOS33) -y chiptune_unrolled.dsk BSAVE -a 0x1c00 ./krw/WAVE.KRW
|
||||
|
||||
HELLO: hello.bas
|
||||
../asoft_basic-utils/tokenize_asoft < hello.bas > HELLO
|
||||
|
||||
CHIPTUNE_PLAYER: chiptune_player.o
|
||||
ld65 -o CHIPTUNE_PLAYER chiptune_player.o -C ../linker_scripts/apple2_c00.inc
|
||||
ld65 -o CHIPTUNE_PLAYER chiptune_player.o -C ../linker_scripts/apple2_800.inc
|
||||
|
||||
chiptune_player.o: chiptune_player.s \
|
||||
../asm_routines/mockingboard.s \
|
||||
@ -67,11 +67,11 @@ chiptune_player.o: chiptune_player.s \
|
||||
../asm_routines/keypress_minimal.s \
|
||||
qkumba_rts.s \
|
||||
rasterbars.s volume_bars.s interrupt_handler.s \
|
||||
song_list.inc chip_title.inc zp.inc
|
||||
song_list.inc chip_title.inc zp.inc chip_title_uncompressed.inc
|
||||
ca65 -o chiptune_player.o chiptune_player.s -l chiptune_player.lst
|
||||
|
||||
CHIPTUNE_UNROLLED: chiptune_unrolled.o
|
||||
ld65 -o CHIPTUNE_UNROLLED chiptune_unrolled.o -C ../linker_scripts/apple2_c00.inc
|
||||
ld65 -o CHIPTUNE_UNROLLED chiptune_unrolled.o -C ../linker_scripts/apple2_800.inc
|
||||
|
||||
chiptune_unrolled.o: chiptune_player.s \
|
||||
../asm_routines/mockingboard.s \
|
||||
|
||||
139
chiptune_player/chip_title_uncompressed.inc
Normal file
139
chiptune_player/chip_title_uncompressed.inc
Normal file
@ -0,0 +1,139 @@
|
||||
|
||||
; LINE 0-1
|
||||
; make room for jmp
|
||||
;.byte $00,$00,$00,
|
||||
.byte $00,$00,$00,$00,$00,$00,$00
|
||||
.byte $00,$00,$00,$00,$10,$10,$10,$40,$20,$20
|
||||
.byte $20,$40,$20,$20,$20,$00,$00,$00,$00,$00
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$0c,$00,$4C
|
||||
; LINE 16-17
|
||||
.byte $00,$11,$00,$02,$22,$22,$00,$22,$00,$22
|
||||
.byte $00,$22,$00,$22,$00,$00,$00,$00,$33,$00
|
||||
.byte $00,$33,$33,$33,$00,$33,$00,$00,$33,$00
|
||||
.byte $33,$33,$33,$00,$33,$33,$33,$00,$11,$00
|
||||
; LINE 32-33
|
||||
.byte $11,$00,$00,$00,$00,$00,$00,$00,$00,$44
|
||||
.byte $44,$44,$44,$44,$44,$44,$44,$44,$44,$44
|
||||
.byte $44,$44,$44,$44,$44,$44,$44,$44,$44,$44
|
||||
.byte $57,$00,$00,$00,$00,$00,$00,$00,$00,$11
|
||||
; SCREEN HOLE
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
||||
; LINE 2-3
|
||||
.byte $00,$00,$00,$00,$00,$10,$10,$10,$11,$91
|
||||
.byte $91,$91,$91,$00,$11,$11,$11,$44,$22,$22
|
||||
.byte $22,$44,$22,$22,$22,$00,$91,$91,$91,$91
|
||||
.byte $11,$10,$10,$10,$00,$00,$00,$00,$00,$00
|
||||
; LINE 18-19
|
||||
.byte $10,$11,$00,$00,$00,$00,$00,$00,$00,$00
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00,$11,$10
|
||||
; LINE 34-35
|
||||
.byte $11,$00,$00,$00,$00,$00,$00,$00,$00,$05
|
||||
.byte $04,$04,$04,$04,$04,$04,$04,$04,$04,$04
|
||||
.byte $04,$C4,$D4,$C4,$D4,$C4,$D4,$C4,$D4,$04
|
||||
.byte $05,$00,$00,$00,$00,$00,$00,$00,$00,$11
|
||||
; SCREEN HOLE
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
||||
; LINE 4-5
|
||||
.byte $00,$00,$10,$11,$91,$91,$99,$D9,$D9,$D9
|
||||
.byte $DD,$CD,$CD,$C0,$00,$11,$44,$44,$44,$22
|
||||
.byte $44,$44,$44,$22,$00,$C0,$CD,$CD,$DD,$D9
|
||||
.byte $D9,$D9,$99,$91,$91,$91,$11,$10,$00,$00
|
||||
; LINE 20-21
|
||||
.byte $11,$00,$00,$00,$00,$00,$00,$00,$00,$40
|
||||
.byte $40,$40,$40,$40,$40,$40,$40,$40,$40,$40
|
||||
.byte $40,$40,$40,$40,$40,$40,$40,$40,$40,$40
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$11
|
||||
; LINE 36-37
|
||||
.byte $11,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||
.byte $00,$0C,$0D,$0C,$0D,$0C,$0D,$0C,$0D,$00
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$11
|
||||
; SCREEN HOLE
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
||||
; LINE 6-7
|
||||
.byte $00,$10,$91,$D9,$D9,$DD,$CD,$CD,$6C,$6C
|
||||
.byte $6C,$06,$06,$06,$00,$01,$04,$04,$04,$02
|
||||
.byte $04,$04,$04,$02,$00,$06,$06,$06,$6C,$6C
|
||||
.byte $6C,$CD,$CD,$CD,$DD,$D9,$D9,$91,$10,$00
|
||||
; LINE 22-23
|
||||
.byte $11,$00,$00,$00,$00,$C0,$00,$00,$00,$44
|
||||
.byte $55,$55,$55,$44,$55,$55,$55,$55,$55,$44
|
||||
.byte $55,$45,$55,$44,$94,$44,$4E,$44,$4E,$44
|
||||
.byte $00,$00,$00,$00,$00,$00,$C0,$00,$00,$11
|
||||
; LINE 38-39
|
||||
.byte $11,$10,$10,$10,$10,$10,$10,$10,$10,$10
|
||||
.byte $10,$10,$10,$10,$10,$10,$10,$10,$10,$10
|
||||
.byte $10,$10,$10,$10,$10,$10,$10,$10,$10,$10
|
||||
.byte $10,$10,$10,$10,$10,$10,$10,$10,$10,$11
|
||||
; SCREEN HOLE
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
||||
; LINE 8-9
|
||||
.byte $00,$11,$00,$00,$00,$00,$00,$00,$00,$00
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00,$11,$00
|
||||
; LINE 24-25
|
||||
.byte $11,$00,$00,$C0,$CC,$C0,$C0,$00,$00,$44
|
||||
.byte $55,$55,$55,$44,$55,$55,$55,$55,$55,$44
|
||||
.byte $55,$54,$55,$44,$94,$44,$55,$44,$55,$44
|
||||
.byte $00,$00,$00,$00,$C0,$CC,$C0,$C0,$00,$11
|
||||
; LINE 40-41
|
||||
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
|
||||
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
|
||||
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
|
||||
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
|
||||
; SCREEN HOLE
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
||||
; LINE 10-11
|
||||
.byte $00,$11,$00,$20,$22,$22,$00,$22,$00,$22
|
||||
.byte $00,$22,$00,$22,$22,$20,$00,$33,$33,$33
|
||||
.byte $00,$33,$00,$33,$00,$33,$00,$00,$33,$00
|
||||
.byte $33,$33,$33,$00,$33,$33,$33,$00,$11,$00
|
||||
; LINE 26-27
|
||||
.byte $11,$00,$9D,$9D,$9D,$9D,$00,$00,$00,$44
|
||||
.byte $44,$44,$44,$44,$44,$44,$44,$44,$44,$44
|
||||
.byte $44,$44,$44,$44,$44,$44,$44,$64,$44,$64
|
||||
.byte $44,$00,$00,$9D,$9D,$9D,$9D,$00,$00,$11
|
||||
; LINE 42-43
|
||||
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
|
||||
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
|
||||
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
|
||||
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
|
||||
; SCREEN HOLE
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
||||
; LINE 12-13
|
||||
.byte $00,$11,$00,$22,$00,$00,$00,$22,$20,$22
|
||||
.byte $00,$22,$00,$22,$00,$22,$00,$00,$33,$00
|
||||
.byte $00,$33,$00,$33,$00,$33,$33,$30,$33,$00
|
||||
.byte $33,$30,$00,$00,$33,$30,$30,$00,$11,$00
|
||||
; LINE 28-29
|
||||
.byte $11,$00,$21,$21,$21,$21,$21,$00,$00,$44
|
||||
.byte $55,$55,$55,$44,$55,$55,$55,$55,$55,$44
|
||||
.byte $55,$45,$55,$44,$54,$54,$44,$66,$44,$66
|
||||
.byte $44,$00,$00,$21,$21,$21,$21,$21,$00,$11
|
||||
; LINE 44-45
|
||||
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
|
||||
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
|
||||
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
|
||||
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
|
||||
; SCREEN HOLE
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
||||
; LINE 14-15
|
||||
.byte $00,$11,$00,$22,$00,$00,$00,$22,$02,$22
|
||||
.byte $00,$22,$00,$22,$22,$02,$00,$00,$33,$00
|
||||
.byte $00,$33,$00,$33,$00,$33,$00,$33,$33,$00
|
||||
.byte $33,$03,$00,$00,$03,$03,$33,$00,$11,$00
|
||||
; LINE 30-31
|
||||
.byte $11,$00,$00,$06,$06,$06,$00,$00,$00,$44
|
||||
.byte $55,$55,$55,$44,$55,$55,$55,$55,$55,$44
|
||||
.byte $55,$54,$55,$44,$45,$45,$44,$46,$44,$46
|
||||
.byte $44,$00,$00,$00,$06,$06,$06,$00,$00,$11
|
||||
; LINE 46-47
|
||||
.byte 'L'|$80,'O'|$80,'A'|$80,'D'|$80,'I'|$80,'N'|$80,'G'|$80,' '|$80,'V'|$80,'M'|$80
|
||||
.byte 'W'|$80,' '|$80,'C'|$80,'H'|$80,'I'|$80,'P'|$80,'T'|$80,'U'|$80,'N'|$80,'E'|$80
|
||||
.byte 'P'|$80,'L'|$80,'A'|$80,'Y'|$80,'E'|$80,'R'|$80,' '|$80,'V'|$80,'1'|$80,'.'|$80
|
||||
.byte '3'|$80,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
|
||||
; SCREEN HOLE
|
||||
;.byte $00,$00,$00,$00,$00,$00,$00,$00
|
||||
@ -15,11 +15,19 @@ UNPACK_BUFFER EQU $6000 ; $6000 - $9800, 14k, $3800
|
||||
|
||||
NUM_FILES EQU 15
|
||||
|
||||
|
||||
jmp chiptune_setup
|
||||
|
||||
.include "chip_title_uncompressed.inc"
|
||||
|
||||
.align $400
|
||||
|
||||
;=============================
|
||||
; Setup
|
||||
;=============================
|
||||
jsr HOME
|
||||
jsr TEXT
|
||||
chiptune_setup:
|
||||
; jsr HOME
|
||||
; jsr TEXT
|
||||
|
||||
; Init disk code
|
||||
|
||||
@ -35,23 +43,23 @@ NUM_FILES EQU 15
|
||||
sta MB_CHUNK_OFFSET
|
||||
sta DECODE_ERROR
|
||||
|
||||
lda #$ff
|
||||
sta RASTERBARS_ON
|
||||
|
||||
lda #0
|
||||
|
||||
; lda #0
|
||||
; lda #4 ; start at DEMO4
|
||||
; lda #7 ; start at LYRA
|
||||
; lda #10 ; start at SDEMO
|
||||
sta WHICH_FILE
|
||||
|
||||
|
||||
lda #$ff
|
||||
sta RASTERBARS_ON
|
||||
|
||||
; print detection message
|
||||
|
||||
lda #<mocking_message ; load loading message
|
||||
sta OUTL
|
||||
lda #>mocking_message
|
||||
sta OUTH
|
||||
jsr move_and_print ; print it
|
||||
; lda #<mocking_message ; load loading message
|
||||
; sta OUTL
|
||||
; lda #>mocking_message
|
||||
; sta OUTH
|
||||
; jsr move_and_print ; print it
|
||||
|
||||
jsr mockingboard_detect_slot4 ; call detection routine
|
||||
cpx #$1
|
||||
@ -122,25 +130,27 @@ mockingboard_found:
|
||||
; Draw title screen
|
||||
;============================
|
||||
|
||||
jsr set_gr_page0 ; set page 0
|
||||
; jsr set_gr_page0 ; set page 0
|
||||
|
||||
lda #$4 ; draw page 1
|
||||
sta DRAW_PAGE
|
||||
; lda #$4 ; draw page 1
|
||||
; sta DRAW_PAGE
|
||||
|
||||
jsr clear_screens ; clear both screens
|
||||
; jsr clear_screens ; clear both screens
|
||||
|
||||
lda #<chip_title ; point to title data
|
||||
sta GBASL
|
||||
lda #>chip_title
|
||||
sta GBASH
|
||||
; lda #<chip_title ; point to title data
|
||||
; sta GBASL
|
||||
; lda #>chip_title
|
||||
; sta GBASH
|
||||
|
||||
; bit PAGE1
|
||||
|
||||
; Load image ; load the image
|
||||
lda #<$400
|
||||
sta BASL
|
||||
lda #>$400
|
||||
sta BASH
|
||||
; lda #<$800
|
||||
; sta BASL
|
||||
; lda #>$800
|
||||
; sta BASH
|
||||
|
||||
jsr load_rle_gr
|
||||
; jsr load_rle_gr
|
||||
|
||||
;==================
|
||||
; load first song
|
||||
@ -606,9 +616,8 @@ krw_file:
|
||||
.include "../asm_routines/mockingboard_a.s"
|
||||
.include "../asm_routines/gr_fast_clear.s"
|
||||
.include "../asm_routines/pageflip.s"
|
||||
.include "../asm_routines/gr_unrle.s"
|
||||
;.include "../asm_routines/gr_unrle.s"
|
||||
.include "../asm_routines/gr_setpage.s"
|
||||
;.include "../asm_routines/dos33_routines.s"
|
||||
.include "qkumba_rts.s"
|
||||
.include "../asm_routines/gr_hlin.s"
|
||||
.include "../asm_routines/lz4_decode.s"
|
||||
@ -623,13 +632,9 @@ krw_file:
|
||||
;=========
|
||||
; strings
|
||||
;=========
|
||||
mocking_message: .asciiz "LOOKING FOR MOCKINGBOARD IN SLOT #4"
|
||||
;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"
|
||||
|
||||
;============
|
||||
; graphics
|
||||
;============
|
||||
.include "chip_title.inc"
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
5 PRINT
|
||||
10 PRINT "LOADING VMW CHIPTUNE PLAYER V1.2"
|
||||
50 PRINT
|
||||
5 GR
|
||||
10 PRINT "LOADING VMW CHIPTUNE PLAYER V1.3"
|
||||
50 PRINT: X=PEEK(49237)
|
||||
100 PRINT CHR$ (4)"BRUN CHIPTUNE_PLAYER"
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user