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.

diff --git a/charset-encoding.inc.pl b/charset-encoding.inc.pl
index f4a9f26d1f9007a8153d320f467b40665a2a44ff..3eb7cc7f206016d6c30ddb03b36bfb44343e0455 100644 (file)
--- 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;