Kernel 0.94

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

Binary file not shown.

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

View File

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