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

Trap *CAT file (ie: not directory) as an error.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-02 21:31:18 -04:00
parent 60f6c45057
commit 0832187cf6
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

7
mainmem.s
View File

@ -917,7 +917,12 @@ CATALOG >>> ENTMAIN
LDA MOSFILE ; Length of pathname LDA MOSFILE ; Length of pathname
BEQ :NOPATH ; If zero use prefix BEQ :NOPATH ; If zero use prefix
JSR PREPATH ; Preprocess pathname JSR PREPATH ; Preprocess pathname
LDA #<MOSFILE JSR EXISTS ; See if path exists ...
CMP #$01 ; ... and is a file
BNE :NOTFILE
LDA #$46 ; Not found (TO DO: err code?)
BRA CATEXIT
:NOTFILE LDA #<MOSFILE
STA OPENPL+1 STA OPENPL+1
LDA #>MOSFILE LDA #>MOSFILE
STA OPENPL+2 STA OPENPL+2