mirror of https://github.com/gungwald/online.git
Switch from SYSTEM to BIN
This commit is contained in:
parent
2b9dc6a3f3
commit
d2b0e22737
9
Makefile
9
Makefile
|
@ -36,12 +36,15 @@ DSK=$(PGM).dsk
|
||||||
# disk instead.
|
# disk instead.
|
||||||
#$(AC) -pro140 $(DSK) $(VOL)
|
#$(AC) -pro140 $(DSK) $(VOL)
|
||||||
|
|
||||||
$(DSK): $(PGM)
|
$(DSK): $(PGM) $(PGM).ver.bas $(PGM).gui.bas
|
||||||
$(COPY) $(BASE_DSK) $(DSK)
|
$(COPY) $(BASE_DSK) $(DSK)
|
||||||
# Does not work on older AC
|
# Does not work on older AC
|
||||||
#$(AC) -n $(DSK) $(VOL)
|
#$(AC) -n $(DSK) $(VOL)
|
||||||
$(AC) -p $(DSK) $(PGM) SYS < $(PGM)
|
#$(AC) -p $(DSK) $(PGM) SYS < $(PGM)
|
||||||
cat $(PGM).ver.bas | tr '\n' '\r' | $(AC) -p $(DSK) $(PGM).VER TXT
|
$(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)
|
$(PGM): $(SRC)
|
||||||
$(MERLIN) $(SRC)
|
$(MERLIN) $(SRC)
|
||||||
|
|
Binary file not shown.
22
online.s
22
online.s
|
@ -6,7 +6,8 @@
|
||||||
* This program is free software; you can redistribute it and/or modify *
|
* 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 *
|
* it under the terms of the GNU General Public License as published by *
|
||||||
* the Free Software Foundation; either version 2 of the License, or *
|
* 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, *
|
* This program is distributed in the hope that it will be useful, *
|
||||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
|
* 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
|
DSK online
|
||||||
TYP $FF ;SYSTEM TYPE
|
TYP $06 ;$FF=SYSTEM $06=BINARY
|
||||||
|
|
||||||
********************************
|
********************************
|
||||||
* *
|
* *
|
||||||
|
@ -123,8 +136,7 @@ PUTLICENSE
|
||||||
JSR CROUT
|
JSR CROUT
|
||||||
RTS
|
RTS
|
||||||
|
|
||||||
CALLONLINE
|
CALLONLINE JSR MLI ;CALL MACHINE LANGUAGE INTERFACE
|
||||||
JSR MLI ;CALL MACHINE LANGUAGE INTERFACE
|
|
||||||
DB ONLCMD ;SPECIFY THE ON_LINE SYSTEM CALL
|
DB ONLCMD ;SPECIFY THE ON_LINE SYSTEM CALL
|
||||||
DA ONLARGS ;SPECIFY ADDRESS OF ARGUMENTS
|
DA ONLARGS ;SPECIFY ADDRESS OF ARGUMENTS
|
||||||
BEQ CONTINUE ;ON_LINE RETURNS 0 ON SUCCESS
|
BEQ CONTINUE ;ON_LINE RETURNS 0 ON SUCCESS
|
||||||
|
|
BIN
online.ver.bas
BIN
online.ver.bas
Binary file not shown.
|
@ -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
|
Loading…
Reference in New Issue