Moving towards *INFO ...

This commit is contained in:
Bobbi Webber-Manners 2021-09-10 19:29:10 -04:00
parent 0d7350cbe1
commit be140d17a2
4 changed files with 8 additions and 4 deletions

Binary file not shown.

View File

@ -418,8 +418,6 @@ CHKEOFRET
FSCCAT PHA
JSR PARSNAME ; Copy filename->MOSFILE
PLA
CMP #10 ; *TEMP*
BEQ CATDONE ; *TEMP*
ASL A
ASL A
ASL A ; 0101xxxx=*CAT

View File

@ -643,8 +643,9 @@ QUIT INC $3F4 ; Invalidate powerup byte
DW QUITPL
RTS
* Obtain catalog of current PREFIX dir
* Used for *CAT, *EX and *INFO
CATALOG >>> ENTMAIN
STA CATARG ; Stash argument
LDA MOSFILE ; Length of pathname
BEQ :NOPATH ; If zero use prefix
JSR PREPATH ; Preprocess pathname
@ -688,6 +689,8 @@ CATALOGRET
>>> ENTMAIN
BRA CATREENTRY
CATARG DB $00 ; A=5 *CAT, A=9 *EX, A=10 *INFO
* Set prefix. Used by *CHDIR to change directory
SETPFX >>> ENTMAIN
JSR PREPATH ; Preprocess pathname

View File

@ -271,7 +271,10 @@ MATCHENT LDA #<BLKBUF+4 ; Skip pointers
BRA :L2
:MATCH SEC
RTS
:NOMATCH CLC
:NOMATCH LDA #$00
LDY #$00
STA (A1L),Y ; Pretend entry is deleted
CLC
RTS
* From: http://6502.org/source/strings/patmatch.htm