From e5818412f3a0f8f4a832017fe73fe62785630651 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Thu, 7 Oct 2021 22:58:21 -0400
Subject: [PATCH] hgr: wires: add basicbot version

---
 basic/appleiibot/Makefile     |  8 +++++++-
 basic/appleiibot/wire_hgr.bas |  2 ++
 linker_scripts/apple2_39a.inc | 12 ++++++++++++
 3 files changed, 21 insertions(+), 1 deletion(-)
 create mode 100644 basic/appleiibot/wire_hgr.bas
 create mode 100644 linker_scripts/apple2_39a.inc

diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile
index 4483f287..3a40840a 100644
--- a/basic/appleiibot/Makefile
+++ b/basic/appleiibot/Makefile
@@ -18,7 +18,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	XOR_ZOOM.BAS MOD9_HGR.BAS SIER_HGR.BAS MOVE.BAS SINE.BAS XDRAW128.BAS \
 	GATOR.BAS CURSOR.BAS STARGATE.BAS TUNNEL.BAS STARFIELD.BAS \
 	STAROOPS.BAS HGRSTARFIELD.BAS COOL_BOT.BAS WEB.BAS ORB.BAS \
-	FIREWORKS.BAS THINKING.BAS ARCS.BAS
+	FIREWORKS.BAS THINKING.BAS ARCS.BAS WIRE_HGR.BAS
 
 #	cp $(EMPTY_DISK)/empty.dsk  appleiibot.dsk
 	cp empty.dsk appleiibot.dsk
@@ -96,6 +96,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	$(DOS33) -y appleiibot.dsk SAVE A FIREWORKS.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A THINKING.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A ARCS.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A WIRE_HGR.BAS
 
 ####
 
@@ -474,6 +475,11 @@ DROPS.BAS:	drops.bas
 
 ####
 
+WIRE_HGR.BAS:	wire_hgr.bas
+	$(TOKENIZE) < wire_hgr.bas > WIRE_HGR.BAS
+
+####
+
 RR.BAS:	rr.bas
 	$(TOKENIZE) < rr.bas > RR.BAS
 
diff --git a/basic/appleiibot/wire_hgr.bas b/basic/appleiibot/wire_hgr.bas
new file mode 100644
index 00000000..8493960d
--- /dev/null
+++ b/basic/appleiibot/wire_hgr.bas
@@ -0,0 +1,2 @@
+1FORI=0TO+93:POKE922+I,4*PEEK(2125+I)-204+(PEEK(2219+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&"/foW2]/\T;]CM;be2W8dbg2W<eg%i<YCd4emQ8M)35IBl;e5\S_*33M:l2j<]1l;]Ka<gjmk4oa[^heohcghS[]S\aeDY3S53)@B5A%]4F5M4*(ILMK*0%&S88MNE&
diff --git a/linker_scripts/apple2_39a.inc b/linker_scripts/apple2_39a.inc
new file mode 100644
index 00000000..6e6c4527
--- /dev/null
+++ b/linker_scripts/apple2_39a.inc
@@ -0,0 +1,12 @@
+MEMORY {
+       ZP: start = $00, size = $1A, type = rw;
+       RAM: start = $39a, 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 = zp;
+}