improvements

term.tal

@@ -70,8 +70,8 @@
 @min ( x* y* -> min* )
     LTH2k JMP SWP2 POP2 JMP2r
 
-( @max ( x* y* -> max* )
+@max ( x* y* -> max* )
-    LTH2k JMP SWP2 NIP2 JMP2r )
+    LTH2k JMP SWP2 NIP2 JMP2r
 
 @clear-screen
     #01 .dirty? STZ
@@ -152,6 +152,55 @@
     &c1 LIT "@ SUB
     &done .Console/w DEO BRK
 
+@on-read-seq ( -> )
+    .Console/r DEI
+    DUP LIT "; EQU ;next-arg JCN2
+    DUP LIT "0 LTH ;end-arg JCN2
+    DUP LIT "9 GTH ;end-arg JCN2
+    ;add-to-arg JMP2
+
+@end-arg ( c^ -> )
+    ;on-read .Console/vect DEO2
+    DUP LIT "h EQU ;exec-noop JCN2    ( enable line wrap )
+    DUP LIT "l EQU ;exec-noop JCN2    ( disable line wrap )
+    DUP LIT "m EQU ;exec-noop JCN2    ( set attr )
+    DUP LIT "n EQU ;exec-noop JCN2    ( get status )
+    DUP LIT "H EQU ;exec-move JCN2    ( move cursor )
+    DUP LIT "A EQU ;exec-up JCN2      ( up )
+    DUP LIT "B EQU ;exec-down JCN2    ( down )
+    DUP LIT "C EQU ;exec-forward JCN2 ( forward )
+    DUP LIT "D EQU ;exec-back JCN2    ( back )
+    DUP LIT "J EQU ;exec-noop JCN2    ( erase line )
+    DUP LIT "K EQU ;exec-noop JCN2    ( erase screen )
+    POP BRK
+
+@exec-noop ( c^ -> )
+    POP BRK
+
+@exec1 ( addr* -> )
+    STH2 #0001 ;read-arg-1 JSR2 STH2r JSR2 BRK
+
+@exec-up POP ;up-n ;exec1 JMP2
+@exec-down POP ;down-n ;exec1 JMP2
+@exec-forward POP ;forward-n ;exec1 JMP2
+@exec-back POP ;back-n ;exec1 JMP2
+
+@exec-move ( c^ -> )
+    POP LIT2r ffff
+    #0001 ;read-arg-1 JSR2 STH2kr ADD2 ( row )
+    #0001 ;read-arg-2 JSR2 STH2r  ADD2 ( col )
+    ;goto JSR2 BRK
+
+@on-read-esc ( -> )
+    .Console/r DEI LIT "[ EQU ;start-seq JCN2
+    ;on-read .Console/vect DEO2
+    ;on-read JMP2
+
+@start-seq ( -> )
+    ;reset-args JSR2
+    ;on-read-seq .Console/vect DEO2
+    BRK
+
 @on-read
     .Console/r DEI
     DUP ,&ok JCN POP BRK
@@ -164,18 +213,24 @@
     ;read-printable JMP2
 
 @read-ctrl ( c^ -> )
-    DUP #07 EQU ;read-bel JCN2 ( TODO: flash )
+    DUP #07 EQU ;read-bel JCN2
     DUP #08 EQU ;read-bs JCN2
     DUP #09 EQU ;read-tab JCN2
     DUP #0a EQU ;read-nl JCN2
     DUP #0d EQU ;read-cr JCN2
     DUP #1b EQU ;read-esc JCN2
 
-( TODO: we need line-editing! )
+@read-bel ( 07 -> )
-@read-bel POP JMP2r
+    POP JMP2r ( TODO: flash terminal )
-@read-bs POP JMP2r ( POP ;scroll JMP2 )
+
-@read-esc POP JMP2r
+@read-bs ( 08 -> )
-@read-del POP JMP2r
+    POP JMP2r ( POP ;scroll JMP2 )
+
+@read-esc ( 1b -> )
+    POP ;on-read-esc .Console/vect DEO2 BRK
+
+@read-del ( 7f -> )
+    POP JMP2r
 
 ( @read-tab POP JMP2r )
 @read-tab
@@ -203,6 +258,12 @@
     ;draw-tile JSR2
     ;forward JMP2
 
+@goto ( y* x* -> )
+    ;hide-cursor JSR2
+    .max-x LDZ2 ;min JSR2 .cur-x STZ2
+    .max-y LDZ2 ;min JSR2 .cur-y STZ2
+    ;show-cursor JMP2
+
 @forward-n ( n* -> )
     ;hide-cursor JSR2
     .cur-x LDZ2 ADD2 .max-x LDZ2 ;min JSR2 .cur-x STZ2
@@ -218,8 +279,8 @@
     &zero POP2 POP2 #0000
     &done .cur-x STZ2 ;show-cursor JMP2
 
-@back ( -> )
+( @back ( -> )
-    #0001 ,back-n JMP
+    #0001 ,back-n JMP )
 
 @up-n ( n* -> )
     ;hide-cursor JSR2
@@ -228,8 +289,8 @@
     &zero POP2 POP2 #0000
     &done .cur-y STZ2 ;show-cursor JMP2
 
-@up ( -> )
+( @up ( -> )
-    #0001 ,up-n JMP
+    #0001 ,up-n JMP )
 
 @down-n ( n* -> )
     ;hide-cursor JSR2
@@ -283,6 +344,32 @@
 @ascii
     ~chr/ascii.tal
 
+@next-arg ( c^ -> )
+    POP
+    ( TODO: check if we already have max args )
+    ;args/pos LDA2k INC2 INC2 STA2 BRK
+
+@add-to-arg ( c^ -> )
+    LIT "0 SUB LITr 00 STH ( [digit*] )
+    ;args/pos LDA2 LDA2k   ( addr* value* [digit*] )
+    #000a MUL2 STH2r ADD2  ( addr* value*10+digit )
+    SWP2 STA2 BRK
+
+@read-arg-1 ( default* -> n* )
+    ;args LDA2 ;max JMP2
+@read-arg-2 ( default* -> n* )
+    ;args INC2 INC2 LDA2 ;max JMP2
+
+@reset-args ( -> )
+    ;args ;args/pos STA2
+    #0000 ;args LITr f8
+    &loop STA2k INC2 INC2
+    INCr STHkr ,&loop JCN
+    POPr POP2 POP2 JMP2r
+
+( store up to 8 arguments for control sequences )
+@args $10 &pos $2
+
 ( store characters for redraw, etc. )
 @screen $0c80 ( 80 x 40 )
 @end-screen