6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-02-08 12:31:09 +00:00
Code Issues Projects Releases Wiki Activity

(re)Fix SANE ZP save/restore for Apple ///

Browse Source
This commit is contained in:
David Schmenk 2024-02-08 16:23:08 -08:00
parent 7c9e24d332
commit 42be6c6f80
11 changed files with 58 additions and 4 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-FPSOS.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/PLASMA2-FPSOS.PO
View File

Binary file not shown.

BIN
images/apple/PLASMA2.2mg
View File

Binary file not shown.

6
src/libsrc/sane.pla
View File

@ -840,9 +840,9 @@ def fpInit()
(@fixupXS)=>1 = fpzpsave+$34
(@fixupXR)=>1 = fpzpsave+$34
zpSaveX // Clear XBYTEs
heaprelease(fpzpsave)
sane[9] = @zpNopSave//zpSaveX
sane[10] = @zpNopRestore//zpRestoreX
//heaprelease(fpzpsave)
sane[9] = @zpSaveX//zpNopSave
sane[10] = @zpRestoreX//zpNopRestore
else // Apple II
fpzpsave = heapalloc($0034)
sane[9] = @zpSave

1
src/mk800
View File

@ -244,6 +244,7 @@ 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
cat scripts/plot.4th | ./ac.jar -ptx PLASMA-2.1.po bld/scripts/PLOT.4TH TXT
cat scripts/hrplot.4th | ./ac.jar -ptx PLASMA-2.1.po bld/scripts/HRPLOT.4TH TXT
#mkdir bld/examples

3
src/mkbld
View File

@ -54,7 +54,7 @@ cat samplesrc/rpncalc.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/RPNCAL
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/sfmsprt.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/SFMSPRT.PLA TXT
cat samplesrc/fppow.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/FPPOW.PLA TXT
#cat samplesrc/fppow.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/FPPOW.PLA TXT
cat utilsrc/apple/mon.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/MON.PLA TXT
#cat utilsrc/apple/zipchip.pla | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/samples/ZIPCHIP.PLA TXT
@ -62,4 +62,5 @@ cat scripts/rod.4th | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/scripts/ROD.4T
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/plot.4th | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/scripts/PLOT.4TH TXT
cat scripts/hrplot.4th | ./ac.jar -ptx PLASMA-2.1-BLD.po bld/scripts/HRPLOT.4TH TXT

1
src/mkrel
View File

@ -148,6 +148,7 @@ 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
cp scripts/plot.4th prodos/bld/scripts/PLOT.4TH.TXT
cp scripts/hrplot.4th prodos/bld/scripts/HRPLOT.4TH.TXT
#mkdir prodos/bld/examples

51
src/scripts/plot.4th Normal file
View File

@ -0,0 +1,51 @@
SRC" PLASMA.4TH"
SRC" CONIO.4TH"
SRC" FPU.4TH"
: HLIN
ROT ROT 1+ SWAP DO
DUP I SWAP PLOT
LOOP
DROP
;
: VLIN
ROT ROT 1+ SWAP DO
DUP I PLOT
LOOP
DROP
;
: DRAWAXIS
GR
2 COLOR
0 39 19 HLIN
0 39 19 VLIN
;
: PLOTDONE
KEY DROP
TEXT
;
: PLOT OVER 40 U< OVER 40 U< AND IF _PLOT ELSE DROP THEN DROP ;
FPEXT XSCALE
FPCONSTPI 20 >FPINT FP/ XSCALE FPEXT!
FPEXT YSCALE
-20 >FPINT YSCALE FPEXT!
DEFER FUNC
: PLOTFUNC
15 COLOR
40 0 DO
I DUP 19 - >FPINT XSCALE FPEXT@ FP*
FUNC
YSCALE FPEXT@ FP* FPINT> 19 +
PLOT
LOOP
;
' FPSIN IS FUNC
DRAWAXIS PLOTFUNC PLOTDONE
' FPCOS IS FUNC
DRAWAXIS PLOTFUNC PLOTDONE