Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-07-18 16:18:10 +02:00
parent 200bf2b4ef
commit b8d5cd437e
4 changed files with 15 additions and 21 deletions

Binary file not shown.

View File

@ -210,16 +210,11 @@ CS.RUN.DIR lda (ZPFileName)
bcs .9
>PUSHW ZPFullPath
>PUSHEA.G STATBUF
>SYSCALL stat
bcs .90
>PUSHW ZPFullPath
>PUSHB.G STATBUF+S.STAT.UID
>PUSHBI 255
>PUSHB.G GID
>SYSCALL chown
.90 jsr CS.RUN.CheckErr
jsr CS.RUN.CheckErr
bcs .9
>LDA.G bRecurse

View File

@ -210,17 +210,12 @@ CS.RUN.DIR lda (ZPFileName)
>SYSCALL PrintF
bcs .9
>PUSHW ZPFullPath
>PUSHEA.G STATBUF
>SYSCALL stat
bcs .90
>PUSHW ZPFullPath
>PUSHB.G UID
>PUSHB.G STATBUF+S.STAT.GID
>PUSHBI 255
>SYSCALL chown
.90 jsr CS.RUN.CheckErr
jsr CS.RUN.CheckErr
bcs .9
>LDA.G bRecurse

View File

@ -300,17 +300,21 @@ K.ChOwn jsr PFT.CheckPath2
>MLICALL MLIACL
bcs K.ChOwn.RET4
>PULLB K.MLI.PARAMS+3+S.FIEX.ACL.GID
>PULLB K.MLI.PARAMS+3+S.FIEX.ACL.UID
lda (pStack)
bmi .1
sta K.MLI.PARAMS+3+S.FIEX.ACL.GID
.1
ldy #1
lda (pStack),y
bmi .2
sta K.MLI.PARAMS+3+S.FIEX.ACL.UID
inc pStack
inc pStack
lda #$57 write mode
.2 lda #$57 write mode
sta K.MLI.PARAMS+3+S.FIEX.ACL
>MLICALL MLIACL
rts
K.ChOwn.RET4 >RET 4
*--------------------------------------