Apple-2-SW/online
1
0
Fork 0
mirror of https://github.com/gungwald/online.git synced 2024-10-31 12:04:37 +00:00
Code Issues Projects Releases Wiki Activity

Make bootable disk

Browse Source
This commit is contained in:
Bill Chatfield 2018-10-17 14:40:01 -04:00
parent 33ce28a56b
commit ea6dabddc8
6 changed files with 39 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitignore vendored
View File

@ -25,3 +25,5 @@ Release/
# Mac # Mac
.DS_Store .DS_Store
_FileInformation.txt

21
Makefile
View File

@ -5,22 +5,34 @@ ifeq ($(OS),Windows_NT)
MERLIN_LIB=$(MERLIN_DIR)/Library MERLIN_LIB=$(MERLIN_DIR)/Library
MERLIN=$(MERLIN_DIR)/Windows/Merlin32 MERLIN=$(MERLIN_DIR)/Windows/Merlin32
RM=del /s RM=del /s
COPY=copy
APPLEWIN="c:\opt\AppleWin1.26.2.3\applewin.exe"
else else
MERLIN_DIR=$(HOME)/opt/Merlin32_v1.0 MERLIN_DIR=$(HOME)/opt/Merlin32_v1.0
MERLIN_LIB=$(MERLIN_DIR)/Library MERLIN_LIB=$(MERLIN_DIR)/Library
MERLIN=$(MERLIN_DIR)/Linux64/Merlin32 MERLIN=$(MERLIN_DIR)/Linux64/Merlin32
RM=rm -f RM=rm -f
COPY=cp
APPLEWIN=applewin
endif endif
AC=java -jar AppleCommander-*.jar AC=java -jar AppleCommander-ac-1.4.0.jar
SRC=online.s SRC=online.s
PGM=ONLINE PGM=online
BASE_DSK=prodos-2.0.3-boot.dsk
VOL=$(PGM) VOL=$(PGM)
DSK=$(PGM).dsk DSK=$(PGM).dsk
# There is some kind of problem with turning this into a boot disk
# after it is created by AppleCommander. So, copy an existing boot
# disk instead.
#$(AC) -pro140 $(DSK) $(VOL)
$(DSK): $(PGM) $(DSK): $(PGM)
$(AC) -pro140 $(DSK) $(VOL) $(COPY) $(BASE_DSK) $(DSK)
$(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
$(PGM): $(SRC) $(PGM): $(SRC)
$(MERLIN) $(MERLIN_LIB) $(SRC) $(MERLIN) $(MERLIN_LIB) $(SRC)
@ -28,3 +40,6 @@ $(PGM): $(SRC)
clean: clean:
$(RM) $(DSK) $(PGM) $(RM) $(DSK) $(PGM)
test: $(DSK)
$(APPLEWIN) -d1 $(DSK)

1
_FileInformation.txt Normal file
View File

@ -0,0 +1 @@
online=Type(00),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)

2
online.s
View File

@ -19,7 +19,7 @@
**************************************************************************** ****************************************************************************
ORG $2000 ORG $2000
DSK ONLINE DSK online
TYP $FF ;SYSTEM TYPE TYP $FF ;SYSTEM TYPE
******************************** ********************************

17
online.ver.bas Normal file
View 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

BIN
prodos-2.0.3-boot.dsk Normal file
View File

Binary file not shown.