From 1ffd75141995936e99946575976aef684431c413 Mon Sep 17 00:00:00 2001 From: Bobbi Webber-Manners Date: Thu, 26 Aug 2021 19:21:23 -0400 Subject: [PATCH] Enforce *DIR argument, allow trailing space --- applecorn.po | Bin 819200 -> 819200 bytes auxmem.hostfs.s | 13 +++++++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/applecorn.po b/applecorn.po index cd8471676f83b32b8d96cb3b9a2765f5c37396c7..4dfe3fc33c0df2fb572b1f3a57c3469a5fb55a6e 100644 GIT binary patch delta 1668 zcmX|BdrTBZ7~kF7;Q$2>MFU#Rc)oZDqPC5xPw-9-Tn^#DUX2=1QGB2VO+*vJnf6Y_ zp20vJ`UlDOg4nf*0n}0-*u#@}&{!9+6=AtO_9C98$cp$V8n3fp+;4V%-{ZI6>^Coq zWr@YIq^^RdBBxaRK+jX)7Cmo6Fje=$+Cs! z02Ap7-uFRu`HT}chZ(hJgYIdSK0EDn24t1nGRP9w36mW-f2?e5HUX9q@Q?o!ktJbK-o}1l6W_16O(BmUigoIW>G9fKLNaOq<9(W_hSZ zZ#RQS;)dBrIMw}apq8vehqvR5TEy%CkQ7kS4sbfW$`|Wx_42`71p62h=>ni9t5A9Y z*sgX9uw8%xx>^7lz6kL+$olfu+2xZ;aMji4<8iTOx8E|*#zzx^>FEB$`6XXLU0OC= zaWMaI;r{%hf>i{v>;%TruAb~%<9A&>dh_Y7o;2gS%rflJ8Daod^wHCE!z5W}En)VR5h^$>;eyLK9;2>C{>1MZ_n-rTh94qp)-^~xz z54R@D6a3h(8TI@9ynwZ&*W5lwI-H7{!A3qx=uaPWeX9u^37oOJ*eAafyzk0}t!!(+wPP*(St%@2*OoIH{C=tcY_6?S_$vAV_XRH6d8Ae z`3Zu6i`2>#2dx8ctcJ-UEd%^3cu(NNxPX0xDwNG!DbwHUkl{)6({2D4-xD0~;YlHe zpX?x_n%+{!-&57^DSuh4idRaIBOD_*EQcyz2(pS9MZ>#+F7=dHDVB@pu~cIDU37}S zi7nzkeS=<3yewY9GO?q-{fziC7S~wcCiaU};wz6)+&Cs*i@QWSI=%S_v-zK12%?9l?DdiToU8?E`rUp?&4^FGo8U z63(QTWf{><&8uTcw@1r(@>Cmtt%`5h1iQV*PF0OA%QL`kz9>F*t^RE=aEbU<4OUwixGsDNkd6`Uf@Bl~vcOw&D<5aj30$LT&NH@c#jJ!3&B2 delta 1515 zcmX|B3s4hB7{0q?iG)|;_yER^tAGVjeAZ#AwhaYXiD^D%k?>W>26{o z@q7mM{!g2VX|u;@+G1^4j-DW-wS)g{D!sGYUgsrno$e8DSR0 zK*e{{@Z|K7RA6d$hVrvLG0l5o$o;Z7_YDX0Q)@eO_5OwW^1)Q}Rw9`mbAh?h`oMwq zOUWtC&55LztXEKFb_HoyP|nTMDt-2~KRH7eW$HptF!@G=Km z(8W#QeCpGni#%87OAwOw;;Nm;vT?D7wm$3Qo9LU(pt#1zROJxUa9z&v}@@+~<8*D~8+r@^jC8IYO^bi+N*xTTL4wIv&& zfpgEt2ZSY@B;}+ir-XtA^ot3kkv#g_1T-;BKuE#$VMX6Hjyg1UBjzqD+E;t)XuPT>>*_Fr9oGO{oMahlRtRy%a zZQl+YHEm27uL4hsdx9I?8ct~K=(yK$l_A&%Oqdogt}Z`cSCm7rePgzImAV+4FGkD) zz4&Vs-7+SE=>>Y7T9uzeTnt|dpTLsQy`!hBCn>ZrB>nA4XG7<@PF?4f`>(oSQiN^~ zE9nItbZ?jz!ZZ<~lS1@Dba)4t4Ninx!z&Q!l|(Nns1HfI1=uYyc8knz8E3b|+AVUs KC9cU5pZFgpjGz1f diff --git a/auxmem.hostfs.s b/auxmem.hostfs.s index 9575988..35e9afb 100644 --- a/auxmem.hostfs.s +++ b/auxmem.hostfs.s @@ -559,16 +559,21 @@ RENRET STARDIR JSR EATSPC ; Eat leading spaces :S1 LDX #$01 :L3 LDA (ZP1),Y - CMP #$0D - BEQ :S3 + CMP #$21 ; Check for CR or space + BCC :S2 >>> WRTMAIN STA MOSFILE,X >>> WRTAUX INY INX BRA :L3 -:S3 DEX - >>> WRTMAIN +:S2 DEX + BNE :S3 + BRK + DB $DC + ASC 'Syntax: DIR ' + BRK +:S3 >>> WRTMAIN STX MOSFILE ; Length byte >>> WRTAUX >>> XF2MAIN,SETPFX