Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

botdemo: some more tuning

This commit is contained in:
Vince Weaver 2020-11-17 22:05:43 -05:00
parent 9ce02b1874
commit c005a096ad
3 changed files with 26 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bot_demo/botdemo.s
View File

@ -141,7 +141,7 @@ not_trigger:
command: .byte $00
which: .byte $00
timeout: .byte 10
timeout: .byte 8 ; original timeout
trigger: .byte $00
original_stack: .byte $00

9
bot_demo/commands.s
View File

@ -131,7 +131,16 @@ bottom_loop:
;=============================
;=============================
do_run:
lda which_file ; is actually +1 at this point
cmp #5 ; raster
beq no_home
cmp #7
bcs no_home
jsr HOME
no_home:
lda #<run_string
sta cti_smc+1

31
bot_demo/timeline.inc
View File

@ -15,32 +15,33 @@ todo_list:
.byte DO_LOAD,1, DO_LIST,4, DO_RUN,15 ; a2
.byte DO_LOAD,1, DO_LIST,4, DO_RUN,10 ; flyer
.byte DO_LOAD,1, DO_LIST,4, DO_RUN,20 ; nyan
; .byte DO_LOAD,1, DO_LIST,4, DO_RUN,15 ; rle
.byte DO_LOAD,1, DO_LIST,4, DO_RUN,20 ; raster
.byte DO_LOAD,1, DO_LIST,1, DO_RUN,20 ; raster
.byte DO_LOAD,1, DO_LIST,4, DO_RUN,35 ; qr
.byte DO_LOAD,1, DO_LIST,4, DO_RUN,12 ; dhgr
.byte DO_LOAD,1, DO_LIST,4, DO_RUN,10 ; circles
.byte DO_LOAD,1, DO_LIST,4, DO_RUN,10 ; autumn
.byte DO_LOAD,1, DO_LIST,1, DO_RUN,12 ; dhgr
.byte DO_LOAD,1, DO_LIST,1, DO_RUN,10 ; circles
.byte DO_LOAD,1, DO_LIST,1, DO_RUN,10 ; autumn
.byte DO_CREDITS,$FF
.byte DONE,$FF
; .byte DO_LOAD,1, DO_LIST,4, DO_RUN,15 ; rle
file_list:
.word flame,flame_end
.word a2,a2_end
.word flyer,flyer_end
.word nyan,nyan_end
; .word rle,rle_end
.word raster,raster_end
.word qr,qr_end
.word dhgr,dhgr_end
.word circles,circles_end
.word autumn,autumn_end
.word flame,flame_end ; 0
.word a2,a2_end ; 1
.word flyer,flyer_end ; 2
.word nyan,nyan_end ; 3
.word raster,raster_end ; 4
.word qr,qr_end ; 5
.word dhgr,dhgr_end ; 6
.word circles,circles_end ; 7
.word autumn,autumn_end ; 8
; .word rle,rle_end
title_list: