6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-06-10 02:29:30 +00:00
Code Issues Projects Releases Wiki Activity

Add samples and command line options to PLFORTH

Browse Source
This commit is contained in:
David Schmenk 2024-02-03 18:15:44 -08:00
parent 734d9a50c6
commit b3b92b39c6
19 changed files with 206 additions and 168 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/PLASMA-2.1-BLD.po
View File

Binary file not shown.

BIN
images/apple/PLASMA-2.1-INST.po
View File

Binary file not shown.

BIN
images/apple/PLASMA-2.1.po
View File

Binary file not shown.

BIN
images/apple/PLFORTH.PO
View File

Binary file not shown.

7
src/makefile
View File

@ -95,6 +95,7 @@ CODEOPT = rel/CODEOPT\#FE1000
PLFORTH = rel/PLFORTH\#FE1000 PLFORTH = rel/PLFORTH\#FE1000
HRFORTH = rel/HRFORTH\#FE1000 HRFORTH = rel/HRFORTH\#FE1000
HR2FORTH = rel/HR2FORTH\#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 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 OBJS = toolsrc/plasm.c toolsrc/parse.c toolsrc/lex.c toolsrc/codegen.c
# #
@ -113,7 +114,7 @@ TXTTYPE = .TXT
#SYSTYPE = \#FF2000 #SYSTYPE = \#FF2000
#TXTTYPE = \#040000 #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 -rm vmsrc/plvmzp.inc
@ -161,6 +162,10 @@ $(HR2FORTH): toolsrc/hr2forth.pla
./$(PLASM) -AMOW toolsrc/hr2forth.pla ./$(PLASM) -AMOW toolsrc/hr2forth.pla
acme --setpc 4094 -o $(HR2FORTH) toolsrc/hr2forth.a 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 $(PLFORTH): toolsrc/plforth.pla
./$(PLASM) -AMOW toolsrc/plforth.pla ./$(PLASM) -AMOW toolsrc/plforth.pla
acme --setpc 4094 -o $(PLFORTH) toolsrc/plforth.a acme --setpc 4094 -o $(PLFORTH) toolsrc/plforth.a

20
src/mk4th
View File

@ -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/LONGJMP#FE1000 | ./ac.jar -p PLFORTH.PO sys/LONGJMP REL
cat rel/HRFORTH#FE1000 | ./ac.jar -p PLFORTH.PO sys/HRFORTH 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/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/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/COPY#FE1000 | ./ac.jar -p PLFORTH.PO sys/COPY REL
cat rel/apple/DEL#FE1000 | ./ac.jar -p PLFORTH.PO sys/DEL 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/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/GRLIB#FE1000 | ./ac.jar -p PLFORTH.PO sys/GRLIB REL
cat rel/apple/DGRLIB#FE1000 | ./ac.jar -p PLFORTH.PO sys/DGRLIB 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/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/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/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/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/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/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/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/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/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/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 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
View File

@ -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/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/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/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 cat rel/PLFORTH#FE1000 | ./ac.jar -p PLASMA-2.1.po sys/PLFORTH REL
#mkdir sys/scripts #mkdir sys/scripts
cat scripts/hdinstall.4th | ./ac.jar -ptx PLASMA-2.1.po HDINSTALL.4TH TXT 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/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/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/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/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/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/dgrlib.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/DGRLIB.4TH TXT
cat scripts/int32.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/INT32.4TH TXT cat scripts/hgrlib.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/HGRLIB.4TH TXT
cat scripts/fpu.4th | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/FPU.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 #rm -rf syspro
#mkdir 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 #cat rel/PLFORTH#FE1000 | ./ac.jar -p PLASMA-2.1.po sysforth/sys/PLFORTH REL
#mkdir sysforth/sys/scripts #mkdir sysforth/sys/scripts
#cat scripts/plasma.4th | ./ac.jar -ptx PLASMA-2.1.po sysforth/sys/scripts/PLASMA.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/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/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/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/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/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/fpu.4th | ./ac.jar -ptx PLASMA-2.1.po sysforth/sys/scripts/FPU.4TH TXT
#rm -rf sysinet #rm -rf sysinet
#mkdir 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 #mkdir bld/scripts
cat scripts/rod.4th | ./ac.jar -ptx PLASMA-2.1.po bld/scripts/ROD.4TH TXT 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/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 cat scripts/hrbounce.4th | ./ac.jar -ptx PLASMA-2.1.po bld/scripts/HRBOUNCE.4TH TXT
#mkdir bld/examples #mkdir bld/examples

