mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-10 07:54:37 +00:00
Kernel 0.93
This commit is contained in:
parent
7b9cacc21d
commit
d4ef30ab1f
386
BIN/CHMOD.S.txt
386
BIN/CHMOD.S.txt
@ -0,0 +1,386 @@
|
|||||||
|
NEW
|
||||||
|
PREFIX
|
||||||
|
AUTO 4,1
|
||||||
|
.LIST OFF
|
||||||
|
.OP 65C02
|
||||||
|
.OR $2000
|
||||||
|
.TF BIN/CHMOD
|
||||||
|
*--------------------------------------
|
||||||
|
.INB INC/MACROS.I
|
||||||
|
.INB INC/A2OSX.I
|
||||||
|
.INB INC/MLI.I
|
||||||
|
.INB INC/MLI.E.I
|
||||||
|
*--------------------------------------
|
||||||
|
X.COPY.TO.DEST .EQ 0
|
||||||
|
X.DELETE.SOURCE .EQ 0
|
||||||
|
*--------------------------------------
|
||||||
|
.DUMMY
|
||||||
|
.OR ZPBIN
|
||||||
|
ZS.START
|
||||||
|
ZPPtr1 .BS 2
|
||||||
|
ZPPtr2 .BS 2
|
||||||
|
ZPFileName .BS 2
|
||||||
|
ZPFileStat .BS 2
|
||||||
|
ZPFullPath .BS 2
|
||||||
|
ZPMode .BS 2
|
||||||
|
ZS.END .ED
|
||||||
|
*--------------------------------------
|
||||||
|
* File Header (16 Bytes)
|
||||||
|
*--------------------------------------
|
||||||
|
CS.START cld
|
||||||
|
jmp (.1,x)
|
||||||
|
.DA #$61 6502,Level 1 (65c02)
|
||||||
|
.DA #1 BIN Layout Version 1
|
||||||
|
.DA 0
|
||||||
|
.DA CS.END-CS.START Code Size (without Constants)
|
||||||
|
.DA DS.END-DS.START Data SegmentSize
|
||||||
|
.DA #64 Stack Size
|
||||||
|
.DA #ZS.END-ZS.START Zero Page Size
|
||||||
|
.DA 0
|
||||||
|
*--------------------------------------
|
||||||
|
* Relocation Table
|
||||||
|
*--------------------------------------
|
||||||
|
.1 .DA CS.INIT
|
||||||
|
.DA CS.RUN
|
||||||
|
.DA CS.DOEVENT
|
||||||
|
.DA CS.QUIT
|
||||||
|
L.MSG.USAGE .DA MSG.USAGE
|
||||||
|
L.MSG.DIR .DA MSG.DIR
|
||||||
|
L.MSG.FILE .DA MSG.FILE
|
||||||
|
L.MSG.OK .DA MSG.OK
|
||||||
|
L.MSG.ERR .DA MSG.ERR
|
||||||
|
.DA 0
|
||||||
|
*--------------------------------------
|
||||||
|
CS.INIT clc
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.RUN >INC.G ArgIndex
|
||||||
|
>SYSCALL ArgV
|
||||||
|
bcs .8
|
||||||
|
>STYA ZPPtr1
|
||||||
|
|
||||||
|
lda (ZPPtr1)
|
||||||
|
cmp #'-'
|
||||||
|
bne .4
|
||||||
|
|
||||||
|
ldy #1
|
||||||
|
lda (ZPPtr1),y
|
||||||
|
|
||||||
|
ldx OptionList
|
||||||
|
|
||||||
|
.2 cmp OptionList,x
|
||||||
|
beq .3
|
||||||
|
dex
|
||||||
|
bne .2
|
||||||
|
|
||||||
|
.9 >PUSHBI 0
|
||||||
|
>LDYA L.MSG.USAGE
|
||||||
|
>SYSCALL printf
|
||||||
|
lda #E.SYN
|
||||||
|
sec
|
||||||
|
.99 rts
|
||||||
|
|
||||||
|
.3 ldy OptionVars-1,x
|
||||||
|
lda #$80
|
||||||
|
sta (pData),y
|
||||||
|
bra CS.RUN
|
||||||
|
*--------------------------------------
|
||||||
|
.4 >LDA.G StrMode
|
||||||
|
bne .5
|
||||||
|
|
||||||
|
>LDA.G ArgIndex
|
||||||
|
>STA.G StrMode
|
||||||
|
bra CS.RUN
|
||||||
|
|
||||||
|
.5 >LDA.G hSrcBasePath
|
||||||
|
bne .9
|
||||||
|
|
||||||
|
>LDYA ZPPtr1
|
||||||
|
jsr InitSrcDirYA
|
||||||
|
bcc CS.RUN
|
||||||
|
rts
|
||||||
|
|
||||||
|
.8 >LDA.G StrMode
|
||||||
|
beq .9
|
||||||
|
|
||||||
|
jsr CS.RUN.Str2Mode
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
>LDA.G hSrcBasePath
|
||||||
|
beq .9
|
||||||
|
|
||||||
|
>LDYAI 256
|
||||||
|
>SYSCALL getmem
|
||||||
|
bcs .99
|
||||||
|
>STYA ZPFullPath
|
||||||
|
txa
|
||||||
|
>STA.G hSrcFullPath
|
||||||
|
*--------------------------------------
|
||||||
|
CS.RUN.LOOP ldy #S.PS.hStdIn
|
||||||
|
lda (pPS),y
|
||||||
|
>SYSCALL feof
|
||||||
|
bcs .99
|
||||||
|
|
||||||
|
tay
|
||||||
|
beq .1
|
||||||
|
|
||||||
|
>SYSCALL GetChar
|
||||||
|
bcs .99
|
||||||
|
|
||||||
|
cmp #$03 Ctrl-C
|
||||||
|
beq .99 Abort....
|
||||||
|
|
||||||
|
cmp #$13 Ctrl-S
|
||||||
|
bne .1
|
||||||
|
|
||||||
|
>LDA.G bPause
|
||||||
|
eor #$ff
|
||||||
|
sta (pData),y
|
||||||
|
bne CS.RUN.LOOP
|
||||||
|
|
||||||
|
.1 >LDA.G bPause
|
||||||
|
bne CS.RUN.LOOP Pause...
|
||||||
|
jsr GetEntry
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
ldy #S.STAT.P.DRIVE
|
||||||
|
lda (ZPFileStat),y ProDOS Device ?
|
||||||
|
beq .5
|
||||||
|
|
||||||
|
jsr CS.RUN.DEV
|
||||||
|
bcc CS.RUN.LOOP
|
||||||
|
rts
|
||||||
|
|
||||||
|
.5 ldy #S.STAT.P.TYPE
|
||||||
|
lda (ZPFileStat),y
|
||||||
|
cmp #$0F Directory ?
|
||||||
|
bne .6
|
||||||
|
|
||||||
|
jsr CS.RUN.DIR
|
||||||
|
bcs .99
|
||||||
|
bra .8
|
||||||
|
|
||||||
|
.6 jsr CS.RUN.FILE
|
||||||
|
bcs .99
|
||||||
|
bra .8
|
||||||
|
|
||||||
|
.9 jsr LeaveSubDir
|
||||||
|
bcs .90
|
||||||
|
|
||||||
|
jsr BasePath..
|
||||||
|
|
||||||
|
.8 jsr GetNextEntry
|
||||||
|
jmp CS.RUN.LOOP
|
||||||
|
|
||||||
|
.90 lda #0
|
||||||
|
sec
|
||||||
|
.99 rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.RUN.DEV lda #E.BADPATH
|
||||||
|
sec
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.RUN.DIR >LDA.G bRecurse
|
||||||
|
bpl .8
|
||||||
|
|
||||||
|
lda (ZPFileName)
|
||||||
|
cmp #'.'
|
||||||
|
beq .8
|
||||||
|
|
||||||
|
jsr CS.RUN.GetFilePath
|
||||||
|
|
||||||
|
>PUSHW ZPFullPath
|
||||||
|
|
||||||
|
>PUSHBI 2
|
||||||
|
>LDYA L.MSG.DIR
|
||||||
|
>SYSCALL printf
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
>PUSHW ZPMode
|
||||||
|
>LDYA ZPFullPath
|
||||||
|
>SYSCALL chmod
|
||||||
|
|
||||||
|
jsr CS.RUN.CheckErr
|
||||||
|
|
||||||
|
>LDYA ZPFileName
|
||||||
|
jsr EnterSubDirYA
|
||||||
|
rts
|
||||||
|
|
||||||
|
.8 clc
|
||||||
|
.9 rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.RUN.FILE >LDA.G hFilter
|
||||||
|
beq .3 No filter....
|
||||||
|
|
||||||
|
pha
|
||||||
|
|
||||||
|
ldy #S.STAT.FSID
|
||||||
|
lda (ZPFileStat),y
|
||||||
|
bne .1 not prodos...
|
||||||
|
|
||||||
|
pla
|
||||||
|
>SYSCALL GetMemPtr
|
||||||
|
>SYSCALL strupr
|
||||||
|
bra .2
|
||||||
|
|
||||||
|
.1 pla
|
||||||
|
>SYSCALL GetMemPtr
|
||||||
|
|
||||||
|
.2 jsr StrMatch
|
||||||
|
bcs .8 no match, skip....
|
||||||
|
|
||||||
|
.3 jsr CS.RUN.GetFilePath
|
||||||
|
|
||||||
|
>PUSHW ZPFullPath
|
||||||
|
|
||||||
|
>PUSHBI 2
|
||||||
|
>LDYA L.MSG.FILE
|
||||||
|
>SYSCALL printf
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
>PUSHW ZPMode
|
||||||
|
>LDYA ZPFullPath
|
||||||
|
>SYSCALL chmod
|
||||||
|
|
||||||
|
jsr CS.RUN.CheckErr
|
||||||
|
|
||||||
|
.8 clc
|
||||||
|
.9 rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.RUN.Str2Mode >SYSCALL ArgV
|
||||||
|
>STYA ZPPtr1
|
||||||
|
|
||||||
|
ldy #$ff
|
||||||
|
|
||||||
|
.1 iny
|
||||||
|
lda (ZPPtr1),y
|
||||||
|
bne .1
|
||||||
|
|
||||||
|
cpy #3
|
||||||
|
bne .9
|
||||||
|
|
||||||
|
stz ZPMode
|
||||||
|
stz ZPMode+1
|
||||||
|
|
||||||
|
dey
|
||||||
|
|
||||||
|
.2 lda (ZPPtr1),y
|
||||||
|
|
||||||
|
cmp #'0'
|
||||||
|
bcc .9
|
||||||
|
cmp #'7'+1
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
asl ZPMode
|
||||||
|
rol ZPMode+1
|
||||||
|
asl ZPMode
|
||||||
|
rol ZPMode+1
|
||||||
|
asl ZPMode
|
||||||
|
rol ZPMode+1
|
||||||
|
and #7
|
||||||
|
clc
|
||||||
|
adc ZPMode
|
||||||
|
sta ZPMode
|
||||||
|
bcc .3
|
||||||
|
inc ZPMode+1
|
||||||
|
|
||||||
|
.3 dey
|
||||||
|
bpl .2
|
||||||
|
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
|
||||||
|
.9 sec
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.RUN.CheckErr bcs .1
|
||||||
|
>LDYA L.MSG.OK
|
||||||
|
>SYSCALL puts
|
||||||
|
rts
|
||||||
|
|
||||||
|
.1 pha
|
||||||
|
>PUSHA
|
||||||
|
>PUSHBI 1
|
||||||
|
>LDYA L.MSG.ERR
|
||||||
|
|
||||||
|
>SYSCALL printf
|
||||||
|
|
||||||
|
>LDA.G bContinue
|
||||||
|
eor #$80
|
||||||
|
asl
|
||||||
|
pla
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.RUN.GetFilePath
|
||||||
|
>LDA.G hSrcBasePath
|
||||||
|
>SYSCALL GetMemPtr
|
||||||
|
>PUSHYA
|
||||||
|
|
||||||
|
>LDYA ZPFullPath
|
||||||
|
|
||||||
|
>SYSCALL StrCpy
|
||||||
|
|
||||||
|
>PUSHW ZPFileName
|
||||||
|
>LDYA ZPFullPath
|
||||||
|
>SYSCALL StrCat
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.DOEVENT sec
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.QUIT jsr LeaveSubDir
|
||||||
|
bcc CS.QUIT
|
||||||
|
|
||||||
|
>LDA.G hFilter
|
||||||
|
beq .1
|
||||||
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
|
.1 >LDA.G hSrcFullPath
|
||||||
|
beq .8
|
||||||
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
|
.8 clc
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
.INB USR/SRC/BIN/X.FILEENUM.S
|
||||||
|
*--------------------------------------
|
||||||
|
CS.END
|
||||||
|
*--------------------------------------
|
||||||
|
OptionList >PSTR "CRcr"
|
||||||
|
OptionVars .DA #bContinue,#bRecurse,#bContinue,#bRecurse
|
||||||
|
*--------------------------------------
|
||||||
|
MSG.USAGE .AS "Usage : CHMOD mode [File *,? wildcards allowed]\r\n"
|
||||||
|
.AS " -C : Continue on error\r\n"
|
||||||
|
.AZ " -R : Recurse subdirectories\r\n"
|
||||||
|
MSG.OK .AZ "[OK]"
|
||||||
|
MSG.ERR .AZ "[%h]\r\n"
|
||||||
|
MSG.DIR .AZ "Reading Dir:%s..."
|
||||||
|
MSG.FILE .AZ "Adding File:%s..."
|
||||||
|
*--------------------------------------
|
||||||
|
.DUMMY
|
||||||
|
.OR 0
|
||||||
|
DS.START
|
||||||
|
ArgIndex .BS 1
|
||||||
|
bContinue .BS 1
|
||||||
|
bRecurse .BS 1
|
||||||
|
|
||||||
|
StrMode .BS 1
|
||||||
|
|
||||||
|
bPause .BS 1
|
||||||
|
|
||||||
|
hFullPath .BS 1
|
||||||
|
hSrcFullPath .BS 1
|
||||||
|
STAT .BS S.STAT
|
||||||
|
Index .BS 1
|
||||||
|
hDIRs .BS X.MAX.RECURSE
|
||||||
|
hDIRENTs .BS X.MAX.RECURSE
|
||||||
|
oDIRENTs .BS X.MAX.RECURSE*2
|
||||||
|
hSrcBasePath .BS 1
|
||||||
|
hFilter .BS 1
|
||||||
|
|
||||||
|
DS.END
|
||||||
|
.ED
|
||||||
|
*--------------------------------------
|
||||||
|
MAN
|
||||||
|
SAVE USR/SRC/BIN/CHMOD.S
|
||||||
|
ASM
|
@ -147,12 +147,10 @@ SEEK.SET .EQ $00
|
|||||||
SEEK.CUR .EQ $02
|
SEEK.CUR .EQ $02
|
||||||
SEEK.END .EQ $04
|
SEEK.END .EQ $04
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
P.SYSADMIN .EQ %10000000
|
|
||||||
*--------------------------------------
|
|
||||||
* A2osX.SYSCALL Functions Indexes
|
* A2osX.SYSCALL Functions Indexes
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SYS.GetMemStat .EQ $00
|
SYS.GetMemStat .EQ $00
|
||||||
* .EQ $02
|
SYS.ChMod .EQ $02
|
||||||
SYS.FStat .EQ $04
|
SYS.FStat .EQ $04
|
||||||
SYS.Stat .EQ $06
|
SYS.Stat .EQ $06
|
||||||
SYS.MKDir .EQ $08
|
SYS.MKDir .EQ $08
|
||||||
@ -212,9 +210,9 @@ SYS.LoadFile .EQ $64
|
|||||||
SYS.LoadTxtFile .EQ $66
|
SYS.LoadTxtFile .EQ $66
|
||||||
|
|
||||||
SYS.ChTyp .EQ $68
|
SYS.ChTyp .EQ $68
|
||||||
SYS.ChMod .EQ $6A
|
* .EQ $6A
|
||||||
SYS.ChOwn .EQ $6C
|
* .EQ $6C
|
||||||
SYS.ChGrp .EQ $6E
|
* .EQ $6E
|
||||||
|
|
||||||
SYS.AToF .EQ $70
|
SYS.AToF .EQ $70
|
||||||
SYS.AToI .EQ $72
|
SYS.AToI .EQ $72
|
||||||
@ -635,10 +633,13 @@ S.PW.SHELL .EQ 182 64+1
|
|||||||
*
|
*
|
||||||
S.PW .EQ 247
|
S.PW .EQ 247
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
S.SESSION.PRIV .EQ 0
|
S.SESSION.P .EQ 0
|
||||||
|
S.SESSION.P.ROOT .EQ %10000000
|
||||||
|
S.SESSION.P.SYSADMIN .EQ %01000000
|
||||||
S.SESSION.UID .EQ 1
|
S.SESSION.UID .EQ 1
|
||||||
S.SESSION.GID .EQ 2
|
S.SESSION.GID .EQ 2
|
||||||
S.SESSION.NAME .EQ 3
|
S.SESSION.PASSWD .EQ 3
|
||||||
|
S.SESSION.NAME .EQ 20
|
||||||
*S.SESSION.GECOS .EQ 0
|
*S.SESSION.GECOS .EQ 0
|
||||||
*S.SESSION.DIR .EQ 0
|
*S.SESSION.DIR .EQ 0
|
||||||
*S.SESSION.SHELL .EQ 0
|
*S.SESSION.SHELL .EQ 0
|
||||||
|
@ -231,7 +231,7 @@ CS.RUN.SetRootSession
|
|||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.SetUserSession
|
CS.RUN.SetUserSession
|
||||||
ldx #S.SESSION.NAME PRIV+UID+GID
|
ldx #S.SESSION.NAME P+UID+GID+PASSWD
|
||||||
|
|
||||||
ldy #S.PW.NAME-1
|
ldy #S.PW.NAME-1
|
||||||
|
|
||||||
@ -478,9 +478,10 @@ ETCISSUE .AZ "${ROOT}ETC/ISSUE"
|
|||||||
ETCMOTD .AZ "${ROOT}ETC/MOTD"
|
ETCMOTD .AZ "${ROOT}ETC/MOTD"
|
||||||
SHELL .AZ "${SHELL}"
|
SHELL .AZ "${SHELL}"
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SESSION.ROOT .DA #P.SYSADMIN
|
SESSION.ROOT .DA #S.SESSION.P.ROOT
|
||||||
.DA #0 UID
|
.DA #0 UID
|
||||||
.DA #0 GID
|
.DA #0 GID
|
||||||
|
.BS 17 PASSWD
|
||||||
.AZ "ROOT" NAME
|
.AZ "ROOT" NAME
|
||||||
.AZ "Root User" GECOS
|
.AZ "Root User" GECOS
|
||||||
.AZ "${ROOT}ROOT/" DIR
|
.AZ "${ROOT}ROOT/" DIR
|
||||||
|
@ -471,7 +471,9 @@ K.ReadDir.AddAccess
|
|||||||
|
|
||||||
jsr STAT.Access2Mode
|
jsr STAT.Access2Mode
|
||||||
|
|
||||||
sty K.S.STAT+S.STAT.MODE
|
sta K.S.STAT+S.STAT.MODE
|
||||||
|
tya
|
||||||
|
ora K.S.STAT+S.STAT.MODE+1 preserve DIR
|
||||||
sta K.S.STAT+S.STAT.MODE+1
|
sta K.S.STAT+S.STAT.MODE+1
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
K.ReadDir.AddTime
|
K.ReadDir.AddTime
|
||||||
|
@ -1,6 +1,5 @@
|
|||||||
NEW
|
NEW
|
||||||
PREFIX
|
AUTO 3,1
|
||||||
AUTO 4,1
|
|
||||||
*/--------------------------------------
|
*/--------------------------------------
|
||||||
* # LoadTxtFile
|
* # LoadTxtFile
|
||||||
* Load TXT a file in memory (with ending 0)
|
* Load TXT a file in memory (with ending 0)
|
||||||
@ -148,13 +147,6 @@ K.ChTyp jsr PFT.CheckPathYA
|
|||||||
|
|
||||||
.99 >RET 1 discard filetype
|
.99 >RET 1 discard filetype
|
||||||
*/--------------------------------------
|
*/--------------------------------------
|
||||||
* # ChMod
|
|
||||||
* **In:**
|
|
||||||
* PUSHW = UID
|
|
||||||
* PUSHW = PATH
|
|
||||||
*\--------------------------------------
|
|
||||||
K.ChMod
|
|
||||||
*/--------------------------------------
|
|
||||||
* # ChOwn
|
* # ChOwn
|
||||||
* **In:**
|
* **In:**
|
||||||
* PUSHW = mod
|
* PUSHW = mod
|
||||||
|
@ -1104,9 +1104,10 @@ PwdMgrInit >LDYAI MSG.PWD
|
|||||||
sta S.Table.hFile
|
sta S.Table.hFile
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
PwdMgr.ROOT .DA #P.SYSADMIN
|
PwdMgr.ROOT .DA #S.SESSION.P.ROOT
|
||||||
.DA #0 UID
|
.DA #0 UID
|
||||||
.DA #0 GID
|
.DA #0 GID
|
||||||
|
.BS 17 PASSWD
|
||||||
.AZ "ROOT" NAME
|
.AZ "ROOT" NAME
|
||||||
.AZ "Root User" GECOS
|
.AZ "Root User" GECOS
|
||||||
.AZ "${ROOT}ROOT/" DIR
|
.AZ "${ROOT}ROOT/" DIR
|
||||||
|
@ -608,6 +608,39 @@ K.GetStkObjData sta SETREADAUX
|
|||||||
|
|
||||||
|
|
||||||
sta CLRREADAUX
|
sta CLRREADAUX
|
||||||
|
rts
|
||||||
|
*/--------------------------------------
|
||||||
|
* # GetMemStat
|
||||||
|
* **In:**
|
||||||
|
* Y,A = Ptr to 24 bytes buffer
|
||||||
|
* ## RETURN VALUE
|
||||||
|
* Buffer filled with memory stats
|
||||||
|
*\--------------------------------------
|
||||||
|
K.GetMemStat >STYA ZPPtr1
|
||||||
|
|
||||||
|
ldy #23
|
||||||
|
ldx #7
|
||||||
|
|
||||||
|
.1 lda DevMgr.Stat,x
|
||||||
|
sta (ZPPtr1),y
|
||||||
|
dey
|
||||||
|
dex
|
||||||
|
bpl .1
|
||||||
|
|
||||||
|
sta SETREADAUX
|
||||||
|
|
||||||
|
jsr .2
|
||||||
|
|
||||||
|
sta CLRREADAUX
|
||||||
|
|
||||||
|
.2 ldx #7
|
||||||
|
|
||||||
|
.3 lda Mem.Table,x
|
||||||
|
sta (ZPPtr1),y
|
||||||
|
dey
|
||||||
|
dex
|
||||||
|
bpl .3
|
||||||
|
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* in Y,A = buf size
|
* in Y,A = buf size
|
||||||
|
@ -126,7 +126,18 @@ PWD.PutPW >LDYA ZPPtr2
|
|||||||
|
|
||||||
jmp PWD.InitDB
|
jmp PWD.InitDB
|
||||||
|
|
||||||
.1
|
.1 jsr PWD.
|
||||||
|
|
||||||
|
jsr PWD.GetRecordLen
|
||||||
|
pha
|
||||||
|
tya
|
||||||
|
clc
|
||||||
|
adc PWD.DBSize
|
||||||
|
tay
|
||||||
|
pla
|
||||||
|
adc PWD.DBSize+1 Y,A = new DB Size
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
.9 lda #E.IPWDDB
|
.9 lda #E.IPWDDB
|
||||||
sec
|
sec
|
||||||
@ -147,6 +158,32 @@ PWD.InitDB jsr PWD.GetRecordLen
|
|||||||
clc
|
clc
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
* ZPPtr2 = pPW
|
||||||
|
*--------------------------------------
|
||||||
|
PWD.DeleteRecord
|
||||||
|
>LDYA PWD.DBPtr
|
||||||
|
>STYA ZPPtr3
|
||||||
|
|
||||||
|
.1 >LDYA ZPPtr2
|
||||||
|
>STYA TXTPTR
|
||||||
|
|
||||||
|
.2 lda (ZPPtr3)
|
||||||
|
beq .9 End of DB
|
||||||
|
|
||||||
|
ldy #$ff
|
||||||
|
|
||||||
|
.3 iny
|
||||||
|
jsr MEM.TXTPTR.GetNext
|
||||||
|
cmp (ZPPtr3),y
|
||||||
|
bne
|
||||||
|
|
||||||
|
and #$ff
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
.9 sec
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
PWD.Record2PM sta CLRWRITEAUX
|
PWD.Record2PM sta CLRWRITEAUX
|
||||||
|
|
||||||
ldy #0
|
ldy #0
|
||||||
|
@ -1,39 +1,79 @@
|
|||||||
NEW
|
NEW
|
||||||
PREFIX
|
AUTO 3,1
|
||||||
AUTO 4,1
|
*--------------------------------------
|
||||||
*/--------------------------------------
|
* # ChMod
|
||||||
* # GetMemStat
|
* change permissions of a file
|
||||||
|
* ## C
|
||||||
|
* `int chmod(const char *pathname, int mode);`
|
||||||
|
* ## ASM
|
||||||
* **In:**
|
* **In:**
|
||||||
* Y,A = Ptr to 24 bytes buffer
|
* `>PUSHW mode`
|
||||||
|
* `>LDYA pathname`
|
||||||
|
* `>SYSCALL chmod`
|
||||||
* ## RETURN VALUE
|
* ## RETURN VALUE
|
||||||
* Buffer filled with memory stats
|
*--------------------------------------
|
||||||
*\--------------------------------------
|
* only 777-555
|
||||||
K.GetMemStat >STYA ZPPtr1
|
*--------------------------------------
|
||||||
|
K.ChMod jsr PFT.CheckPathYA
|
||||||
|
bcs .99
|
||||||
|
|
||||||
ldy #23
|
>PULLW K.S.STAT+S.STAT.MODE
|
||||||
ldx #7
|
|
||||||
|
|
||||||
.1 lda DevMgr.Stat,x
|
lda K.S.STAT+S.STAT.MODE+1
|
||||||
sta (ZPPtr1),y
|
and /S.STAT.MODE.RU
|
||||||
dey
|
beq .9
|
||||||
dex
|
|
||||||
bpl .1
|
|
||||||
|
|
||||||
sta SETREADAUX
|
lda K.S.STAT+S.STAT.MODE
|
||||||
|
and #S.STAT.MODE.XO+S.STAT.MODE.RO+S.STAT.MODE.XG+S.STAT.MODE.RG+S.STAT.MODE.XU+S.STAT.MODE.RU
|
||||||
|
cmp #S.STAT.MODE.XO+S.STAT.MODE.RO+S.STAT.MODE.XG+S.STAT.MODE.RG+S.STAT.MODE.XU+S.STAT.MODE.RU
|
||||||
|
bne .9
|
||||||
|
|
||||||
jsr .2
|
>MLICALL MLIGETFILEINFO
|
||||||
|
bcs .90
|
||||||
|
|
||||||
sta CLRREADAUX
|
lda K.MLI.PARAMS+S.FI.A
|
||||||
|
and #$3D not S.FI.A.RN+S.FI.A.D+S.FI.A.W
|
||||||
|
ora #S.FI.A.R
|
||||||
|
tax
|
||||||
|
|
||||||
.2 ldx #7
|
lda K.S.STAT+S.STAT.MODE
|
||||||
|
tay
|
||||||
|
bit #S.STAT.MODE.WG
|
||||||
|
beq .1
|
||||||
|
|
||||||
.3 lda Mem.Table,x
|
txa
|
||||||
sta (ZPPtr1),y
|
ora #S.FI.A.RN
|
||||||
dey
|
tax
|
||||||
dex
|
|
||||||
bpl .3
|
|
||||||
|
|
||||||
|
tya
|
||||||
|
.1 bit #S.STAT.MODE.WU
|
||||||
|
beq .2
|
||||||
|
|
||||||
|
txa
|
||||||
|
ora #S.FI.A.D
|
||||||
|
tax
|
||||||
|
|
||||||
|
tya
|
||||||
|
.2 bit #S.STAT.MODE.WO
|
||||||
|
beq .3
|
||||||
|
|
||||||
|
txa
|
||||||
|
ora #S.FI.A.W
|
||||||
|
tax
|
||||||
|
|
||||||
|
.3 stx K.MLI.PARAMS+S.FI.A
|
||||||
|
|
||||||
|
>MLICALL MLISETFILEINFO
|
||||||
|
|
||||||
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
.9 lda #E.SYN
|
||||||
|
sec
|
||||||
|
.90 rts
|
||||||
|
|
||||||
|
.99 >RET 2
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* # FStat
|
* # FStat
|
||||||
* Return information about a hFILE
|
* Return information about a hFILE
|
||||||
@ -136,9 +176,9 @@ K.Stat.I >PULLW ZPPtr1 Get StatBuf
|
|||||||
jsr STAT.Access2Mode
|
jsr STAT.Access2Mode
|
||||||
|
|
||||||
.2 phy
|
.2 phy
|
||||||
ldy #S.STAT.MODE+1
|
ldy #S.STAT.MODE
|
||||||
sta (ZPPtr1),y
|
sta (ZPPtr1),y
|
||||||
dey
|
iny
|
||||||
pla
|
pla
|
||||||
sta (ZPPtr1),y
|
sta (ZPPtr1),y
|
||||||
|
|
||||||
@ -164,13 +204,35 @@ K.Stat.DST .DA #S.STAT.P.TYPE
|
|||||||
STAT.Access2Mode
|
STAT.Access2Mode
|
||||||
and #S.FI.A.FULL
|
and #S.FI.A.FULL
|
||||||
cmp #S.FI.A.FULL
|
cmp #S.FI.A.FULL
|
||||||
bne .1
|
beq .7
|
||||||
ldy #S.STAT.MODE.FO+S.STAT.MODE.FG+S.STAT.MODE.FU
|
|
||||||
lda /S.STAT.MODE.FO+S.STAT.MODE.FG+S.STAT.MODE.FU
|
tay
|
||||||
rts
|
ldx #S.STAT.MODE.RO+S.STAT.MODE.RG+S.STAT.MODE.RU+S.STAT.MODE.XO+S.STAT.MODE.XG+S.STAT.MODE.XU
|
||||||
|
|
||||||
|
bit #S.FI.A.W
|
||||||
|
beq .1
|
||||||
|
txa
|
||||||
|
ora #S.STAT.MODE.WO
|
||||||
|
tax
|
||||||
|
|
||||||
|
tya
|
||||||
|
|
||||||
|
.1 asl D in C
|
||||||
|
|
||||||
|
bpl .2 RN in N
|
||||||
|
|
||||||
|
txa
|
||||||
|
ora #S.STAT.MODE.WG
|
||||||
|
tax
|
||||||
|
|
||||||
|
.2 txa
|
||||||
|
bcc .8
|
||||||
|
ora #S.STAT.MODE.WU
|
||||||
|
.HS 2C BIT ABS
|
||||||
|
|
||||||
|
.7 lda #S.STAT.MODE.FO+S.STAT.MODE.FG+S.STAT.MODE.FU rwxrwxrwx
|
||||||
|
.8 ldy /S.STAT.MODE.RU ??????R??
|
||||||
|
|
||||||
.1 ldy #S.STAT.MODE.FO+S.STAT.MODE.FG+S.STAT.MODE.XU+S.STAT.MODE.RU
|
|
||||||
lda /S.STAT.MODE.FO+S.STAT.MODE.FG+S.STAT.MODE.XU+S.STAT.MODE.RU
|
|
||||||
rts
|
rts
|
||||||
*/-------------------------------------
|
*/-------------------------------------
|
||||||
* # MKDir
|
* # MKDir
|
||||||
|
@ -1,6 +1,5 @@
|
|||||||
NEW
|
NEW
|
||||||
PREFIX
|
AUTO 3,1
|
||||||
AUTO 4,1
|
|
||||||
.LIST OFF
|
.LIST OFF
|
||||||
.OP 65C02
|
.OP 65C02
|
||||||
.OR $2000
|
.OR $2000
|
||||||
@ -47,7 +46,6 @@ A2osX.D1 .PH $D000
|
|||||||
.INB USR/SRC/SYS/KERNEL.S.STDIO
|
.INB USR/SRC/SYS/KERNEL.S.STDIO
|
||||||
.INB USR/SRC/SYS/KERNEL.S.STDLIB
|
.INB USR/SRC/SYS/KERNEL.S.STDLIB
|
||||||
.INB USR/SRC/SYS/KERNEL.S.DEV
|
.INB USR/SRC/SYS/KERNEL.S.DEV
|
||||||
.INB USR/SRC/SYS/KERNEL.S.FIO
|
|
||||||
.EP
|
.EP
|
||||||
A2osX.D2 .PH $D000
|
A2osX.D2 .PH $D000
|
||||||
.DA #RRAMWRAMBNK2
|
.DA #RRAMWRAMBNK2
|
||||||
@ -66,6 +64,7 @@ A2osX.E0 .PH $E000
|
|||||||
********* TMP ***** go to A2osX.D1
|
********* TMP ***** go to A2osX.D1
|
||||||
.INB USR/SRC/SYS/KERNEL.S.PFT
|
.INB USR/SRC/SYS/KERNEL.S.PFT
|
||||||
.INB USR/SRC/SYS/KERNEL.S.IO
|
.INB USR/SRC/SYS/KERNEL.S.IO
|
||||||
|
.INB USR/SRC/SYS/KERNEL.S.FIO
|
||||||
********* TMP ***** go to A2osX.D2
|
********* TMP ***** go to A2osX.D2
|
||||||
.INB USR/SRC/SYS/KERNEL.S.ARG
|
.INB USR/SRC/SYS/KERNEL.S.ARG
|
||||||
.INB USR/SRC/SYS/KERNEL.S.PWD
|
.INB USR/SRC/SYS/KERNEL.S.PWD
|
||||||
|
Loading…
Reference in New Issue
Block a user