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

src/libsrc/sane.pla

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

src/mk800

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

src/mkbld

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

src/mkrel

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

src/scripts/plot.4th

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