A2osX/BIN/SH.S.CL.txt

320 lines
4.9 KiB
Plaintext
Raw Normal View History

NEW
2019-06-02 08:58:46 +00:00
AUTO 3,1
.LIST OFF
*--------------------------------------
2019-01-26 21:46:39 +00:00
CL.Init >LDYAI 256
>SYSCALL GetMem
bcs .9
>STYA ZPCLBuf
txa
2019-01-30 16:23:00 +00:00
>STA.G CL.hCLBuf
2019-10-03 06:25:27 +00:00
.9 rts
2019-01-26 21:46:39 +00:00
*--------------------------------------
2020-02-14 07:21:56 +00:00
CL.PrintPrompt >PUSHW L.PS1
>PUSHWI 0
2020-01-17 11:23:11 +00:00
>SYSCALL Expand
2018-09-13 15:29:02 +00:00
bcs .9
2020-02-14 07:21:56 +00:00
phx
2020-02-14 07:21:56 +00:00
>PUSHYA
2018-09-13 15:29:02 +00:00
>PUSHBI 0
2020-02-14 07:21:56 +00:00
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2018-09-13 15:29:02 +00:00
pla
>SYSCALL FreeMem
2020-02-14 07:21:56 +00:00
.1 >PUSHW L.MSG.PROMPT
>PUSHBI 0
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2018-09-13 15:29:02 +00:00
.9 rts
*--------------------------------------
2020-02-14 07:21:56 +00:00
CL.READN0A tax
CL.READN0X
>PUSHW ZPCLBuf
2019-10-31 13:18:38 +00:00
>PUSHW L.FMT.Byte
2020-02-14 07:21:56 +00:00
txa
>PUSHA
>PUSHBI 1
2020-03-09 16:24:08 +00:00
>SYSCALL SPrintF
2019-10-31 13:18:38 +00:00
bcs .9
lda #$ff
>STA.G CL.bReady
* clc
.9 rts
*--------------------------------------
CL.CHARIN tax
2019-10-31 13:18:38 +00:00
>LDA.G CL.bEscMode \e ?
2019-11-04 07:21:40 +00:00
beq .4
cpx #'['
2019-10-31 13:18:38 +00:00
beq .8 \e[
lda #0
sta (pData),y Y=bEscMode
txa
2018-09-14 13:08:30 +00:00
ldx #EscChars.Cnt-1
2019-11-04 07:21:40 +00:00
.1 cmp EscChars,x
beq .2
2019-10-31 13:18:38 +00:00
dex
2019-11-04 07:21:40 +00:00
bpl .1
2019-10-31 13:18:38 +00:00
.8 rts invalid \e[ sequence
2019-11-04 07:21:40 +00:00
.2 >LDA.G READ.N
bne .3
2019-10-31 13:18:38 +00:00
lda EscChars.Remap,x
bra CL.READN0A
2019-11-04 07:21:40 +00:00
.3 txa
asl
tax
jmp (J.ESC,x)
*--------------------------------------
2019-11-04 07:21:40 +00:00
.4 cpx #C.ESC
bne .5
2019-10-31 13:18:38 +00:00
lda #$ff
>STA.G CL.bEscMode
clc
rts
2019-11-04 07:21:40 +00:00
.5 >LDA.G READ.N
2019-10-31 13:18:38 +00:00
beq CL.READN0X
cpx #C.SPACE
bcc CL.CHARIN.CTRL
2019-11-04 07:21:40 +00:00
cpx #C.DEL
2019-10-31 13:18:38 +00:00
bne CL.Insert
*--------------------------------------
* Erase char BEFORE cursor
*--------------------------------------
>LDA.G CL.Len
beq .8
>LDA.G CL.Ptr
beq .8
2019-11-04 07:21:40 +00:00
>LDA.G bREAD.S
bmi .6
2019-10-31 13:18:38 +00:00
lda #C.BS
>SYSCALL PutChar
2019-11-04 07:21:40 +00:00
.6 >DEC.G CL.Ptr
2018-12-04 16:45:58 +00:00
jmp CL.DEL
2019-10-31 13:18:38 +00:00
*--------------------------------------
CL.Insert >LDA.G CL.Len
>CMP.G READ.N
beq .8 Buffer full, discard...
inc
>STA.G CL.Len
pha
2019-11-04 07:21:40 +00:00
2019-10-31 13:18:38 +00:00
.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
2019-11-04 07:21:40 +00:00
2019-10-31 13:18:38 +00:00
* >LDA.G CL.Ptr
2019-10-31 13:18:38 +00:00
txa
sta (ZPCLBuf),y
>INC.G CL.Ptr
>LDA.G bREAD.S
bmi .7
2019-11-04 07:21:40 +00:00
2019-10-31 13:18:38 +00:00
txa
>SYSCALL PutChar
jsr CL.PrintEOL
2019-10-31 13:18:38 +00:00
.7 >LDA.G READ.N READ N = 1, don't wait for CR
dec
bne .8
2019-11-04 07:21:40 +00:00
2019-10-31 13:18:38 +00:00
lda #$ff
>STA.G CL.bReady
2019-11-04 07:21:40 +00:00
2019-10-31 13:18:38 +00:00
.8 clc
rts
*--------------------------------------
2018-09-09 08:11:42 +00:00
CL.CHARIN.CTRL cpx #C.CR
2019-02-18 06:42:17 +00:00
beq .18
2019-02-18 06:42:17 +00:00
cpx #C.EOF
beq .18
2019-10-18 11:41:27 +00:00
2019-10-31 13:18:38 +00:00
cpx #3 Ctrl-C
2019-10-18 11:41:27 +00:00
beq CL.CLR
2019-10-03 06:25:27 +00:00
2021-04-29 11:56:34 +00:00
cpx #C.TAB
bne .1
jmp HIS.Select
.1 cpx #26 Ctrl-Z
2019-10-31 13:18:38 +00:00
bne .8
2018-12-04 16:45:58 +00:00
jmp CL.SUPPR
2019-10-18 11:41:27 +00:00
2019-10-18 15:07:14 +00:00
.18 jsr CheckLFAfterCR Check for any extra LF
2019-10-18 11:41:27 +00:00
bcs .9
2019-10-18 15:07:14 +00:00
lda #$ff
2019-02-18 06:42:17 +00:00
>STA.G CL.bReady
2019-10-18 11:41:27 +00:00
2019-10-31 13:18:38 +00:00
.8 clc
2019-10-18 11:41:27 +00:00
.9 rts
*--------------------------------------
CL.CLR lda (ZPCLBuf)
2020-03-09 16:24:08 +00:00
beq CL.Reset.1
2019-11-01 20:06:04 +00:00
>LDA.G bREAD.S
2020-03-09 16:24:08 +00:00
bmi CL.Reset.1
2019-10-18 11:41:27 +00:00
.1 >LDA.G CL.Ptr
>CMP.G CL.Len
beq .2
inc
>STA.G CL.Ptr
lda #C.FS
>SYSCALL PutChar
bra .1
.2 ldy #0
.3 lda #C.DEL
sta (ZPCLBuf),y
iny
lda (ZPCLBuf),y
bne .3
jsr CL.PrintCLBuf
*--------------------------------------
2020-03-09 16:24:08 +00:00
CL.Reset lda #0
2019-10-18 11:41:27 +00:00
sta (ZPCLBuf)
2020-08-20 13:20:33 +00:00
CL.Reset.1 lda #0
ldy #CL.Ptr
.1 sta (pData),y
iny
cpy #CL.bEscMode+1
bne .1
2019-10-31 13:18:38 +00:00
rts
*--------------------------------------
2018-11-10 14:30:09 +00:00
CL.BS >LDA.G CL.Ptr
beq .9
2019-11-04 07:21:40 +00:00
dec
sta (pData),y
2019-11-04 07:21:40 +00:00
2019-11-01 20:06:04 +00:00
>LDA.G bREAD.S
bmi .9
2019-11-04 07:21:40 +00:00
2018-09-09 08:11:42 +00:00
lda #C.BS
2018-07-13 14:38:24 +00:00
>SYSCALL PutChar
.9 rts
*--------------------------------------
2018-11-10 14:30:09 +00:00
CL.NAK >LDA.G CL.Ptr
>CMP.G CL.Len
beq .9
inc
2018-11-10 14:30:09 +00:00
>STA.G CL.Ptr
2019-11-01 20:06:04 +00:00
>LDA.G bREAD.S
bmi .9
2018-09-09 08:11:42 +00:00
lda #C.FS
2018-07-13 14:38:24 +00:00
>SYSCALL PutChar
.9 rts
*--------------------------------------
* Erase char UNDER cursor
*--------------------------------------
2018-11-10 14:30:09 +00:00
CL.SUPPR >LDA.G CL.Len
beq CL.PrintEOL.8
2018-11-10 14:30:09 +00:00
>LDA.G CL.Ptr
2018-11-24 18:20:48 +00:00
>CMP.G CL.Len
beq CL.PrintEOL.8
*--------------------------------------
2019-10-31 13:18:38 +00:00
CL.DEL pha
.1 ply
iny
lda (ZPCLBuf),y
dey
sta (ZPCLBuf),y
iny
phy
tya
2018-11-10 14:30:09 +00:00
>CMP.G CL.Len
bne .1
pla
2018-11-10 14:30:09 +00:00
>DEC.G CL.Len
2019-11-04 07:21:40 +00:00
>LDA.G bREAD.S
bpl CL.PrintEOL
clc
rts
*--------------------------------------
2018-11-10 14:30:09 +00:00
CL.PrintEOL >LDA.G CL.Ptr
2020-08-11 18:55:28 +00:00
2018-11-10 14:30:09 +00:00
.1 >CMP.G CL.Len
beq .2
2020-08-11 18:55:28 +00:00
pha
tay
lda (ZPCLBuf),y
2018-07-13 14:38:24 +00:00
>SYSCALL PutChar
pla
inc
bra .1
2020-05-06 15:28:09 +00:00
.2 lda #C.SPACE
2018-07-13 14:38:24 +00:00
>SYSCALL PutChar
2018-11-10 14:30:09 +00:00
>LDA.G CL.Ptr
2020-08-11 18:55:28 +00:00
2018-11-10 14:30:09 +00:00
.3 >CMP.G CL.Len
beq .4
2020-08-11 18:55:28 +00:00
pha
2018-09-09 08:11:42 +00:00
lda #C.BS
2018-07-13 14:38:24 +00:00
>SYSCALL PutChar
pla
inc
bra .3
2020-08-11 18:55:28 +00:00
2018-09-09 08:11:42 +00:00
.4 lda #C.BS
2018-07-13 14:38:24 +00:00
>SYSCALL PutChar
2019-10-03 06:25:27 +00:00
CL.PrintEOL.8 clc
rts
*--------------------------------------
2020-08-25 10:56:00 +00:00
CL.PrintCLBuf ldy #S.PS.hStdOut
2020-02-28 07:21:46 +00:00
lda (pPS),y
2020-08-25 10:56:00 +00:00
>PUSHA
>PUSHW ZPCLBuf
2020-03-09 16:24:08 +00:00
>SYSCALL FPutS
rts
*--------------------------------------
MAN
2020-05-26 14:23:09 +00:00
SAVE usr/src/bin/sh.s.cl
LOAD usr/src/bin/sh.s
ASM