From 5dda7169c1a2a8e8d64c82c7fc3fb1de220ec19f Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Tue, 26 Apr 2022 08:09:54 -0400
Subject: [PATCH] gr: work on scroller

---
 graphics/gr/scroll/Makefile  |  47 ++++++++++++
 graphics/gr/scroll/hello.bas |   2 +
 graphics/gr/scroll/hexagon.s | 144 +++++++++++++++++++++++++++++++++++
 3 files changed, 193 insertions(+)
 create mode 100644 graphics/gr/scroll/Makefile
 create mode 100644 graphics/gr/scroll/hello.bas
 create mode 100644 graphics/gr/scroll/hexagon.s

diff --git a/graphics/gr/scroll/Makefile b/graphics/gr/scroll/Makefile
new file mode 100644
index 00000000..b0caa886
--- /dev/null
+++ b/graphics/gr/scroll/Makefile
@@ -0,0 +1,47 @@
+include ../../../Makefile.inc
+
+DOS33 = ../../../utils/dos33fs-utils/dos33
+PNG2GR = ../../../utils/gr-utils/png2gr
+PNG2RLE = ../../../utils/gr-utils/png2rle
+TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft
+LINKERSCRIPTS = ../../../linker_scripts
+EMPTY_DISK = ../../../empty_disk
+
+all:	scroller.dsk
+
+$(DOS33):	
+	cd ../../../utils/dos33fs-utils && make
+
+scroller.dsk:	$(DOS33) HELLO HEXAGON
+	cp $(EMPTY_DISK)/empty.dsk scroller.dsk
+	$(DOS33) -y scroller.dsk SAVE A HELLO
+	$(DOS33) -y scroller.dsk BSAVE -a 0xc00 HEXAGON
+#	$(DOS33) -y scroller.dsk BSAVE -a 0x36C PARTICLE_BOT
+
+###
+
+HELLO:	hello.bas
+	$(TOKENIZE) < hello.bas > HELLO
+
+###
+
+HEXAGON:   hexagon.o
+	ld65 -o HEXAGON hexagon.o -C $(LINKERSCRIPTS)/apple2_c00.inc
+
+hexagon.o: hexagon.s
+	ca65 -o hexagon.o hexagon.s -l hexagon.lst
+
+###
+
+HEXAGON_BOT:   hexagon_bot.o
+	ld65 -o HEXAGON_BOT hexagon_bot.o -C $(LINKERSCRIPTS)/apple2_36c.inc
+
+hexagon_bot.o: hexagon_bot.s
+	ca65 -o hexagon_bot.o hexagon_bot.s -l hexagon_bot.lst
+
+
+###
+
+clean:	
+	rm -f *~ *.o *.lst HELLO HEXAGON HEXAGON_BOT
+
diff --git a/graphics/gr/scroll/hello.bas b/graphics/gr/scroll/hello.bas
new file mode 100644
index 00000000..133a44bb
--- /dev/null
+++ b/graphics/gr/scroll/hello.bas
@@ -0,0 +1,2 @@
+5 HOME
+10 PRINT CHR$(4);"CATALOG"
diff --git a/graphics/gr/scroll/hexagon.s b/graphics/gr/scroll/hexagon.s
new file mode 100644
index 00000000..84b983d6
--- /dev/null
+++ b/graphics/gr/scroll/hexagon.s
@@ -0,0 +1,144 @@
+; hexagon scroll?
+
+; by Vince `deater` Weaver
+
+PARTICLES = 128
+SCALE = 2
+
+COLOR		= $30
+
+QUOTIENT	= $FA
+DIVISOR		= $FB
+DIVIDEND	= $FC
+XX		= $FD
+YY		= $FE
+FRAME		= $FF
+
+FULLGR		= $C052
+LORES		= $C056		; Enable LORES graphics
+
+PLOT		= $F800		; PLOT AT Y,A (A colors output, Y preserved)
+SETGR		= $FB40
+WAIT		= $FCA8		; delay 1/2(26+27A+5A^2) us
+
+hexagon:
+
+	jsr	SETGR
+	bit	FULLGR
+
+
+hexagon_loop:
+
+
+; 104 to beat
+
+	lda	#$4
+	sta	inner_loop_smc+2
+
+line_loop:
+
+	ldx	#120
+	ldy	#0
+screen_loop:
+
+
+inner_loop:
+
+pattern_smc:
+	lda	pattern1,Y
+inner_loop_smc:
+	sta	$400,X
+
+	iny
+	tya
+	and	#$7
+	tay
+
+	dex
+	bpl	screen_loop
+
+;=================================
+
+	; move to next pattern
+
+	clc
+	lda	pattern_smc+1
+	adc	#8
+	sta	pattern_smc+1
+	cmp	#(<pattern1+32)
+	bne	pattern_ok
+	lda	#<pattern1
+	sta	pattern_smc+1
+
+pattern_ok:
+
+	; move to next line
+
+	clc
+	lda	inner_loop_smc+1
+	adc	#$80
+	sta	inner_loop_smc+1	; FIXME just inc if carry set
+	lda	#$00
+	adc	inner_loop_smc+2
+	sta	inner_loop_smc+2
+
+	cmp	#$8
+	bne	line_loop
+
+	; scroll!
+
+
+	clc
+	lda	pattern_smc+1
+	adc	#8
+	sta	pattern_smc+1
+	cmp	#(<pattern1+32)
+	bne	pattern_ok2
+	lda	#<pattern1
+	sta	pattern_smc+1
+
+pattern_ok2:
+
+
+	lda	#200
+	jsr	WAIT
+
+	jmp	hexagon_loop
+
+pattern1:
+	.byte $04,$40,$d4,$4d,$d4,$40,$04,$40
+pattern2:
+	.byte $d4,$4d,$04,$40,$04,$4d,$d4,$40
+pattern3:
+	.byte $d4,$40,$04,$40,$04,$40,$d4,$4d
+pattern4:
+	.byte $04,$4d,$d4,$40,$d4,$4d,$04,$40
+
+	; for bot
+
+	jmp	hexagon
+
+
+
+
+;	lda	pattern1,Y
+;	sta	$400,X
+;	lda	pattern2,Y
+;	sta	$480,X
+;	lda	pattern3,Y
+;	sta	$500,X
+;	lda	pattern4,Y
+;	sta	$580,X
+
+;	lda	pattern1,Y
+;	sta	$600,X
+;	lda	pattern2,Y
+;	sta	$680,X
+;	lda	pattern3,Y
+;	sta	$700,X
+;	lda	pattern4,Y
+;	sta	$780,X
+
+
+
+