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