Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-16 18:30:26 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-07-09 08:24:15 +02:00
parent da4f7c05e3
commit 1c0a9ff8a0
3 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

11
BIN/USERADD.S.txt
View File

@ -106,7 +106,7 @@ CS.RUN >LDYAI S.PW
jsr CS.RUN.MkDir
* bcs .99
>LDYA pData
>PUSHW pData
>SYSCALL putpw
bcs .99
@ -248,22 +248,29 @@ CS.RUN.CheckArg inc ArgIndex
.4 lda ArgUsername
bne CS.RUN.CheckArg.9
lda pData
clc
adc #S.PW.DIR+11
sta ZPTmpPtr
lda pData+1
adc /S.PW.DIR+11
sta ZPTmpPtr+1
ldy #0
.5 lda (ZPStrPtr),y
sta (pData),y
sta (ZPTmpPtr),y
beq .6
iny
cpy #16
bne .5
bra CS.RUN.CheckArg.9
.6 lda #'/'
sta (ZPTmpPtr),y
@ -274,7 +281,9 @@ CS.RUN.CheckArg inc ArgIndex
>SYSCALL GetPWName
bcc .9
bra CS.RUN.CheckArg
.8 lda ArgUsername
beq CS.RUN.CheckArg.9
clc

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

@ -133,7 +133,7 @@ PWDX.PutPW lda PWD.hUsrDB
sta CLRWRITEAUX
sta (TXTPTR),y
sta SETWRITEAUX
>DEBUG
jsr PWD.GetRecordLen
clc