Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-07 08:30:20 +00:00
Code Issues Projects Releases Wiki Activity

botdemo: back to showing all

Browse Source
This commit is contained in:
Vince Weaver 2020-11-17 19:20:30 -05:00
parent 2151b0002f
commit 9ce02b1874
5 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
appleiibot/circles.bas
View File

@ -1,2 +1,2 @@
2 GR:FOR X=0TO100:A=(PEEK(2245+X/2)-32)/4:IFJTHENA=(A-INT(A))*4
3 J=NOTJ:POKE768+X,(PEEK(2144+X)-32)*4+A:NEXT:CALL768:REM+4PY_H&A\RH%A\B&N3 ""?2 29_*'222A^JN8 A,I\B( ^I\( ^I^B( ^I\( ^Y\B$SY\R$P,N)('&&%%$$##""!!!! 5 ="""". ! &.)+)!.*#!'$!( ' . !, ) "."!!+&"""')#)$ $,
2 FOR X=0TO100:A=(PEEK(2245+X/2)-32)/4:IFJTHENA=(A-INT(A))*4
3 J=NOTJ:POKE768+X,(PEEK(2144+X)-32)*4+A:NEXT:GR:CALL768:REM+4PY_H&A^RH%A^B&N3 ""?2 29_*'222A_JN8 A,I^B( ^I^( ^I_B( ^I^( ^Y^B$SY^R$P,N)('&&%%$$##""!!!! 5 =""*". ! &.)+)).*!!'$!( ' & !, ) "."!!+&"""')#)$ $,

BIN
bot_demo/CIRCLES.BAS
View File

Binary file not shown.

2
bot_demo/botdemo.s
View File

@ -170,4 +170,4 @@ original_stack: .byte $00
PT3_LOC = song
.align $100
song:
.incbin "music/Second_Best_2_Nothing.pt3"
.incbin "music/A_UpBeat_Thingy.pt3"

28
bot_demo/timeline.inc
View File

@ -12,28 +12,24 @@
todo_list:
.byte DO_LOAD,1, DO_LIST,4, DO_RUN,5 ; flame
.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,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_CREDITS,$FF
.byte DONE,$FF
.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,15 ; nyan
; .byte DO_LOAD,1, DO_LIST,4, DO_RUN,15 ; rle
.byte DO_LOAD,1, DO_LIST,4, DO_RUN,15 ; raster
.byte DO_LOAD,1, DO_LIST,4, DO_RUN,15 ; qr
.byte DO_LOAD,1, DO_LIST,4, DO_RUN,10 ; dhgr
.byte DO_LOAD,1, DO_LIST,4, DO_RUN,10 ; circles
file_list:
.word flame,flame_end
.word autumn,autumn_end
.word a2,a2_end
.word flyer,flyer_end
.word nyan,nyan_end
@ -42,13 +38,13 @@ file_list:
.word qr,qr_end
.word dhgr,dhgr_end
.word circles,circles_end
.word autumn,autumn_end
title_list:
.word flame_title
.word autumn_title
.word a2_title
.word flyer_title
.word nyan_title
@ -57,6 +53,8 @@ title_list:
.word qr_title
.word dhgr_title
.word circles_title
.word autumn_title
; 0123456789012345678901234567890123456789
@ -65,7 +63,7 @@ flame_title:
a2_title:
.byte " LO-RES SELF PORTRAIT "
flyer_title:
.byte " HI-RES SHAPETABLE FLYER "
.byte " HI-RES SHAPETABLE FLYER "
nyan_title:
.byte " HI-RES ANIMATED NYAN CAT "
qr_title:

18
hellmood_memories/circles_normal.s
View File

@ -1,5 +1,7 @@
; Zooming Circles, based on the code in Hellmood's Memories
; for use *not* in zero page (for appleii bot)
; by deater (Vince Weaver) <vince@deater.net>
; Zero Page
@ -8,15 +10,15 @@ BASH = $29
H2 = $2C
COLOR = $30
X1 = $F0
X2 = $F1
Y1 = $F2
Y2 = $F3
X1 = $F8
X2 = $F9
Y1 = $FA
Y2 = $FB
TEMP = $FA
TEMPY = $FB
FRAME = $FC
TEMPX = $FD
TEMP = $FC
TEMPY = $FD
FRAME = $FE
TEMPX = $FF
; Soft Switches