Kernel 0.93

BIN/USERADD.S.txt

@@ -35,7 +35,7 @@ CS.START		cld
 				.DA #0					S.PS.F.EVENT
 				.DA #0
 				.DA CS.END-CS.START		Code Size (without Constants)
-				.DA DS.END-DS.START		Data SegmentSize
+				.DA DS.END-DS.START		Data Segment Size
 				.DA #64					Stack Size
 				.DA #ZS.END-ZS.START	Zero Page Size
 				.DA 0

SYS/KERNEL.S.PWD.txt

@@ -49,30 +49,30 @@ K.PutPW.1		sta SETREADAUX
 				bne PWD.Store
 .9				rts				
 *--------------------------------------
-PWD.Store		>LDYA PWD.DBSize
+PWD.Store		>DEBUG
+				lda PWD.DBPtr
+				sta A1L
+				clc
+				adc PWD.DBSize
+				sta A2L
+
+				lda PWD.DBPtr+1
+				sta A1L+1
+				adc PWD.DBSize+1
+				sta A2L+1
+				
+				>LDYA PWD.DBSize
 				jsr K.getmem
 				bcs .9
 				stx .8+1
 				>STYA A4L				Save Destination Address in MAIN
 
-				pha
-*				clc				
-				adc PWD.DBSize
-				sta A2L
-				pla
-				adc PWD.DBSize+1
-				sta A2L+1
-				
-				lda PWD.hDB
-				jsr K.getmemptr
-				>STYA A1L				Save AUX base Ptr
-
 				clc						Aux To Main
 				jsr AuxMove				
 				
 				>PUSHWI 0				Aux type
 				>PUSHBI S.FI.T.TXT
-				>PUSHBI	O.WRONLY+O.CREATE	
+				>PUSHBI	O.WRONLY+O.CREATE
 				>LDYAI PWD.FILE
 				>SYSCALL FOpen
 				bcc .1
@@ -114,6 +114,7 @@ PWD.Store		>LDYA PWD.DBSize
 *--------------------------------------
 PWD.bDirty		.BS 1
 PWD.hDB			.BS 1
+PWD.DBPtr		.BS 2
 PWD.DBSize		.BS 2
 PWD.FILE		.AZ "${ROOT}ETC/PASSWD"
 *--------------------------------------

SYS/KERNEL.S.PWDX.txt

@@ -48,6 +48,7 @@ PWD.InitDB
 				jsr K.getmem
 				bcs .9
 				>STYA ZPPtr3
+				>STYA PWD.DBPtr
 				stx PWD.hDB
 				
 				jsr PWD.StoreRecord