lovebyte: still questing for 15byte entry

demos/lovebyte2023/weave_16/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:	agony17.dsk
+
+agony17.dsk:	HELLO AGONY17
+	cp $(EMPTYDISK) agony17.dsk
+	$(DOS33) -y agony17.dsk SAVE A HELLO
+	$(DOS33) -y agony17.dsk BSAVE -a 0xE7 AGONY17
+
+###
+
+submit:	agony17.zip
+
+agony1732.zip:	AGONY17 agony17.s file_id.diz agony17.dsk
+	mkdir -p lovebyte2023_agony17
+	cp AGONY17 ./lovebyte2023_agony17
+	cp agony17.s ./lovebyte2023_agony17
+	cp file_id.diz ./lovebyte2023_agony17
+	cp agony17.dsk ./lovebyte2023_agony17
+	cp agony17_720p.mp4 ./lovebyte2023_agony17
+	zip -r agony1732.zip lovebyte2023_agony17
+
+####
+
+
+####
+
+HELLO:	hello.bas
+	$(TOKENIZE) < hello.bas > HELLO
+
+###
+
+AGONY17:	agony17.o
+	ld65 -o AGONY17 agony17.o -C ./apple2_e7_zp.inc
+
+agony17.o:	agony17.s
+	ca65 -o agony17.o agony17.s -l agony17.lst
+
+####
+
+clean:	
+	rm -f *~ *.o *.lst HELLO AGONY17 *.zip

demos/lovebyte2023/weave_16/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/lovebyte2023/weave_16/file_id.diz

@@ -0,0 +1,9 @@
+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-
+Weave15
+--------------------------------------
+Hi-res Xdraw Pattern
+by Deater / dSr
+
+15-byte Intro for Apple II
+Lovebyte 2023
+--------------------------------------

demos/lovebyte2023/weave_16/hello.bas

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

demos/lovebyte2023/weave_16/monitor.txt

@@ -0,0 +1,3 @@
+CALL -151
+E7: 20 d8 f3 20 57 f4 a9 e2  aa a8 20 5d f6 f0 f7
+E7G

demos/lovebyte2023/weave_16/weave15.s

@@ -0,0 +1,51 @@
+; 15B Weave Pattern
+
+; by Vince `deater` Weaver / DsR
+
+; for Lovebyte2023
+
+; zero page locations
+GBASL		=	$26
+GBASH		=	$27
+HGR_SCALE	=	$E7
+
+; ROM locations
+HGR2		=	$F3D8
+HPOSN		=	$F411
+XDRAW0		=	$F65D
+XDRAW1		=	$F661
+HPLOT0		=	$F457
+
+weave15:
+
+	; we load at zero page $E7 which is HGR_SCALE
+	; this means the scale is $20 (JSR)
+
+	jsr	HGR2		; Hi-res, full screen		; 3
+				; Y=0, A=0 after this call
+
+	; A and Y are 0 here.
+	; X is left behind by the boot process?
+
+	; set GBASL/GBASH
+	; we really have to call this, otherwise it won't run
+	; on some real hardware depending on setup of zero page at boot
+
+	jsr	HPLOT0		; calls HPOSN and maybe sets some
+				; registers a bit better?
+
+;	jsr	HPOSN		; set screen position to X= (y,x) Y=(a)
+				; saves X,Y,A to zero page
+				; after Y= orig X/7
+				; A and X are ??
+tiny_loop:
+	lda	#$E2		; load $E2 into A, X, and Y
+	tax			; 	our shape table is in ROM at $E2E2
+	tay			;	ROT is in A, but mod64
+
+	jsr	XDRAW0		; XDRAW 1 AT X,Y
+				; Both A and X are 0 at exit
+				; Z flag set on exit
+				; Y varies
+
+	beq	tiny_loop	; bra