mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-03 16:29:56 +00:00
168 lines
2.4 KiB
ArmAsm
168 lines
2.4 KiB
ArmAsm
|
; Play music while showing AppleIIbot programs
|
||
|
|
|
||
|
|
; by deater (Vince Weaver) <vince@deater.net>
|
||
|
|
|
||
|
|
; Zero Page
|
||
|
|
.include "zp.inc"
|
||
|
|
.include "hardware.inc"
|
||
|
|
|
||
|
|
DONE = 0
|
||
|
|
DO_LOAD = 1
|
||
|
|
DO_LIST = 2
|
||
|
|
DO_RUN = 3
|
||
|
|
|
||
|
|
|
||
|
|
bot_demo:
|
||
|
|
;===================
|
||
|
|
; init some stuff
|
||
|
|
|
||
|
|
; we have from $6000 to $9600 (DOS 3.3)
|
||
|
|
; which is $3600 = 12 + 1.5 = 13.5k
|
||
|
|
|
||
|
|
; we don't need to set HIMEM as we don't use many vars
|
||
|
|
; and variable memory starts right after the program it seems
|
||
|
|
|
||
|
|
|
||
|
|
;===================
|
||
|
|
; PT3 Setup
|
||
|
|
|
||
|
|
lda #0
|
||
|
|
sta DONE_PLAYING
|
||
|
|
lda #1
|
||
|
|
sta LOOP
|
||
|
|
|
||
|
|
jsr mockingboard_detect
|
||
|
|
bcc mockingboard_not_found
|
||
|
|
setup_interrupt:
|
||
|
|
jsr mockingboard_init
|
||
|
|
jsr mockingboard_setup_interrupt
|
||
|
|
jsr reset_ay_both
|
||
|
|
jsr clear_ay_both
|
||
|
|
jsr pt3_init_song
|
||
|
|
|
||
|
|
start_interrupts:
|
||
|
|
tsx
|
||
|
|
stx original_stack
|
||
|
|
|
||
|
|
cli
|
||
|
|
|
||
|
|
mockingboard_not_found:
|
||
|
|
|
||
|
|
;===================
|
||
|
|
; init screen
|
||
|
|
jsr TEXT
|
||
|
|
jsr HOME
|
||
|
|
bit KEYRESET
|
||
|
|
|
||
|
|
; GR part
|
||
|
|
; bit PAGE1
|
||
|
|
; bit LORES ; 4
|
||
|
|
; bit SET_GR ; 4
|
||
|
|
|
||
|
|
; bit FULLGR ; 4
|
||
|
|
|
||
|
|
;===================
|
||
|
|
; init vars
|
||
|
|
|
||
|
|
; lda #0
|
||
|
|
; sta DRAW_PAGE
|
||
|
|
; lda #4
|
||
|
|
; sta DISP_PAGE
|
||
|
|
|
||
|
|
;=============================
|
||
|
|
; Load desire 1st
|
||
|
|
|
||
|
|
; lda #<desire_rle
|
||
|
|
; sta GBASL
|
||
|
|
; lda #>desire_rle
|
||
|
|
; sta GBASH
|
||
|
|
; lda #$c
|
||
|
|
; jsr load_rle_gr
|
||
|
|
|
||
|
|
; jsr gr_copy_to_current ; copy to page1
|
||
|
|
|
||
|
|
; jsr page_flip
|
||
|
|
|
||
|
|
; jsr wait_until_keypress
|
||
|
|
|
||
|
|
|
||
|
|
; jsr do_list
|
||
|
|
|
||
|
|
; jsr do_list
|
||
|
|
|
||
|
|
|
||
|
|
done:
|
||
|
|
lda trigger
|
||
|
|
beq not_trigger
|
||
|
|
|
||
|
|
lda #0
|
||
|
|
sta trigger
|
||
|
|
|
||
|
|
lda command
|
||
|
|
cmp #DONE
|
||
|
|
beq done
|
||
|
|
|
||
|
|
cmp #DO_LIST
|
||
|
|
bne not_do_list
|
||
|
|
jmp do_list
|
||
|
|
|
||
|
|
not_do_list:
|
||
|
|
cmp #DO_LOAD
|
||
|
|
bne not_do_load
|
||
|
|
jsr do_load
|
||
|
|
jmp not_trigger
|
||
|
|
|
||
|
|
not_do_load:
|
||
|
|
cmp #DO_RUN
|
||
|
|
bne not_trigger
|
||
|
|
|
||
|
|
jmp do_run
|
||
|
|
|
||
|
|
not_trigger:
|
||
|
|
|
||
|
|
jmp done
|
||
|
|
|
||
|
|
|
||
|
|
todo_list:
|
||
|
|
.byte DO_LOAD,1
|
||
|
|
.byte DO_LIST,4
|
||
|
|
.byte DO_RUN,10 ; flyer
|
||
|
|
.byte DO_LOAD,1
|
||
|
|
.byte DO_LIST,4
|
||
|
|
.byte DO_RUN,20 ; nyan
|
||
|
|
.byte DO_LOAD,1
|
||
|
|
.byte DO_LIST,5
|
||
|
|
.byte DO_RUN,15 ; qr
|
||
|
|
.byte DONE,$FF
|
||
|
|
|
||
|
|
command: .byte $00
|
||
|
|
which: .byte $00
|
||
|
|
timeout: .byte $01
|
||
|
|
trigger: .byte $00
|
||
|
|
original_stack: .byte $00
|
||
|
|
|
||
|
|
; .include "gr_unrle.s"
|
||
|
|
; .include "gr_unrle_large.s"
|
||
|
|
; .include "gr_offsets.s"
|
||
|
|
; .include "gr_copy.s"
|
||
|
|
; .include "gr_copy_large.s"
|
||
|
|
; .include "gr_pageflip.s"
|
||
|
|
|
||
|
|
.include "pt3_lib_core.s"
|
||
|
|
.include "pt3_lib_init.s"
|
||
|
|
.include "pt3_lib_mockingboard_setup.s"
|
||
|
|
.include "interrupt_handler.s"
|
||
|
|
; if you're self patching, detect has to be after interrupt_handler.s
|
||
|
|
.include "pt3_lib_mockingboard_detect.s"
|
||
|
|
|
||
|
|
.include "load.s"
|
||
|
|
|
||
|
|
.include "nozp.inc"
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
PT3_LOC = song
|
||
|
|
.align $100
|
||
|
|
song:
|
||
|
|
.incbin "../pt3_player/music/DF.PT3"
|