13
src/mkbld
View File

@ -1,7 +1,7 @@
cp ../sysfiles/BLANK140.po PLASMA-2.1-BLD.po cp ../sysfiles/BLANK140.po PLASMA-2.1-BLD.po
./ac.jar -n PLASMA-2.1-BLD.po PLASMA.BLD ./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/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/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/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/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 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/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/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/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/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/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/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/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/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/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/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 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/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/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 cat scripts/hrbounce.4th | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/scripts/HRBOUNCE.4TH TXT

24
src/mkinst
View File

@ -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/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/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/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 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/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/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/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/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/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/dgrlib.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/DGRLIB.4TH TXT
cat scripts/int32.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/INT32.4TH TXT cat scripts/hgrlib.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/HGRLIB.4TH TXT
cat scripts/fpu.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/FPU.4TH TXT cat scripts/int32.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/INT32.4TH TXT
cat scripts/hdinstall1.4th | ./ac.jar -ptx PLASMA-2.1-INST.po HDINSTALL.4TH TXT cat scripts/fpu.4th | ./ac.jar -ptx PLASMA-2.1-INST.po sys/scripts/FPU.4TH TXT
cat scripts/hdinstall2.4th | ./ac.jar -ptx PLASMA-2.1-INST.po HDINSTALL2.4TH TXT cat scripts/hdinstall1.4th | ./ac.jar -ptx PLASMA-2.1-INST.po HDINSTALL.4TH TXT
echo "+PLFORTH HDINSTALL.4TH" | ./ac.jar -ptx PLASMA-2.1-INST.po AUTORUN 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
View File

@ -57,6 +57,7 @@ cp rel/apple/SOS#FE1000 prodos/sys/SOS.REL
cp rel/apple/GRAFIX#FE1000 prodos/sys/GRAFIX.REL cp rel/apple/GRAFIX#FE1000 prodos/sys/GRAFIX.REL
cp rel/HRFORTH#FE1000 prodos/sys/HRFORTH.REL cp rel/HRFORTH#FE1000 prodos/sys/HRFORTH.REL
cp rel/HR2FORTH#FE1000 prodos/sys/HR2FORTH.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 cp rel/PLFORTH#FE1000 prodos/sys/PLFORTH.REL
mkdir prodos/sys/scripts 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/conio.4th prodos/sys/scripts/CONIO.4TH.TXT
cp scripts/fileio.4th prodos/sys/scripts/FILEIO.4TH.TXT cp scripts/fileio.4th prodos/sys/scripts/FILEIO.4TH.TXT
cp scripts/grlib.4th prodos/sys/scripts/GRLIB.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/hgrlib.4th prodos/sys/scripts/HGRLIB.4TH.TXT
cp scripts/int32.4th prodos/sys/scripts/INT32.4TH.TXT cp scripts/int32.4th prodos/sys/scripts/INT32.4TH.TXT
cp scripts/fpu.4th prodos/sys/scripts/FPU.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 rm -rf prodos/demos
mkdir 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 mkdir prodos/demos/rogue
cp rel/ROGUE#FE1000 prodos/demos/rogue/ROGUE.REL cp rel/ROGUE#FE1000 prodos/demos/rogue/ROGUE.REL
cp rel/ROGUECOMBAT#FE1000 prodos/demos/rogue/ROGUECOMBAT.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 mkdir prodos/bld/scripts
cp scripts/rod.4th prodos/bld/scripts/ROD.4TH.TXT cp scripts/rod.4th prodos/bld/scripts/ROD.4TH.TXT
cp scripts/bounce.4th prodos/bld/scripts/BOUNCE.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 cp scripts/hrbounce.4th prodos/bld/scripts/HRBOUNCE.4TH.TXT
#mkdir prodos/bld/examples #mkdir prodos/bld/examples

2
src/mksys
View File

@ -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/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/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/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

13
src/scripts/bounce.4th
View File

