From 980376bf7150e9ac795f333da0f72bb290a80cbc Mon Sep 17 00:00:00 2001 From: Bobbi Webber-Manners Date: Thu, 9 Sep 2021 14:58:44 -0400 Subject: [PATCH] Integrate wildcards into commands that use them. --- applecorn.po | Bin 819200 -> 819200 bytes mainmem.svc.s | 15 +++++---------- 2 files changed, 5 insertions(+), 10 deletions(-) diff --git a/applecorn.po b/applecorn.po index e59bf7dbc44e1de71d8301a4aab761cc4cb29e6f..7e460973b3f5c9bdbaf928656ccfc103070c514c 100644 GIT binary patch delta 2988 zcma)7Yj6|S72e(JyYdt93OFXfHE&s#bcGG5AlW!hKsLe{Qc4mY(T_Hz5Fn&X+oTUI z5E)3kM#Ldof}kEvKOv>=qf}2M$gd_gpO|W`>#8 z+Vwg2p65O1J9i~%t|ZNk)TapxN7Wxp^DuHfZ6+g`I7RHkWL*7bJeCQ3`c9)xF6g8W z7ciOKFuuN69K+b9V#H3 z40PSTas67)jozmG{a7{rFD(VMCNy0-imN96f2xj?cp@7A#DFEU#R{Y>K81}>mir6D zQ)x{Dr!mQ!?Xw3agt+FfNiv-z9&}3ml7ZAcAXmQkYKy46hN@xMCbCj;8QaIg&NfPF z>}sRmsoMQ6wNcr58J{yOpv{N!Wk=JBEBG)P`zsnQ5#mInE%GlZ;aa|UL-|h!{&V{5 zLbBXMjCSP}rVDqMRGMWK3zq78Zm1%)REXp zW%n#?4^8Z%a>XodFHP*Ga^)<|Ju5y+tC$tf&?=R!B_d7V&g?I|PL-h>I9K_sM9j{U zs3stJC)E&=cTp`3$-9}-SH2NSb5lw&4uAvUeN+g*{&mx$o7C3^CVxBex`DOw`#vDSLL>> zqy7@Lddqt1FV)T<2tNs|-(kgmmy&t*h(oKRax2pIQzcm{jxWlZ)4?TiUS7L2;4gQO zF>T#hbEN(161Ox)UGJ8V%DY*-R5x_^=rB}PEEY3;kZTGM;zwm}kJ$vF9)o7E()1*B zXsrm~p`AuLJ|Z4=tfda^JW527yv(FsK#3TVJti%R{7!#~7DIlQzw{>jST4|Ljx}14 zeVb{x(gX*{x#@x*$lIm6(pt@9iV2bY7#BBa%S>@WS_iJd%>@KSS!M!T&;XP`-JXTI zmFL2-b;p34NWO%-D^1ed4p2>OqAVYeDY2PCKGIEfgImgfRFJ8xMB^SU19-S(BP+Ft z)PJ zp9__m&jRYG_EEr(97O;iIfgVqa61Zqi5_L7^5KBOcjEk2hkv*yV04m`+1Tsj%*WHz zCDIG26jQ@1<&eX6wTNNP3bV|bGmm*(Lx(XpS(-#b%Jxp2mp+V*56VUJ#FWnn!|U%E z;{L#f;_UCJQd%y~oIATPvKk~KuxNFUn1cgU&g#4qxCD&5ov@5pf#2wSx3Q7ONht;VfCIqTA9>r|&3J^#?B8Qc=|H64b zUFp+8rZgIqChAI~nNm9$Z6V)U$Q(a~R99s6=5B(& z4t~?{SAc4zg30(vUY=ZJRc&&y^~gLc95bW2R5(&>ZI^nzVTkoqgK!>*vf+7g%<3X* zh`SA|%w`@PDzc00{_^s8*46mS|M^#v5B0 z5o0tUIJ~)DckNr2V;qW}e@l7!-`M_g4~&MzUrv5&@v1#=y;$IL#>NFb++$Y`Or=^j zVz2Ds-blS7*t0%nTfee&YW-;8r@r6`NWZSfa%qs9vuC#;vWep?)CC#=caq{AA) z&CyB60#=^ogHcMd!ZrkE8E_8UcST>^#7iuXRwYkKv2d>HdnbnA({SSj$R m>FQeX7SH!JRbufIu_hZHLrr#iO?F02c4kd>R%3Sdj{gFB!>k?v delta 2820 zcmZuzdr(x@8NZLcX91Uhk46Md4+_Gv?Cx1H=|))yBCy8QZg8B$`r1jR4YH)OzYI9BQX6;O7$3G|-qu~-TYbKrPm^fvsF066&I%De8*0JB&D@13? z?&bT=_dNG^e%}FEo+Hb1q8%1tdUnSlOMr>1mSQHdq_psiiOC(mk|r@nvuQbLiXl_n zmCBe8qjXY(DK?t|qbVIKnrQl`bi{vD@0n_r6pOEGz%3`8Mz>N3Ms_!JvB(S_j@H-y$NVrn-(l%b83pCI!Hz`_U0aC?Cy%ZC_=j2T(tVs+ z=BJ(!X;e)x64}!S-&gQhiY^#4)NI8^)Es3V>6%ZvDhaOfL^B@M zUtNi2IUsni6aUr8vQ9a1rxWVdv$_pLtx^0;Tf{niR!8VZm1w39;;s>0h>HPF@f&_! zju*ksRGzg#&<4^SEUBDn^VzR-Qzu1aN&G>RH0LN1skl{?z$2~-r1y(xH7cS&j|QR-)FzagnzL}{3<)y}a}^@i^(=pA9bI!xDxS8TXo9HhAetyDJBelym0iqzu_^7YNV|0ohypE} zh>XmZ5nhb?-qL>G2VW(#PuoEbaoSFDh}U)zI=>nP*PF=lh8T#KbV;S~5|5C?O`hmB zlV^C3ryc15<4t+J$^pBAVPBrgZ3>cbl^Wdi5(!sppNr7E0J49};B6+@?umM}y+r8~ zwf6`$s?ijWR65KVQhxq`d@o$<#S_onl1k-+YQ0~csIK7(k}v06kP%9eUTA|A!PEA1QSB!ItaT@kqIU=o|JYp$I5Z?(U(EANEh0J8ZYYZ_#$w~&jT=Q z=`ynPHAb%PHk@)XjJocEJI+izR?ZT0A#tjin9C9eu*HeLcH-&IypT5(DRCK-26{?d zP{2Ac%*XG_Vq1wTlvlnHeunvtW7j>=ss($_sr-DU#HG5GQrA(t3tm05r&>5#N{t&* z;qnq!H+K^{X7%vm;ZoOVzkKHalse82f>DS*a|Z6lh0gZLeY}x*=Ai%`1sSPJanRY{ zFMk`-=S7iD+68YYFXTV4+4(Ui_785R8@`u3D-tja&TuW>;tZ(?xJjJwcZv;&_{hd? z7nnn}<}q8%BirL~C17(so=c7IrSLozcHWk7UcQe{x!T2xs_U|rbjKx4bs0DDH?F9J z@3>@JcjCAc=eVO!!HT&q-N&8ulbh1h%{ScevZ(_}x5^y`Juft-dP4w7(rrxYx#8B! zjBI_Dk*QZ3(x{wd=zpAWs_w%h&VDm03!-3^1}@QElk@f`IiD?0z;*7ZAm7T% zkOgnXPsc~B6pCt=pnX^$j$68US?K02<5%fxDQRx-w7VUjsEi92d>1N@bEhlqIZD#~ zVISQ6rz;O9-L3LnhI}`7{Gqwo$^CkD+;Y0on0cu({>&)cSRvN6{oncj=*OSZ zk(AWIm(X`_Nxz)Y=`pOM!^%C`*@;uSndzC7pz2B=;6YUSZ$_qs6=v8W1THkZ&jQ+B;7<@G?23|~yFMp91 zUu=pUzbzG5_yBbV&~p9+6GimT0W^c(V(Q5N+QR>Zu2_QR^V{j6CCCk{^Gi?>@25AG zpfHc<)};vZ-q`y~(Mg{F)=XO!MAP|V+Pnh&g!VR~9C|c}UgSSA4G)6oGTrcRshR)O zG`!h}d}BI9ujcQJXJXp83~fU%x242x2fgwV%8y-LhCYz^yciT;E1-L6Pwd)C^iLj* knv22JXfA?(^LDq`P>aplV#{c;WwzL|T5J<{9 diff --git a/mainmem.svc.s b/mainmem.svc.s index efb36cc..7eb1b81 100644 --- a/mainmem.svc.s +++ b/mainmem.svc.s @@ -91,6 +91,7 @@ RENFILE >>> ENTMAIN OFILE >>> ENTMAIN PHA ; Preserve arg for later JSR PREPATH ; Preprocess pathname + JSR WILDCARD ; Handle any wildcards JSR EXISTS ; See if file exists ... CMP #$02 ; ... and is a directory BNE :NOTDIR @@ -306,6 +307,7 @@ TELL >>> ENTMAIN * A>$1F ProDOS error, translated by FILERET LOADFILE >>> ENTMAIN JSR PREPATH ; Preprocess pathname + JSR WILDCARD ; Handle any wildcards JSR EXISTS ; See if it exists ... CMP #$01 ; ... and is a file BEQ :ISFILE @@ -642,6 +644,7 @@ CATALOG >>> ENTMAIN LDA MOSFILE ; Length of pathname BEQ :NOPATH ; If zero use prefix JSR PREPATH ; Preprocess pathname + JSR WILDCARD ; Handle any wildcards JSR EXISTS ; See if path exists ... CMP #$01 ; ... and is a file BNE :NOTFILE @@ -684,7 +687,7 @@ CATALOGRET * Set prefix. Used by *CHDIR to change directory SETPFX >>> ENTMAIN JSR PREPATH ; Preprocess pathname - JSR WILDCARD ; EXPERIMENTAL + JSR WILDCARD ; Handle any wildcards BCS :ERR LDA #>> ENTMAIN * Filename in MOSFILE, flags in MOSFILE2 SETPERM >>> ENTMAIN JSR PREPATH ; Preprocess pathname + JSR WILDCARD ; Handle any wildcards BCS :ERR STZ :LFLAG STZ :WFLAG @@ -794,12 +798,3 @@ MAINRDMEM STA A1L LDA (A1L) MAINRDEXIT >>> XF2AUX,NULLRTS ; Back to an RTS - - - - - - - - -