From 3b08cbb8d9d671809cd78d7ea0158cc81bd3cfea Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=A9my=20GIBERT?= Date: Fri, 12 Apr 2019 07:24:30 +0100 Subject: [PATCH] Kernel 0.93 --- BIN/USERADD.S.txt | 2 +- SYS/KERNEL.S.PWD.txt | 29 +++++++++++++++-------------- SYS/KERNEL.S.PWDX.txt | 1 + 3 files changed, 17 insertions(+), 15 deletions(-) diff --git a/BIN/USERADD.S.txt b/BIN/USERADD.S.txt index 78f9e45c..5bd9b2be 100644 --- a/BIN/USERADD.S.txt +++ b/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 diff --git a/SYS/KERNEL.S.PWD.txt b/SYS/KERNEL.S.PWD.txt index 44d8a6be..51baff4e 100644 --- a/SYS/KERNEL.S.PWD.txt +++ b/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" *-------------------------------------- diff --git a/SYS/KERNEL.S.PWDX.txt b/SYS/KERNEL.S.PWDX.txt index ccccc07d..58d1d456 100644 --- a/SYS/KERNEL.S.PWDX.txt +++ b/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