From 3c471499c9d5eb2af29519d701b0ba7f942db846 Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Tue, 14 Feb 2023 23:26:36 -0500
Subject: [PATCH] handle more ctrl seqs

---
 term.tal | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/term.tal b/term.tal
index 6c37588..23e4267 100644
--- a/term.tal
+++ b/term.tal
@@ -552,15 +552,38 @@
     ctrl ?on-ctrl-key
     .Controller/key DEI .Console/w DEO BRK
 
+( control seqs:   )
+(   ctrl-sp -> 00 )
+(   ctrl-@  -> 00 )
+(   ctrl-a  -> 01 )
+(   ...           )
+(   ctrl-y  -> 19 )
+(   ctrl-z  -> 1a )
+(   ctrl-[  -> 1b )
+(   esc     -> 1b )
+(   ctrl-\  -> 1c )
+(   ctrl-]  -> 1d )
+(   ctrl-^  -> 1e )
+(   ctrl-/  -> 1f )
+(   ctrl-_  -> 1f )
+
 ( ctrl-$n emits: )
 (   0 <= $n < @     ->   $n         )
 (   @ <= $n < `     ->   $n #40 SUB )
 (   ` <= $n <= #ff  ->   $n #60 SUB )
 @on-ctrl-key ( -> BRK )
     .Controller/key DEI
+    DUP #20 EQU ?&nul ( space )
+    DUP #2d EQU ?&us ( '-' i.e. '_' )
+    DUP #2f EQU ?&nul ( '/' )
+    DUP #32 EQU ?&nul ( '2' i.e. '@' )
+    DUP #36 EQU ?&rs ( '6' i.e. '^' )
     DUP LIT "@ LTH ?&done
     DUP LIT "` LTH ?&c1
     LIT "` SUB !&done
+    &nul #00 !&done
+    &rs #1e !&done
+    &us #1f !&done
     &c1 LIT "@ SUB
     &done .Console/w DEO BRK