dos33fsprogs/bot_demo/botdemo.s
2020-11-20 00:22:19 -05:00

174 lines
2.9 KiB
ArmAsm

; Play music while showing AppleIIbot programs
; by deater (Vince Weaver) <vince@deater.net>
; Zero Page
.include "zp.inc"
.include "hardware.inc"
STROUT = $db3a
NONE = 0
DO_LOAD = 1
DO_LIST = 2
DO_RUN = 3
DO_CREDITS = 4
DONE = 5
;==========================================
; we are loaded at $6000
;
; since we are now decompressed here after load
; we don't have to worry about running into DOS3.3 at $9600
;
; we shouldn't need to set HIMEM as we don't use many vars
; and variable memory starts right after the program
bot_demo:
;===================
; PT3 player 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 SETGR
jsr HOME
; bit SET_GR
; bit TEXTGR
bit KEYRESET
;===================
; init vars
;===================
;=============================
; Load title screen
;=============================
lda #<bg_rle
sta GBASL
lda #>bg_rle
sta GBASH
lda #$c
jsr load_rle_gr
;==============================
; wipe it to page1 gr
;==============================
jsr do_wipe
;=============================
; mockingboard where available
;=============================
jsr mock_anim
;==============================
;==============================
;==============================
; command loop
;==============================
;==============================
;==============================
command_loop:
; check if irq handler has set trigger because we hit limit
lda trigger
beq not_trigger
lda #0 ; reset trigger
sta trigger
lda command ; load current command (also set in irq)
cmp #DONE ; if done, just loop forever
beq command_loop
cmp #DO_LIST ; if command is list
bne not_do_list
jmp do_list ; then do it
not_do_list:
cmp #DO_LOAD ; if command is load
bne not_do_load
jsr do_load ; then do it
jmp not_trigger
not_do_load:
cmp #DO_RUN ; if command is run
bne not_do_run
jmp do_run ; then do it
not_do_run:
; cmp #DO_CREDITS
; bne not_trigger
; jmp switch_to_credits
not_trigger:
jmp command_loop
command: .byte $00
which: .byte $00
timeout: .byte 8 ; original timeout
trigger: .byte $00
original_stack: .byte $00
.include "gr_unrle.s"
.include "gr_offsets.s"
.include "bg.inc"
.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 "commands.s"
.include "timeline.inc"
.include "wipe.s"
.include "mock_anim.s"
.include "credits.s"
.include "nozp.inc"
PT3_LOC = song
.align $100
song:
.incbin "music/mAZE_-_The_Upbeated_Eaten_Apple.pt3"