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 0000000..f510eaa Binary files /dev/null and b/online.gui.bas differ 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 36bb973..3d827f1 100644 Binary files a/online.ver.bas and b/online.ver.bas differ 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