From 98cab31fc3659e33aef260efca55bf9f1753164c Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 11 Feb 2019 11:49:19 +0100
Subject: Add source files from Michael

---
 system/terminal-codes/unknown/src/SIEMENS.PC-D | 88 ++++++++++++++++++++++++++
 1 file changed, 88 insertions(+)
 create mode 100644 system/terminal-codes/unknown/src/SIEMENS.PC-D

(limited to 'system/terminal-codes/unknown/src/SIEMENS.PC-D')

diff --git a/system/terminal-codes/unknown/src/SIEMENS.PC-D b/system/terminal-codes/unknown/src/SIEMENS.PC-D
new file mode 100644
index 0000000..133b0b3
--- /dev/null
+++ b/system/terminal-codes/unknown/src/SIEMENS.PC-D
@@ -0,0 +1,88 @@
+                                                (* Autor : Rudolf Ruland *)
+                                                (* Stand : 13.05.86      *)
+
+LET csi = ""27"[";
+ 
+TEXT VAR table :="SIEMENS.PC-D"; 
+forget (table, quiet);
+new type (table);
+ 
+(******************   Steuerzeichen   *************************************)
+ 
+enter incode (  1, ""182"");                     (* HOP                   *)
+enter incode (  1, ""181"");                     (* HOP                   *)
+enter incode (  2, ""205"");                     (* RECHTS                *)
+enter incode (  2, ""207"");                     (* RECHTS                *)
+enter incode (  3, ""200"");                     (* OBEN                  *)
+enter incode (  3, ""201"");                     (* OBEN                  *)
+enter incode (  4, ""004"");   (* CTRL d    *)   (* INFO                  *)
+enter incode (  7, ""187"");   (* F1        *)   (* SV                    *)
+enter incode (  7, ""002"");   (* CTRL b    *)   (* SV                    *)
+enter incode (  8, ""199"");                     (* LINKS                 *)
+enter incode (  8, ""203"");                     (* LINKS                 *)
+enter incode (  9, ""143"");   (* BACKTAB   *)   (* TAB                   *)
+enter incode ( 10, ""208"");                     (* UNTEN                 *)
+enter incode ( 10, ""209"");                     (* UNTEN                 *)
+enter incode ( 11, ""169"");   (* EINFšGEN  *)   (* RUBIN                 *)
+enter incode ( 11, ""210"");                     (* RUBIN                 *)
+enter incode ( 12, ""008"");   (* BACK  <X| *)   (* RUBOUT                *)
+enter incode ( 12, ""168"");   (* L™CHEN    *)   (* RUBOUT                *)
+enter incode ( 12, ""211"");                     (* RUBOUT                *)
+enter incode ( 12, ""253"");   (* CE        *)   (* RUBOUT                *)
+enter incode ( 16, ""239"");   (* HILFE     *)   (* MARK                  *)
+enter incode ( 17, ""001"");   (* CTRL a    *)   (* STOP                  *) 
+enter incode ( 18, ""161"");   (* F12       *)   (* newline               *)
+enter incode ( 23, ""003"");   (* CTRL c    *)   (* WEITER                *) 
+enter incode ( 15, ""188"");   (* F2        *)   (* weitere ESC-Zeichen   *)
+enter incode ( 21, ""189"");   (* F3        *)
+enter incode ( 22, ""190"");   (* F4        *)
+enter incode ( 24, ""191"");   (* F5        *)
+enter incode ( 25, ""192"");   (* F6        *)
+enter incode ( 26, ""193"");   (* F7        *)
+enter incode ( 28, ""194"");   (* F8        *)
+enter incode ( 29, ""195"");   (* F9        *)
+enter incode ( 30, ""196"");   (* F10       *)
+enter incode ( 31, ""160"");   (* F11       *)
+
+ 
+enter outcode ( 0, "");                          (* NULL                  *)
+enter outcode ( 1,  0, csi + "H");               (* HOME                  *)
+enter outcode ( 2,  0, csi + "C");               (* RECHTS                *)
+enter outcode ( 3,  0, csi + "A");               (* OBEN                  *)
+enter outcode ( 4,  0, csi + "0J");              (* CL EOP                *)
+enter outcode ( 5,  0, csi + "0K");              (* CL EOL                *)
+enter outcode ( 7,  7);                          (* BELL                  *)
+enter outcode ( 8,  8);                          (* LINKS                 *)
+enter outcode (10, 10);                          (* UNTEN                 *)
+enter outcode (13, 13);                          (* RETURN                *)
+enter outcode (14,  0, csi + "m ");              (* END MARK              *)
+enter outcode (15,  0, csi + "7m ");             (* BEGIN MARK            *)
+
+enter outcode (27, 27);                          (* ESC                   *)
+
+cursor logic (1,1,csi,";","H"); 
+ 
+(********************   Textzeichen   *************************************)
+ 
+enter incode ( 46, ""240"");   (* +/-       *)   (* .                     *)
+enter incode (214, ""142"");                     (* Ž                     *)
+enter incode (215, ""153"");                     (* ™                     *)
+enter incode (216, ""154"");                     (* š                     *)
+enter incode (217, ""132"");                     (* „                     *)
+enter incode (218, ""148"");                     (* ”                     *)
+enter incode (219, ""129"");                     (* �                     *)
+enter incode (251, ""225"");                     (* á                     *)
+enter incode (252, ""021"");                     (* ü                     *)
+                                                 
+enter outcode (214, ""142"");                    (* Ž                     *)
+enter outcode (215, ""153"");                    (* ™                     *)
+enter outcode (216, ""154"");                    (* š                     *)
+enter outcode (217, ""132"");                    (* „                     *)
+enter outcode (218, ""148"");                    (* ”                     *)
+enter outcode (219, ""129"");                    (* �                     *)
+enter outcode (220, "k"    );                    (* Trenn-k               *)
+enter outcode (221, ""205"");                    (* Trennstrich           *)
+enter outcode (222, ""206"");                    (* gesch. Nummernkreuz   *)
+enter outcode (223, ""176"");                    (* gesch. Blank          *)
+enter outcode (251, ""225"");                    (* á                     *)
+enter outcode (252, ""021"");                    (* ü                     *)
-- 
cgit v1.2.3