@ -5,8 +5,6 @@ SRC" GRLIB.4TH"
5 VARIABLE BALLCLR 5 VARIABLE BALLCLR
10 VARIABLE BALLX 10 VARIABLE BALLX
20 VARIABLE BALLY 20 VARIABLE BALLY
10 VARIABLE OLDX
20 VARIABLE OLDY
1 VARIABLE INCX 1 VARIABLE INCX
1 VARIABLE INCY 1 VARIABLE INCY
@ -21,12 +19,11 @@ SRC" GRLIB.4TH"
BALLY @ 47 = IF INCY @ NEGATE INCY ! BOOP THEN BALLY @ 47 = IF INCY @ NEGATE INCY ! BOOP THEN
INCX @ BALLX +! INCX @ BALLX +!
INCY @ BALLY +! INCY @ BALLY +!
BALLCLR @ GRCOLOR 1 BALLCLR DUP @ GRCOLOR +!
BALLX @ BALLY @ GRPLOT 0 0 BALLX @ BALLY @ GRLINE
0 GRCOLOR 39 47 BALLX @ BALLY @ GRLINE
OLDX @ OLDY @ GRPLOT 0 47 BALLX @ BALLY @ GRLINE
BALLX @ OLDX ! 39 0 BALLX @ BALLY @ GRLINE
BALLY @ OLDY !
; ;
: BOUNCE : BOUNCE

43
src/scripts/dbounce.4th Normal file
View 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
View 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

6
src/scripts/grlib.4th
View File

@ -1,5 +1,6 @@
' GRMODE ?ENDSRC ( Avoid multiple loads ) ' GRMODE ?ENDSRC ( Avoid multiple loads )
" GRLIB" LOADMOD" " " GRLIB" LOADMOD" "
" LINES" LOADMOD" "
LOOKUP GRPLOT PLASMA GRPLOT LOOKUP GRPLOT PLASMA GRPLOT
LOOKUP GRHLIN PLASMA GRHLIN LOOKUP GRHLIN PLASMA GRHLIN
LOOKUP GRVLIN PLASMA GRVLIN LOOKUP GRVLIN PLASMA GRVLIN
@ -13,4 +14,7 @@ LOOKUP GRMODE PLASMA GRMODE
LOOKUP GRSHOW PLASMA GRSHOW LOOKUP GRSHOW PLASMA GRSHOW
LOOKUP GRSWAP PLASMA GRSWAP LOOKUP GRSWAP PLASMA GRSWAP
LOOKUP GRDRAWBUF PLASMA GRDRAWBUF 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

18
src/scripts/hgrlib.4th
View File

@ -1,5 +1,8 @@
' HGRMODE ?ENDSRC ' HGRMODE ?ENDSRC
" HGRLIB" LOADMOD" " " HGRLIB" LOADMOD" "
" LINES" LOADMOD" "
" HGRTILE" LOADMOD" "
" HGRFONT" LOADMOD" "
LOOKUP HGRPLOT PLASMA HGRPLOT LOOKUP HGRPLOT PLASMA HGRPLOT
LOOKUP HGRORPLOT PLASMA HGRORPLOT LOOKUP HGRORPLOT PLASMA HGRORPLOT
LOOKUP HGRXORPLOT PLASMA HGRXORPLOT LOOKUP HGRXORPLOT PLASMA HGRXORPLOT
@ -20,4 +23,15 @@ LOOKUP HGRMODE PLASMA HGRMODE
LOOKUP HGRSHOW PLASMA HGRSHOW LOOKUP HGRSHOW PLASMA HGRSHOW
LOOKUP HGRSWAP PLASMA HGRSWAP LOOKUP HGRSWAP PLASMA HGRSWAP
LOOKUP HGRDRAWBUF PLASMA HGRDRAWBUF 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

26
src/scripts/hrbounce.4th
View File

