Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-07 01:29:33 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93

Browse Source
This commit is contained in:
Rémy GIBERT 2019-04-12 07:24:30 +01:00
parent 76e20b8b72
commit 3b08cbb8d9
3 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
SYS/KERNEL.S.PWD.txt
View File

@ -49,24 +49,24 @@ 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
@ -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"
*--------------------------------------

1
SYS/KERNEL.S.PWDX.txt
View File

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