From 76aab9ce31cee04cecd39677b922cf44bcab28ec Mon Sep 17 00:00:00 2001 From: Bobbi Webber-Manners Date: Tue, 24 Aug 2021 17:42:12 -0400 Subject: [PATCH] Minor fix to FSCHND. --- applecorn.po | Bin 819200 -> 819200 bytes auxmem.hostfs.s | 11 +++++++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/applecorn.po b/applecorn.po index 64767b5d2e95e4ee3e84e7ee69a8410446ef0ae5..410eb37137f4a7816f2543e4eeba61a5301fd029 100644 GIT binary patch delta 1675 zcmZ`(eN0nV6o2ovw|rP!*_?pWc|lPSK}6#)nGP(479Ry^L0XvW_+v6-7J@EQ_XkZz zs}oD8hFw47lL^anW5QHGCkte{P$RA&j?q3|X=gHw6CTp2t8?9bg~epa?z#7#d(Qpc z-?<;>J+nE(Y|dyuCZ&?2k2OgXMRi@8Sd<*SocN6(UQbyUO%ZFdOUepV1!?L+ojzBW zrjve5yh?0@L~P0&EH)($!&2v98m&g3rXvXHK|)5Xj|jnztpy?OvRPF-t6FE(z^w9v zRbqH33nBAlP*MIe28>NfkG}MY?ESzMH@S|KGS2=!v{phUhdXcg*_ff>yIpdMTuF8r zCFF^4tDLmTDXUy!l}kJ2;PQqgHyR#En!OE^l6{%0%YyWRAH#S5E%~;-7uV)r(BKx} zTG;KgNqc*Pf~4R4h#{^LIveOc(cRUj1P099^+qljBFXNq$vluwk-O2-d;m!U%E||8 zNPSmzJ~&85d}Mi>&9H1@yT71;HdgC9Lr}LAPodfaw+^y57$;PEW9bp}0S%msJmbrQ z>2Z$NoUt}VZyV98c&;%!qJ=Q%K}7}N3K`QS(*hq!D$#>N@HIA@ia-MyrSw**VTG5y zz>Gj8N-qW$vKw_4gVV}<2Pxz^DB(?qR9NHy!ahfYu-6eOR6FFt3NWZ3XE@u({EC-kvV=Mu4xkJ@*hF4O z)q1d*6wpOI*ja0L6_;r1>@HQ==XRGyn_GAodsN!&0@V?_i!RL02{N26yHpi?$mOVL zm0o4dcNc8U(G(xbcPryfqJGac-=PE4H*Z<_&R-)0H@3_?}y2!lC zy(L?xQDVSWmBDO4O(h^zp5?YauA6Bl7^0^J-6;Vv+iFG?fr*I;C)ZOmn*L-0_liKj zGqU5cBTeu+vfIbtTkf8{qw1bLxYdlRBLxY}a#xwKTL`d}b3QADeqNZuPF9j!3%8>U zr65%qaG7OdD2A|1v4lmiOv7}yumA>J7C{_Eilb>v;%qxV-72(9L4UBiS!9I??)Fy8 zLzsYCOTmtWWgJ7$QKLq-i*e%%K427g=1jy#h{W3w;_x|EYzGPRm0osW7Qsf)epI?0 zoT@#=O^i#O&&1<)G{Ow7ecqW084nIlS|GEF^*i^OHgan8nYJtt<3 zlbr1=7i%K^E!M_5J3~O@7+l7+G}OBfu^$R_%r;MSk7U&%@6Q5`61pv{?yaSf6w<~2@DPo9_O!MafbR4eui)1m-03I zfslO4f5x9gS_8;Qsv5IAzq)hG5@?wcpRFC>n-wzQVt!ZBs;X`ilzN(jNmZ*CqiY7R zk))B|0Fol=`R@XD!3673q7m#MAD}uTh>u&!c*es7DVxN2@Vnv!z#r;b#zQO74@Qtm zZbp9?fr(sz3d%wJy!)O5hmHp_O=@@_?JoxjWajC_KesrYJ7*WGvUAdi8L!`a56jchTVof; z)_V+|$M@XB@kfUXhqH#iy8F!t)cRpipqCGG&JvU^^sZ@>2v kNs-hg1$CaZRsw6K%vu>{tqiwTMp!E&t(EgyE9Gzg1Bn*zxc~qF delta 1684 zcmZ`(drVVT7{BMXr$Q~PI_6;WaWt}lQpCp=%w#D-rIpJ=S}G6cx@J?hxu9`AVwTW9 zY-PFtq2Hk!2X1TSi%o1z8yF<(Au-jb#xoj)<#s-MNKj$&#J#-t(Q` zcYgVO=keX^aIAAU*0nb(X+?ZvlQLO$Un!G|74a*npD5~?)$13~)SB$lvI0Xvy0OS? z*VxzRiwJ@q(HtT9;UF)p7 zJ?p07Dmgt;MVWajq%D(kD5Fb3iK}DcuN+dn5vDJq&S9_tbZw?VGQbOH@M70)1vnGa zsHNjv8sO5scy>bhP`JxyKd&davH4cdVUKW1fa8PA`fQJ;BCBYD@4GG^;_W@ zu&rzFR(K4=zU$n?t#f8^ou?RBn3x}Grs#g{3^D{!{s8w4>qB}mkr~3f80dSBA6ps8 zNb)}IOLS{{+o)dcW0S+XK$?emTwDMEw7j=hH$Gl^{814r9BMD}5lraYNbdT{i255-bF)p(#3KD(`YL>nF-ANTP+)gu`X$4RdZ_xaQv z54`D;=*?~)MH>P=`$mjCd&yfpVpK~ClohD5k+2lzXkR?1L{ow^NrIdrwFX)6Ml00i z%=jHDITcGeCppR~Ij4{=ASIv~zf+P&YI!t8M0{=Mr&^_!Ni-eV>ycH_vOs&Q^Eb2% zb5^)>1>#wXQIAw`SJ?nL;3F0C%6!RW3u>|)DT(YObvs-UuNS%gSq2x&OyTnF@Y9;p z{P>vC_ekDuM?G4@x6f}r&G*SMsiS_3l486_QhDPfI@8wkF|Q_VNfYmG=6g=f0?fP5 z@`*O;pXRDR+Q3q1`zS(uOTBx7ZfS5&(r7;4{sI@*P~V5{2gnS{=i8UGo#ov%65ZC! zyQiWh#6?IE*`gKYm}ENq|F4zxA1$4%^(ZR!2mNn~MRNGhX!yx&21?FAq&cNAN_(Ae ztv}yTm0GiBDa}zHs(FGQA6w{qWIHLG6Fw1GV&{l?g?`~{;f^phHXXboTo-zXg$ITP znuN>5Zb$neK@vQ|Vxd|%6t%;GL%?`jIm}IYYt;F;`^`~jxMfnl$#zH%TgpU9!aFIe zs;=7*2znwZRcT4MryOnsCOlIPQ(|j{%i#vehH7z21>6aK#>Xn)@}$LVaBQBWEtbjW33ZAThHn0E}SHk7<#o&?J)8R~;5sCPNO1J{-z@JsZBv6aH zE8%{SfOR|I`viG*zzR*dc+t3(wA822E*$e3bkrOaSvEHanm=9UzsQ{2iqY_J*%30xnAd1m<+E>Gvo;Sxi3 zZaO82Q{o`8>5=b7FO9AZT7wUM2n;PhIaD;HAG&b&(lE*oF>xVg`5?0-#H59oO(AA& wkg?*FolvJ56hY{qcm>dazM`cs0GA!Q>?)Uip35HNvd6mYYL|U}t6j77Z%MA~asU7T diff --git a/auxmem.hostfs.s b/auxmem.hostfs.s index bc08ce8..f3967c5 100644 --- a/auxmem.hostfs.s +++ b/auxmem.hostfs.s @@ -336,7 +336,6 @@ OSFILEM2 ASC ')' * On exit, A=preserved if unimplemented * A=modified if implemented * X,Y=any return values -* FSCHND CMP #$00 BEQ FSOPT ; A=0 - *OPT CMP #$01 @@ -354,6 +353,13 @@ FSCHND CMP #$00 CMP #$0C BEQ FSCREN ; A=12 - *RENAME + PHA + LDA #OSFSCM + JSR PRSTR + PLA + RTS + FSCRUN STX OSFILECB ; Pointer to filename STY OSFILECB+1 LDA #$FF ; OSFILE load flag @@ -367,9 +373,6 @@ FSCRUN STX OSFILECB ; Pointer to filename :CALL JMP (OSFILECB+6) ; Jump to EXEC addr RTS FSCREN - LDA #OSFSCM - JSR PRSTR RTS OSFSCM ASC 'OSFSC.' DB $00