diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile index 2dc1f166..f9e8bea4 100644 --- a/basic/appleiibot/Makefile +++ b/basic/appleiibot/Makefile @@ -13,7 +13,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \ RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS \ FASTAR2.BAS BIN.BAS FALLING.BAS SNOW.BAS XMAS.BAS AN3.BAS PLASMA.BAS \ C64.BAS SIERPINSKI.BAS FAKES.BAS SIER.BAS DROPS.BAS RR.BAS RR_HGR.BAS \ - COMBO.BAS WIRES.BAS PATTERN.BAS + COMBO.BAS WIRES.BAS PATTERN.BAS BALL.BAS cp empty.dsk appleiibot.dsk $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD $(DOS33) -y appleiibot.dsk SAVE A HELLO @@ -67,6 +67,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \ $(DOS33) -y appleiibot.dsk SAVE A COMBO.BAS $(DOS33) -y appleiibot.dsk SAVE A WIRES.BAS $(DOS33) -y appleiibot.dsk SAVE A PATTERN.BAS + $(DOS33) -y appleiibot.dsk SAVE A BALL.BAS #### @@ -392,6 +393,11 @@ WIRES.BAS: wires.bas PATTERN.BAS: pattern.bas $(TOKENIZE) < pattern.bas > PATTERN.BAS +#### + +BALL.BAS: ball.bas + $(TOKENIZE) < ball.bas > BALL.BAS + #### diff --git a/basic/appleiibot/ball.bas b/basic/appleiibot/ball.bas new file mode 100644 index 00000000..02c31f92 --- /dev/null +++ b/basic/appleiibot/ball.bas @@ -0,0 +1,2 @@ +1FORI=0TO140:POKE875+I,4*PEEK(2125+I)-192+(PEEK(2266+I/3)-35)/4^(I-INT(I/3)*3):NEXT +2&",clJlZ?QnV0QjPn7iD-:EV?ic1;=^1a6lhiZDQi5EmPSX,WE2=mUmQjY3ImYdX3Yo`3l1_0d1jjT1QhQAn:1e/Zk:ZYQiT/Yc5EkYh\^n\gimaoZ`X#ZmLn<$Rm01]a?oLlmlb4f;Q4G0S@'+5+6K'CE6(/L3;4:DJ#$'#<>'?6)3V+[C.KX(W3XH,6_ diff --git a/graphics/gr/plasma/wires.s b/graphics/gr/plasma/wires.s index 471b92c4..36cd4899 100644 --- a/graphics/gr/plasma/wires.s +++ b/graphics/gr/plasma/wires.s @@ -18,7 +18,7 @@ CTEMP = $FC ;================================ ; Clear screen and setup graphics ;================================ -plasma: +wires: ; jsr SETGR ; set lo-res 40x40 mode bit SET_GR @@ -200,7 +200,7 @@ colorlookup: ; Length is 141 so start at $3f4 - ; 1013 - 141 + 3 = 875 = $36B - jmp plasma + jmp wires ; make lookup happen at page boundary