mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-25 20:33:13 +00:00
Kernel 0.93+
This commit is contained in:
Rémy GIBERT
parent
d667e2b443
commit
7a927f173e
Binary file not shown.
174
BIN/SH.S.CL.txt
174
BIN/SH.S.CL.txt
@ -32,13 +32,26 @@ CL.PrintPrompt >LDYA L.PS1
|
||||
>SYSCALL printf
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CL.READN0X txa
|
||||
CL.READN0A >PUSHA
|
||||
>PUSHBI 1
|
||||
>PUSHW L.FMT.Byte
|
||||
>LDYA ZPCLBuf
|
||||
>SYSCALL sprintf
|
||||
bcs .9
|
||||
|
||||
lda #$ff
|
||||
>STA.G CL.bReady
|
||||
* clc
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CL.CHARIN tax
|
||||
|
||||
>LDA.G bEscMode
|
||||
>LDA.G CL.bEscMode \e ?
|
||||
beq .13
|
||||
|
||||
cpx #'['
|
||||
beq .9
|
||||
beq .8 \e[
|
||||
|
||||
lda #0
|
||||
sta (pData),y Y=bEscMode
|
||||
@ -48,26 +61,91 @@ CL.CHARIN tax
|
||||
|
||||
.17 cmp EscChars,x
|
||||
beq .18
|
||||
|
||||
dex
|
||||
bpl .17
|
||||
clc
|
||||
rts
|
||||
|
||||
.18 txa
|
||||
.8 rts invalid \e[ sequence
|
||||
|
||||
.18 >LDA.G READ.N
|
||||
bne .19
|
||||
|
||||
lda EscChars.Remap,x
|
||||
bra CL.READN0A
|
||||
|
||||
.19 txa
|
||||
asl
|
||||
tax
|
||||
jmp (J.ESC,x)
|
||||
*--------------------------------------
|
||||
.13 cpx #C.SPACE
|
||||
.13 cpx #C.ESC
|
||||
bne .11
|
||||
|
||||
lda #$ff
|
||||
>STA.G CL.bEscMode
|
||||
clc
|
||||
rts
|
||||
|
||||
.11 >LDA.G READ.N
|
||||
beq CL.READN0X
|
||||
|
||||
cpx #C.SPACE
|
||||
bcc CL.CHARIN.CTRL
|
||||
|
||||
.1 cpx #C.DEL
|
||||
bne .2
|
||||
bne CL.Insert
|
||||
*--------------------------------------
|
||||
* Erase char BEFORE cursor
|
||||
*--------------------------------------
|
||||
>LDA.G CL.Len
|
||||
beq .8
|
||||
>LDA.G CL.Ptr
|
||||
beq .8
|
||||
|
||||
lda #C.BS
|
||||
>SYSCALL PutChar
|
||||
|
||||
>DEC.G CL.Ptr
|
||||
jmp CL.DEL
|
||||
*--------------------------------------
|
||||
CL.Insert >LDA.G CL.Len
|
||||
>CMP.G READ.N
|
||||
beq .8 Buffer full, discard...
|
||||
|
||||
.2 jmp CL.Insert
|
||||
inc
|
||||
>STA.G CL.Len
|
||||
|
||||
.9 clc
|
||||
pha
|
||||
.1 ply
|
||||
dey
|
||||
lda (ZPCLBuf),y Move from Ptr To end of buffer forward...
|
||||
iny
|
||||
sta (ZPCLBuf),y
|
||||
dey
|
||||
phy
|
||||
tya
|
||||
>CMP.G CL.Ptr
|
||||
bne .1
|
||||
|
||||
ply Y=CL.Ptr
|
||||
* >LDA.G CL.Ptr
|
||||
|
||||
txa
|
||||
sta (ZPCLBuf),y
|
||||
>INC.G CL.Ptr
|
||||
|
||||
>LDA.G bREAD.S
|
||||
bmi .7
|
||||
txa
|
||||
>SYSCALL PutChar
|
||||
jsr CL.PrintEOL
|
||||
|
||||
.7 >LDA.G READ.N READ N = 1, don't wait for CR
|
||||
dec
|
||||
bne .8
|
||||
lda #$ff
|
||||
>STA.G CL.bReady
|
||||
.8 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
CL.CHARIN.CTRL cpx #C.CR
|
||||
@ -76,18 +154,11 @@ CL.CHARIN.CTRL cpx #C.CR
|
||||
cpx #C.EOF
|
||||
beq .18
|
||||
|
||||
.10 cpx #C.ESC
|
||||
bne .11
|
||||
lda #$ff
|
||||
>STA.G bEscMode
|
||||
clc
|
||||
rts
|
||||
|
||||
.11 cpx #3 Ctrl-C
|
||||
cpx #3 Ctrl-C
|
||||
beq CL.CLR
|
||||
|
||||
cpx #26 Ctrl-Z
|
||||
bne .13
|
||||
bne .8
|
||||
jmp CL.SUPPR
|
||||
|
||||
.18 jsr CheckLFAfterCR Check for any extra LF
|
||||
@ -96,7 +167,7 @@ CL.CHARIN.CTRL cpx #C.CR
|
||||
lda #$ff
|
||||
>STA.G CL.bReady
|
||||
|
||||
.13 clc
|
||||
.8 clc
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CL.CLR lda (ZPCLBuf)
|
||||
@ -124,46 +195,20 @@ CL.CLR lda (ZPCLBuf)
|
||||
*--------------------------------------
|
||||
CL.RESET lda #0
|
||||
sta (ZPCLBuf)
|
||||
CL.RESET.1 >STA.G CL.bReady
|
||||
>STA.G CL.Ptr
|
||||
|
||||
CL.RESET.1 >STA.G CL.Ptr
|
||||
>STA.G CL.Len
|
||||
rts
|
||||
*--------------------------------------
|
||||
CL.Insert >LDA.G CL.Len
|
||||
>CMP.G READ.N
|
||||
beq .8 Buffer full, discard...
|
||||
inc
|
||||
>STA.G CL.Len
|
||||
|
||||
pha
|
||||
.1 ply
|
||||
dey
|
||||
lda (ZPCLBuf),y Move from Ptr To end of buffer forward...
|
||||
iny
|
||||
sta (ZPCLBuf),y
|
||||
dey
|
||||
phy
|
||||
tya
|
||||
>CMP.G CL.Ptr
|
||||
bne .1
|
||||
ply Y=CL.Ptr
|
||||
* >LDA.G CL.Ptr
|
||||
|
||||
txa
|
||||
sta (ZPCLBuf),y
|
||||
>INC.G CL.Ptr
|
||||
|
||||
>LDA.G bREAD.S
|
||||
bmi .7
|
||||
txa
|
||||
>SYSCALL PutChar
|
||||
jsr CL.PrintEOL
|
||||
.7 >LDA.G READ.N READ N = 1, don't wait for CR
|
||||
dec
|
||||
bne .8
|
||||
lda #$ff
|
||||
>STA.G CL.bReady
|
||||
.8 clc
|
||||
>STA.G CL.bEscMode
|
||||
rts
|
||||
|
||||
*ldy #CL.Ptr
|
||||
|
||||
*.1 sta (pData),y
|
||||
* iny
|
||||
* cpx #CL.bEscMode+1
|
||||
* bne .1
|
||||
|
||||
rts
|
||||
*--------------------------------------
|
||||
CL.BS >LDA.G CL.Ptr
|
||||
@ -190,21 +235,8 @@ CL.SUPPR >LDA.G CL.Len
|
||||
>LDA.G CL.Ptr
|
||||
>CMP.G CL.Len
|
||||
beq CL.PrintEOL.8
|
||||
|
||||
bra CL.DEL.1
|
||||
*--------------------------------------
|
||||
* Erase char BEFORE cursor
|
||||
*--------------------------------------
|
||||
CL.DEL >LDA.G CL.Len
|
||||
beq CL.PrintEOL.8
|
||||
>LDA.G CL.Ptr
|
||||
beq CL.PrintEOL.8
|
||||
|
||||
lda #C.BS
|
||||
>SYSCALL PutChar
|
||||
|
||||
>DEC.G CL.Ptr
|
||||
CL.DEL.1 pha
|
||||
CL.DEL pha
|
||||
.1 ply
|
||||
iny
|
||||
lda (ZPCLBuf),y
|
||||
|
||||
@ -123,6 +123,7 @@ L.MSG.PRINTENV .DA MSG.PRINTENV
|
||||
L.MSG.PID .DA MSG.PID
|
||||
L.FMT.DATE .DA FMT.DATE
|
||||
L.FMT.Long .DA FMT.Long
|
||||
L.FMT.Byte .DA FMT.Byte
|
||||
J.ESC .DA CL.BS left arrow
|
||||
.DA HIS.GetNext
|
||||
.DA HIS.GetPrev
|
||||
@ -526,6 +527,7 @@ MSG.PRINTENV .AZ "%s = %s\r\n"
|
||||
MSG.PID .AZ "PID=%d\r\n"
|
||||
FMT.DATE .AZ "%A, %B %d %Y %H:%M:%S"
|
||||
FMT.Long .AZ "%L"
|
||||
FMT.Byte .AZ "%d"
|
||||
*--------------------------------------
|
||||
HOME.PROFILE .AZ "${HOME}PROFILE"
|
||||
.HS 00 To Make It ArgV
|
||||
@ -643,7 +645,6 @@ hFuncList .BS 1
|
||||
|
||||
bExitOnEOF .BS 1
|
||||
|
||||
bEscMode .BS 1
|
||||
bPause .BS 1
|
||||
|
||||
bSET.C .BS 1
|
||||
@ -661,6 +662,7 @@ CL.hCLBuf .BS 1
|
||||
CL.Ptr .BS 1
|
||||
CL.Len .BS 1
|
||||
CL.bReady .BS 1
|
||||
CL.bEscMode .BS 1
|
||||
|
||||
CORE.hArgVBuf .BS 1
|
||||
CORE.bPipeIn .BS 1
|
||||
|
||||
Loading…
Reference in New Issue
Block a user