Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-02 13:41:30 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-07-31 12:28:04 +02:00
parent 04e5bc3e77
commit 4ca0e321ad
4 changed files with 42 additions and 135 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

9
BIN/USERADD.S.txt
View File

@ -52,8 +52,8 @@ L.MSG.USAGE .DA MSG.USAGE
L.MSG.ROOTPWD1 .DA MSG.ROOTPWD1
L.MSG.ROOTPWD2 .DA MSG.ROOTPWD2
L.MSG.MISMATCH .DA MSG.MISMATCH
L.MSG.BS .DA MSG.BS
L.MSG.CRLF .DA MSG.CRLF
L.MSG.BS .DA MSG.BS
J.CS.RUN.CheckArg
.DA CS.RUN.CheckArg.C
.DA CS.RUN.CheckArg.D
@ -392,12 +392,12 @@ MSG.USAGE .AS "Usage : USERADD username\r\n"
.AS " -c : Comment (GECOS)\r\n"
.AS " -d : Home Directory\r\n"
.AS " -p : Password\r\n"
.AS " -s : Shell\r\n"
.AS " -s : Shell"
MSG.CRLF .AZ "\r\n"
MSG.BS .DA #C.BS,#C.SPACE,#C.BS,#0
MSG.ROOTPWD1 .AZ "\r\nPlease enter ROOT password : "
MSG.ROOTPWD2 .AZ "\r\nPlease retype ROOT password : "
MSG.MISMATCH .AZ "\r\nPasswords mismatch...\r\n"
MSG.BS .DA #C.BS,#C.SPACE,#C.BS,#0
*--------------------------------------
PW.ROOT .AS "root"
.BS 17-4
@ -427,8 +427,7 @@ PW.DEFAULT .BS 17 NAME
.OR 0
DS.START
PW .BS S.PW
DS.END
.ED
DS.END .ED
*--------------------------------------
MAN
SAVE usr/src/bin/useradd.s

123
BIN/USERMOD.S.txt
View File

