From d2b0e227371d7046208a5ec8e5bea24d6ae06c05 Mon Sep 17 00:00:00 2001
From: Bill Chatfield <bill_chatfield@yahoo.com>
Date: Tue, 6 Jul 2021 00:37:45 -0400
Subject: [PATCH] Switch from SYSTEM to BIN

---
 Makefile           |   9 ++++++---
 online.gui.bas     | Bin 0 -> 23 bytes
 online.s           |  22 +++++++++++++++++-----
 online.ver.bas     | Bin 361 -> 312 bytes
 online.ver.bas.txt |  17 +++++++++++++++++
 5 files changed, 40 insertions(+), 8 deletions(-)
 create mode 100644 online.gui.bas
 create mode 100644 online.ver.bas.txt

diff --git a/Makefile b/Makefile
index 8178bd9..5a72740 100644
--- a/Makefile
+++ b/Makefile
@@ -36,12 +36,15 @@ DSK=$(PGM).dsk
 # disk instead.
 #$(AC) -pro140 $(DSK) $(VOL)
 
-$(DSK): $(PGM)
+$(DSK): $(PGM) $(PGM).ver.bas $(PGM).gui.bas
 	$(COPY) $(BASE_DSK) $(DSK)
 	# Does not work on older AC
 	#$(AC) -n $(DSK) $(VOL)
-	$(AC) -p $(DSK) $(PGM) SYS < $(PGM)
-	cat $(PGM).ver.bas | tr '\n' '\r' | $(AC) -p $(DSK) $(PGM).VER TXT
+	#$(AC) -p $(DSK) $(PGM) SYS < $(PGM)
+	$(AC) -p $(DSK) $(PGM) BIN 0x2000 < $(PGM)
+	$(AC) -p $(DSK) $(PGM).VER BAS < $(PGM).ver.bas
+	$(AC) -p $(DSK) $(PGM).GUI BAS < $(PGM).gui.bas
+	#cat $(PGM).ver.bas | tr '\n' '\r' | $(AC) -p $(DSK) $(PGM).VER TXT
 
 $(PGM): $(SRC)
 	$(MERLIN) $(SRC)
diff --git a/online.gui.bas b/online.gui.bas
new file mode 100644
index 0000000000000000000000000000000000000000..f510eaab3ded62bb03f84c1c075d7093624cb89e
GIT binary patch
literal 23
ecmWgT;9}VIT*E}uT1nU6&&SixRf&OtfeQdYzy!$v

literal 0
HcmV?d00001

diff --git a/online.s b/online.s
index 4b594e4..9284976 100644
--- a/online.s
+++ b/online.s
@@ -6,7 +6,8 @@
 * This program is free software; you can redistribute it and/or modify     *
 * it under the terms of the GNU General Public License as published by     *
 * the Free Software Foundation; either version 2 of the License, or        *
-* (at your option) any later version.                                      **                                                                          *
+* (at your option) any later version.                                      *
+*                                                                          *
 * This program is distributed in the hope that it will be useful,          *
 * but WITHOUT ANY WARRANTY; without even the implied warranty of           *
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the            *
@@ -18,9 +19,21 @@
 *                                                                          *
 ****************************************************************************
 
-               ORG   $2000
+****************************************************************************
+* You might want to load stuff to $803 instead. Applesoft sort of acts up  *
+* when there is anything else than a zero at location $800; plus, LIST     *
+* displays junk and may crash the system if there is machine code at $801  *
+* and $802. If you load to $803, then $800 - $802 can stay at zero, which  *
+* makes BASIC happy.                                                       *
+*                                                                          *
+* This does not apply to Integer BASIC.                                    *
+*                                                                          *
+* --                                                                       *
+* Linards Ticmanis                                                         *
+****************************************************************************
+               ORG   $2000	;This address is also in the Makefile
                DSK   online
-               TYP   $FF        ;SYSTEM TYPE
+               TYP   $06        ;$FF=SYSTEM $06=BINARY
 
 ********************************
 *                              *
@@ -123,8 +136,7 @@ PUTLICENSE
                JSR   CROUT
                RTS
 
-CALLONLINE
-               JSR   MLI        ;CALL MACHINE LANGUAGE INTERFACE
+CALLONLINE     JSR   MLI        ;CALL MACHINE LANGUAGE INTERFACE
                DB    ONLCMD     ;SPECIFY THE ON_LINE SYSTEM CALL
                DA    ONLARGS    ;SPECIFY ADDRESS OF ARGUMENTS
                BEQ   CONTINUE   ;ON_LINE RETURNS 0 ON SUCCESS
diff --git a/online.ver.bas b/online.ver.bas
index 36bb9739844a07365ed349fd433c19fe839c9d56..3d827f1eafb5f49b5ecd133b02066b6af730c3f7 100644
GIT binary patch
literal 312
zcmZ9Hu}TCn6h&`g@n&m5M3F}dnE@3M34%6*WOl<QlOdBG(b`h1EyYgoL&S1Bt^5M9
z@Cz&y{0Q;Qt_xxr?#a3Lt<wNgZlbLdhuYcNaA#s`Lk&gCnBss|1Zd07unWg!l7ux3
zt>VG!*Y{i(7}J`77qrovCW%$2xN_x?s}SWe*D2gmE`SsT_Qr>J`d4^QdlH_EOf;NE
zX0fG-VHit~XFBR*>zsTF<C)o}9lTJ5N4@otOJ{*MYGlY4oe3K!^-Q!deA79eKJ)$J
lP;Ji-RanX{h2PAsdfv1t{FeWlhu!R^Z}A#ByTdhr!4F*1PwM~x

literal 361
zcmZ9I(Q3mm3`O7d6~gQxfo;TT>u!`im`rU<Y%3^kM*sgu=Ee?;J&JpEbai!yC=_rO
z7ZY;yE)uRJi{l7=5ura6(_&Xb&x1`_MFaf_(Nn@;zGkASF)j4x%?gK|drzoVg;#HH
zcxA~$fh#yxOFqmPD6l;K!cSHH8A%A!NPD_j_$D@h*$vM7yvWnWcj+C@S($kvG_Pov
zp~(SS_$YSxtZQ<Q8+FI&uB$B!qr5c7_M+ZO9}2YYo-KjSjXc{DS`yb(|B{2wuh-+j
LfX-i1{6_c%6}41?

diff --git a/online.ver.bas.txt b/online.ver.bas.txt
new file mode 100644
index 0000000..36bb973
--- /dev/null
+++ b/online.ver.bas.txt
@@ -0,0 +1,17 @@
+10  REM PRINT ONLINE VERSION
+20  REM
+23  REM SAVE LOCATION 6
+25  LET M6=PEEK(6)
+27  REM
+30  REM PUT "V" FLAG FOR "VERSION"
+40  REM INTO MEMORY LOCATION 6
+50  REM WHERE THE ONLINE PROGRAM
+60  REM WILL LOOK FOR IT.
+70  POKE 6, ASC("V")
+80  REM
+90  REM RUN THE PROGRAM
+100 PRINT CHR$(4);"-ONLINE"
+110 REM
+120 REM RESTORE THE MEMORY LOCATION
+130 POKE 6,M6
+140 END