mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-06-24 02:29:32 +00:00
Further refactoring.
This commit is contained in:
parent
f534426793
commit
b14b8ee71a
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
|
@ -730,8 +730,9 @@ DRVINFO >>> ENTMAIN
|
||||||
* Filename in MOSFILE, flags in MOSFILE2
|
* Filename in MOSFILE, flags in MOSFILE2
|
||||||
SETPERM >>> ENTMAIN
|
SETPERM >>> ENTMAIN
|
||||||
JSR PREPATH ; Preprocess pathname
|
JSR PREPATH ; Preprocess pathname
|
||||||
JSR WILDONE ; Handle any wildcards
|
BCS :SYNERR
|
||||||
BCS :ERR
|
JSR WILDCARD ; Handle any wildcards
|
||||||
|
BCS :NONE
|
||||||
STZ :LFLAG
|
STZ :LFLAG
|
||||||
STZ :WFLAG
|
STZ :WFLAG
|
||||||
STZ :RFLAG
|
STZ :RFLAG
|
||||||
|
@ -739,7 +740,7 @@ SETPERM >>> ENTMAIN
|
||||||
INX
|
INX
|
||||||
:L1 DEX
|
:L1 DEX
|
||||||
CPX #$00
|
CPX #$00
|
||||||
BEQ :DONEARG
|
BEQ :MAINLOOP
|
||||||
LDA MOSFILE2,X ; Read arg2 char
|
LDA MOSFILE2,X ; Read arg2 char
|
||||||
CMP #'L' ; L=Locked
|
CMP #'L' ; L=Locked
|
||||||
BNE :S1
|
BNE :S1
|
||||||
|
@ -753,7 +754,12 @@ SETPERM >>> ENTMAIN
|
||||||
BNE :ERR2 ; Bad attribute
|
BNE :ERR2 ; Bad attribute
|
||||||
STA :WFLAG
|
STA :WFLAG
|
||||||
BRA :L1
|
BRA :L1
|
||||||
:DONEARG LDA #<MOSFILE
|
:SYNERR LDA #$40 ; Invalid pathname syn
|
||||||
|
BRA :EXIT
|
||||||
|
:NONE JSR CLSDIR
|
||||||
|
LDA #$40 ; TODO PROPER ERROR CODE
|
||||||
|
BRA :EXIT
|
||||||
|
:MAINLOOP LDA #<MOSFILE
|
||||||
STA GINFOPL+1
|
STA GINFOPL+1
|
||||||
LDA #>MOSFILE
|
LDA #>MOSFILE
|
||||||
STA GINFOPL+2
|
STA GINFOPL+2
|
||||||
|
@ -773,8 +779,12 @@ SETPERM >>> ENTMAIN
|
||||||
AND #$3D ; Turn off destroy/ren/write
|
AND #$3D ; Turn off destroy/ren/write
|
||||||
:S5 STA GINFOPL+3 ; Access byte
|
:S5 STA GINFOPL+3 ; Access byte
|
||||||
JSR SETINFO ; SET_FILE_INFO
|
JSR SETINFO ; SET_FILE_INFO
|
||||||
|
JSR WILDNEXT
|
||||||
|
BCS :NOMORE
|
||||||
|
BRA :MAINLOOP
|
||||||
:EXIT >>> XF2AUX,ACCRET
|
:EXIT >>> XF2AUX,ACCRET
|
||||||
:ERR LDA #$40 ; Invalid pathname syn
|
:NOMORE JSR CLSDIR
|
||||||
|
LDA #$00
|
||||||
BRA :EXIT
|
BRA :EXIT
|
||||||
:ERR2 LDA #$53 ; Invalid parameter
|
:ERR2 LDA #$53 ; Invalid parameter
|
||||||
BRA :EXIT
|
BRA :EXIT
|
||||||
|
|
|
@ -47,6 +47,12 @@ WILDCARD STZ :LAST
|
||||||
RTS
|
RTS
|
||||||
:LAST DB $00 ; Flag for last segment
|
:LAST DB $00 ; Flag for last segment
|
||||||
|
|
||||||
|
* Obtain subsequent wildcard matches
|
||||||
|
* WILDCARD must have been called first
|
||||||
|
* Returns with carry set if wildcard match fails, clear otherwise
|
||||||
|
WILDNEXT SEC ; Just say 'no match' for now
|
||||||
|
RTS
|
||||||
|
|
||||||
* Copy a segment of the path into SEGBUF
|
* Copy a segment of the path into SEGBUF
|
||||||
* PREPATH makes all paths absolute, so always begins with '/'
|
* PREPATH makes all paths absolute, so always begins with '/'
|
||||||
* On entry: X contains index of first char in MOSFILE to process
|
* On entry: X contains index of first char in MOSFILE to process
|
||||||
|
|
Loading…
Reference in New Issue
Block a user