mirror of
https://github.com/A2osX/A2osX.git
synced 2024-10-24 09:27:45 +00:00
Kernel 0.93++
This commit is contained in:
parent
4356b020cf
commit
9a2a255f32
Binary file not shown.
@ -73,9 +73,9 @@ CS.RUN >INC.G ArgIndex
|
|||||||
dex
|
dex
|
||||||
bpl .2
|
bpl .2
|
||||||
|
|
||||||
.9 >PUSHBI 0
|
.9 >PUSHW L.MSG.USAGE
|
||||||
>LDYA L.MSG.USAGE
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL printf2
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
.99 rts
|
.99 rts
|
||||||
@ -168,12 +168,14 @@ CS.RUN.DIR >LDA.G bRecurse
|
|||||||
lda (ZPFileName)
|
lda (ZPFileName)
|
||||||
cmp #'.'
|
cmp #'.'
|
||||||
beq .8
|
beq .8
|
||||||
|
|
||||||
jsr CS.RUN.GetFilePath
|
jsr CS.RUN.GetFilePath
|
||||||
|
>PUSHW L.MSG.DIR
|
||||||
>PUSHW ZPFullPath
|
>PUSHW ZPFullPath
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.DIR
|
>SYSCALL printf2
|
||||||
>SYSCALL printf
|
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>PUSHW ZPMode
|
>PUSHW ZPMode
|
||||||
>LDYA ZPFullPath
|
>LDYA ZPFullPath
|
||||||
>SYSCALL chmod
|
>SYSCALL chmod
|
||||||
@ -187,12 +189,15 @@ CS.RUN.DIR >LDA.G bRecurse
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.FILE jsr FilterMatch
|
CS.RUN.FILE jsr FilterMatch
|
||||||
bcs .8 no match, skip....
|
bcs .8 no match, skip....
|
||||||
|
|
||||||
jsr CS.RUN.GetFilePath
|
jsr CS.RUN.GetFilePath
|
||||||
|
|
||||||
|
>PUSHW L.MSG.FILE
|
||||||
>PUSHW ZPFullPath
|
>PUSHW ZPFullPath
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.FILE
|
>SYSCALL printf2
|
||||||
>SYSCALL printf
|
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>PUSHW ZPMode
|
>PUSHW ZPMode
|
||||||
>LDYA ZPFullPath
|
>LDYA ZPFullPath
|
||||||
>SYSCALL chmod
|
>SYSCALL chmod
|
||||||
@ -241,10 +246,12 @@ CS.RUN.CheckErr bcs .1
|
|||||||
>SYSCALL puts
|
>SYSCALL puts
|
||||||
rts
|
rts
|
||||||
.1 pha
|
.1 pha
|
||||||
|
>PUSHW L.MSG.ERR
|
||||||
|
pla
|
||||||
|
pha
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>LDYA L.MSG.ERR
|
>SYSCALL printf2
|
||||||
>SYSCALL printf
|
|
||||||
>LDA.G bContinue
|
>LDA.G bContinue
|
||||||
eor #$80
|
eor #$80
|
||||||
asl
|
asl
|
||||||
|
@ -64,9 +64,9 @@ CS.INIT
|
|||||||
dex
|
dex
|
||||||
bne .2
|
bne .2
|
||||||
|
|
||||||
.99 >PUSHBI 0
|
.99 >PUSHW L.MSG.USAGE
|
||||||
>LDYA L.MSG.USAGE
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL printf2
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
@ -156,11 +156,12 @@ CS.RUN.DEV
|
|||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.FILE jsr CS.RUN.GetFilePath
|
CS.RUN.FILE jsr CS.RUN.GetFilePath
|
||||||
|
>PUSHW L.MSG.FILE
|
||||||
>PUSHW ZPFullPath
|
>PUSHW ZPFullPath
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.FILE
|
>SYSCALL printf2
|
||||||
>SYSCALL printf
|
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
ldy #HexFileType
|
ldy #HexFileType
|
||||||
>PUSHB (pData),y
|
>PUSHB (pData),y
|
||||||
|
|
||||||
@ -184,10 +185,12 @@ CS.RUN.CheckErr bcs .1
|
|||||||
>SYSCALL puts
|
>SYSCALL puts
|
||||||
rts
|
rts
|
||||||
.1 pha
|
.1 pha
|
||||||
|
>PUSHW L.MSG.ERR
|
||||||
|
pla
|
||||||
|
pha
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>LDYA L.MSG.ERR
|
>SYSCALL printf2
|
||||||
>SYSCALL printf
|
|
||||||
>LDA.G bContinue
|
>LDA.G bContinue
|
||||||
eor #$80
|
eor #$80
|
||||||
asl
|
asl
|
||||||
|
@ -76,10 +76,10 @@ CS.INIT.RTS rts
|
|||||||
* Called until exit with CS
|
* Called until exit with CS
|
||||||
* if RUN exits with CC, RN entered again
|
* if RUN exits with CC, RN entered again
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN >PUSHWI K.VER
|
CS.RUN >PUSHW L.MSG.GREETINGS
|
||||||
|
>PUSHWI K.VER
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.GREETINGS
|
>SYSCALL printf2
|
||||||
>SYSCALL printf
|
|
||||||
bcs CS.INIT.RTS
|
bcs CS.INIT.RTS
|
||||||
|
|
||||||
jsr CS.RUN.ARGS
|
jsr CS.RUN.ARGS
|
||||||
@ -165,9 +165,9 @@ CS.RUN.ARGS inc ArgIndex
|
|||||||
clc
|
clc
|
||||||
.9 rts
|
.9 rts
|
||||||
|
|
||||||
.90 >PUSHBI 0
|
.90 >PUSHW L.MSG.USAGE
|
||||||
>LDYA L.MSG.USAGE
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL printf2
|
||||||
|
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec QUIT Process
|
sec QUIT Process
|
||||||
@ -240,10 +240,10 @@ PrintErrMsg lda ZPhMacro
|
|||||||
|
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
PrintDebugMsg >PUSHW pStack
|
PrintDebugMsg >PUSHW L.MSG.DEBUG
|
||||||
|
>PUSHW pStack
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.DEBUG
|
>SYSCALL printf2
|
||||||
>SYSCALL printf
|
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
PrintTraceMsg >STYA ZPPtr3
|
PrintTraceMsg >STYA ZPPtr3
|
||||||
|
@ -40,13 +40,17 @@ CS.RUN ldy #S.PS.ARGC
|
|||||||
lda (pPs),y
|
lda (pPs),y
|
||||||
cmp #1
|
cmp #1
|
||||||
bcc .9
|
bcc .9
|
||||||
|
|
||||||
|
>PUSHW L.MSG.LOAD
|
||||||
|
|
||||||
lda #1 get PTR to ARG[1] (Driver name)
|
lda #1 get PTR to ARG[1] (Driver name)
|
||||||
>SYSCALL ArgV
|
>SYSCALL ArgV
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
|
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.LOAD
|
>SYSCALL printf2
|
||||||
>SYSCALL printf
|
bcs .99
|
||||||
|
|
||||||
lda #1 get PTR to ARG[1] (Driver name)
|
lda #1 get PTR to ARG[1] (Driver name)
|
||||||
>SYSCALL ArgV
|
>SYSCALL ArgV
|
||||||
|
|
||||||
|
@ -388,10 +388,9 @@ CS.RUN.GetLine sta ZPGetLineMax
|
|||||||
clc
|
clc
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.StrOut pha
|
CS.RUN.StrOut >PUSHYA
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
pla
|
>SYSCALL printf2
|
||||||
>SYSCALL printf
|
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.DumpFile pha
|
CS.RUN.DumpFile pha
|
||||||
|
@ -164,19 +164,20 @@ CS.RUN.CLIENT >SLEEP give some time for TCPIP SYN/ACK
|
|||||||
>SYSCALL GetMemPtr
|
>SYSCALL GetMemPtr
|
||||||
>STYA ZPSktPtr
|
>STYA ZPSktPtr
|
||||||
|
|
||||||
ldx #3
|
>PUSHW L.MSG.INCOMING
|
||||||
ldy #S.SOCKET.REM.ADDR+3
|
|
||||||
|
|
||||||
.3 >PUSHB (ZPSktPtr),y
|
|
||||||
dey
|
|
||||||
dex
|
|
||||||
bpl .3
|
|
||||||
|
|
||||||
>PUSHB hClientSocket
|
>PUSHB hClientSocket
|
||||||
|
|
||||||
|
ldx #3
|
||||||
|
ldy #S.SOCKET.REM.ADDR
|
||||||
|
|
||||||
|
.3 >PUSHB (ZPSktPtr),y
|
||||||
|
iny
|
||||||
|
dex
|
||||||
|
bpl .3
|
||||||
|
|
||||||
>PUSHBI 5
|
>PUSHBI 5
|
||||||
>LDYA L.MSG.INCOMING
|
>SYSCALL printf2
|
||||||
>SYSCALL printf
|
|
||||||
|
|
||||||
>PUSHB hClientSocket
|
>PUSHB hClientSocket
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
@ -202,10 +203,12 @@ CS.RUN.CLIENT >SLEEP give some time for TCPIP SYN/ACK
|
|||||||
>SYSCALL execl
|
>SYSCALL execl
|
||||||
bcc .8
|
bcc .8
|
||||||
|
|
||||||
|
pha
|
||||||
|
>PUSHW L.MSG.EXECERR
|
||||||
|
pla
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>LDYA L.MSG.EXECERR
|
>SYSCALL printf2
|
||||||
>SYSCALL printf
|
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -70,12 +70,13 @@ K.MD5Init sta SETREADAUX
|
|||||||
K.MD5Update >PULLW ZPDataLen get LEN
|
K.MD5Update >PULLW ZPDataLen get LEN
|
||||||
>PULLW TXTPTR get DATA
|
>PULLW TXTPTR get DATA
|
||||||
>PULLA
|
>PULLA
|
||||||
>SYSCALL2 GetMemPtr get MD5 Context
|
|
||||||
>STYA ZPCtxPtr
|
|
||||||
|
|
||||||
sta SETREADAUX
|
sta SETREADAUX
|
||||||
sta SETWRITEAUX
|
sta SETWRITEAUX
|
||||||
|
|
||||||
|
>SYSCALL2 GetMemPtr get MD5 Context
|
||||||
|
>STYA ZPCtxPtr
|
||||||
|
|
||||||
jsr MD5X.Update
|
jsr MD5X.Update
|
||||||
|
|
||||||
sta CLRREADAUX
|
sta CLRREADAUX
|
||||||
@ -94,12 +95,13 @@ K.MD5Update >PULLW ZPDataLen get LEN
|
|||||||
K.MD5Finalize >PULLW FORPNT
|
K.MD5Finalize >PULLW FORPNT
|
||||||
>PULLA
|
>PULLA
|
||||||
sta .8+1
|
sta .8+1
|
||||||
>SYSCALL2 GetMemPtr
|
|
||||||
>STYA ZPCtxPtr get MD5 Context
|
|
||||||
|
|
||||||
sta SETREADAUX
|
sta SETREADAUX
|
||||||
sta SETWRITEAUX
|
sta SETWRITEAUX
|
||||||
|
|
||||||
|
>SYSCALL2 GetMemPtr
|
||||||
|
>STYA ZPCtxPtr get MD5 Context
|
||||||
|
|
||||||
jsr MD5X.Finalize
|
jsr MD5X.Finalize
|
||||||
|
|
||||||
.8 lda #$ff SELF MODIFIED
|
.8 lda #$ff SELF MODIFIED
|
||||||
|
@ -101,7 +101,6 @@ MD5X.Init >LDYAI S.MD5
|
|||||||
cpy #S.MD5
|
cpy #S.MD5
|
||||||
bne .2
|
bne .2
|
||||||
|
|
||||||
|
|
||||||
txa
|
txa
|
||||||
|
|
||||||
clc
|
clc
|
||||||
@ -179,7 +178,9 @@ MD5X.Finalize ldy #S.MD5.FINALIZED
|
|||||||
|
|
||||||
lda (ZPCtxPtr),y
|
lda (ZPCtxPtr),y
|
||||||
bne .11
|
bne .11
|
||||||
|
|
||||||
jsr MD5ExtraChunk
|
jsr MD5ExtraChunk
|
||||||
|
|
||||||
.11 ldy #S.MD5.ABCD0
|
.11 ldy #S.MD5.ABCD0
|
||||||
|
|
||||||
.1 lda (ZPCtxPtr),y
|
.1 lda (ZPCtxPtr),y
|
||||||
|
Loading…
Reference in New Issue
Block a user