mirror of
https://github.com/dschmenk/PLASMA.git
synced 2025-03-20 18:31:13 +00:00
Add samples and command line options to PLFORTH
This commit is contained in:
David Schmenk
parent
734d9a50c6
commit
b3b92b39c6
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -95,6 +95,7 @@ CODEOPT = rel/CODEOPT\#FE1000
|
||||
PLFORTH = rel/PLFORTH\#FE1000
|
||||
HRFORTH = rel/HRFORTH\#FE1000
|
||||
HR2FORTH = rel/HR2FORTH\#FE1000
|
||||
TX2FORTH = rel/TX2FORTH\#FE1000
|
||||
INCS = toolsrc/plasm.h toolsrc/tokens.h toolsrc/symbols.h toolsrc/lex.h toolsrc/parse.h toolsrc/codegen.h
|
||||
OBJS = toolsrc/plasm.c toolsrc/parse.c toolsrc/lex.c toolsrc/codegen.c
|
||||
#
|
||||
@ -113,7 +114,7 @@ TXTTYPE = .TXT
|
||||
#SYSTYPE = \#FF2000
|
||||
#TXTTYPE = \#040000
|
||||
|
||||
apple: $(PLVMZP_APL) $(PLASM) $(PLVM) $(PLVM01) $(PLVM02) $(PLVMJIT) $(PLVM802) $(PLVM03) $(PLVMJIT03) $(CMD) $(CMDJIT) $(JIT) $(JIT16) $(JITUNE) $(SOSCMD) $(SOSCMDJIT) $(PLASMAPLASM) $(CODEOPT) $(PLFORTH) $(HRFORTH) $(HR2FORTH) $(ZIPCHIP) $(MATCHFILES) $(ARGS) $(MEMMGR) $(MEMTEST) $(FIBER) $(FIBERTEST) $(LONGJMP) $(ED) $(MON) $(COPY) $(DEL) $(REN) $(CAT) $(NEWDIR) $(TYPE) $(SOS) $(ROD) $(SIEVE) $(PRIMEGAP) $(MOUSE) $(UTHERNET2) $(UTHERNET) $(ETHERIP) $(INET) $(DHCP) $(HTTPD) $(TFTPD) $(ROGUE) $(ROGUEMAP) $(ROGUECOMBAT) $(SFM) $(SFMSPRT) $(GRAFIX) $(GFXDEMO) $(LINES) $(HGRTILE) $(HGRFONT) $(HGRSPRITE) $(HGRLIB) $(TILETEST) $(HGRTEST) $(GRLIB) $(DGRLIB) $(GRTEST) $(DGRTEST) $(HGRTEST) $(FILEIO_APL) $(CONIO_APL) $(JOYBUZZ) $(PORTIO) $(SPIPORT) $(SDFAT) $(FATCAT) $(FATGET) $(FATPUT) $(FATWDSK) $(FATRDSK) $(INT32) $(INT32TEST) $(SANE) $(FPSTR) $(FPU) $(SANITY) $(LZ4) $(LZ4CAT) $(RPNCALC) $(SNDSEQ) $(PLAYSEQ) $(CONIOTEST)
|
||||
apple: $(PLVMZP_APL) $(PLASM) $(PLVM) $(PLVM01) $(PLVM02) $(PLVMJIT) $(PLVM802) $(PLVM03) $(PLVMJIT03) $(CMD) $(CMDJIT) $(JIT) $(JIT16) $(JITUNE) $(SOSCMD) $(SOSCMDJIT) $(PLASMAPLASM) $(CODEOPT) $(PLFORTH) $(HRFORTH) $(HR2FORTH) $(TX2FORTH) $(ZIPCHIP) $(MATCHFILES) $(ARGS) $(MEMMGR) $(MEMTEST) $(FIBER) $(FIBERTEST) $(LONGJMP) $(ED) $(MON) $(COPY) $(DEL) $(REN) $(CAT) $(NEWDIR) $(TYPE) $(SOS) $(ROD) $(SIEVE) $(PRIMEGAP) $(MOUSE) $(UTHERNET2) $(UTHERNET) $(ETHERIP) $(INET) $(DHCP) $(HTTPD) $(TFTPD) $(ROGUE) $(ROGUEMAP) $(ROGUECOMBAT) $(SFM) $(SFMSPRT) $(GRAFIX) $(GFXDEMO) $(LINES) $(HGRTILE) $(HGRFONT) $(HGRSPRITE) $(HGRLIB) $(TILETEST) $(HGRTEST) $(GRLIB) $(DGRLIB) $(GRTEST) $(DGRTEST) $(HGRTEST) $(FILEIO_APL) $(CONIO_APL) $(JOYBUZZ) $(PORTIO) $(SPIPORT) $(SDFAT) $(FATCAT) $(FATGET) $(FATPUT) $(FATWDSK) $(FATRDSK) $(INT32) $(INT32TEST) $(SANE) $(FPSTR) $(FPU) $(SANITY) $(LZ4) $(LZ4CAT) $(RPNCALC) $(SNDSEQ) $(PLAYSEQ) $(CONIOTEST)
|
||||
|
||||
-rm vmsrc/plvmzp.inc
|
||||
|
||||
@ -161,6 +162,10 @@ $(HR2FORTH): toolsrc/hr2forth.pla
|
||||
./$(PLASM) -AMOW toolsrc/hr2forth.pla
|
||||
acme --setpc 4094 -o $(HR2FORTH) toolsrc/hr2forth.a
|
||||
|
||||
$(TX2FORTH): toolsrc/tx2forth.pla
|
||||
./$(PLASM) -AMOW toolsrc/tx2forth.pla
|
||||
acme --setpc 4094 -o $(TX2FORTH) toolsrc/tx2forth.a
|
||||
|
||||
$(PLFORTH): toolsrc/plforth.pla
|
||||
./$(PLASM) -AMOW toolsrc/plforth.pla
|
||||
acme --setpc 4094 -o $(PLFORTH) toolsrc/plforth.a
|
||||
|
||||
20
src/mk4th
20
src/mk4th
@ -9,6 +9,7 @@ cat rel/ARGS#FE1000 | ./ac.jar -p PLFORTH.PO sys/ARGS REL
|
||||
cat rel/LONGJMP#FE1000 | ./ac.jar -p PLFORTH.PO sys/LONGJMP REL
|
||||
cat rel/HRFORTH#FE1000 | ./ac.jar -p PLFORTH.PO sys/HRFORTH REL
|
||||
cat rel/HR2FORTH#FE1000 | ./ac.jar -p PLFORTH.PO sys/HR2FORTH REL
|
||||
cat rel/TX2FORTH#FE1000 | ./ac.jar -p PLFORTH.PO sys/TX2FORTH REL
|
||||
cat rel/PLFORTH#FE1000 | ./ac.jar -p PLFORTH.PO sys/PLFORTH REL
|
||||
cat rel/apple/COPY#FE1000 | ./ac.jar -p PLFORTH.PO sys/COPY REL
|
||||
cat rel/apple/DEL#FE1000 | ./ac.jar -p PLFORTH.PO sys/DEL REL
|
||||
@ -22,15 +23,16 @@ cat rel/ED#FE1000 | ./ac.jar -p PLFORTH.PO sys/ED REL
|
||||
cat rel/apple/HGRLIB#FE1000 | ./ac.jar -p PLFORTH.PO sys/HGRLIB REL
|
||||
cat rel/apple/GRLIB#FE1000 | ./ac.jar -p PLFORTH.PO sys/GRLIB REL
|
||||
cat rel/apple/DGRLIB#FE1000 | ./ac.jar -p PLFORTH.PO sys/DGRLIB REL
|
||||
cat scripts/plasma.4th | ./ac.jar -ptx PLFORTH.PO sys/scripts/PLASMA.4TH TXT
|
||||
cat scripts/machid.4th | ./ac.jar -ptx PLFORTH.PO sys/scripts/MACHID.4TH TXT
|
||||
cat scripts/conio.4th | ./ac.jar -ptx PLFORTH.PO sys/scripts/CONIO.4TH TXT
|
||||
cat scripts/fileio.4th | ./ac.jar -ptx PLFORTH.PO sys/scripts/FILEIO.4TH TXT
|
||||
cat scripts/grlib.4th | ./ac.jar -ptx PLFORTH.PO sys/scripts/GRLIB.4TH TXT
|
||||
cat scripts/hgrlib.4th | ./ac.jar -ptx PLFORTH.PO sys/scripts/HGRLIB.4TH TXT
|
||||
cat scripts/int32.4th | ./ac.jar -ptx PLFORTH.PO sys/scripts/INT32.4TH TXT
|
||||
cat scripts/fpu.4th | ./ac.jar -ptx PLFORTH.PO sys/scripts/FPU.4TH TXT
|
||||
cat scripts/plasma.4th | ./ac.jar -ptx PLFORTH.PO sys/scripts/PLASMA.4TH TXT
|
||||
cat scripts/machid.4th | ./ac.jar -ptx PLFORTH.PO sys/scripts/MACHID.4TH TXT
|
||||
cat scripts/conio.4th | ./ac.jar -ptx PLFORTH.PO sys/scripts/CONIO.4TH TXT
|
||||
cat scripts/fileio.4th | ./ac.jar -ptx PLFORTH.PO sys/scripts/FILEIO.4TH TXT
|
||||
cat scripts/grlib.4th | ./ac.jar -ptx PLFORTH.PO sys/scripts/GRLIB.4TH TXT
|
||||
cat scripts/hgrlib.4th | ./ac.jar -ptx PLFORTH.PO sys/scripts/HGRLIB.4TH TXT
|
||||
cat scripts/int32.4th | ./ac.jar -ptx PLFORTH.PO sys/scripts/INT32.4TH TXT
|
||||
cat scripts/fpu.4th | ./ac.jar -ptx PLFORTH.PO sys/scripts/FPU.4TH TXT
|
||||
cat scripts/rod.4th | ./ac.jar -ptx PLFORTH.PO scripts/ROD.4TH TXT
|
||||
cat scripts/bounce.4th | ./ac.jar -ptx PLFORTH.PO scripts/BOUNCE.4TH TXT
|
||||
cat scripts/dbounce.4th | ./ac.jar -ptx PLFORTH.PO scripts/DBOUNCE.4TH TXT
|
||||
cat scripts/hrbounce.4th | ./ac.jar -ptx PLFORTH.PO scripts/HRBOUNCE.4TH TXT
|
||||
echo "+PLFORTH PLASMA.4TH" | ./ac.jar -ptx PLFORTH.PO AUTORUN TXT
|
||||
echo "+PLFORTH PLASMA.4TH" | ./ac.jar -ptx PLFORTH.PO AUTORUN TXT
|
||||
|
||||
33
src/mk800
33
src/mk800
@ -57,18 +57,20 @@ cat rel/apple/SOS#FE1000 | ./ac.jar -p PLASMA-2.1.po sys/SOS REL
|
||||
cat rel/apple/GRAFIX#FE1000 | ./ac.jar -p PLASMA-2.1.po sys/GRAFIX REL
|
||||
cat rel/HRFORTH#FE1000 | ./ac.jar -p PLASMA-2.1.po sys/HRFORTH REL
|
||||
cat rel/HR2FORTH#FE1000 | ./ac.jar -p PLASMA-2.1.po sys/HR2FORTH REL
|
||||
cat rel/TX2FORTH#FE1000 | ./ac.jar -p PLASMA-2.1.po sys/TX2FORTH REL
|
||||
cat rel/PLFORTH#FE1000 | ./ac.jar -p PLASMA-2.1.po sys/PLFORTH REL
|
||||
|
||||
#mkdir sys/scripts
|
||||
cat scripts/hdinstall.4th | ./ac.jar -ptx PLASMA-2.1.po HDINSTALL.4TH TXT
|
||||
cat scripts/plasma.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/PLASMA.4TH TXT
|
||||
cat scripts/machid.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/MACHID.4TH TXT
|
||||
cat scripts/conio.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/CONIO.4TH TXT
|
||||
cat scripts/fileio.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/FILEIO.4TH TXT
|
||||
cat scripts/grlib.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/GRLIB.4TH TXT
|
||||
cat scripts/hgrlib.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/HGRLIB.4TH TXT
|
||||
cat scripts/int32.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/INT32.4TH TXT
|
||||
cat scripts/fpu.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/FPU.4TH TXT
|
||||
cat scripts/plasma.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/PLASMA.4TH TXT
|
||||
cat scripts/machid.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/MACHID.4TH TXT
|
||||
cat scripts/conio.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/CONIO.4TH TXT
|
||||
cat scripts/fileio.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/FILEIO.4TH TXT
|
||||
cat scripts/grlib.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/GRLIB.4TH TXT
|
||||
cat scripts/dgrlib.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/DGRLIB.4TH TXT
|
||||
cat scripts/hgrlib.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/HGRLIB.4TH TXT
|
||||
cat scripts/int32.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/INT32.4TH TXT
|
||||
cat scripts/fpu.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/FPU.4TH TXT
|
||||
|
||||
#rm -rf syspro
|
||||
#mkdir syspro
|
||||
@ -121,13 +123,13 @@ cat scripts/fpu.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/FPU.4TH T
|
||||
#cat rel/PLFORTH#FE1000 | ./ac.jar -p PLASMA-2.1.po sysforth/sys/PLFORTH REL
|
||||
|
||||
#mkdir sysforth/sys/scripts
|
||||
#cat scripts/plasma.4th | ./ac.jar -ptx PLASMA-2.1.po sysforth/sys/scripts/PLASMA.4TH TXT
|
||||
#cat scripts/conio.4th | ./ac.jar -ptx PLASMA-2.1.po sysforth/sys/scripts/CONIO.4TH TXT
|
||||
#cat scripts/fileio.4th | ./ac.jar -ptx PLASMA-2.1.po sysforth/sys/scripts/FILEIO.4TH TXT
|
||||
#cat scripts/grlib.4th | ./ac.jar -ptx PLASMA-2.1.po sysforth/sys/scripts/GRLIB.4TH TXT
|
||||
#cat scripts/hgrlib.4th | ./ac.jar -ptx PLASMA-2.1.po sysforth/sys/scripts/HGRLIB.4TH TXT
|
||||
#cat scripts/int32.4th | ./ac.jar -ptx PLASMA-2.1.po sysforth/sys/scripts/INT32.4TH TXT
|
||||
#cat scripts/fpu.4th | ./ac.jar -ptx PLASMA-2.1.po sysforth/sys/scripts/FPU.4TH TXT
|
||||
#cat scripts/plasma.4th | ./ac.jar -ptx PLASMA-2.1.po sysforth/sys/scripts/PLASMA.4TH TXT
|
||||
#cat scripts/conio.4th | ./ac.jar -ptx PLASMA-2.1.po sysforth/sys/scripts/CONIO.4TH TXT
|
||||
#cat scripts/fileio.4th | ./ac.jar -ptx PLASMA-2.1.po sysforth/sys/scripts/FILEIO.4TH TXT
|
||||
#cat scripts/grlib.4th | ./ac.jar -ptx PLASMA-2.1.po sysforth/sys/scripts/GRLIB.4TH TXT
|
||||
#cat scripts/hgrlib.4th | ./ac.jar -ptx PLASMA-2.1.po sysforth/sys/scripts/HGRLIB.4TH TXT
|
||||
#cat scripts/int32.4th | ./ac.jar -ptx PLASMA-2.1.po sysforth/sys/scripts/INT32.4TH TXT
|
||||
#cat scripts/fpu.4th | ./ac.jar -ptx PLASMA-2.1.po sysforth/sys/scripts/FPU.4TH TXT
|
||||
|
||||
#rm -rf sysinet
|
||||
#mkdir sysinet
|
||||
@ -240,6 +242,7 @@ cat utilsrc/apple/zipchip.pla | ./ac.jar -ptx PLASMA-2.1.po bld/samples/ZIPCHIP.
|
||||
#mkdir bld/scripts
|
||||
cat scripts/rod.4th | ./ac.jar -ptx PLASMA-2.1.po bld/scripts/ROD.4TH TXT
|
||||
cat scripts/bounce.4th | ./ac.jar -ptx PLASMA-2.1.po bld/scripts/BOUNCE.4TH TXT
|
||||
cat scripts/dbounce.4th | ./ac.jar -ptx PLASMA-2.1.po bld/scripts/DBOUNCE.4TH TXT
|
||||
cat scripts/hrbounce.4th | ./ac.jar -ptx PLASMA-2.1.po bld/scripts/HRBOUNCE.4TH TXT
|
||||
|
||||
#mkdir bld/examples
|
||||
|
||||
13
src/mkbld
13
src/mkbld
@ -1,7 +1,7 @@
|
||||
cp ../sysfiles/BLANK140.po PLASMA-2.1-BLD.po
|
||||
./ac.jar -n PLASMA-2.1-BLD.po PLASMA.BLD
|
||||
cat rel/PLASM#FE1000 | ./ac.jar -p PLASMA-2.1-BLD.po bld/PLASM REL
|
||||
cat rel/CODEOPT#FE1000 | ./ac.jar -p PLASMA-2.1-BLD.po bld/CODEOPT REL
|
||||
cat rel/PLASM#FE1000 | ./ac.jar -p PLASMA-2.1-BLD.po bld/PLASM REL
|
||||
cat rel/CODEOPT#FE1000 | ./ac.jar -p PLASMA-2.1-BLD.po bld/CODEOPT REL
|
||||
cat inc/args.plh | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/inc/ARGS.PLH TXT
|
||||
cat inc/matchfiles.plh | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/inc/MATCHFILES.PLH TXT
|
||||
cat inc/cmdsys.plh | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/inc/CMDSYS.PLH TXT
|
||||
@ -44,12 +44,12 @@ cat samplesrc/fibertest.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/FIBERT
|
||||
cat samplesrc/mousetest.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/MOUSETEST.PLA TXT
|
||||
cat samplesrc/memtest.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/MEMTEST.PLA TXT
|
||||
cat samplesrc/rod.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/ROD.PLA TXT
|
||||
#cat samplesrc/sieve.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/SIEVE.PLA TXT
|
||||
#cat samplesrc/test.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/TEST.PLA TXT
|
||||
#cat samplesrc/testlib.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/TESTLIB.PLA TXT
|
||||
#cat samplesrc/sieve.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/SIEVE.PLA TXT
|
||||
#cat samplesrc/test.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/TEST.PLA TXT
|
||||
#cat samplesrc/testlib.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/TESTLIB.PLA TXT
|
||||
cat samplesrc/playseq.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/PLAYSEQ.PLA TXT
|
||||
cat samplesrc/rpncalc.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/RPNCALC.PLA TXT
|
||||
#cat samplesrc/fatcat.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/FATCAT.PLA TXT
|
||||
#cat samplesrc/fatcat.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/FATCAT.PLA TXT
|
||||
cat samplesrc/gfxdemo.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/GFXDEMO.PLA TXT
|
||||
cat samplesrc/lz4cat.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/LZ4CAT.PLA TXT
|
||||
cat samplesrc/sfm.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/SFM.PLA TXT
|
||||
@ -60,4 +60,5 @@ cat utilsrc/apple/mon.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/MON.PL
|
||||
|
||||
cat scripts/rod.4th | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/scripts/ROD.4TH TXT
|
||||
cat scripts/bounce.4th | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/scripts/BOUNCE.4TH TXT
|
||||
cat scripts/dbounce.4th | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/scripts/DBOUNCE.4TH TXT
|
||||
cat scripts/hrbounce.4th | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/scripts/HRBOUNCE.4TH TXT
|
||||
|
||||
24
src/mkinst
24
src/mkinst
@ -22,15 +22,17 @@ cat rel/LONGJMP#FE1000 | ./ac.jar -p PLASMA-2.1-INST.po sys/LONGJM
|
||||
cat rel/INT32#FE1000 | ./ac.jar -p PLASMA-2.1-INST.po sys/INT32 REL
|
||||
cat rel/HRFORTH#FE1000 | ./ac.jar -p PLASMA-2.1-INST.po sys/HRFORTH REL
|
||||
cat rel/HR2FORTH#FE1000 | ./ac.jar -p PLASMA-2.1-INST.po sys/HR2FORTH REL
|
||||
cat rel/TX2FORTH#FE1000 | ./ac.jar -p PLASMA-2.1-INST.po sys/TX2FORTH REL
|
||||
cat rel/PLFORTH#FE1000 | ./ac.jar -p PLASMA-2.1-INST.po sys/PLFORTH REL
|
||||
cat scripts/plasma.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/PLASMA.4TH TXT
|
||||
cat scripts/machid.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/MACHID.4TH TXT
|
||||
cat scripts/conio.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/CONIO.4TH TXT
|
||||
cat scripts/fileio.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/FILEIO.4TH TXT
|
||||
cat scripts/grlib.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/GRLIB.4TH TXT
|
||||
cat scripts/hgrlib.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/HGRLIB.4TH TXT
|
||||
cat scripts/int32.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/INT32.4TH TXT
|
||||
cat scripts/fpu.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/FPU.4TH TXT
|
||||
cat scripts/hdinstall1.4th | ./ac.jar -ptx PLASMA-2.1-INST.po HDINSTALL.4TH TXT
|
||||
cat scripts/hdinstall2.4th | ./ac.jar -ptx PLASMA-2.1-INST.po HDINSTALL2.4TH TXT
|
||||
echo "+PLFORTH HDINSTALL.4TH" | ./ac.jar -ptx PLASMA-2.1-INST.po AUTORUN TXT
|
||||
cat scripts/plasma.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/PLASMA.4TH TXT
|
||||
cat scripts/machid.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/MACHID.4TH TXT
|
||||
cat scripts/conio.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/CONIO.4TH TXT
|
||||
cat scripts/fileio.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/FILEIO.4TH TXT
|
||||
cat scripts/grlib.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/GRLIB.4TH TXT
|
||||
cat scripts/dgrlib.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/DGRLIB.4TH TXT
|
||||
cat scripts/hgrlib.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/HGRLIB.4TH TXT
|
||||
cat scripts/int32.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/INT32.4TH TXT
|
||||
cat scripts/fpu.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/FPU.4TH TXT
|
||||
cat scripts/hdinstall1.4th | ./ac.jar -ptx PLASMA-2.1-INST.po HDINSTALL.4TH TXT
|
||||
cat scripts/hdinstall2.4th | ./ac.jar -ptx PLASMA-2.1-INST.po HDINSTALL2.4TH TXT
|
||||
echo "+PLFORTH HDINSTALL.4TH" | ./ac.jar -ptx PLASMA-2.1-INST.po AUTORUN TXT
|
||||
|
||||
98
src/mkrel
98
src/mkrel
@ -57,6 +57,7 @@ cp rel/apple/SOS#FE1000 prodos/sys/SOS.REL
|
||||
cp rel/apple/GRAFIX#FE1000 prodos/sys/GRAFIX.REL
|
||||
cp rel/HRFORTH#FE1000 prodos/sys/HRFORTH.REL
|
||||
cp rel/HR2FORTH#FE1000 prodos/sys/HR2FORTH.REL
|
||||
cp rel/TX2FORTH#FE1000 prodos/sys/TX2FORTH.REL
|
||||
cp rel/PLFORTH#FE1000 prodos/sys/PLFORTH.REL
|
||||
|
||||
mkdir prodos/sys/scripts
|
||||
@ -65,107 +66,13 @@ cp scripts/machid.4th prodos/sys/scripts/MACHID.4TH.TXT
|
||||
cp scripts/conio.4th prodos/sys/scripts/CONIO.4TH.TXT
|
||||
cp scripts/fileio.4th prodos/sys/scripts/FILEIO.4TH.TXT
|
||||
cp scripts/grlib.4th prodos/sys/scripts/GRLIB.4TH.TXT
|
||||
cp scripts/dgrlib.4th prodos/sys/scripts/DGRLIB.4TH.TXT
|
||||
cp scripts/hgrlib.4th prodos/sys/scripts/HGRLIB.4TH.TXT
|
||||
cp scripts/int32.4th prodos/sys/scripts/INT32.4TH.TXT
|
||||
cp scripts/fpu.4th prodos/sys/scripts/FPU.4TH.TXT
|
||||
|
||||
rm -rf prodos/syspro
|
||||
mkdir prodos/syspro
|
||||
cp ../sysfiles/PRODOS#FF0000 prodos/syspro/PRODOS.SYS
|
||||
cp rel/apple/CMD#061000 prodos/syspro/CMD.BIN
|
||||
cp rel/apple/CMD128#061000 prodos/syspro/CMD128.BIN
|
||||
cp rel/apple/PLASMA.SYSTEM#FF2000 prodos/syspro/PLASMA.SYSTEM.SYS
|
||||
cp rel/apple/PLVM.128#FF2000 prodos/syspro/PLVM.128.SYS
|
||||
cp rel/apple/PLVM16#FF2000 prodos/syspro/PLVM16.SYS
|
||||
cp ../doc/Editor.md prodos/syspro/EDITOR.README.TXT
|
||||
|
||||
mkdir prodos/syspro/sys
|
||||
cp rel/apple/FILEIO#FE1000 prodos/syspro/sys/FILEIO.REL
|
||||
cp rel/apple/CONIO#FE1000 prodos/syspro/sys/CONIO.REL
|
||||
cp rel/LINES#FE1000 prodos/syspro/sys/LINES.REL
|
||||
cp rel/apple/HGRFONT#FE1000 prodos/syspro/sys/HGRFONT.REL
|
||||
cp rel/apple/HGRTILE#FE1000 prodos/syspro/sys/HGRTILE.REL
|
||||
cp rel/apple/HGRSPRITE#FE1000 prodos/syspro/sys/HGRSPRITE.REL
|
||||
cp rel/apple/HGRLIB#FE1000 prodos/syspro/sys/HGRLIB.REL
|
||||
cp rel/apple/GRLIB#FE1000 prodos/syspro/sys/GRLIB.REL
|
||||
cp rel/apple/DGRLIB#FE1000 prodos/syspro/sys/DGRLIB.REL
|
||||
cp rel/apple/COPY#FE1000 prodos/syspro/sys/COPY.REL
|
||||
cp rel/apple/DEL#FE1000 prodos/syspro/sys/DEL.REL
|
||||
cp rel/apple/REN#FE1000 prodos/syspro/sys/REN.REL
|
||||
cp rel/apple/CAT#FE1000 prodos/syspro/sys/CAT.REL
|
||||
cp rel/apple/NEWDIR#FE1000 prodos/syspro/sys/NEWDIR.REL
|
||||
cp rel/apple/TYPE#FE1000 prodos/syspro/sys/TYPE.REL
|
||||
cp rel/apple/MATCHFILES#FE1000 prodos/syspro/sys/MATCHFILES.REL
|
||||
cp rel/ARGS#FE1000 prodos/syspro/sys/ARGS.REL
|
||||
cp rel/ED#FE1000 prodos/syspro/sys/ED.REL
|
||||
cp rel/FIBER#FE1000 prodos/syspro/sys/FIBER.REL
|
||||
cp rel/LONGJMP#FE1000 prodos/syspro/sys/LONGJMP.REL
|
||||
cp rel/MEMMGR#FE1000 prodos/syspro/sys/MEMMGR.REL
|
||||
cp rel/apple/MOUSE#FE1000 prodos/syspro/sys/MOUSE.REL
|
||||
cp rel/apple/PORTIO#FE1000 prodos/syspro/sys/PORTIO.REL
|
||||
cp rel/apple/JOYBUZZ#FE1000 prodos/syspro/sys/JOYBUZZ.REL
|
||||
cp rel/apple/SNDSEQ#FE1000 prodos/syspro/sys/SNDSEQ.REL
|
||||
cp rel/apple/JIT#FE1000 prodos/syspro/sys/JIT.REL
|
||||
cp rel/apple/JIT16#FE1000 prodos/syspro/sys/JIT16.REL
|
||||
cp rel/apple/JITUNE#FE1000 prodos/syspro/sys/JITUNE.REL
|
||||
cp rel/apple/ZIPCHIP#FE1000 prodos/syspro/sys/ZIPCHIP.REL
|
||||
cp rel/LZ4#FE1000 prodos/syspro/sys/LZ4.REL
|
||||
cp rel/INT32#FE1000 prodos/syspro/sys/INT32.REL
|
||||
|
||||
rm -rf prodos/sysforth
|
||||
mkdir prodos/sysforth
|
||||
mkdir prodos/sysforth/sys
|
||||
cp rel/HRFORTH#FE1000 prodos/sysforth/sys/HRFORTH.REL
|
||||
cp rel/HR2FORTH#FE1000 prodos/sysforth/sys/HR2FORTH.REL
|
||||
cp rel/PLFORTH#FE1000 prodos/sysforth/sys/PLFORTH.REL
|
||||
|
||||
mkdir prodos/sysforth/sys/scripts
|
||||
cp scripts/plasma.4th prodos/sysforth/sys/scripts/PLASMA.4TH.TXT
|
||||
cp scripts/conio.4th prodos/sysforth/sys/scripts/CONIO.4TH.TXT
|
||||
cp scripts/fileio.4th prodos/sysforth/sys/scripts/FILEIO.4TH.TXT
|
||||
cp scripts/grlib.4th prodos/sysforth/sys/scripts/GRLIB.4TH.TXT
|
||||
cp scripts/hgrlib.4th prodos/sysforth/sys/scripts/HGRLIB.4TH.TXT
|
||||
cp scripts/int32.4th prodos/sysforth/sys/scripts/INT32.4TH.TXT
|
||||
cp scripts/fpu.4th prodos/sysforth/sys/scripts/FPU.4TH.TXT
|
||||
|
||||
rm -rf prodos/sysinet
|
||||
mkdir prodos/sysinet
|
||||
mkdir prodos/sysinet/sys
|
||||
cp rel/INET#FE1000 prodos/sysinet/sys/INET.REL
|
||||
cp rel/DHCP#FE1000 prodos/sysinet/sys/DHCP.REL
|
||||
cp rel/ETHERIP#FE1000 prodos/sysinet/sys/ETHERIP.REL
|
||||
cp rel/apple/UTHERNET2#FE1000 prodos/sysinet/sys/UTHERNET2.REL
|
||||
cp rel/apple/UTHERNET#FE1000 prodos/sysinet/sys/UTHERNET.REL
|
||||
cp rel/TFTPD#FE1000 prodos/sysinet/sys/TFTPD.REL
|
||||
|
||||
rm -rf prodos/fpsos
|
||||
mkdir prodos/fpsos
|
||||
cp ../sysfiles/SOS.KERNEL#0C0000 prodos/fpsos/SOS.KERNEL.\$0C
|
||||
cp ../sysfiles/SOS.DRIVER#0C0000 prodos/fpsos/SOS.DRIVER.\$0C
|
||||
cp rel/apple/SOS.INTERP#050000 prodos/fpsos/SOS.INTERP.\$05
|
||||
cp rel/apple/SOS.CMD#FE1000 prodos/fpsos/SOS.CMD.REL
|
||||
cp rel/apple/SOS.INTERPJIT#050000 prodos/fpsos/SOS.INTERPJIT.\$05
|
||||
cp rel/apple/SOS.CMDJIT#FE1000 prodos/fpsos/SOS.CMDJIT.REL
|
||||
|
||||
mkdir prodos/fpsos/sys
|
||||
cp rel/apple/SOS#FE1000 prodos/fpsos/sys/SOS.REL
|
||||
cp rel/apple/GRAFIX#FE1000 prodos/fpsos/sys/GRAFIX.REL
|
||||
cp rel/FPSTR#FE1000 prodos/fpsos/sys/FPSTR.REL
|
||||
cp rel/FPU#FE1000 prodos/fpsos/sys/FPU.REL
|
||||
cp rel/SANE#FE1000 prodos/fpsos/sys/SANE.REL
|
||||
cp ../sysfiles/FP6502.CODE#060000 prodos/fpsos/sys/FP6502.CODE.BIN
|
||||
cp ../sysfiles/ELEMS.CODE#060000 prodos/fpsos/sys/ELEMS.CODE.BIN
|
||||
|
||||
rm -rf prodos/demos
|
||||
mkdir prodos/demos
|
||||
cp rel/INT32TEST#FE1000 prodos/demos/INT32TEST.REL
|
||||
cp rel/apple/CONIOTEST#FE1000 prodos/demos/CONIOTEST.REL
|
||||
cp rel/apple/ROD#FE1000 prodos/demos/ROD.REL
|
||||
cp rel/RPNCALC#FE1000 prodos/demos/RPNCALC.REL
|
||||
cp rel/LZ4CAT#FE1000 prodos/demos/LZ4CAT.REL
|
||||
cp ../doc/ROGUE.LZ4.BIN prodos/demos/ROGUE.LZ4.BIN
|
||||
cp rel/PRIMEGAP#FE1000 prodos/demos/PRIMEGAP.REL
|
||||
|
||||
mkdir prodos/demos/rogue
|
||||
cp rel/ROGUE#FE1000 prodos/demos/rogue/ROGUE.REL
|
||||
cp rel/ROGUECOMBAT#FE1000 prodos/demos/rogue/ROGUECOMBAT.REL
|
||||
@ -239,6 +146,7 @@ cp utilsrc/apple/zipchip.pla prodos/bld/samples/ZIPCHIP.PLA.TXT
|
||||
mkdir prodos/bld/scripts
|
||||
cp scripts/rod.4th prodos/bld/scripts/ROD.4TH.TXT
|
||||
cp scripts/bounce.4th prodos/bld/scripts/BOUNCE.4TH.TXT
|
||||
cp scripts/dbounce.4th prodos/bld/scripts/DBOUNCE.4TH.TXT
|
||||
cp scripts/hrbounce.4th prodos/bld/scripts/HRBOUNCE.4TH.TXT
|
||||
|
||||
#mkdir prodos/bld/examples
|
||||
|
||||
@ -37,4 +37,4 @@ cat rel/apple/SNDSEQ#FE1000 | ./ac.jar -p PLASMA-2.1-SYS.po sys/SNDSEQ
|
||||
cat rel/apple/JITUNE#FE1000 | ./ac.jar -p PLASMA-2.1-SYS.po sys/JITUNE REL
|
||||
cat rel/apple/ZIPCHIP#FE1000 | ./ac.jar -p PLASMA-2.1-SYS.po sys/ZIPCHIP REL
|
||||
cat rel/LZ4#FE1000 | ./ac.jar -p PLASMA-2.1-SYS.po sys/LZ4 REL
|
||||
cat rel/INT32#FE1000 | ./ac.jar -p PLASMA-2.1-SYS.po sys/INT32 REL
|
||||
#cat rel/INT32#FE1000 | ./ac.jar -p PLASMA-2.1-SYS.po sys/INT32 REL
|
||||
|
||||
@ -5,8 +5,6 @@ SRC" GRLIB.4TH"
|
||||
5 VARIABLE BALLCLR
|
||||
10 VARIABLE BALLX
|
||||
20 VARIABLE BALLY
|
||||
10 VARIABLE OLDX
|
||||
20 VARIABLE OLDY
|
||||
1 VARIABLE INCX
|
||||
1 VARIABLE INCY
|
||||
|
||||
@ -21,12 +19,11 @@ SRC" GRLIB.4TH"
|
||||
BALLY @ 47 = IF INCY @ NEGATE INCY ! BOOP THEN
|
||||
INCX @ BALLX +!
|
||||
INCY @ BALLY +!
|
||||
BALLCLR @ GRCOLOR
|
||||
BALLX @ BALLY @ GRPLOT
|
||||
0 GRCOLOR
|
||||
OLDX @ OLDY @ GRPLOT
|
||||
BALLX @ OLDX !
|
||||
BALLY @ OLDY !
|
||||
1 BALLCLR DUP @ GRCOLOR +!
|
||||
0 0 BALLX @ BALLY @ GRLINE
|
||||
39 47 BALLX @ BALLY @ GRLINE
|
||||
0 47 BALLX @ BALLY @ GRLINE
|
||||
39 0 BALLX @ BALLY @ GRLINE
|
||||
;
|
||||
|
||||
: BOUNCE
|
||||
|
||||
43
src/scripts/dbounce.4th
Normal file
43
src/scripts/dbounce.4th
Normal file
@ -0,0 +1,43 @@
|
||||
LOOKUP TX2FORTH NOT ?ABORT" Must run with TX2FORTH."
|
||||
|
||||
SRC" PLASMA.4TH"
|
||||
SRC" CONIO.4TH"
|
||||
SRC" DGRLIB.4TH"
|
||||
|
||||
5 VARIABLE BALLCLR
|
||||
10 VARIABLE BALLX
|
||||
20 VARIABLE BALLY
|
||||
1 VARIABLE INCX
|
||||
1 VARIABLE INCY
|
||||
|
||||
: BEEP 30 10 TONE ;
|
||||
|
||||
: BOOP 10 30 TONE ;
|
||||
|
||||
: MOVEBALL
|
||||
BALLX @ 0= IF INCX @ NEGATE INCX ! BEEP THEN
|
||||
BALLX @ 79 = IF INCX @ NEGATE INCX ! BEEP THEN
|
||||
BALLY @ 0= IF INCY @ NEGATE INCY ! BOOP THEN
|
||||
BALLY @ 47 = IF INCY @ NEGATE INCY ! BOOP THEN
|
||||
INCX @ BALLX +!
|
||||
INCY @ BALLY +!
|
||||
1 BALLCLR DUP @ DGRCOLOR +!
|
||||
0 0 BALLX @ BALLY @ DGRLINE
|
||||
79 47 BALLX @ BALLY @ DGRLINE
|
||||
0 47 BALLX @ BALLY @ DGRLINE
|
||||
79 0 BALLX @ BALLY @ DGRLINE
|
||||
;
|
||||
|
||||
: BOUNCE
|
||||
0 DGRMODE DROP
|
||||
0 DGRDRAWBUF
|
||||
0 DGRCLEAR
|
||||
BEGIN
|
||||
MOVEBALL
|
||||
KEY?
|
||||
UNTIL
|
||||
KEY DROP
|
||||
-1 DGRMODE DROP
|
||||
;
|
||||
|
||||
BOUNCE
|
||||
20
src/scripts/dgrlib.4th
Normal file
20
src/scripts/dgrlib.4th
Normal file
@ -0,0 +1,20 @@
|
||||
' DGRMODE ?ENDSRC ( Avoid multiple loads )
|
||||
" DGRLIB" LOADMOD" "
|
||||
" LINES" LOADMOD" "
|
||||
LOOKUP DGRPLOT PLASMA DGRPLOT
|
||||
LOOKUP DGRHLIN PLASMA DGRHLIN
|
||||
LOOKUP DGRVLIN PLASMA DGRVLIN
|
||||
LOOKUP DGRBLT PLASMA DGRBLT
|
||||
LOOKUP DGRTILE PLASMA DGRTILE
|
||||
LOOKUP DGRTILESTR PLASMA DGRTILESTR
|
||||
LOOKUP DGRFILL PLASMA DGRFILL
|
||||
LOOKUP DGRVLB PLASMA DGRVLB
|
||||
LOOKUP DGRCLEAR PLASMA DGRCLEAR
|
||||
LOOKUP DGRMODE PLASMA DGRMODE
|
||||
LOOKUP DGRSHOW PLASMA DGRSHOW
|
||||
LOOKUP DGRSWAP PLASMA DGRSWAP
|
||||
LOOKUP DGRDRAWBUF PLASMA DGRDRAWBUF
|
||||
LOOKUP DGRCOLOR PLASMA DGRCOLOR
|
||||
LOOKUP SETLINESPANS PLASMA SETLINESPANS
|
||||
LOOKUP LINESPANS PLASMA DGRLINE
|
||||
LOOKUP DGRHLIN LOOKUP DGRVLIN SETLINESPANS
|
||||
@ -1,5 +1,6 @@
|
||||
' GRMODE ?ENDSRC ( Avoid multiple loads )
|
||||
" GRLIB" LOADMOD" "
|
||||
" LINES" LOADMOD" "
|
||||
LOOKUP GRPLOT PLASMA GRPLOT
|
||||
LOOKUP GRHLIN PLASMA GRHLIN
|
||||
LOOKUP GRVLIN PLASMA GRVLIN
|
||||
@ -13,4 +14,7 @@ LOOKUP GRMODE PLASMA GRMODE
|
||||
LOOKUP GRSHOW PLASMA GRSHOW
|
||||
LOOKUP GRSWAP PLASMA GRSWAP
|
||||
LOOKUP GRDRAWBUF PLASMA GRDRAWBUF
|
||||
LOOKUP GRCOLOR PLASMA GRCOLOR
|
||||
LOOKUP GRCOLOR PLASMA GRCOLOR
|
||||
LOOKUP SETLINESPANS PLASMA SETLINESPANS
|
||||
LOOKUP LINESPANS PLASMA GRLINE
|
||||
LOOKUP GRHLIN LOOKUP GRVLIN SETLINESPANS
|
||||
@ -1,5 +1,8 @@
|
||||
' HGRMODE ?ENDSRC
|
||||
" HGRLIB" LOADMOD" "
|
||||
" HGRLIB" LOADMOD" "
|
||||
" LINES" LOADMOD" "
|
||||
" HGRTILE" LOADMOD" "
|
||||
" HGRFONT" LOADMOD" "
|
||||
LOOKUP HGRPLOT PLASMA HGRPLOT
|
||||
LOOKUP HGRORPLOT PLASMA HGRORPLOT
|
||||
LOOKUP HGRXORPLOT PLASMA HGRXORPLOT
|
||||
@ -20,4 +23,15 @@ LOOKUP HGRMODE PLASMA HGRMODE
|
||||
LOOKUP HGRSHOW PLASMA HGRSHOW
|
||||
LOOKUP HGRSWAP PLASMA HGRSWAP
|
||||
LOOKUP HGRDRAWBUF PLASMA HGRDRAWBUF
|
||||
LOOKUP HGRCOLOR PLASMA HGRCOLOR
|
||||
LOOKUP HGRCOLOR PLASMA HGRCOLOR
|
||||
LOOKUP HGRPUTSTR PLASMA HGRPUTSTR
|
||||
LOOKUP SETLINESPANS PLASMA SETLINESPANS
|
||||
LOOKUP LINESPANS PLASMA HGRLINE
|
||||
LOOKUP HGRHLIN LOOKUP HGRVLIN SETLINESPANS
|
||||
LOOKUP TILEDRAW PLASMA TILEDRAW
|
||||
LOOKUP TILEXORDRAW PLASMA TILEXORDRAW
|
||||
LOOKUP TILEORDRAW PLASMA TILEORDRAW
|
||||
LOOKUP TILEANDDRAW PLASMA TILEANDDRAW
|
||||
LOOKUP TILEDRAWSTR PLASMA TILEDRAWSTR
|
||||
LOOKUP TILEFROMTEXT PLASMA TILEFROMTEXT
|
||||
LOOKUP TILEDRAWBUF PLASMA TILEDRAWBUF
|
||||
@ -25,18 +25,36 @@ SRC" HGRLIB.4TH"
|
||||
BALLY @ 191 = IF INCY @ NEGATE INCY ! BOOP THEN
|
||||
INCX @ BALLX +!
|
||||
INCY @ BALLY +!
|
||||
BALLCLR @ HGRCOLOR
|
||||
BALLX @ BALLY @ HGRPLOT
|
||||
0 HGRCOLOR
|
||||
OLDX @ OLDY @ HGRPLOT
|
||||
BALLX @ BALLY @ HGRXORPLOT
|
||||
OLDX @ OLDY @ HGRXORPLOT
|
||||
BALLX @ OLDX !
|
||||
BALLY @ OLDY !
|
||||
;
|
||||
|
||||
0 VARIABLE TOP
|
||||
0 VARIABLE BOTTOM
|
||||
0 VARIABLE LEFT
|
||||
0 VARIABLE RIGHT
|
||||
: RECT ( left top right bottom -- )
|
||||
BOTTOM !
|
||||
RIGHT !
|
||||
TOP !
|
||||
LEFT !
|
||||
LEFT @ TOP @ RIGHT @ TOP @ HGRLINE
|
||||
LEFT @ BOTTOM @ RIGHT @ BOTTOM @ HGRLINE
|
||||
LEFT @ TOP @ LEFT @ BOTTOM @ HGRLINE
|
||||
RIGHT @ TOP @ RIGHT @ BOTTOM @ HGRLINE
|
||||
;
|
||||
|
||||
: BOUNCE
|
||||
0 HGRMODE DROP
|
||||
0 HGRDRAWBUF DROP
|
||||
0 TILEDRAWBUF DROP
|
||||
0 HGRSHOW DROP
|
||||
10 12 " Hello from PLFORTH!" HGRPUTSTR
|
||||
1 HGRCOLOR
|
||||
61 90 209 107 RECT
|
||||
BALLCLR @ HGRCOLOR
|
||||
BEGIN
|
||||
MOVEBALL
|
||||
KEY?
|
||||
|
||||
@ -15,8 +15,8 @@ byte srclevel = 0
|
||||
//
|
||||
// Internal buffers
|
||||
//
|
||||
word strbuf, inbuf
|
||||
res[t_except] exitforth
|
||||
word strbuf, inbuf
|
||||
res[t_except] exitforth
|
||||
//
|
||||
// Input references, pointers, and saved values
|
||||
//
|
||||
@ -54,6 +54,9 @@ byte state = 0
|
||||
word brkentry = 0
|
||||
word brkcfa = 0
|
||||
byte brk = 0
|
||||
//
|
||||
// Machine code helper routines
|
||||
//
|
||||
byte _get_estack = $8A // TXA
|
||||
byte = $49, $FF // EOR #$FF
|
||||
byte = $38 // SEC
|
||||
@ -758,7 +761,7 @@ def endsrc#1
|
||||
inptr = previnptr[srclevel]
|
||||
if srclevel == 0 // - switch back to keyboard input
|
||||
infunc = @keyin
|
||||
keyin
|
||||
//keyin
|
||||
fin
|
||||
fin
|
||||
return srclevel == 0
|
||||
@ -1003,7 +1006,9 @@ end
|
||||
// Compile a word/literal into the dictionary: ITC and PBC
|
||||
//
|
||||
def _compword_(dentry)#0
|
||||
if ^_ffa_(dentry) & interponly_flag
|
||||
if ^_ffa_(dentry) & imm_flag
|
||||
_execword_(dentry)
|
||||
elsif ^_ffa_(dentry) & interponly_flag
|
||||
puts("INTERP only word\n")
|
||||
_quit_
|
||||
elsif state & comp_itc_flag
|
||||
@ -1063,30 +1068,30 @@ def _interpret_#0
|
||||
inchars, inlen = nextword(' ')
|
||||
dentry = find(inchars, inlen)
|
||||
if dentry
|
||||
if ^_ffa_(dentry) & imm_flag or not (state & comp_flag)
|
||||
if ^_ffa_(dentry) & componly_flag and not (state & comp_flag)
|
||||
if state & comp_flag
|
||||
_compword_(dentry)
|
||||
else
|
||||
if ^_ffa_(dentry) & componly_flag
|
||||
puts(dentry)
|
||||
puts(" : Compile only word\n")
|
||||
_quit_
|
||||
fin
|
||||
_execword_(dentry)
|
||||
else
|
||||
_compword_(dentry)
|
||||
fin
|
||||
else
|
||||
value, valid = _isnum_(inchars, inlen)
|
||||
if not valid
|
||||
inchars--
|
||||
^inchars = inlen
|
||||
puts(inchars)
|
||||
puts(" ? No match\n")
|
||||
if !brk; warmstart; fin
|
||||
else
|
||||
if valid
|
||||
if state & comp_flag
|
||||
_compliteral_(value)
|
||||
else
|
||||
(@push)(value)#0
|
||||
fin
|
||||
else
|
||||
inchars--
|
||||
^inchars = inlen
|
||||
puts(inchars)
|
||||
puts(" ? No match\n")
|
||||
if !brk; warmstart; fin
|
||||
fin
|
||||
fin
|
||||
until state & exit_flag
|
||||
@ -2017,6 +2022,17 @@ coldstart
|
||||
// Check for command line argument
|
||||
//
|
||||
inptr = argNext(argFirst)
|
||||
while ^inptr and ^(inptr + 1) == '-'
|
||||
when toupper(^(inptr + 2))
|
||||
is 'F' // Fast flag
|
||||
_pbc_
|
||||
break
|
||||
is 'T' // Trace flag
|
||||
_tron_
|
||||
break
|
||||
wend
|
||||
inptr = argNext(inptr)
|
||||
loop
|
||||
//
|
||||
// Main start and restart entry
|
||||
//
|
||||
|
||||
5
src/toolsrc/tx2forth.pla
Normal file
5
src/toolsrc/tx2forth.pla
Normal file
@ -0,0 +1,5 @@
|
||||
include "inc/cmdsys.plh"
|
||||
sysflags restxt1|restxt2|resxtxt1|resxtxt2 // Reserve all text pages
|
||||
|
||||
return cmdsys:modexec("PLFORTH")
|
||||
done
|
||||
Loading…
x
Reference in New Issue
Block a user