better term defaults
This commit is contained in:
parent
a2a0804f50
commit
3bfd045159
7
term.tal
7
term.tal
|
@ -13,7 +13,7 @@
|
||||||
@cur-x $2 ( cursor x: 0 <= cur-x < cols )
|
@cur-x $2 ( cursor x: 0 <= cur-x < cols )
|
||||||
@cur-y $2 ( cursor y: 0 <= cur-y < rows )
|
@cur-y $2 ( cursor y: 0 <= cur-y < rows )
|
||||||
|
|
||||||
@buffer $80 ( input buffer )
|
@buffer $c8 ( input buffer, 200 bytes )
|
||||||
@pos $1 ( buffer position )
|
@pos $1 ( buffer position )
|
||||||
@subinput $1 ( reading from subprocess? )
|
@subinput $1 ( reading from subprocess? )
|
||||||
|
|
||||||
|
@ -119,9 +119,10 @@
|
||||||
DUP #7f EQU ;read-del JCN2
|
DUP #7f EQU ;read-del JCN2
|
||||||
;read-normal JMP2
|
;read-normal JMP2
|
||||||
|
|
||||||
|
( TODO: we need line-editing! )
|
||||||
@read-bel JMP2r
|
@read-bel JMP2r
|
||||||
@read-bs POP ;scroll JMP2 ( FIXME )
|
@read-bs JMP2r ( POP ;scroll JMP2 )
|
||||||
@read-tab POP POP2r #0000 DIV
|
@read-tab JMP2r ( POP POP2r #0000 DIV )
|
||||||
@read-esc JMP2r
|
@read-esc JMP2r
|
||||||
@read-del JMP2r
|
@read-del JMP2r
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue