From 813ab1caee3ae4476368f1f5da59d2f83700d5e7 Mon Sep 17 00:00:00 2001
From: Terence Boldt <terence@boldt.ca>
Date: Wed, 25 Jan 2023 23:07:09 -0500
Subject: [PATCH] Change bas files to symlinks (#123)

---
 Apple2/assemble.sh                         |  3 ---
 RaspberryPi/driveimage/Startup.bas         | 15 +----------
 RaspberryPi/driveimage/Update.Firmware.bas | 29 +---------------------
 3 files changed, 2 insertions(+), 45 deletions(-)
 mode change 100644 => 120000 RaspberryPi/driveimage/Startup.bas
 mode change 100644 => 120000 RaspberryPi/driveimage/Update.Firmware.bas

diff --git a/Apple2/assemble.sh b/Apple2/assemble.sh
index a11afe8..5acf2a4 100755
--- a/Apple2/assemble.sh
+++ b/Apple2/assemble.sh
@@ -54,6 +54,3 @@ rm DriveFirmware.bin
 rm MenuFirmware.bin
 rm CommandFirmware.bin
 rm FileAccessFirmware.bin
-
-cp Update.Firmware.bas ../RaspberryPi/driveimage/
-cp Startup.bas ../RaspberryPi/driveimage/
\ No newline at end of file
diff --git a/RaspberryPi/driveimage/Startup.bas b/RaspberryPi/driveimage/Startup.bas
deleted file mode 100644
index 64e0529..0000000
--- a/RaspberryPi/driveimage/Startup.bas
+++ /dev/null
@@ -1,14 +0,0 @@
-10  HOME
-11  PRINT "Apple2-IO-RPi"
-12  PRINT "(c)2021-2023 Terence J. Boldt"
-13  PRINT 
-14  PRINT "This drive is dynamically generated"
-15  PRINT "from the current working directory on"
-16  PRINT "the Raspberry Pi and is in RAM only."
-17  PRINT 
-18  PRINT "To start a shell to the RPi, type:"
-19  PRINT "-shell"
-20  PRINT 
-21  PRINT "To add RPI command to ProDOS, type:"
-22  PRINT "-rpi.command"
-23  PRINT 
diff --git a/RaspberryPi/driveimage/Startup.bas b/RaspberryPi/driveimage/Startup.bas
new file mode 120000
index 0000000..46801de
--- /dev/null
+++ b/RaspberryPi/driveimage/Startup.bas
@@ -0,0 +1 @@
+../../Apple2/Startup.bas
\ No newline at end of file
diff --git a/RaspberryPi/driveimage/Update.Firmware.bas b/RaspberryPi/driveimage/Update.Firmware.bas
deleted file mode 100644
index 63c0c05..0000000
--- a/RaspberryPi/driveimage/Update.Firmware.bas
+++ /dev/null
@@ -1,28 +0,0 @@
-10  HOME 
-100  PRINT  CHR$ (4)"BLOAD AT28C64B,A$2000"
-200  PRINT "Program the firmare in slot #"
-300  INPUT SL
-400 FW = 8192 + 256 * SL: REM  Firmware source 
-500 PS = 49287 + SL * 16: REM  Firmware page selection
-600 EP = 49152 + SL * 256: REM  EPROM location
-900  HOME 
-1000  FOR PG = 0 TO 3
-1004  PRINT : PRINT 
-1005  PRINT "Writing page "PG" to slot "SL
-1006  PRINT "_______________________________________"
-1007  PRINT "_______________________________________";
-1008  HTAB 1
-1010  POKE PS,PG * 16 + 15: REM  Set firmware page
-1020  FOR X = 0 TO 255
-1030 A =  PEEK (FW + PG * 2048 + X)
-1035 B =  PEEK (EP + X): REM  Skip if unchanged
-1037  IF (A = B) THEN  GOTO 1045
-1040  POKE EP + X,A
-1041 B =  PEEK (EP + X)
-1042  IF (B <  > A) THEN  GOTO 1041: REM Wait for write
-1045  HTAB (X / 256) * 39 + 1
-1046  INVERSE : PRINT " ";: NORMAL 
-1050  NEXT X
-1060  NEXT PG
-1900  PRINT 
-2000  PRINT "Firmware Update Complete"
diff --git a/RaspberryPi/driveimage/Update.Firmware.bas b/RaspberryPi/driveimage/Update.Firmware.bas
new file mode 120000
index 0000000..84b69c8
--- /dev/null
+++ b/RaspberryPi/driveimage/Update.Firmware.bas
@@ -0,0 +1 @@
+../../Apple2/Update.Firmware.bas
\ No newline at end of file