mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-19 20:29:34 +00:00
Kernel 0.93+
This commit is contained in:
parent
4f4c4dd5e7
commit
b6155f20db
Binary file not shown.
|
@ -112,11 +112,7 @@ CMD.CD.YA >SYSCALL realpath
|
|||
sec
|
||||
rts
|
||||
|
||||
.11 ldy #$ff
|
||||
|
||||
.1 iny
|
||||
lda (ZPPtr1),y
|
||||
bne .1
|
||||
.11 jsr GetPtr1Len
|
||||
|
||||
dey
|
||||
lda (ZPPtr1),y
|
||||
|
@ -179,11 +175,7 @@ CMD.SET lda (ZPArgVBufPtr)
|
|||
.1 lda (ZPPTR1)
|
||||
beq .8 Ending 0 ?
|
||||
|
||||
ldy #$ff
|
||||
|
||||
.2 iny
|
||||
lda (ZPPTR1),y
|
||||
bne .2
|
||||
jsr GetPtr1Len
|
||||
|
||||
tya
|
||||
sec
|
||||
|
@ -1029,7 +1021,7 @@ FOR.EXEC jsr CORE.ArgV.NextChar skip "`"
|
|||
>STZ.G IO.hOut
|
||||
|
||||
>PUSHWZ auxtype
|
||||
>PUSHBI 0 type
|
||||
>PUSHBI S.FI.T.TXT
|
||||
>PUSHBI O.RDONLY+O.TEXT
|
||||
>LEA.G IO.FIFO
|
||||
>SYSCALL fopen
|
||||
|
@ -1153,27 +1145,19 @@ CMD.NEXT.LIST.1 lda (pData)
|
|||
|
||||
ldy #0
|
||||
|
||||
.10 lda (ZPPtr1)
|
||||
.10 jsr GetPtr1Next
|
||||
beq .3
|
||||
|
||||
inc ZPPtr1
|
||||
bne .11
|
||||
inc ZPPtr1+1
|
||||
|
||||
.11 cmp #C.SPACE
|
||||
cmp #C.SPACE
|
||||
beq .10
|
||||
|
||||
sta (ZPCLBuf),y
|
||||
iny
|
||||
|
||||
.1 lda (ZPPtr1)
|
||||
.1 jsr GetPtr1Next
|
||||
beq .3
|
||||
|
||||
inc ZPPtr1
|
||||
bne .2
|
||||
inc ZPPtr1+1
|
||||
|
||||
.2 cmp #C.SPACE
|
||||
cmp #C.SPACE
|
||||
beq .3
|
||||
|
||||
sta (ZPCLBuf),y
|
||||
|
|
|
@ -363,11 +363,7 @@ CORE.ArgV.Dup >STYA ZPPtr1
|
|||
.1 lda (ZPPtr1)
|
||||
beq .4
|
||||
|
||||
ldy #0
|
||||
|
||||
.2 iny
|
||||
lda (ZPPtr1),y
|
||||
bne .2
|
||||
jsr GetPtr1Len
|
||||
|
||||
jsr CORE.ArgV.DupNextY
|
||||
bra .1
|
||||
|
@ -408,14 +404,9 @@ CORE.ArgV.Dup >STYA ZPPtr1
|
|||
.9 rts
|
||||
*--------------------------------------
|
||||
CORE.ArgV.DupNextY
|
||||
tya
|
||||
sec
|
||||
adc ZPPtr1
|
||||
sta ZPPtr1
|
||||
bcc .1
|
||||
inc ZPPtr1+1
|
||||
jsr AddYp1Ptr1
|
||||
|
||||
.1 tya
|
||||
tya
|
||||
sec
|
||||
adc ZPPtr2
|
||||
sta ZPPtr2
|
||||
|
|
|
@ -35,11 +35,7 @@ HIS.Add >LDA.G HIS.hBuf
|
|||
pla
|
||||
bcc .2 enough room
|
||||
|
||||
ldy #$ff we must remove oldest
|
||||
|
||||
.12 iny
|
||||
lda (ZPPTR1),y get len of oldest string
|
||||
bne .12
|
||||
jsr GetPtr1Len get len of oldest string
|
||||
|
||||
tya
|
||||
* sec
|
||||
|
|
|
@ -23,8 +23,8 @@ IO.Pipe.In >LDA.G IO.hOut
|
|||
>STZ.G IO.hOut
|
||||
|
||||
>PUSHWZ auxtype
|
||||
>PUSHBI 0 type
|
||||
>PUSHBI O.RDONLY
|
||||
>PUSHBI S.FI.T.TXT
|
||||
>PUSHBI O.RDONLY+O.TEXT
|
||||
>LEA.G IO.FIFO
|
||||
|
||||
>SYSCALL fopen
|
||||
|
@ -64,7 +64,7 @@ IO.Pipe.Out >PUSHWZ mode
|
|||
bcs IO.Reset.In.RTS
|
||||
|
||||
>PUSHWZ auxtype
|
||||
>PUSHBI 0 type
|
||||
>PUSHBI S.FI.T.TXT
|
||||
>PUSHBI O.WRONLY
|
||||
>LEA.G IO.FIFO
|
||||
>SYSCALL fopen
|
||||
|
|
42
BIN/SH.S.txt
42
BIN/SH.S.txt
|
@ -7,7 +7,7 @@ NEW
|
|||
*--------------------------------------
|
||||
HISTORY.MAX .EQ 256
|
||||
CORE.STACK.MAX .EQ 128
|
||||
PUSHD.STACK.MAX .EQ 8
|
||||
PUSHD.STACK.MAX .EQ 4
|
||||
*--------------------------------------
|
||||
C... .EQ 0
|
||||
C.. .EQ 1
|
||||
|
@ -527,25 +527,17 @@ RemoveStrFromArgV
|
|||
>STYA ZPPtr1
|
||||
>STYA ZPPtr2
|
||||
|
||||
jsr GetPtr1Len
|
||||
|
||||
.2 jsr AddYp1Ptr1
|
||||
|
||||
ldy #$ff
|
||||
|
||||
.1 iny Compute ArgX len
|
||||
lda (ZPPtr1),y
|
||||
bne .1
|
||||
|
||||
.2 tya
|
||||
sec
|
||||
adc ZPPtr1
|
||||
sta ZPPtr1
|
||||
bcc .3
|
||||
inc ZPPtr1+1
|
||||
|
||||
.3 ldy #$ff
|
||||
|
||||
.4 iny
|
||||
lda (ZPPtr1),y
|
||||
sta (ZPPtr2),y
|
||||
bne .4
|
||||
|
||||
tya
|
||||
beq .8
|
||||
|
||||
|
@ -558,6 +550,28 @@ RemoveStrFromArgV
|
|||
|
||||
.8 rts
|
||||
*--------------------------------------
|
||||
GetPtr1Next lda (ZPPtr1)
|
||||
beq .8
|
||||
inc ZPPtr1
|
||||
bne .8
|
||||
inc ZPPtr1+1
|
||||
.8 rts
|
||||
*--------------------------------------
|
||||
GetPtr1Len ldy #$ff
|
||||
|
||||
.1 iny
|
||||
lda (ZPPtr1),y
|
||||
bne .1
|
||||
rts
|
||||
*--------------------------------------
|
||||
AddYp1Ptr1 tya
|
||||
sec
|
||||
adc ZPPtr1
|
||||
sta ZPPtr1
|
||||
bcc .8
|
||||
inc ZPPtr1+1
|
||||
.8 rts
|
||||
*--------------------------------------
|
||||
ToUpperCase cmp #'a'
|
||||
bcc .8
|
||||
cmp #'z'+1
|
||||
|
|
Loading…
Reference in New Issue
Block a user