@ -16,12 +16,6 @@ PASS.MAX .EQ 64
.DUMMY
.OR ZPBIN
ZS.START
ZPPWPtr .BS 2
ZPhPW .BS 1
ZPhStr .BS 1
ZPbStrSecret .BS 1
ZPStrLen .BS 1
ZPStrMax .BS 1
ArgIndex .BS 1
ArgUsername .BS 1
ZPStrPtr .BS 2
@ -50,6 +44,7 @@ CS.START cld
.DA CS.QUIT
L.MSG.USAGE .DA MSG.USAGE
L.MSG.CRLF .DA MSG.CRLF
L.MSG.BS .DA MSG.BS
J.CS.RUN.CheckArg
.DA CS.RUN.CheckArg.C
.DA CS.RUN.CheckArg.D
@ -66,28 +61,12 @@ CS.INIT clc
* Called until exit with CS
* if RUN exits with CC, RN entered again
*--------------------------------------
CS.RUN >LDYAI S.PW
>SYSCALL GetMem
bcs .99
>STYA ZPPWPtr
stx ZPhPW
>LDYAI 256
>SYSCALL GetMem
bcs .99
>STYA ZPStrPtr
stx ZPhStr
lda #0
>PUSHA
>PUSHW ZPPWPtr
>SYSCALL GetPWUID
bcs .9
CS.RUN ldy #S.PS.ARGC
lda (pPS),y
beq .9
jsr CS.RUN.CheckArg
bcs .9
bcs .99
>PUSHW pData
>SYSCALL putpw
@ -104,49 +83,6 @@ CS.RUN >LDYAI S.PW
sec
.99 rts
*--------------------------------------
CS.RUN.GetStr stz ZPStrLen
.1 >SYSCALL getchar
bcs .9
cmp #C.SPACE
bcc .2
ldy ZPStrLen
cpy ZPStrMax
beq .1
sta (ZPStrPtr),y
iny
sty ZPStrLen
bit ZPbStrSecret
bmi .1
>SYSCALL putchar
bra .1
.2 cmp #3 Ctrl-C
beq .9
cmp #C.CR
beq .8
cmp #C.BS
bne .1
ldy ZPStrLen
beq .1
dec ZPStrLen
bit ZPbStrSecret
bmi .1
>PUSHW L.MSG.BS
>PUSHBI 0
>SYSCALL PrintF
bra .1
.8 ldy ZPStrLen
lda #0
sta (ZPStrPtr),y
>PUSHW L.MSG.CRLF
>PUSHBI 0
>SYSCALL PrintF
.9 rts
*--------------------------------------
CS.RUN.CheckArg inc ArgIndex
lda ArgIndex
>SYSCALL ArgV
@ -157,6 +93,9 @@ CS.RUN.CheckArg inc ArgIndex
cmp #'-'
bne .4
lda ArgUsername
beq CS.RUN.CheckArg.9
ldy #1
lda (ZPStrPtr),y
@ -179,47 +118,23 @@ CS.RUN.CheckArg inc ArgIndex
.4 lda ArgUsername
bne CS.RUN.CheckArg.9
lda pData
clc
adc #S.PW.DIR+11
sta ZPTmpPtr
lda pData+1
adc /S.PW.DIR+11
sta ZPTmpPtr+1
ldy #0
.5 lda (ZPStrPtr),y
sta (pData),y
sta (ZPTmpPtr),y
beq .6
iny
cpy #16
bne .5
bra CS.RUN.CheckArg.9
.6 lda #'/'
sta (ZPTmpPtr),y
lda ArgIndex
sta ArgUsername
>SYSCALL ArgV
>PUSHYA
>PUSHW ZPPWPtr
>PUSHW pData
>SYSCALL GetPWName
bcc .9
bcs .9
bra CS.RUN.CheckArg
.8 lda ArgUsername
beq CS.RUN.CheckArg.9
clc
rts
.9 lda #E.DUPUSR
.9 lda #E.IUSR
sec
rts
CS.RUN.CheckArg.9
@ -301,13 +216,7 @@ CS.DOEVENT sec
* Called once, when RUN exited with CS
* Put code for unloading LIB here
*--------------------------------------
CS.QUIT lda ZPhStr
beq .1
>SYSCALL FreeMem
.1 lda ZPhPW
beq .2
>SYSCALL FreeMem
.2 clc
CS.QUIT clc
rts
*--------------------------------------
CS.END
@ -321,15 +230,15 @@ MSG.USAGE .AS "Usage : USERMOD username\r\n"
.AS " -c : Comment (GECOS)\r\n"
.AS " -d : Home Directory\r\n"
.AS " -p : Password\r\n"
.AS " -s : Shell\r\n"
.AS " -s : Shell"
MSG.CRLF .AZ "\r\n"
MSG.BS .DA #C.BS,#C.SPACE,#C.BS,#0
*--------------------------------------
.DUMMY
.OR 0
DS.START
PW .BS S.PW
DS.END
.ED
DS.END .ED
*--------------------------------------
MAN
SAVE usr/src/bin/usermod.s

13
SYS/KERNEL.S.PWDX.txt
View File

@ -137,14 +137,16 @@ PWDX.PutPW.1 jsr K.GetmemPtr
jsr SHARED.TXTPTR.GetY
bne .12
jsr PWD.FindRecord
bcs .99
jmp PWD.DeleteRecord
*--------------------------------------
.12 jsr PWD.FindRecord
bcs .11
lda #E.DUPUSR user already exits.
sec
rts
jsr PWD.DeleteRecord
bcs .99
bra .13
*--------------------------------------
.11 jsr PWD.GetUID new user, get UID
bcs .99
@ -154,7 +156,7 @@ PWDX.PutPW.1 jsr K.GetmemPtr
sta (TXTPTR),y
sta SETWRITEAUX
jsr PWD.GetRecordLen
.13 jsr PWD.GetRecordLen
clc
adc PWD.UsrDBSize
@ -388,9 +390,6 @@ PWD.GetUID lda PWD.hUsrDB
rts
*--------------------------------------
PWD.DeleteRecord
jsr PWD.FindRecord
bcs .9
.1 iny
lda (ZPPtr3),y
cmp #C.CR