Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-19 23:29:29 +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 jsr CS.RUN.MkDir
* bcs .99 * bcs .99
>LDYA pData >PUSHW pData
>SYSCALL putpw >SYSCALL putpw
bcs .99 bcs .99
@ -248,22 +248,29 @@ CS.RUN.CheckArg inc ArgIndex
.4 lda ArgUsername .4 lda ArgUsername
bne CS.RUN.CheckArg.9 bne CS.RUN.CheckArg.9
lda pData lda pData
clc clc
adc #S.PW.DIR+11 adc #S.PW.DIR+11
sta ZPTmpPtr sta ZPTmpPtr
lda pData+1 lda pData+1
adc /S.PW.DIR+11 adc /S.PW.DIR+11
sta ZPTmpPtr+1 sta ZPTmpPtr+1
ldy #0 ldy #0
.5 lda (ZPStrPtr),y .5 lda (ZPStrPtr),y
sta (pData),y sta (pData),y
sta (ZPTmpPtr),y sta (ZPTmpPtr),y
beq .6 beq .6
iny iny
cpy #16 cpy #16
bne .5 bne .5
bra CS.RUN.CheckArg.9 bra CS.RUN.CheckArg.9
.6 lda #'/' .6 lda #'/'
sta (ZPTmpPtr),y sta (ZPTmpPtr),y
@ -274,7 +281,9 @@ CS.RUN.CheckArg inc ArgIndex
>SYSCALL GetPWName >SYSCALL GetPWName
bcc .9 bcc .9
bra CS.RUN.CheckArg bra CS.RUN.CheckArg
.8 lda ArgUsername .8 lda ArgUsername
beq CS.RUN.CheckArg.9 beq CS.RUN.CheckArg.9
clc clc

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

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