From 4b3b5649f36c65db2360ee985ec28be48520f966 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Tue, 14 Nov 2017 18:01:49 -0800
Subject: [PATCH] SANE WIP

---
 src/libsrc/sane.pla | 41 +++++++++++++++++++++++++++++++++++++++--
 1 file changed, 39 insertions(+), 2 deletions(-)

diff --git a/src/libsrc/sane.pla b/src/libsrc/sane.pla
index 1db806c..22f0c65 100644
--- a/src/libsrc/sane.pla
+++ b/src/libsrc/sane.pla
@@ -13,9 +13,46 @@ struc t_codefile
     word[16]            seginfo
 end
 
+export word[64] sane
 byte ref
 word pcode, fp6502, preloc
 
+asm equates
+        !SOURCE "vmsrc/plvmzp.inc"
+end
+//
+// Prototypes for PLASMA <-> SANE interface
+//
+asm protoFP1(op)#1
+end
+asm protoFP2(op1, op2)#1
+end
+asm protoFP3(op1, op2, op3)#1
+        LDA     ESTKH,X
+        PHA
+        LDA     ESTKL,X
+        PHA
+        LDA     ESTKH+1,X
+        PHA
+        LDA     ESTKL+1,X
+        PHA
+        LDA     ESTKH+2,X
+        PHA
+        LDA     ESTKL+2,X
+        PHA
+        INX
+        INX
+        STX     ESP
+end
+asm fixupFP3
+        LDA     #$00
+        JSR     $FFFF
+        TXA
+        LDX     ESP
+        STA     ESTKL,X
+        STY     ESTKH,X
+        RTS
+end
 def prbyte(h)#0
     putc('$')
     call($FDDA, h, 0, 0, 0)
@@ -119,7 +156,7 @@ def reloc(base, prel)
 end
 def loadcode(codefile)
     byte ref
-    word pcode. preloc
+    word pcode, preloc
 
     pcode = 0
     ref   = open(codefile, sysbuf)
@@ -130,7 +167,7 @@ def loadcode(codefile)
         putname(pcode + segname + 8); putc('='); prword(pcode); putln
         preloc = (pcode + t_diskinfo)=>codeaddr
         read(ref, pcode, preloc)
-        dumpli(pcode  + (((pcode + preloc | 511) + 1))
+        dumpli(pcode  + ((pcode + preloc | 511) + 1))
         preloc = pcode + preloc - 2
         close(ref)
         puts("LinkInfo "); prword(preloc); putc(':'); putln