From 72533c9ad9b893a3f27f99982b04079be90249b9 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Sun, 27 May 2018 20:12:26 -0700
Subject: [PATCH] Refix ProDOS clock input buffer

---
 PLASMA-SYS2.PO               | Bin 143360 -> 143360 bytes
 src/vmsrc/apple/cmd.pla      |   3 ++-
 src/vmsrc/apple/cmdjit.pla   |   3 ++-
 src/vmsrc/apple/cmdjitstub.s |  14 ++++++++------
 4 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/PLASMA-SYS2.PO b/PLASMA-SYS2.PO
index 9d3049a501f1bcc2a7eeb1424509c0c09040f9b3..d81c825766d6208a6452698938837222e881eaec 100755
GIT binary patch
delta 223
zcmZp8z|ru4V}k>WfV%)guL>WJGQ(pAf!!)xB9jAHyjZ}Dc`Q8wzxfzkRD=ZJvYV|~
zk8!a2up9UUZFc0_&p7?fLPpW)oIFhGiv*aa8}KldFWxM~!=>||QB6!Bq+Z-$@@Bak
zjDC}Q<V(2K#09hhLkdJI!~`aDE9eQXWNu|!snE*4fT4wBkw6>gi^&3f`kNV<b}}|8
zZBt@2sAH7gZn%KanjdD|buokKIqMm3Fp5ui-N0B3H82Nc;PhAGObXi{Z(tN=T(*g^
F4ggBmKotN0

delta 191
zcmZp8z|ru4V}k>WfTaLKuL>WJGQ(pAfn6%*0+Rz+yjZ}Dc`Q8wANd$uRD=ZJvYV|~
zk8udBv~OiwsnE*4fT4wBkw6>gWC;a*CLfQ@tbF?!7YQ)&v~q5_@PXyqfdvd(4@~1>
zTE4hkh-Y%6+zm#T$x-qp+&T<QS`8ruq80xcC*PFU+sw#xoUuu1n-Zfz9i!lO!v&1i
m{L{<UGu~k2o$kMZv3UA@aVG8UZ#OUsGfoy@;##(eu?_&?Bs}5(

diff --git a/src/vmsrc/apple/cmd.pla b/src/vmsrc/apple/cmd.pla
index 28125ba..cd33088 100755
--- a/src/vmsrc/apple/cmd.pla
+++ b/src/vmsrc/apple/cmd.pla
@@ -1328,6 +1328,7 @@ end
 // Command line processor
 //
 def docmds#0
+    strcpy(getlnbuf, @cmdln)
     while 1
         if ^getlnbuf
             strcpy(@cmdln, getlnbuf)
@@ -1406,7 +1407,7 @@ syscmdln = @cmdln
 //
 autorun = open(@autorun)
 if autorun
-    ^getlnbuf = read(autorun, getlnbuf + 1, 128)
+    cmdln = read(autorun, @cmdln+1, 81)
     close(0)
 else
     //
diff --git a/src/vmsrc/apple/cmdjit.pla b/src/vmsrc/apple/cmdjit.pla
index 1c347f2..c3af10c 100755
--- a/src/vmsrc/apple/cmdjit.pla
+++ b/src/vmsrc/apple/cmdjit.pla
@@ -1399,6 +1399,7 @@ def docmds#0
     loadmod(jitmod)  // Cannot do this in init code - it will overwrite it!
     xheap    = $0400 // Reset heap to point at low memory
     xheaptop = $A000 // Top below JITC
+    strcpy(getlnbuf, @cmdln)
     while 1
         if ^getlnbuf
             strcpy(@cmdln, getlnbuf)
@@ -1477,7 +1478,7 @@ syscmdln = @cmdln
 //
 autorun = open(@autorun)
 if autorun
-    ^getlnbuf = read(autorun, getlnbuf + 1, 128)
+    cmdln = read(autorun, @cmdln+1, 81)
     close(0)
 else
     //
diff --git a/src/vmsrc/apple/cmdjitstub.s b/src/vmsrc/apple/cmdjitstub.s
index 4f8957a..6205272 100644
--- a/src/vmsrc/apple/cmdjitstub.s
+++ b/src/vmsrc/apple/cmdjitstub.s
@@ -8,10 +8,16 @@ LCBNK1  =       $08
 JITCOMP =       $03E2
 JITCODE =       $03E4
 !SOURCE "vmsrc/plvmzp.inc"
+        JMP     CMDMOVE
+_CMDBEGIN   =   *
+!PSEUDOPC   $1000 {
+!SOURCE "vmsrc/apple/cmdjit.a"
+_CMDEND     =   *
+}
 ;*
 ;* MOVE CMD DOWN TO $1000-$2000
 ;*
-        LDA     #<_CMDBEGIN
+CMDMOVE LDA     #<_CMDBEGIN
         STA     SRCL
         LDA     #>_CMDBEGIN
         STA     SRCH
@@ -19,6 +25,7 @@ JITCODE =       $03E4
         STY     DSTL
         LDX     #$10
         STX     DSTH
+        INX
 -       LDA     (SRC),Y
         STA     (DST),Y
         INY
@@ -44,8 +51,3 @@ JITCODE =       $03E4
         TXS
         LDX     #ESTKSZ/2   ; INIT EVAL STACK INDEX
         JMP     $1000
-_CMDBEGIN   =   *
-!PSEUDOPC   $1000 {
-!SOURCE "vmsrc/apple/cmdjit.a"
-_CMDEND     =   *
-}