Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-26 06:29:31 +00:00
Code Issues Projects Releases Wiki Activity

Enforce *DIR argument, allow trailing space

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-08-26 19:21:23 -04:00
parent 7c98d6a98b
commit 1ffd751419
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

13
auxmem.hostfs.s
View File

@ -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 <pathname>'
BRK
:S3 >>> WRTMAIN
STX MOSFILE ; Length byte
>>> WRTAUX
>>> XF2MAIN,SETPFX