mirror of
https://github.com/A2osX/A2osX.git
synced 2024-07-06 12:29:02 +00:00
Kernel 0.93+
This commit is contained in:
parent
202ae6eac9
commit
b8cadb371a
Binary file not shown.
@ -140,6 +140,7 @@ EXP.OP.UNARY.ESYN
|
||||
lda #E.ESYN
|
||||
sec
|
||||
rts
|
||||
|
||||
EXP.OP.UNARY.D jsr EXP.OP.UNARY.STAT
|
||||
bcs EXP.OP.UNARY.DEF.9
|
||||
>LDA.G StatBuf+S.STAT.P.TYPE
|
||||
@ -177,6 +178,24 @@ EXP.OP.UNARY.DEF.9
|
||||
clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
EXP.OP.UNARY.I >PUSHBI 10
|
||||
>PUSHWI ZPPtr1
|
||||
>LDYA ZPArgVBufPtr
|
||||
>SYSCALL strtol
|
||||
php
|
||||
jsr CORE.ArgV.Next
|
||||
plp
|
||||
bcs EXP.OP.UNARY.DEF.9
|
||||
|
||||
inc pStack Discard Long
|
||||
inc pStack
|
||||
inc pStack
|
||||
inc pStack
|
||||
|
||||
lda (ZPPtr1)
|
||||
beq EXP.OP.UNARY.DEF.8
|
||||
bne EXP.OP.UNARY.DEF.9
|
||||
*--------------------------------------
|
||||
EXP.OP.UNARY.N lda (ZPArgVBufPtr) [ -N ] ?
|
||||
cmp #']'
|
||||
beq EXP.OP.UNARY.DEF.9 FALSE
|
||||
@ -189,7 +208,7 @@ EXP.OP.UNARY.Z lda (ZPArgVBufPtr) [ -Z ] ?
|
||||
cmp #']'
|
||||
beq EXP.OP.UNARY.DEF.8 TRUE
|
||||
jsr CORE.ArgV.Next
|
||||
beq EXP.OP.UNARY.ESYN
|
||||
beq EXP.TEST.BINARY.ESYN
|
||||
bra EXP.OP.UNARY.DEF.9 FALSE
|
||||
*--------------------------------------
|
||||
EXP.TEST.BINARY lda CORE.Operator
|
||||
|
@ -177,6 +177,7 @@ L.EXP.OP.UNARY .DA EXP.OP.UNARY
|
||||
J.EXP.OP.UNARY .DA EXP.OP.UNARY.D
|
||||
.DA EXP.OP.UNARY.E
|
||||
.DA EXP.OP.UNARY.F
|
||||
.DA EXP.OP.UNARY.I
|
||||
.DA EXP.OP.UNARY.N
|
||||
.DA EXP.OP.UNARY.Z
|
||||
L.EXP.OP.BINARY .DA EXP.OP.BINARY
|
||||
@ -590,6 +591,7 @@ EXP.BEGIN .AT "!["
|
||||
EXP.OP.UNARY .AT "-D"
|
||||
.AT "-E"
|
||||
.AT "-F"
|
||||
.AT "-I"
|
||||
.AT "-N"
|
||||
.AT "-Z"
|
||||
.HS 00
|
||||
|
@ -91,9 +91,8 @@ CS.RUN >LDYAI 33 Enough for HASH
|
||||
>SYSCALL GetPWUID
|
||||
bcc CS.RUN.AUTH
|
||||
*--------------------------------------
|
||||
CS.RUN.NOAUTH >PUSHBI 0
|
||||
>LDYA L.MSG.NOAUTH
|
||||
>SYSCALL printf
|
||||
CS.RUN.NOAUTH >LDYA L.MSG.NOAUTH
|
||||
jsr CS.RUN.StrOut
|
||||
bcs .9
|
||||
|
||||
jsr CS.RUN.SetRootSession
|
||||
@ -110,10 +109,10 @@ CS.RUN.AUTH >LDYA L.LIBCRYPT
|
||||
lda #3
|
||||
sta ZPRetryCnt
|
||||
|
||||
.1 >PUSHBI 0
|
||||
>LDYA L.MSG.LOGIN
|
||||
>SYSCALL printf
|
||||
.1 >LDYA L.MSG.LOGIN
|
||||
jsr CS.RUN.StrOut
|
||||
bcs .9
|
||||
|
||||
lda #16
|
||||
clc
|
||||
jsr CS.RUN.GetLine
|
||||
@ -124,18 +123,17 @@ CS.RUN.AUTH >LDYA L.LIBCRYPT
|
||||
>SYSCALL GetPWName
|
||||
ror ZPbValidUser
|
||||
sta ZPUID
|
||||
>PUSHBI 0
|
||||
|
||||
>LDYA L.MSG.PASSWORD
|
||||
>SYSCALL printf
|
||||
jsr CS.RUN.StrOut
|
||||
bcs .9
|
||||
lda #32
|
||||
sec
|
||||
jsr CS.RUN.GetLine
|
||||
bcs .9
|
||||
|
||||
>PUSHBI 0
|
||||
>LDYA L.MSG.CRLF
|
||||
>SYSCALL printf
|
||||
jsr CS.RUN.StrOut
|
||||
bcs .9
|
||||
|
||||
jsr CS.RUN.CHECKPWD
|
||||
@ -263,9 +261,7 @@ CS.RUN.CHECKPWD rol ZPbValidUser
|
||||
>SYSCALL strcmp
|
||||
bcc CS.RUN.CHECK.9
|
||||
|
||||
lda ZPhPW
|
||||
stz ZPhPW
|
||||
>SYSCALL freemem
|
||||
jsr CS.CLEANUP.hPW
|
||||
|
||||
sec
|
||||
|
||||
@ -389,9 +385,8 @@ CS.RUN.GetLine sta ZPGetLineMax
|
||||
bit ZPbGetLineSecret
|
||||
bmi .1
|
||||
|
||||
>PUSHBI 0
|
||||
>LDYA L.MSG.BS
|
||||
>SYSCALL printf
|
||||
jsr CS.RUN.StrOut
|
||||
bra .1
|
||||
|
||||
.8 ldy ZPGetLineLen
|
||||
@ -400,6 +395,12 @@ CS.RUN.GetLine sta ZPGetLineMax
|
||||
clc
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CS.RUN.StrOut pha
|
||||
>PUSHBI 0
|
||||
pla
|
||||
>SYSCALL printf
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.RUN.DumpFile pha
|
||||
|
||||
>PUSHWZ Aux type
|
||||
@ -408,6 +409,7 @@ CS.RUN.DumpFile pha
|
||||
pla
|
||||
>SYSCALL FOpen
|
||||
bcs .9
|
||||
|
||||
stx ZPhFile
|
||||
>LDYAI 256
|
||||
>SYSCALL getmem
|
||||
@ -415,11 +417,13 @@ CS.RUN.DumpFile pha
|
||||
|
||||
>STYA ZPBufPtr
|
||||
stx ZPhBuf
|
||||
|
||||
.1 >PUSHWI 256
|
||||
>PUSHW ZPBufPtr
|
||||
lda ZPhFile
|
||||
>SYSCALL fgets
|
||||
bcs .7
|
||||
|
||||
>LDYA ZPBufPtr
|
||||
>SYSCALL ExpandStr
|
||||
bcc .2
|
||||
@ -453,12 +457,12 @@ CS.QUIT lda hLIBCRYPT
|
||||
>SYSCALL UnloadLib
|
||||
|
||||
CS.CLEANUP lda ZPhGetLine
|
||||
beq .1
|
||||
beq CS.CLEANUP.hPW
|
||||
|
||||
stz ZPhGetLine
|
||||
>SYSCALL freemem
|
||||
|
||||
.1 lda ZPhPW
|
||||
CS.CLEANUP.hPW lda ZPhPW
|
||||
beq .8
|
||||
|
||||
stz ZPhPW
|
||||
|
@ -120,7 +120,7 @@ MEM.GetMem.YAX stx MEM.ReqFlags
|
||||
|
||||
lda ZPMemMgrSize+1 > 255, not applicable
|
||||
bne .52 Align to page if $100
|
||||
|
||||
|
||||
lda Mem.Free target PTR will be in same page ?
|
||||
cmp ZPMemMgrSize
|
||||
bcs .6 yes, allocate
|
||||
|
Loading…
Reference in New Issue
Block a user