Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-02-13 16:30:37 +00:00
Code Issues Projects Releases Wiki Activity

Fixed spurious *INFO error message.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-11 22:38:02 -04:00
parent e91b5a3991
commit a1087ddefe
2 changed files with 5 additions and 8 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
mainmem.svc.s
View File

@ -704,8 +704,10 @@ INFO JSR PREPATH ; Preprocess pathname
JSR WILDCARD ; Handle any wildcards JSR WILDCARD ; Handle any wildcards
JSR EXISTS ; Check matches something JSR EXISTS ; Check matches something
CMP #$00 CMP #$00
BEQ INFOERR ; If not, complain, bail BNE INFOFIRST
BRA INFOFIRST LDA #$46 ; Not found (TO DO: err code?)
BRA CATEXIT
** BUG: If the last segment is a literal with no wildcard, then ** BUG: If the last segment is a literal with no wildcard, then
** the directory block is never loaded into memory, so printing ** the directory block is never loaded into memory, so printing
** it does not go well ;) ** it does not go well ;)
@ -725,13 +727,8 @@ INFOFIRST LDA WILDIDX
INFOEXIT CMP #$4C ; EOF INFOEXIT CMP #$4C ; EOF
BNE INFOCLS BNE INFOCLS
LDA #$00 ; EOF is not an error LDA #$00 ; EOF is not an error
PHA
INFOCLS JSR CLSDIR ; Be sure to close it! INFOCLS JSR CLSDIR ; Be sure to close it!
PLA BRA CATEXIT
>>> XF2AUX,STARCATRET
INFOERR LDA #$40 ; TODO PROPER ERROR CODE
PHA
BRA INFOCLS
* Set prefix. Used by *CHDIR to change directory * Set prefix. Used by *CHDIR to change directory