From f4b0953380e1231f7fee29b74564ff61d6fa3f23 Mon Sep 17 00:00:00 2001 From: Bobbi Webber-Manners Date: Wed, 21 Sep 2022 16:37:39 -0400 Subject: [PATCH] *SPOOL now works the same way as real Beeb. --- applecorn.po | Bin 819200 -> 819200 bytes auxmem.oscli.s | 15 ++++++--------- 2 files changed, 6 insertions(+), 9 deletions(-) diff --git a/applecorn.po b/applecorn.po index e881ea6a634a391b8b7fa801440b632e1d145269..d9ca8ad298c580a9989611e113cee86cab963810 100644 GIT binary patch delta 3229 zcmcgte@qis9KUz{0lp1aMdr`x+XBcC=d~iDQ)gR>R1ez}9GGPe<1iGNGUKvo=B_Rl ze+&ptvU8hatx7x;rqQh$ow6v}!c>TJF@hV@O*31rS7TyCrF&O}9$5bz@7-PBy?);J z-TQt%pZ9Dwjm@SxTq#$bpG8cY9Iqm5w}`o7V|$G}flN>xZIbUMuKZY<|vz7&IE(Pc0lGF{orNiCrq*-AI4-@R~If@vugF)nMkM2G3sHAHYYpR zkdylsenn!TD9S)llkksv>Qt0x33cL!E?eD)>5ro{1}V;@(-|em-gpddOiLdK)P#|} zz~^y`7U~TVae7_9c=?8$Fif%#N|%Z9n7)4mSe=G}VI0PU^CHa*HB~bZ z7kMF)%rFRLEXp?Pb>UA8PfVp#l7J%4V2OyEF8#nvBQ42`^aItYQtCvUhQaaXBTj4qQbiP=UzEjOKmt;mf%kxNt5Dq+CJe(0*2zHO7{lQVIj|j+y-OxOIJ=@gC?Wp){;ULyQ;Ks zrHDvka?B$UB`EDsiI z33!tnKwAXXj@EBlqWrSDtQwS6lV#PivTFHH)ry1+5bH|3rf?@F5SV}Iv8~h-GU97l z=$L zRCdXnLM1OtPg$E!k2o7$(j)t<;j2b`ImfyFV&MW9YYo(o&#x#B)Q`!pSP`fnn_p4F zzT<>G<-yQkmwF=`wj&$xwM1lg>5 zfaC(&^+VlXpgY*3H}dXNgSXFTiyQq zSzBu#VqA*SrcxrAtxizX-fvcQ6?2xYr$R=mt;U2?{bNEFd0eOG`@%m#td8 z61g^O;0!=s;MucNVZ&G}A0MPfdtzHhRj3;4iAL2Uqs=o+h(cE0Rh|lK0J*lym68TG z$bi+=@FN@^l@#DPqM!kQ@AA2i?B}?Ey@`vlyB)-lbDqwsXzrNfPds%xYGnO$A z3&{Y_4ml6^fp)gxJSyWWl;_u{%1{y%WE)r5E4=W~49H zHyYQGxK8s9tPk6E^Wnbl`JMb1e1^}-8@p0`YF`?z$F6*OWoT&R+o5MmE8iL(5xKSa z+E`zX_Xn@b>x#yY<6f^<#p>KpH$D5V{m}{fuDyG|e_x`6QrY+-xcFi9EowkDz`HpK%clR+>0o(H}^y2#<{ zj1uJB#||H+ZNDD@KetY7vuz$YYxs8Gt`(wMosE^1WQy5~US%gV!*|K5F19Wk>f?U# z)$O2^4x);5j4kK{PU3JJTFYK;hFTEE4r_s{fScXW0(X#cJUhh%%`w2gHETXDZ@z+t z`q^?5%x0T@g~cPx-clLI9Cs`J8C8GTJAdPG$Hk7?j;xMgJM+guAyTEgTIquV z)*HR;4&8o7Y~u^~>Bl@h-jCa9Zh^k!r*F2=GJ%GR{Pc1^z1~NkWcOZzlNB|>DIwW) X^%9%}@EN44eJp>Y>>jMW_fqA5+`;j7 delta 2255 zcmZ`(4{%h)8Q*<(c^9^(xe%ymDBadv2;snYe{x9}pd87iL>{?Jh$PHty-c7DHWC^~ z%|&a@ju(ZJ8yGTO>=b)FCF6@EqEQb-O*;I`C7{VzH6v&#wlL-1z4wlB#sQS;zRe{O zYTv$nxBGp+@855~y+FVo2-pvYjOI^Pg5qVl5CpyiYxKpw7mXIq1qM$V|H9>0dcAAi zwP5<;-2j48Kn?OiKKN2!Sis=(rhw6yol0r@Ah&Vwp*tdvb&AVT7N$=zZhy4HvdU%? zgcW|a66^xTOlcD~cq=?MwzdnuDEEqjwS?^)0E=5@t}EHgL`wkau`~Q76-u3HMjmRf)LLEpGJa5?VS-gK|*e zsl2rmn_Zwuud1!CD6}mp(y3w=4x!!tzfz|_i<`#kWHM~A;7?7bqdS+fqp+0;p6UucO&wuRCvRuTyUPb5cM}?QEon9J^I6GuJ3Yuv z9-OA1nK^`tT6aCBWmsu?Oys=9Z}AifD#jH1}5#!O} z`feSLlBqfzrPFojt+4PRW>_|DI2DbOemhT28;e)qDyB_4LzQzTO%~DVn2or)Xk(4n zD-!pA_@O~FcNPAh&jkE^Pgf7@>fyS23|&3Ow|g=y6>wg(U@~K*z;X}0*3(y7|K-;L z12|%!x7js)tzCfRrZS51>pUClDyu|K8qVM3Ah;8N>ZL!*Wq$z9We_~qn987&r_)4d zX0$Oi=h7c}Qz&7GXweOKqbJ~x53o&0F_c>U4dT4xnJqUB?E`-prfo3IuP4 z=it}1XTPO7`W8x11cAPTU#;8KdyV3(e89|OL!eK~=>2NcoM`^6k4mra@<~4pPvC?i zUQTI-2=ali-8*))Y;9_7+m55p+ffkUAGx2gYa<7geJIm2eqJJGi3yp9t zdH*>25N?WwPM{(P6XfVgRLwz^%sGW#hH)}*3hj28JFfTFbK`kZ0H@A%*K@v(>xb&O zVW4Hw*r{`WrV{XpyQOVw;}$=DbVq9|{pkWweVp=?g9l-+VA9dCa0#7B#m<$CrV8&}3>Exv!Xd2*@T6d#J8j-Sq?pON^D zI41THw6^5IE5RE_AGi{{eo%cm*{dDSpa-CpVqg5>!lLFQzR$2S-mAr6^By(-LX81$ zmLsXcW~-09N{!(QL>WPae6~DZfIlV+V`v$dEtB;z^x$3XVflhdGfK~dWqOPURh*+r zyYw~rTMVt7`;vU%H+uI*hC?CF>Wkw7l0Awxap45%+kndFPsn}y1wIV+aN#`P1sDN` z=i{AZXcW1jg}^b?3Ma{L$IyPxqL6#Ns3t2%-L>vM`Yg%Di&V1Pi#CwA&Y*|q`Qkea zQs&!QFdJkOj(t2;joYcxyznl^Po#4}o!r?%Exy8?q_ z+Pm5S9sjxn;+L*;%VYAX&%Zf;_I&U8b>~y(I=?ukecuohB|O={v7s(5ii%+*A+RTUps#co*~Bl|u;%Q6PEGun#i$q&#{*!zv~XI)oO J@6{iK{tIIWMREWD diff --git a/auxmem.oscli.s b/auxmem.oscli.s index e8b576e..c988195 100644 --- a/auxmem.oscli.s +++ b/auxmem.oscli.s @@ -570,27 +570,24 @@ SPOOL JSR LPTRtoXY JSR XYtoLPTR JSR PARSLPTR ; Just for error handling BEQ :CLOSE ; No filename - stop spooling - PLY + LDY FXSPOOL ; Already spooling? + BEQ :OPEN + LDA #$00 ; If so, close file + JSR FINDHND +:OPEN PLY PLX - LDA FXSPOOL - BNE :NOTTWICE LDA #$80 ; Open for writing JSR FINDHND ; Try to open file STA FXSPOOL ; Store SPOOL file handle RTS -:CLOSE PLY ; Fix the stack +:CLOSE PLY ; Clean up stack PLX LDY FXSPOOL - CPY #$00 BEQ :DONE LDA #$00 JSR FINDHND ; Close file STZ FXSPOOL :DONE RTS -:NOTTWICE BRK - DB $D6 ; TODO: WRONG ERROR CODE - ASC 'Already spooling' ; TODO: WHAT MESSAGE HERE? - BRK * Handle *EXEC command