@ -25,18 +25,36 @@ SRC" HGRLIB.4TH"
BALLY @ 191 = IF INCY @ NEGATE INCY ! BOOP THEN BALLY @ 191 = IF INCY @ NEGATE INCY ! BOOP THEN
INCX @ BALLX +! INCX @ BALLX +!
INCY @ BALLY +! INCY @ BALLY +!
BALLCLR @ HGRCOLOR BALLX @ BALLY @ HGRXORPLOT
BALLX @ BALLY @ HGRPLOT OLDX @ OLDY @ HGRXORPLOT
0 HGRCOLOR
OLDX @ OLDY @ HGRPLOT
BALLX @ OLDX ! BALLX @ OLDX !
BALLY @ OLDY ! 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 : BOUNCE
0 HGRMODE DROP 0 HGRMODE DROP
0 HGRDRAWBUF DROP 0 HGRDRAWBUF DROP
0 TILEDRAWBUF DROP
0 HGRSHOW DROP 0 HGRSHOW DROP
10 12 " Hello from PLFORTH!" HGRPUTSTR
1 HGRCOLOR
61 90 209 107 RECT
BALLCLR @ HGRCOLOR
BEGIN BEGIN
MOVEBALL MOVEBALL
KEY? KEY?

46
src/toolsrc/plforth.pla
View File

@ -15,8 +15,8 @@ byte srclevel = 0
// //
// Internal buffers // Internal buffers
// //
word strbuf, inbuf word strbuf, inbuf
res[t_except] exitforth res[t_except] exitforth
// //
// Input references, pointers, and saved values // Input references, pointers, and saved values
// //
@ -54,6 +54,9 @@ byte state = 0
word brkentry = 0 word brkentry = 0
word brkcfa = 0 word brkcfa = 0
byte brk = 0 byte brk = 0
//
// Machine code helper routines
//
byte _get_estack = $8A // TXA byte _get_estack = $8A // TXA
byte = $49, $FF // EOR #$FF byte = $49, $FF // EOR #$FF
byte = $38 // SEC byte = $38 // SEC
@ -758,7 +761,7 @@ def endsrc#1
inptr = previnptr[srclevel] inptr = previnptr[srclevel]
if srclevel == 0 // - switch back to keyboard input if srclevel == 0 // - switch back to keyboard input
infunc = @keyin infunc = @keyin
keyin //keyin
fin fin
fin fin
return srclevel == 0 return srclevel == 0
@ -1003,7 +1006,9 @@ end
// Compile a word/literal into the dictionary: ITC and PBC // Compile a word/literal into the dictionary: ITC and PBC
// //
def _compword_(dentry)#0 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") puts("INTERP only word\n")
_quit_ _quit_
elsif state & comp_itc_flag elsif state & comp_itc_flag
@ -1063,30 +1068,30 @@ def _interpret_#0
inchars, inlen = nextword(' ') inchars, inlen = nextword(' ')
dentry = find(inchars, inlen) dentry = find(inchars, inlen)
if dentry if dentry
if ^_ffa_(dentry) & imm_flag or not (state & comp_flag) if state & comp_flag
if ^_ffa_(dentry) & componly_flag and not (state & comp_flag) _compword_(dentry)
else
if ^_ffa_(dentry) & componly_flag
puts(dentry) puts(dentry)
puts(" : Compile only word\n") puts(" : Compile only word\n")
_quit_ _quit_
fin fin
_execword_(dentry) _execword_(dentry)
else
_compword_(dentry)
fin fin
else else
value, valid = _isnum_(inchars, inlen) value, valid = _isnum_(inchars, inlen)
if not valid if valid
inchars--
^inchars = inlen
puts(inchars)
puts(" ? No match\n")
if !brk; warmstart; fin
else
if state & comp_flag if state & comp_flag
_compliteral_(value) _compliteral_(value)
else else
(@push)(value)#0 (@push)(value)#0
fin fin
else
inchars--
^inchars = inlen
puts(inchars)
puts(" ? No match\n")
if !brk; warmstart; fin
fin fin
fin fin
until state & exit_flag until state & exit_flag
@ -2017,6 +2022,17 @@ coldstart
// Check for command line argument // Check for command line argument
// //
inptr = argNext(argFirst) 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 // Main start and restart entry
// //

5
src/toolsrc/tx2forth.pla Normal file
View File

@ -0,0 +1,5 @@
include "inc/cmdsys.plh"
sysflags restxt1|restxt2|resxtxt1|resxtxt2 // Reserve all text pages
return cmdsys:modexec("PLFORTH")
done