mirror of
https://github.com/gungwald/online.git
synced 2024-06-13 04:29:29 +00:00
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.
|
||||
#$(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)
|
||||
|
|
BIN
online.gui.bas
Normal file
BIN
online.gui.bas
Normal file
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 *
|
||||
* 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
|
||||
|
|
BIN
online.ver.bas
BIN
online.ver.bas
Binary file not shown.
17
online.ver.bas.txt
Normal file
17
online.ver.bas.txt
Normal file
|
@ -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
Block a user