From aabc8c21e6f1901899272269e2f9b5895a129838 Mon Sep 17 00:00:00 2001
From: Bobbi Webber-Manners <bobbi.manners@gmail.com>
Date: Thu, 22 Jul 2021 18:11:21 -0400
Subject: [PATCH] Fixed prefix-setting code

---
 applecorn.po | Bin 143360 -> 143360 bytes
 applecorn.s  |  18 ++++++++++--------
 2 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/applecorn.po b/applecorn.po
index e600f7fe7016552d0dfa64a28d3300dee3b9b386..a2220bef824534842c200000ca774fc24e2184ee 100644
GIT binary patch
delta 617
zcmW+xZ%7ki7{BN4T*?ra&1lt!!@Ygj7Fm*!VZ(wV5XwqKW7G<np-@vSDM}V}2F6MB
zl2?Ls=@2itb=zqh^ubxCu?^jr#U=y?(ey*3T7N!NV6VdOd7j^&=fm^(^kSc0tk$z8
z_Z8}^y`ln9pD60L-B^wrSu49vv|e`E2V?j&e{yp=IhRQ$1Sv6_k^HKrs`v%p%&s$R
z?B8M8u-4NVY0Mv*6QuOg%*LK}r2o6c<k!@o^oo1^E0_CR5QKSrTe7jlRJB?O+aAUS
zN+NunjQGQH1ml>~A<qk0j-#fjW)z^9B&Y117S1AKygh>yU~Fa2R|hFZt`dO3|6=<g
zfcM4Cq#uu4!Gk;ERfY+~A5~=hG~NUr?PuIVZ&Hy^i<BTXFF3YOqCAmit1^Z1K_paI
z6&3MyypzPO3x^Doh|nqgWZ_=<1>_D;Fs$5(5|9JtTXFSbZ<z}{V7QNemHSZw`4NsR
zju;uB2pYkISPXQFcpwK2rS0S|8~H21J7t?Vn1h3c(Nx=-T%$Fl3IOBSnXZI(d@;R~
z+}W4b0CcVT{Uk}Wl@D8CG;>!>&cZIy<brMC5*NJL!bDQ?kQX{2BzAh?7#Tq?Tr!sm
zY;?qfgrexXRbM_v)SySScR@WA#Lh0LA>&yWoZ=i=Ze@+YEuWXNTqJe*&&_koCmwT&
z)Bq{DO*C~w6J3<mfF6dSC=`oJS7G;14_prq^guI+`VZj36B*E%F`#KtzX9CKTcE>u
WA9RcQHKM+eEc6BTgrSmNEBy~{SQ5qn

delta 602
zcmXAkUr19?9LMi(o4P3RvbMyGIJo13CRSrYg)J?LAh2OFTI|7EU@Q`qp%E1mx+cbr
z=mf_EX=O<_xufki?%teX7H-VDma$36z=uR!|FD;Ou%p8F{C=PF`+nh^Um$M`<c+VJ
z417~3_oLQg!Q2wZt<~0*6Q{vy*Z`%^un-`vLJP0WWVNIiOipKmAE)2W&ycX-D&C|C
zvVEYkauYZFso>c2$cz}we45%yPAJC)epQrgWy8v~AgQ6+G*r`S50pKe9V(3qjS?1)
zN>RZf*(qIw6DAi9aZU}%2PVaH7;%&DTIuQ{*vQ_53Bu%H!p!QagcZERm)KwY0t?6G
zaq=Y523}<?QK2i5v3MBEA!1JL+a1OQb~Rh&2rh)MXtByN78(Tyv)!p9#bL}aLLR5?
znmo8Y#KDN%A7^5(zIPGZTwj?RKhUGE|KxjdCTW<&=0=T9;GE#a1_HYCB&MC&=3`6L
zuqDD|N4gmfDJ|*W0Ar*%Qw5i)whVjN*ZMOGz>?B1{{}!(RzB|neJm|K%idA#9!Tz_
zZa?sp_XDQ-F7QE=c6PzZqNwml%F$Z|u+fz+s4M41LwwYW#iBU+zW!l3urkXA_r0V)
zW2TO7sDnTBYBw~n_Ou($qWT>Aw$9WpT@2<>EPdtgjSCB>hfy*;#E#TK`5tJ~8FLEg
zMu6J=&`T~w%<3yYxPW$OfK=2AdA&OL1+D|(buU$P6Y?8`#&1K9iheSe4rT#GR-s;n
ID&2bNe?s;RumAu6

diff --git a/applecorn.s b/applecorn.s
index efa15df..564713b 100644
--- a/applecorn.s
+++ b/applecorn.s
@@ -173,25 +173,25 @@ START       STZ   BLOCKS
 BLOCKS      DB    0                          ; Counter for blocks read
 
 * Set prefix if not already set
-SETPRFX     LDA   GPFXCMD
+SETPRFX     LDA   #GPFXCMD
             STA   :OPC7                      ; Initialize cmd byte to $C7
 :L1         JSR   MLI
 :OPC7       DB    $00
-            DW    GPFXPL
-            LDX   RDBUF
+            DW    GSPFXPL
+            LDX   $0300
             BNE   :S1
             LDA   $BF30
             STA   ONLPL+1                    ; Device number
             JSR   MLI
             DB    ONLNCMD
             DW    ONLPL
-            LDA   RDBUF+1
+            LDA   $0301
             AND   #$0F
             TAX
             INX
-            STX   RDBUF
+            STX   $0300
             LDA   #$2F
-            STA   RDBUF+1
+            STA   $0301
             DEC   :OPC7
             BNE   :L1
 :S1         RTS
@@ -622,7 +622,10 @@ CLSPL       HEX   01                         ; Number of parameters
 
 ONLPL       HEX   02                         ; Number of parameters
             DB    $00                        ; Unit num
-            DW    RDBUF+1                    ; Buffer
+            DW    $301                       ; Buffer
+
+GSPFXPL     HEX   01                         ; Number of parameters
+            DW    $300                       ; Buffer
 
 GPFXPL      HEX   01                         ; Number of parameters
             DW    RDBUF                      ; Buffer
@@ -1759,7 +1762,6 @@ STARDIR     LDA   ZP1                        ; Move ZP1->ZP3 (OSWRCH uses ZP1)
             STA   $C004                      ; Write main
             STA   MOSFILE,X
             STA   $C005                      ; Write aux
-            JSR   $FFEE                      ; OSWRCH
             INY
             INX
             BRA   :L3