A2osX/SYS/KERNEL.S.PWDX.txt

506 lines
8.4 KiB
Plaintext
Raw Normal View History

2019-04-09 15:47:33 +00:00
NEW
AUTO 3,1
*--------------------------------------
2020-02-17 16:55:02 +00:00
* ZPPtr1 : UID
* TXTPTR : pName (Input)
* FORPNT : pPW (Output)
2019-04-11 15:59:57 +00:00
* ZPPtr3 : pDB
* USERNAME:PASSWORD:UID:GID:GECOS:HOME:SHELL\CR
* ....\CR
* \0
2019-04-09 15:47:33 +00:00
*--------------------------------------
2020-03-12 16:44:11 +00:00
PWDX.GetPWUID lda PWD.hUsrDB
2019-06-06 15:45:40 +00:00
beq PWD.GetPW.9
2019-04-12 15:41:05 +00:00
jsr K.GetmemPtr
>STYA ZPPtr3
.1 lda (ZPPtr3)
2019-06-06 15:45:40 +00:00
beq PWD.GetPW.99 EOF
2020-03-13 07:15:58 +00:00
2019-04-12 15:41:05 +00:00
ldy #0
2019-06-06 15:45:40 +00:00
jsr PWD.NextString skip USERNAME
2019-04-12 15:41:05 +00:00
2019-06-06 15:45:40 +00:00
jsr PWD.NextString skip PASSWORD
2019-04-12 15:41:05 +00:00
2019-04-25 15:33:56 +00:00
jsr PWD.GetByte get UID
2019-04-12 15:41:05 +00:00
cmp ZPPtr1+1
2019-06-06 15:45:40 +00:00
beq PWD.GetPW.8
2019-10-11 13:06:33 +00:00
2019-04-25 15:33:56 +00:00
jsr PWD.NextLine
2019-04-12 15:41:05 +00:00
bra .1
2019-10-11 13:06:33 +00:00
2020-02-17 16:55:02 +00:00
PWD.GetPW.8 ldx FORPNT+1
2019-06-06 15:45:40 +00:00
beq .8 Dry run, no output
2019-06-06 06:37:30 +00:00
jmp PWD.Record2PW
2019-10-11 13:06:33 +00:00
2019-06-06 15:45:40 +00:00
.8 clc a = UID
2019-06-06 06:37:30 +00:00
rts
2019-10-11 13:06:33 +00:00
2019-06-06 15:45:40 +00:00
PWD.GetPW.9 lda #E.IPWDDB
2019-10-11 13:06:33 +00:00
.HS 2C BIT ABS
2019-04-12 15:41:05 +00:00
2019-06-06 15:45:40 +00:00
PWD.GetPW.99 lda #E.IUSR
2019-04-12 15:41:05 +00:00
sec
2019-10-03 06:25:27 +00:00
PWD.GetPW.RTS rts
2020-02-14 07:21:56 +00:00
*--------------------------------------
2020-03-12 16:44:11 +00:00
PWDX.GetPWName lda PWD.hUsrDB
2019-06-06 15:45:40 +00:00
beq PWD.GetPW.9
2019-04-09 15:47:33 +00:00
2019-04-12 15:41:05 +00:00
jsr K.GetmemPtr
>STYA ZPPtr3
2019-04-15 05:40:13 +00:00
ldy #0
2019-07-28 20:39:30 +00:00
jsr SHARED.TXTPTR.GetY
2019-06-06 15:45:40 +00:00
beq PWD.GetPW.99
2019-04-29 05:59:01 +00:00
2019-04-15 05:40:13 +00:00
.1 lda (ZPPtr3)
2019-06-06 15:45:40 +00:00
beq PWD.GetPW.99
2019-04-15 05:40:13 +00:00
2019-04-12 15:41:05 +00:00
ldy #$ff
2019-10-03 06:25:27 +00:00
.2 iny
2019-07-28 20:39:30 +00:00
jsr SHARED.TXTPTR.GetY
2019-04-12 15:41:05 +00:00
beq .4
2019-10-11 13:06:33 +00:00
2019-04-12 15:41:05 +00:00
cmp (ZPPtr3),y
beq .2
2019-10-11 13:06:33 +00:00
2019-04-25 15:33:56 +00:00
.3 jsr PWD.NextLine
2019-04-12 15:41:05 +00:00
bra .1
2019-10-11 13:06:33 +00:00
2019-04-12 15:41:05 +00:00
.4 lda (ZPPtr3),y
cmp #':'
2019-10-11 13:06:33 +00:00
bne .3
2020-02-17 16:55:02 +00:00
ldx FORPNT+1
2019-06-06 15:45:40 +00:00
beq .8
2019-10-11 13:06:33 +00:00
2019-06-06 15:45:40 +00:00
jmp PWD.Record2PW
2019-10-11 13:06:33 +00:00
2019-06-06 15:45:40 +00:00
.8 iny
jsr PWD.NextString skip PASSWORD
jmp PWD.GetByte get UID
2019-04-09 15:47:33 +00:00
*--------------------------------------
2020-02-17 16:55:02 +00:00
* FORPNT : pPW (Output)
2019-04-26 15:07:22 +00:00
* ZPPtr3 : pDB
*--------------------------------------
2020-03-12 16:44:11 +00:00
PWDX.PutPW lda PWD.hUsrDB
2019-04-11 15:59:57 +00:00
bne .1
2019-10-11 13:06:33 +00:00
2019-04-11 15:59:57 +00:00
ldy #S.PW.UID
2019-07-28 20:39:30 +00:00
jsr SHARED.TXTPTR.GetY
2019-06-06 15:45:40 +00:00
bne PWD.GetPW.RTS Must be ROOT user
2019-10-11 13:06:33 +00:00
2019-04-25 15:33:56 +00:00
jsr PWD.GetRecordLen
tay
lda #0
2020-03-12 16:44:11 +00:00
>STYA PWD.UsrDBSize
2019-04-25 15:33:56 +00:00
jsr K.getmem
2019-06-06 15:45:40 +00:00
bcs PWD.GetPW.RTS
2019-04-25 15:33:56 +00:00
>STYA ZPPtr3
2020-03-12 16:44:11 +00:00
>STYA PWD.UsrDBPtr
stx PWD.hUsrDB
2019-04-29 15:47:17 +00:00
jmp .8
2019-10-11 13:06:33 +00:00
2019-04-23 15:47:40 +00:00
.1 jsr K.GetmemPtr
2020-03-12 16:44:11 +00:00
>STYA PWD.UsrDBPtr
2019-04-19 05:42:43 +00:00
2019-04-29 05:59:01 +00:00
ldy #S.PW.PASSWD
2019-07-28 20:39:30 +00:00
jsr SHARED.TXTPTR.GetY
2019-04-29 05:59:01 +00:00
bne .12
2019-10-11 13:06:33 +00:00
2019-04-29 15:47:17 +00:00
jsr PWD.DeleteRecord
bcc .80
2019-10-11 13:06:33 +00:00
2019-04-29 15:47:17 +00:00
rts
2019-10-11 13:06:33 +00:00
2019-04-29 05:59:01 +00:00
.12 jsr PWD.DeleteRecord
2019-04-25 15:33:56 +00:00
bcc .11 user exits..
2019-04-26 15:07:22 +00:00
jsr PWD.GetUID new user, get UID
bcs .99
2020-02-11 16:32:33 +00:00
2019-04-26 15:07:22 +00:00
ldy #S.PW.UID
sta CLRWRITEAUX
sta (TXTPTR),y
sta SETWRITEAUX
2019-04-25 15:33:56 +00:00
.11 jsr PWD.GetRecordLen
2019-04-23 15:47:40 +00:00
2019-04-19 05:42:43 +00:00
clc
2020-03-12 16:44:11 +00:00
adc PWD.UsrDBSize
sta PWD.UsrDBSize
2019-04-23 15:47:40 +00:00
bcc .2
2020-03-12 16:44:11 +00:00
inc PWD.UsrDBSize+1
.2 >LDYA PWD.UsrDBPtr
2019-04-23 15:47:40 +00:00
>STYA ZPPtr4
2020-03-12 16:44:11 +00:00
>LDYA PWD.UsrDBSize
2019-04-19 05:42:43 +00:00
2019-04-23 15:47:40 +00:00
jsr K.Getmem
bcs .99
>STYA ZPPtr3
2020-03-12 16:44:11 +00:00
>STYA PWD.UsrDBPtr
2019-04-23 15:47:40 +00:00
ldy #0
.3 lda (ZPPtr4),y
sta (ZPPtr3),y
beq .4
iny
bne .3
inc ZPPtr4
inc ZPPtr3
bra .3
.4 tya
clc
adc ZPPtr3
sta ZPPtr3
bcc .5
inc ZPPtr3+1
2020-03-12 16:44:11 +00:00
.5 lda PWD.hUsrDB
stx PWD.hUsrDB
2019-04-24 15:34:11 +00:00
jsr K.Freemem
2019-04-25 15:33:56 +00:00
.8 jsr PWD.StoreRecord
2019-10-11 13:06:33 +00:00
.80 clc
2019-04-25 15:33:56 +00:00
.99 rts
2019-10-11 13:06:33 +00:00
2019-04-11 15:59:57 +00:00
.9 lda #E.IPWDDB
sec
2019-04-25 15:33:56 +00:00
rts
2019-04-11 15:59:57 +00:00
*--------------------------------------
2020-02-17 16:55:02 +00:00
PWDX.GetGRGID
*--------------------------------------
PWDX.GetGRName
*--------------------------------------
PWDX.PutGR
2020-03-12 16:44:11 +00:00
lda #E.IPWDDB
sec
rts
*--------------------------------------
PWDX.OpenSession
lda PWD.hUsrDB
beq .1
lda TXTPTR+1
bne .9
.1 >LDYAI PWDX.ROOT.Size
jsr K.GetMem
bcs .99
>STYA ZPPtr1
ldy #PWDX.ROOT.Size-1
.2 lda PWDX.ROOT,y
sta (ZPPtr1),y
dey
bpl .2
2020-03-13 16:10:36 +00:00
2020-03-12 16:44:11 +00:00
txa
clc
rts
.9 sec
.99 rts
*--------------------------------------
PWDX.CloseSession
2020-03-13 07:15:58 +00:00
sec
rts
2020-02-17 16:55:02 +00:00
*--------------------------------------
2019-07-29 15:38:55 +00:00
* PRIVATE
2019-04-25 15:33:56 +00:00
*--------------------------------------
2020-03-12 16:44:11 +00:00
PWD.GetUID >LDYA PWD.UsrDBPtr
2019-04-11 15:59:57 +00:00
>STYA ZPPtr3
2019-04-26 15:07:22 +00:00
stz .8+1
.1 lda (ZPPtr3)
beq .8 End of DB
ldy #0
2019-06-06 15:45:40 +00:00
jsr PWD.NextString skip name
jsr PWD.NextString skip password
2019-04-26 15:07:22 +00:00
jsr PWD.GetByte
cmp .8+1
bcc .4
sta .8+1
.4 jsr PWD.NextLine
bra .1
.8 lda #$ff SELF MODIFIED
inc
beq .9
2019-04-25 15:33:56 +00:00
clc
rts
2019-04-26 15:07:22 +00:00
.9 lda #E.IUSR
sec
rts
2019-04-19 05:42:43 +00:00
*--------------------------------------
PWD.DeleteRecord
2019-04-23 15:47:40 +00:00
jsr PWD.FindRecord
bcs .9
.1 iny
lda (ZPPtr3),y
cmp #C.CR
bne .1
2019-04-30 16:08:47 +00:00
sty .3+1
2019-04-23 15:47:40 +00:00
tya
sec
adc ZPPtr3
sta ZPPtr4
lda ZPPtr3+1
adc #0
sta ZPPtr4+1
ldy #$ff
.2 iny
lda (ZPPtr4),y
sta (ZPPtr3),y
bne .2
2020-03-12 16:44:11 +00:00
lda PWD.UsrDBSize
2019-04-23 15:47:40 +00:00
sec
2019-04-30 16:08:47 +00:00
.3 sbc #$ff SELF MODIFIED
2020-03-12 16:44:11 +00:00
sta PWD.UsrDBSize
2019-04-30 16:08:47 +00:00
bcs .8
2020-03-12 16:44:11 +00:00
dec PWD.UsrDBSize+1
2019-04-30 16:08:47 +00:00
.8 clc
2019-04-23 15:47:40 +00:00
2019-10-03 06:25:27 +00:00
.9 rts
2019-04-23 15:47:40 +00:00
*--------------------------------------
2020-03-12 16:44:11 +00:00
PWD.FindRecord >LDYA PWD.UsrDBPtr
2019-04-19 05:42:43 +00:00
>STYA ZPPtr3
.2 lda (ZPPtr3)
beq .9 End of DB
ldy #$ff
.3 iny
2019-07-28 20:39:30 +00:00
jsr SHARED.TXTPTR.GetY
2019-04-23 15:47:40 +00:00
beq .4
2019-04-19 05:42:43 +00:00
cmp (ZPPtr3),y
2019-04-23 15:47:40 +00:00
beq .3
2019-04-25 15:33:56 +00:00
.5 jsr PWD.NextLine
bra .2
2019-04-29 15:47:17 +00:00
.4 lda (ZPPtr3),y
cmp #':'
bne .5
2019-04-25 15:33:56 +00:00
2019-04-29 15:47:17 +00:00
clc
2019-04-25 15:33:56 +00:00
rts
2019-04-29 05:59:01 +00:00
.9 lda #E.IUSR
sec
2019-04-25 15:33:56 +00:00
rts
*--------------------------------------
2019-06-06 15:45:40 +00:00
PWD.NextString lda (ZPPtr3),y
iny
cmp #':'
bne PWD.NextString
rts
*--------------------------------------
2019-04-25 15:33:56 +00:00
PWD.NextLine iny
2019-04-23 15:47:40 +00:00
lda (ZPPtr3),y
cmp #C.CR
2019-04-25 15:33:56 +00:00
bne PWD.NextLine
2019-04-23 15:47:40 +00:00
tya
sec
adc ZPPtr3
sta ZPPtr3
2019-04-25 15:33:56 +00:00
bcc .8
2019-04-23 15:47:40 +00:00
inc ZPPtr3+1
2019-10-03 06:25:27 +00:00
.8 rts
2019-04-19 05:42:43 +00:00
*--------------------------------------
2020-02-17 16:55:02 +00:00
PWD.Record2PW ldy #0
2019-04-12 15:41:05 +00:00
ldx #0 NAME
.1 lda (ZPPtr3),y
iny
cmp #':'
beq .2
2020-02-17 16:55:02 +00:00
jsr SHARED.FORPNT.PutNext
2019-04-12 15:41:05 +00:00
inx
bra .1
.2 lda #0
2020-02-17 16:55:02 +00:00
jsr SHARED.FORPNT.PutNext
2019-04-12 15:41:05 +00:00
inx
cpx #S.PW.PASSWD
bne .2
.3 lda (ZPPtr3),y
iny
cmp #':'
beq .4
2020-02-17 16:55:02 +00:00
jsr SHARED.FORPNT.PutNext
2019-04-12 15:41:05 +00:00
inx
bra .3
.4 lda #0
2020-02-17 16:55:02 +00:00
jsr SHARED.FORPNT.PutNext
2019-04-12 15:41:05 +00:00
inx
cpx #S.PW.UID
bne .4
jsr PWD.GetByte UID
2020-02-17 16:55:02 +00:00
jsr SHARED.FORPNT.PutNext
2019-04-12 15:41:05 +00:00
jsr PWD.GetByte GID
2020-02-17 16:55:02 +00:00
jsr SHARED.FORPNT.PutNext
2019-04-12 15:41:05 +00:00
ldx #S.PW.GECOS
.5 lda (ZPPtr3),y
iny
cmp #':'
beq .6
2020-02-17 16:55:02 +00:00
jsr SHARED.FORPNT.PutNext
2019-04-12 15:41:05 +00:00
inx
bra .5
.6 lda #0
2020-02-17 16:55:02 +00:00
jsr SHARED.FORPNT.PutNext
2019-04-12 15:41:05 +00:00
inx
cpx #S.PW.DIR
bne .6
.7 lda (ZPPtr3),y
iny
cmp #':'
beq .8
2020-02-17 16:55:02 +00:00
jsr SHARED.FORPNT.PutNext
2019-04-12 15:41:05 +00:00
inx
bra .7
.8 lda #0
2020-02-17 16:55:02 +00:00
jsr SHARED.FORPNT.PutNext
2019-04-12 15:41:05 +00:00
inx
cpx #S.PW.SHELL
bne .8
.9 lda (ZPPtr3),y
iny
cmp #C.CR
beq .10
2020-02-17 16:55:02 +00:00
jsr SHARED.FORPNT.PutNext
2019-04-12 15:41:05 +00:00
inx
bra .9
.10 lda #0
2020-02-17 16:55:02 +00:00
jsr SHARED.FORPNT.PutNext
2019-04-12 15:41:05 +00:00
clc
rts
*--------------------------------------
2019-04-26 15:07:22 +00:00
PWD.GetByte stz ZPPtr4
2019-04-12 15:41:05 +00:00
.1 lda (ZPPtr3),y
iny
cmp #':'
beq .8
and #$f
pha
2019-04-26 15:07:22 +00:00
lda ZPPtr4
2019-04-12 15:41:05 +00:00
asl
asl
clc
2019-04-26 15:07:22 +00:00
adc ZPPtr4
2019-04-12 15:41:05 +00:00
asl
2019-04-26 15:07:22 +00:00
sta ZPPtr4
2019-04-12 15:41:05 +00:00
pla
clc
2019-04-26 15:07:22 +00:00
adc ZPPtr4
sta ZPPtr4
2019-04-12 15:41:05 +00:00
bra .1
2019-04-26 15:07:22 +00:00
.8 lda ZPPtr4
2019-06-11 05:52:24 +00:00
clc
2019-04-12 15:41:05 +00:00
rts
2019-04-09 15:47:33 +00:00
*--------------------------------------
2019-04-11 15:59:57 +00:00
PWD.StoreRecord sec
.HS 90 BCC
*--------------------------------------
PWD.GetRecordLen
clc
ldx #0
ldy #S.PW.NAME-1
2019-04-12 15:41:05 +00:00
jsr PWD.StoreString
2019-04-11 15:59:57 +00:00
lda #':'
jsr PWD.StoreChar
ldy #S.PW.PASSWD-1
2019-04-12 15:41:05 +00:00
jsr PWD.StoreString
2019-04-11 15:59:57 +00:00
lda #':'
jsr PWD.StoreChar
ldy #S.PW.UID
2019-07-28 20:39:30 +00:00
jsr SHARED.TXTPTR.GetY
2019-04-11 15:59:57 +00:00
jsr PWD.StoreByte
lda #':'
jsr PWD.StoreChar
2019-10-16 20:42:21 +00:00
ldy #S.PW.GID
2019-07-28 20:39:30 +00:00
jsr SHARED.TXTPTR.GetY
2019-04-11 15:59:57 +00:00
jsr PWD.StoreByte
lda #':'
jsr PWD.StoreChar
2019-10-16 20:42:21 +00:00
ldy #S.PW.GECOS-1
2019-04-11 15:59:57 +00:00
2019-04-12 15:41:05 +00:00
jsr PWD.StoreString
2019-04-11 15:59:57 +00:00
lda #':'
jsr PWD.StoreChar
ldy #S.PW.DIR-1
2019-04-12 15:41:05 +00:00
jsr PWD.StoreString
2019-04-11 15:59:57 +00:00
lda #':'
jsr PWD.StoreChar
ldy #S.PW.SHELL-1
2019-04-12 15:41:05 +00:00
jsr PWD.StoreString
2019-04-11 15:59:57 +00:00
lda #C.CR
jsr PWD.StoreChar
txa
2019-10-03 06:25:27 +00:00
PWD.GetRecordLen.RTS
2019-04-11 15:59:57 +00:00
rts
*--------------------------------------
2019-04-12 15:41:05 +00:00
PWD.StoreString iny
2019-07-28 20:39:30 +00:00
jsr SHARED.TXTPTR.GetY
2019-06-24 15:32:22 +00:00
beq PWD.GetRecordLen.RTS
2019-04-12 15:41:05 +00:00
jsr PWD.StoreChar
bra PWD.StoreString
*--------------------------------------
PWD.StoreByte php
2019-04-11 15:59:57 +00:00
phx
2020-03-16 06:50:15 +00:00
jsr MATH32.A2STR10NP
2019-04-11 15:59:57 +00:00
plx
2019-04-12 15:41:05 +00:00
plp
2019-06-24 15:32:22 +00:00
ldy #0
2019-07-03 15:25:07 +00:00
.1 lda A2osX.NumStrBuf,y
2019-06-24 15:32:22 +00:00
beq PWD.GetRecordLen.RTS
iny
jsr PWD.StoreChar
bra .1
2019-04-11 15:59:57 +00:00
*--------------------------------------
PWD.StoreChar inx
2019-04-12 15:41:05 +00:00
bcc .9 Dry run, no store
2019-04-11 15:59:57 +00:00
sta (ZPPtr3)
inc ZPPtr3
bne .9
inc ZPPtr3+1
2019-10-03 06:25:27 +00:00
.9 rts
2019-04-11 15:59:57 +00:00
*--------------------------------------
2020-03-12 16:44:11 +00:00
PWDX.ROOT .DA #S.SESSION.P.ROOT
.DA #0 UID
.DA #0 GID
.AZ "root" NAME
.AZ "Root User" GECOS
.AZ "${ROOT}root/" DIR
.AZ "${ROOT}bin/sh" SHELL
PWDX.ROOT.Size .EQ *-PWDX.ROOT
*--------------------------------------
2019-04-09 15:47:33 +00:00
MAN
SAVE USR/SRC/SYS/KERNEL.S.PWDX
LOAD USR/SRC/SYS/KERNEL.S
ASM