Moving towards *INFO ...
This commit is contained in:
parent
0d7350cbe1
commit
be140d17a2
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue