A2osX/SYS/KERNEL.S.PWDX.txt

28 lines
653 B
Plaintext
Raw Normal View History

2019-04-09 15:47:33 +00:00
NEW
AUTO 3,1
*--------------------------------------
X.PWD jmp (.1-SYS.GetPWUID,x)
.1 .DA PWD.GetPWUID
.DA PWD.GetPWName
.DA PWD.PutPW
*--------------------------------------
* USERNAME:PASSWORD:UID:GID:GECOS:HOME:SHELL
*--------------------------------------
PWD.GetPWUID
*--------------------------------------
PWD.GetPWName
*--------------------------------------
PWD.PutPW lda PWD.hDB
beq .9
.9 lda #E.IPWDDB
sec
rts
*--------------------------------------
PWD.FindByID
*--------------------------------------
MAN
SAVE USR/SRC/SYS/KERNEL.S.PWDX
LOAD USR/SRC/SYS/KERNEL.S
ASM