From 0cbc24f7e59d22304ef33fa9df64afca3fefbdc5 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 8 Jan 2022 06:37:06 +0100
Subject: [PATCH] charset: map classic ti-8x calculators

Closest unicode representations afaict, based on http://shiar.nl/calc/z80
images and guesses from manuals and emulators for unclear semantics.
---
 charset-encoding.inc.pl | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/charset-encoding.inc.pl b/charset-encoding.inc.pl
index f4a9f26..3eb7cc7 100644
--- a/charset-encoding.inc.pl
+++ b/charset-encoding.inc.pl
@@ -292,6 +292,47 @@ use utf8;
 			0xC8 => '€',
 		},
 	},
+	'ti86'         => {
+		note => 'similar to TI85',
+		inherit => ['', => '0-1F+80-EC'],
+		setup => sub {
+			$_[0]->{table} = [
+				undef, qw(
+					𝐛 𝐨 𝐝 𝐡 ▶ ⬆ ⬇ ∫ × 𝐀 𝐁 𝐂 𝐃 𝐄 𝐅
+					√ ⁻¹ ² ∠ ° ʳ ᵀ ≤ ≠ ≥ ⁻ ᴇ → ⏨ ↑ ↓
+				),
+				(undef) x 0x60,
+				qw(
+					₀ ₁ ₂ ₃ ₄ ₅ ₆ ₇ ₈ ₉ Á À Â Ä á à
+					â ä É È Ê Ë é è ê ë Í Ì Î Ï í ì
+					î ï Ó Ò Ô Ö ó ò ô ö Ú Ù Û Ü ú ù
+					û ü Ç ç Ñ ñ ´ ` ¨ ¿ ¡ α β γ Δ δ
+					ϵ θ λ μ π ρ Σ σ τ ϕ Ω x̅ y̅ ˟ … ◀
+					■ ∕ ‐ ² ° ³ :⃞ ➧ ⧵ 🙽 ◥ ◣ ⊸ ∘ ⋱ █
+					⇧ A⃞ a⃞ _ ⇧̲ A̲ a̲ ▒ ⬞ ˖ · ⁴ ﹦
+				),
+			];
+		},
+	},
+	'ti89'         => {
+		note => 'also TI92(+)',
+		inherit => ['', => '0-1F+7F-BE'],
+		setup => sub {
+			$_[0]->{table} = [
+				qw(
+					▒ ␁ ␂ ␃ ␄ ␅ ␆ 🔔 ⌫ ⇥ ), chr(0xA), qw( ⬏ ⤒ ↵ 🔒 ✓
+					■ ◂ ▸ ▴ ▾ ← → ↑ ↓ ◀ ▶ ⬆ ∪ ∩ ⊂ ∈
+				),
+				(map {chr} 0x20 .. 0x7E), '◆',
+				qw(
+					α β Γ γ Δ δ ε ζ θ λ ξ ∏ π ρ ∑ σ
+					τ ϕ ψ Ω ω ᴇ ℯ 𝐢 ʳ ᵀ x̅ y̅ ≤ ≠ ≥ ∠
+					… ¡ ¢ £ ¤ ¥ ¦ § √ © ª « ¬ ⁻ ® ¯
+					° ± ² ³ ⁻¹ µ ¶ · ⁺ ¹ º » 𝑑 ∫ ∞ ¿
+				),
+			];
+		},
+	},
 
 	''             => {setup => sub {
 		my $row = shift;
-- 
2.30.0