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

break out Apple /// sample code into FPSOS

Browse Source
This commit is contained in:
Dave Schmenk 2024-02-09 16:41:56 -08:00
parent a08bc126a2
commit 1fb7960a1b
5 changed files with 26 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mkbld
View File

@ -29,7 +29,7 @@ cat inc/sdfat.plh | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/inc/SDFAT.PLH T
cat inc/sndseq.plh | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/inc/SNDSEQ.PLH TXT cat inc/sndseq.plh | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/inc/SNDSEQ.PLH TXT
cat inc/spiport.plh | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/inc/SPIPORT.PLH TXT cat inc/spiport.plh | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/inc/SPIPORT.PLH TXT
cat inc/testlib.plh | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/inc/TESTLIB.PLH TXT cat inc/testlib.plh | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/inc/TESTLIB.PLH TXT
cat inc/grafix.plh | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/inc/GRAFIX.PLH TXT #cat inc/grafix.plh | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/inc/GRAFIX.PLH TXT
cat inc/lz4.plh | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/inc/LZ4.PLH TXT cat inc/lz4.plh | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/inc/LZ4.PLH TXT
cat vmsrc/apple/plvmzp.inc | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/inc/PLVMZP.INC TXT cat vmsrc/apple/plvmzp.inc | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/inc/PLVMZP.INC TXT

4
src/mkfpsos
View File

@ -13,3 +13,7 @@ cat rel/FPU#FE1000 | ./ac.jar -p PLASMA-2.1-FPSOS.po sys/FPU R
cat rel/SANE#FE1000 | ./ac.jar -p PLASMA-2.1-FPSOS.po sys/SANE REL cat rel/SANE#FE1000 | ./ac.jar -p PLASMA-2.1-FPSOS.po sys/SANE REL
cat ../sysfiles/FP6502.CODE#060000 | ./ac.jar -p PLASMA-2.1-FPSOS.po sys/FP6502.CODE BIN cat ../sysfiles/FP6502.CODE#060000 | ./ac.jar -p PLASMA-2.1-FPSOS.po sys/FP6502.CODE BIN
cat ../sysfiles/ELEMS.CODE#060000 | ./ac.jar -p PLASMA-2.1-FPSOS.po sys/ELEMS.CODE BIN cat ../sysfiles/ELEMS.CODE#060000 | ./ac.jar -p PLASMA-2.1-FPSOS.po sys/ELEMS.CODE BIN
cat inc/grafix.plh | ./ac.jar -ptx PLASMA-2.1-FPSOS.po bld/inc/GRAFIX.PLH TXT
cat samplesrc/gfxdemo.pla | ./ac.jar -ptx PLASMA-2.1-FPSOS.po bld/samples/GFXDEMO.PLA TXT
cat scripts/grafix.4th | ./ac.jar -ptx PLASMA-2.1-FPSOS.po sys/scripts/GRAFIX.4TH TXT
cat scripts/gfxplot.4th | ./ac.jar -ptx PLASMA-2.1-FPSOS.po bld/scripts/GFXPLOT.4TH TXT

2
src/mkrel
View File

@ -68,6 +68,7 @@ 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/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/grafix.4th prodos/sys/scripts/GRAFIX.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
@ -150,6 +151,7 @@ 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
cp scripts/plot.4th prodos/bld/scripts/PLOT.4TH.TXT cp scripts/plot.4th prodos/bld/scripts/PLOT.4TH.TXT
cp scripts/hrplot.4th prodos/bld/scripts/HRPLOT.4TH.TXT cp scripts/hrplot.4th prodos/bld/scripts/HRPLOT.4TH.TXT
cp scripts/gfxplot.4th prodos/bld/scripts/GFXPLOT.4TH.TXT
#mkdir prodos/bld/examples #mkdir prodos/bld/examples
#cp samplesrc/examples/ex.1.pla prodos/bld/examples/EX.1.PLA.TXT #cp samplesrc/examples/ex.1.pla prodos/bld/examples/EX.1.PLA.TXT

14
src/scripts/gfxplot.4th
View File

@ -4,15 +4,15 @@ SRC" GRAFIX.4TH"
SRC" FPU.4TH" SRC" FPU.4TH"
: DRAWAXIS : DRAWAXIS
3 SETMODE 3 GFXSETMODE
1 PENCOLOR 1 GFXPENCOLOR
0 96 139 96 LINE 0 96 139 96 GFXLINE
70 0 70 191 LINE 70 0 70 191 GFXLINE
; ;
: PLOTDONE : PLOTDONE
KEY DROP KEY DROP
-1 SETMODE -1 GFXSETMODE
; ;
FPEXT XSCALE FPEXT XSCALE
@ -24,12 +24,12 @@ FPEXT YSCALE
DEFER FUNC DEFER FUNC
: PLOTFUNC : PLOTFUNC
3 PENCOLOR 3 GFXPENCOLOR
140 0 DO 140 0 DO
I DUP 69 - >FPINT XSCALE FPEXT@ FP* I DUP 69 - >FPINT XSCALE FPEXT@ FP*
FUNC FUNC
YSCALE FPEXT@ FP* FPINT> 95 + YSCALE FPEXT@ FP* FPINT> 95 +
OVER 1+ OVER HGRPLOT HGRPLOT GFXPLOT
LOOP LOOP
; ;

24
src/scripts/grafix.4th
View File

@ -1,14 +1,14 @@
' GRAFIX ?ENDSRC ' GRAFIX ?ENDSRC
" GRAFIX" LOADMOD" " " GRAFIX" LOADMOD" "
LOOKUP PENCOLOR PLASMA PENCOLOR LOOKUP PENCOLOR PLASMA GFXPENCOLOR
LOOKUP FILLCOLOR PLASMA FILLCOLOR LOOKUP FILLCOLOR PLASMA GFXFILLCOLOR
LOOKUP FILLSCREEN PLASMA FILLSCREEN LOOKUP FILLSCREEN PLASMA GFXFILLSCREEN
LOOKUP PENMOVE PLASMA PENMOVE LOOKUP PENMOVE PLASMA GFXPENMOVE
LOOKUP PLOT PLASMA PLOT LOOKUP PLOT PLASMA GFXPLOT
LOOKUP LINE PLASMA LINE LOOKUP LINE PLASMA GFXLINE
LOOKUP LINETO PLASMA LINETO LOOKUP LINETO PLASMA GFXLINETO
LOOKUP RECT PLASMA RECT LOOKUP RECT PLASMA GFXRECT
LOOKUP FILLRECT PLASMA FILLRECT LOOKUP FILLRECT PLASMA GFXFILLRECT
LOOKUP BITBLT PLASMA BITBLT LOOKUP BITBLT PLASMA GFXBITBLT
LOOKUP DRAWMODE PLASMA DRAWMODE LOOKUP DRAWMODE PLASMA GFXDRAWMODE
LOOKUP SETMODE PLASMA SETMODE LOOKUP SETMODE PLASMA GFXSETMODE