From 96e40856ac9e89a4d786ed6a78bb56157d95eee5 Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Tue, 31 Jan 2023 15:37:14 -0500
Subject: [PATCH] term updates

---
 chr/determ.chr | Bin 0 -> 4096 bytes
 term.tal       |  36 ++++++++++++++++++++----------------
 2 files changed, 20 insertions(+), 16 deletions(-)
 create mode 100644 chr/determ.chr

diff --git a/chr/determ.chr b/chr/determ.chr
new file mode 100644
index 0000000000000000000000000000000000000000..c34acbe7942f57af5b8b6e75f07212ba5e132ef7
GIT binary patch
literal 4096
zcmeH^u?>JQ3<O`INQ0CG5G;@ap%m#@fMFSdQL+IkDUggw$P(edc+2kY3}}qC+S3{q
z|E>^`+<DQ8DQRE#u(^6_W!f)(E>ZNH%9p;lzNFq;nTl`F0p2fR9nJfC!CB~J7bt$j
h0XVk}cZjWElY<6mfCgxQ255i=Xn+Q2fCheN-~ro6Eu#Pc

literal 0
HcmV?d00001

diff --git a/term.tal b/term.tal
index a5d7a1b..3489b62 100644
--- a/term.tal
+++ b/term.tal
@@ -50,9 +50,11 @@
 
 |00 @System     [ &vect $2 &expansion $2 &title $2 &metadata $2 &r $2 &g $2 &b $2 ]
 |10 @Console    [ &vect $2 &r $1 &pad $5 &w $1 ]
-|20 @Screen     [ &vect $2 &w $2 &h $2 &auto  $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
+|20 @Screen     [ &vect $2 &w $2 &h $2 &auto  $1 &pad $1 &x $2 &y $2 &addr $2 &px $1 &sprite $1 ]
 |80 @Controller [ &vect $2 &button $1 &key $1 &fn $1 ]
-|a0 @File       [ &vect $2 &ok $2 &stat $2 &del $1 &append $1 &name $2 &len $2 &r $2 &w $2 ]
+|90 @Mouse      [ &vect $2 &x $2 &y $2 &state $1 &pad $3 &scrollx $2 &scrolly $2 ]
+|a0 @File1      [ &vect $2 &ok $2 &stat $2 &del $1 &append $1 &name $2 &len $2 &r $2 &w $2 ]
+|b0 @File2      [ &vect $2 &ok $2 &stat $2 &del $1 &append $1 &name $2 &len $2 &r $2 &w $2 ]
 
 |0000
     @tint      $1               ( draw mode. 01=regular, 04=inverted )
@@ -133,17 +135,17 @@
 
     .debug LDZ ?&continue BRK &continue
     #99 #010e DEO
-    ;debug-log .File/name DEO2
-    #01 .File/append DEO
+    ;debug-log .File1/name DEO2
+    #01 .File1/append DEO
     BRK
 
 @load-theme ( -> )
-    ;&path .File/name DEO2
-    #0002 .File/len DEO2
-    ;&r .File/r DEO2
-    ;&g .File/r DEO2
-    ;&b .File/r DEO2
-    .File/ok DEI2 ORA #01 JCN JMP2r
+    ;&path .File1/name DEO2
+    #0002 .File1/len DEO2
+    ;&r .File1/r DEO2
+    ;&g .File1/r DEO2
+    ;&b .File1/r DEO2
+    .File1/ok DEI2 ORA #01 JCN JMP2r
     LIT2 &r $2 .System/r DEO2
     LIT2 &g $2 .System/g DEO2
     LIT2 &b $2 .System/b DEO2
@@ -311,8 +313,8 @@
     #20    STH2kr JSR2
            STH2kr JSR2
     #0a    STH2r  JSR2
-    scratch-len .File/len DEO2
-    ;scratch .File/w DEO2
+    scratch-len .File1/len DEO2
+    ;scratch .File1/w DEO2
     JMP2r
 
 @end-arg-priv ( c^ -> )
@@ -342,8 +344,8 @@
     #20    STH2kr JSR2
            STH2kr JSR2
     #0a    STH2r  JSR2
-    scratch-len .File/len DEO2
-    ;scratch .File/w DEO2
+    scratch-len .File1/len DEO2
+    ;scratch .File1/w DEO2
     JMP2r
 
 @end-arg ( c^ -> )
@@ -499,8 +501,8 @@
     #20    STH2kr STA INC2r
            STH2kr STA INC2r
     #0a    STH2r  STA
-    #0005 .File/len DEO2
-    ;scratch .File/w DEO2
+    #0005 .File1/len DEO2
+    ;scratch .File1/w DEO2
     JMP2r
 
 @on-read-esc ( -> )
@@ -777,6 +779,8 @@
     &details "ansi 20 "terminal 20 "emulator 0a
     &author "by 20 "d_m 0a
     &date "3 20 "jan 20 2023 00
+    01
+    ( device mask ) 41 0d07
 
 ( store tint+char for each screen position )
 @cells $1900 ( 80 x 40 x 2 )