Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-25 20:33:13 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93++

Browse Source
This commit is contained in:
Rémy GIBERT 2020-02-04 17:27:37 +01:00
parent 0f42912755
commit 055cecb734
3 changed files with 48 additions and 35 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.

10
BIN/WHO.S.txt
View File

@ -59,6 +59,10 @@ CS.RUN >LDYA L.MSG0
>PUSHW L.MSG1 format
>PUSHB SessionID 1 byte SID
ldx SessionID
lda S.Table.hSession-1,x
>PUSHA 1 byte hSession
>PUSHB (ZPSessionPtr) 1 byte PRIVILEGE
ldy #S.SESSION.UID
@ -81,7 +85,7 @@ CS.RUN >LDYA L.MSG0
jsr CS.RUN.GETIO
>PUSHYA 2 bytes DEV
>PUSHBI 8 total = 8 ... bytes
>PUSHBI 9 total = 9 ... bytes
>SYSCALL printf2
bcs .9
@ -122,8 +126,8 @@ CS.QUIT clc
rts
*--------------------------------------
CS.END
MSG0 .AZ "SID Privilege UID GID Name Dev"
MSG1 .AZ "%3d %b %3d %3d %16s %s\r\n"
MSG0 .AZ "SID hSD Privilege UID GID Name Dev"
MSG1 .AZ "%3d $%0h %b %3d %3d %16s %s\r\n"
*--------------------------------------
.DUMMY
.OR 0

73
SBIN/LOGIN.S.txt
View File

@ -13,8 +13,6 @@ NEW
.DUMMY
.OR ZPBIN
ZS.START
ZPUsrID .BS 1
ZPhBuf .BS 1
ZPBufPtr .BS 2
@ -32,7 +30,9 @@ ZPGetLineMax .BS 1
ZPhPW .BS 1
ZPPWPtr .BS 2
ZPhSID .BS 1
hSession .BS 1
ZPNewSID .BS 1
ZPOldSID .BS 1
ZPhFile .BS 1
ZPStrPtr .BS 2
@ -92,8 +92,12 @@ CS.RUN >LDYAI 33 Enough for HASH
jsr CS.RUN.StrOut
bcs .9
lda #1
sta ZPhSID
ldy #S.PS.hSID
lda (pPS),y
tax
lda S.Table.hSession-1,x
sta hSession
jmp CS.RUN.EXEC
.9 rts
@ -170,7 +174,7 @@ CS.RUN.SetUserSession
bcs .9
>STYA ZPStrPtr
stx ZPhSID
stx hSession
* clc
@ -241,32 +245,33 @@ CS.RUN.CHECKPWD rol ZPbValidUser
CS.RUN.CHECK.9 rts
*--------------------------------------
CS.RUN.EXEC
* ldx #1
CS.RUN.EXEC ldx #1
*.1 lda S.Table.hSession-1,x
* beq .2
.1 lda S.Table.hSession-1,x
beq .2
* inx
* cpx #K.USR.MAX+1
* bne .1
inx
cpx #K.USR.MAX+1
bne .1
* lda #E.OOH
** sec
* rts
lda #E.OOH
* sec
rts
*.2 stx ZPUsrID
* txa
* ldy #S.PS.hSID
* sta (pPS),y
.2 stx ZPNewSID
ldy #S.PS.hSID
lda (pPS),y
sta ZPOldSID
txa
sta (pPS),y
* lda ZPhSID
* ldx ZPUsrID
* sta S.Table.hSession-1,x
lda hSession
sta S.Table.hSession-1,x
* ldy #S.PS.hStdIn
* lda (pPS),y
* sta S.Table.hFILE-1,x
ldy #S.PS.hStdIn
lda (pPS),y
sta S.Table.hFILE-1,x
>LDYA L.ETCMOTD
jsr CS.RUN.DumpFile
@ -278,12 +283,16 @@ CS.RUN.EXEC
bcs .9
>SLEEP
* ldx ZPUsrID
* lda S.Table.hSession-1,x
* stz S.Table.hSession-1,x
* stz S.Table.hFILE-1,x
* >SYSCALL freemem
ldx ZPNewSID
lda S.Table.hSession-1,x
stz S.Table.hSession-1,x
stz S.Table.hFILE-1,x
>SYSCALL freemem
ldy #S.PS.hSID
lda ZPOldSID
sta (pPS),y
sec
.9 rts
*--------------------------------------