mirror of
https://github.com/A2osX/A2osX.git
synced 2024-07-07 04:28:56 +00:00
Kernel 0.92
This commit is contained in:
parent
9f2f5e89f8
commit
4579924c61
Binary file not shown.
Binary file not shown.
@ -66,7 +66,7 @@ CS.RUN.IPOK ldy #S.PS.ARGC
|
|||||||
bne .1
|
bne .1
|
||||||
jmp CS.RUN.DUMP
|
jmp CS.RUN.DUMP
|
||||||
|
|
||||||
.1 cmp #3
|
.1 cmp #2
|
||||||
beq CS.RUN.ADD
|
beq CS.RUN.ADD
|
||||||
|
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
|
@ -587,15 +587,17 @@ Cmd.INT.WHILE
|
|||||||
Cmd.INT.IF jsr CMD.StkGet
|
Cmd.INT.IF jsr CMD.StkGet
|
||||||
bcs .1 no context...
|
bcs .1 no context...
|
||||||
|
|
||||||
and #$40 parent is true ?
|
and #$80 get current..
|
||||||
|
lsr becomes parent
|
||||||
bra .2
|
bra .2
|
||||||
|
|
||||||
.1 lda #$40
|
.1 lda #$40 ...set Parent = true
|
||||||
|
|
||||||
.2 >STA.G CMD.Test
|
.2 >STA.G CMD.Test
|
||||||
|
|
||||||
bit #$40
|
bit #$40 Parent is true ?
|
||||||
beq .3
|
beq .3
|
||||||
|
|
||||||
jsr Cmd.Eval
|
jsr Cmd.Eval
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
@ -617,7 +619,7 @@ Cmd.INT.ELSE jsr CMD.StkGet
|
|||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
bit #$40 parent is true ?
|
bit #$40 parent is true ?
|
||||||
beq .8 yes, skip
|
beq .8 no, skip
|
||||||
|
|
||||||
tax
|
tax
|
||||||
and #$3F
|
and #$3F
|
||||||
|
@ -59,9 +59,10 @@ K.ExecV >STYA PS.ArgV
|
|||||||
|
|
||||||
PS.Exec stz PS.Load.hBIN
|
PS.Exec stz PS.Load.hBIN
|
||||||
|
|
||||||
jsr PS.CreateChild Child S.PS at ZPPtr3,PS.Load.hMem
|
jsr PS.CreateChild A=PID,Child S.PS at ZPPtr3,PS.Load.hMem
|
||||||
bcs .9
|
bcs .9
|
||||||
|
sta .8+1
|
||||||
|
|
||||||
jsr PS.Load
|
jsr PS.Load
|
||||||
bcs .90
|
bcs .90
|
||||||
jsr PS.AddArgV
|
jsr PS.AddArgV
|
||||||
@ -79,7 +80,7 @@ PS.Exec stz PS.Load.hBIN
|
|||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.8 lda PS.Load.hMem
|
.8 lda #$ff SELF MODIFIED
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* PS.CreateChild
|
* PS.CreateChild
|
||||||
|
@ -335,7 +335,7 @@ K.realpath.I clc
|
|||||||
bne .4
|
bne .4
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* X=LEN, K.Buf256 = /dir1../file(/) /x0
|
* X=LEN, K.Buf256 = /dir1../file(/) /x0
|
||||||
|
*--------------------------------------
|
||||||
dex
|
dex
|
||||||
beq .89 we have '/'....nothing to do...
|
beq .89 we have '/'....nothing to do...
|
||||||
|
|
||||||
@ -368,14 +368,24 @@ K.realpath.I clc
|
|||||||
dey "/." ?
|
dey "/." ?
|
||||||
bne .9 no..
|
bne .9 no..
|
||||||
|
|
||||||
jsr K.RealPath.RemoveAtX we found "/.", remove,useless....
|
lda K.Buf256+2,x
|
||||||
|
beq .12
|
||||||
|
cmp #'/' "/./" ?
|
||||||
|
bne .80
|
||||||
|
|
||||||
|
.12 jsr K.RealPath.RemoveAtX we found "/./", remove,useless....
|
||||||
|
|
||||||
bra .80
|
bra .80
|
||||||
|
|
||||||
.9 dey "/.." ?
|
.9 dey "/.." ?
|
||||||
bne .90 "/..." ??!!...mmm...syntax error
|
bne .90 "/..." ??!!...mmm...syntax error
|
||||||
|
|
||||||
txa we found "/.."
|
lda K.Buf256+3,x
|
||||||
|
beq .11
|
||||||
|
cmp #'/' "/../" ?
|
||||||
|
bne .80
|
||||||
|
|
||||||
|
.11 txa we found "/../"
|
||||||
beq .90 at the beginning of string...cannot remove /dir/..
|
beq .90 at the beginning of string...cannot remove /dir/..
|
||||||
|
|
||||||
jsr K.RealPath.RemoveAtX remove "/.."
|
jsr K.RealPath.RemoveAtX remove "/.."
|
||||||
@ -392,7 +402,7 @@ K.realpath.I clc
|
|||||||
beq .89 Empty path!!! go put back "/" an exit
|
beq .89 Empty path!!! go put back "/" an exit
|
||||||
dex
|
dex
|
||||||
bra .5
|
bra .5
|
||||||
|
*--------------------------------------
|
||||||
.89 lda #$ff SELF MODIFIED
|
.89 lda #$ff SELF MODIFIED
|
||||||
bpl .98
|
bpl .98
|
||||||
>LDYAI K.Buf256
|
>LDYAI K.Buf256
|
||||||
|
@ -35,7 +35,6 @@ A2osX.D1 .PH $D000
|
|||||||
.INB USR/SRC/SYS/KERNEL.S.DIRENT
|
.INB USR/SRC/SYS/KERNEL.S.DIRENT
|
||||||
.INB USR/SRC/SYS/KERNEL.S.STDIO
|
.INB USR/SRC/SYS/KERNEL.S.STDIO
|
||||||
.INB USR/SRC/SYS/KERNEL.S.STDLIB
|
.INB USR/SRC/SYS/KERNEL.S.STDLIB
|
||||||
.INB USR/SRC/SYS/KERNEL.S.PFT
|
|
||||||
.INB USR/SRC/SYS/KERNEL.S.DEV
|
.INB USR/SRC/SYS/KERNEL.S.DEV
|
||||||
.EP
|
.EP
|
||||||
A2osX.D2 .PH $D000
|
A2osX.D2 .PH $D000
|
||||||
@ -52,6 +51,7 @@ A2osX.E0 .PH $E000
|
|||||||
.INB USR/SRC/SYS/KERNEL.S.IRQ
|
.INB USR/SRC/SYS/KERNEL.S.IRQ
|
||||||
.INB USR/SRC/SYS/KERNEL.S.MEM
|
.INB USR/SRC/SYS/KERNEL.S.MEM
|
||||||
********* TMP ***** go to A2osX.D1
|
********* TMP ***** go to A2osX.D1
|
||||||
|
.INB USR/SRC/SYS/KERNEL.S.PFT
|
||||||
.INB USR/SRC/SYS/KERNEL.S.FIO
|
.INB USR/SRC/SYS/KERNEL.S.FIO
|
||||||
.INB USR/SRC/SYS/KERNEL.S.IO
|
.INB USR/SRC/SYS/KERNEL.S.IO
|
||||||
********* TMP ***** go to A2osX.D2
|
********* TMP ***** go to A2osX.D2
|
||||||
|
@ -139,3 +139,5 @@ M32.Cmp ldx #4
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
SAVE USR/SRC/X.M32.S
|
SAVE USR/SRC/X.M32.S
|
||||||
|
LOAD USR/SRC/BIN/SHELL.S
|
||||||
|
ASM
|
||||||
|
Loading…
Reference in New Issue
Block a user