fuzzball: work on demo

demos/l/fuzzball_32/Makefile

@@ -0,0 +1,46 @@
+include ../../../Makefile.inc
+
+DOS33 = ../../../utils/dos33fs-utils/dos33
+TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft
+EMPTYDISK = ../../../empty_disk/empty.dsk
+
+all:	fuzzball_32.dsk
+
+fuzzball_32.dsk:	HELLO FUZZBALL
+	cp $(EMPTYDISK) fuzzball_32.dsk
+	$(DOS33) -y fuzzball_32.dsk SAVE A HELLO
+	$(DOS33) -y fuzzball_32.dsk BSAVE -a 0xE7 FUZZBALL
+
+###
+
+submit:	fuzzball32.zip
+
+fuzzball32.zip:	FUZZBALL fuzzball.s file_id.diz fuzzball_32.dsk
+	mkdir -p lovebyte2022_fuzzball_32
+	cp FUZZBALL ./lovebyte2022_fuzzball_32
+	cp fuzzball.s ./lovebyte2022_fuzzball_32
+	cp file_id.diz ./lovebyte2022_fuzzball_32
+	cp fuzzball_32.dsk ./lovebyte2022_fuzzball_32
+	cp fuzzball_720p.mp4 ./lovebyte2022_fuzzball_32
+	zip -r fuzzball32.zip lovebyte2022_fuzzball_32
+
+####
+
+
+####
+
+HELLO:	hello.bas
+	$(TOKENIZE) < hello.bas > HELLO
+
+###
+
+FUZZBALL:	fuzzball.o
+	ld65 -o FUZZBALL fuzzball.o -C ./apple2_e7_zp.inc
+
+fuzzball.o:	fuzzball.s
+	ca65 -o fuzzball.o fuzzball.s -l fuzzball.lst
+
+####
+
+clean:	
+	rm -f *~ *.o *.lst HELLO FUZZBALL *.zip

demos/l/fuzzball_32/apple2_e7_zp.inc

@@ -0,0 +1,12 @@
+MEMORY {
+       ZP: start = $E7, size = $90, type = rw;
+       RAM: start = $E7, size = $8E00, file = %O;
+}
+
+SEGMENTS {
+#CODE: load = RAM, type = ro;
+#RODATA: load = RAM, type = ro;
+#DATA: load = RAM, type = rw;
+#BSS: load = RAM, type = bss, define = yes;
+ZEROPAGE: load = ZP, type = ro;
+}

demos/l/fuzzball_32/file_id.diz

@@ -0,0 +1,5 @@
+Fuzzball
+-
+Hi-res Xdraw Pattern with sound
+32-byte Intro for Apple II, Lovebyte 2022
+by Deater / dSr

demos/l/fuzzball_32/fuzzball.s

@@ -0,0 +1,50 @@
+; Fuzzball -- a 32 byte Intro for Apple II
+
+; this one was a mistake, it ends up walking through memory
+;	using it as a shape table
+
+
+; by Deater / dSr
+
+; zero page locations
+HGR_SCALE	= $E7
+
+; softswtich
+SPEAKER		= $C030
+
+; ROM calls
+HGR2		= $F3D8
+HPOSN		= $F411
+XDRAW0		= $F65D
+
+.zeropage
+
+tiny_tiny:
+
+	jsr	HGR2		; Hi-res graphics, no text at bottom
+				; Y=0, A=0 after this call
+
+	iny			; #1
+	sty	HGR_SCALE
+
+tiny_loop:
+	; move back to center of screen
+	ldy	#0		; Y always 0
+	ldx	#140
+	lda	#96
+	jsr	HPOSN		; X= (y,x) Y=(a)
+
+	bit	SPEAKER		; click the speaker
+
+rot_smc:
+	lda	#0		; ROT=0
+	tay			; ldy	#>shape_table
+
+	; X is 140 here
+
+	jsr	XDRAW0		; XDRAW 1 AT X,Y
+				; Both A and X are 0 at exit
+
+	inc	rot_smc+1
+	jmp	tiny_loop	; use BVC to save byte?
+

demos/l/fuzzball_32/hello.bas

@@ -0,0 +1,9 @@
+5 HOME
+10 PRINT "  FUZZBALL -- A 32 BYTE APPLE II INTRO"
+15 PRINT "           BY DEATER / DSR"
+20 PRINT CHR$(4)"CATALOG"
+25 PRINT:PRINT "PRESS ANY KEY TO 'BRUN FUZZBALL'"
+30 GET A$
+35 PRINT
+40 PRINT CHR$(4)"BRUN FUZZBALL"
+