Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- cpm:turbo_pascal:tinst [2011/09/26 17:32] – [Erläuterungen] volkerp
+++ cpm:turbo_pascal:tinst [2024/12/06 09:07] (aktuell) – [Downloads] volkerp
@@ Zeile 3: / Zeile 3: @@
 Im Anfangsbereich eines jeden Turbo-Pascal-(2.xx,3.xx)-Programms und auch von Turbo selbst liegen die Terminal-Steuercodes.
-Initial werden diese mit TINST.COM eingerichtet (übrigens selbst in Turbo Pascal geschrieben). Das Programm patcht aber nur das Programm TURBO.COM, keine eigenen.
+Initial werden diese Steuercodes mit TINST.COM eingerichtet. TINST installiert außerdem die Taktfrequenz sowie Editorkommandos. TINST ist übrigens selbst in Turbo Pascal geschrieben. Das Programm patcht aber nur das Programm TURBO.COM, keine eigenen. Zum Anpassen fremder kompilierter Pascal-Programme muss deshalb das Programm zunächst in TURBO.COM umbenannt werden, ehe mit TINST die Terminaleinstellungen geändert werden können.
-Zur Anpassung fremder kompilierter Pascal-Programme oder wenn man das Programm nicht zur Hand hat, kann man auch selbst patchen. Der Installationsbereich ist 125 Byte lang.
-Die Strings sind wie in Pascal üblich längendefiniert (1. Byte = Länge).
+===== Downloads =====
+  * {{:cpm:turbo_pascal:terminal_info.zip|}}
+    * Perl-Programm **terminal_info.pl** zum Auslesen der Terminal-Infos aus TURBO.COM oder aus compilierten Programmen.
+    * Perl-Programm **terminal_info2.pl** zeigt zusätzlich die Turbo-Version und die eingerichteten Editor-Kommandos an
+    * tpterm.pas/**tpterm.com** kopiert die aktuellen Terminal-Einstellungen aus TURBO.COM in ein vorhandenes compiliertes Programm. Damit können Programme ohne Quellcode ans eigene System angepasst werden: "tpterm datei.com" patcht datei.com.
+===== Terminal-Steuercodes =====
+Wenn man TINST nicht zur Hand hat, kann man auch selbst patchen. Der Installationsbereich der Terminal-Steuercodes ist 125 Byte lang und geht bei Turbo 2.xx bzw. 3.xx von 0153h-01EFh. Im Folgenden wird dieser Bereich erläutert. Zum Auslesen der Daten aus vorhandenen kompilierten Programmen habe ich ein kurzes Perl-Programm geschrieben (s.u.).
+Die Strings sind wie in Pascal üblich längendefiniert (1. Byte = Länge). Länge 00 kennzeichnet einen leeren String.
 <code>
@@ Zeile 60: / Zeile 71: @@
 installieren müssen, können Sie es auf der Liste anwählen.
-**L.2.2 Soll ein fnitialisierungsstring an das Terminal geschickt
+**L.2.2 Soll ein Initialisierungsstring an das Terminal geschickt
 werden?**
@@ Zeile 181: / Zeile 192: @@
 ===== Beispiele =====
+| 0153 | TermTypStr:  ^ 13,ADDS 20/25/30  ^ 4,ANSI  (=DEC Rainbow, 8 bit)      ^ 18,Kaypro with hilite ^ 19,Wyse WY-100/200/300 ^ 16,PC 1715 IWF/Jahn |
+| 0168 | Width:       | 80                | 80                                 | 80                    | 80                     | 80                  |
+| 0169 | Height:      | 24                | 24                                 | 24                    | 24                     | 24                  |
+| 016A | ???:         | 0                 | 0                                  | 0                     | 0                      | 0                   |
+| 016B | InitialStr:  | 03,1B,'0','P'     | 00                                 | 00                    | 00                     | 00                  |
+| 017B | ResetStr:    | 00                | 00                                 | 00                    | 00                     | 00                  |
+| 018B | CursorStr:   | 04,1B,'Y',00,00   | 08,1B,'[','0','0',';','0','0','H'  | 04,1B,'=',00,00       | 04,1B,'=',00,00        | 03,1B,00,00         |
+| 019B | BinaryAddr:  | 1                 | 0                                  | 1                     | 1                      | 1                   |
+| 019C | ColumnOff:   | 32                | 1                                  | 32                    | 32                     | 128                 |
+| 019D | LineOff:     | 32                | 1                                  | 32                    | 32                     | 128                 |
+| 019E | XPosition:   | 3                 | 7                                  | 4                     | 4                      | 3                   |
+| 019F | YPosition:   | 4                 | 4                                  | 3                     | 3                      | 2                   |
+| 01A0 | DelayCursor: | 0                 | 0                                  | 0                     | 0                      | 0                   |
+| 01A2 | ClearScrStr: | 01,0C             | 04,1B,'[','2','J'                  | 01,1A                 | 02,1B,'*'              | 01,0C               |
+| 01A8 | HomeStr:     | 00                | 03,1B,'[','f'                      | 00                    | 00                     | 00                  |
+| 01AE | InsLineStr:  | 00                | 04,1B,'[','1','L'                  | 04,0D,1B,'E',0D       | 02,1B,'E'              | 00                  |
+| 01B4 | DelLineStr:  | 00                | 04,1B,'[','1','M'                  | 02,1B,'R'             | 02,1B,'R'              | 00                  |
+| 01BA | DelayLine:   | 0                 | 0                                  | 0                     | 0                      | 0                   |
+| 01BC | EraToEolStr: | 02,1B,'K'         | 03,1B,'[','K'                      | 01,18                 | 02,1B,'T'              | 01,16               |
+| 01C2 | HLStartStr:  | 00                | 04,1B,'[','1','m'                  | 03,1B,'C','1'         | 02,1B,')'              | 00                  |
+| 01C8 | HLEndStr:    | 00                | 04,1B,'[','0','m'                  | 03,1B,'B','1'         | 02,1B,'('              | 00                  |
+| 01CE | DelayHL:     | 0                 | 0                                  | 0                     | 0                      | 0                   |
 **Beispiel PC 1715**
@@ Zeile 193: / Zeile 226: @@
 B  CursorStr:   03,1B,00,00             <- 3 Zeichen: ESC,128+Y,128+X
 B  BinaryAddr:  1                       <- X und Y werden binär angegeben
-C  ColumnOff:   128                     <- die 128 ist zu Y zu addieren
+C  ColumnOff:   128                     <- die 128 ist zu X zu addieren
-D  LineOff:     128                     <- die 128 ist zu X zu addieren
+D  LineOff:     128                     <- die 128 ist zu Y zu addieren
 E  XPosition:   3                       <- Position des X-Werts im CursorStr
 F  YPosition:   2                       <- Position des Y-Werts im CursorStr
 A0  DelayCursor: 0
 A2  ClearScrStr: 01,0C                   <- 1 Zeichen: ^L
+A8  HomeStr:     00
+AE  InsLineStr:  00
+B4  DelLineStr:  00
+BA  DelayLine:   0
+BC  EraToEolStr: 01,16                   <- 1 Zeichen: ^V
+C2  HLStartStr:  00
+C8  HLEndStr:    00
+CE  DelayHL:     0
+</code>
+**Beispiele Pascal880s**
+<code>
+  TermTypStr:  15,PC 1715 / 1715W
+  Width:       80
+  Height:      24
+A  ???:         0
+B  InitialStr:  03,1B,'^','P'
+B  ResetStr:    03,1B,'^','@'
+B  CursorStr:   03,1B,00,00
+B  BinaryAddr:  1
+C  ColumnOff:   128
+D  LineOff:     128
+E  XPosition:   3
+F  YPosition:   2
+A0  DelayCursor: 0
+A2  ClearScrStr: 01,0C
 A8  HomeStr:     00
 AE  InsLineStr:  00
@@ Zeile 208: / Zeile 269: @@
 CE  DelayHL:     0
 </code>
+**Beispiel KC85/4**
+<code>
+  TermTypStr:  20,KC85+D004/KC compact
+  Width:       80
+  Height:      24
+A  ???:         0
+B  InitialStr:  01,85
+B  ResetStr:    01,84
+B  CursorStr:   03,1B,00,00
+B  BinaryAddr:  1
+C  ColumnOff:   128
+D  LineOff:     128
+E  XPosition:   3
+F  YPosition:   2
+A0  DelayCursor: 0
+A2  ClearScrStr: 01,0C
+A8  HomeStr:     00
+AE  InsLineStr:  00
+B4  DelLineStr:  00
+BA  DelayLine:   0
+BC  EraToEolStr: 01,16
+C2  HLStartStr:  00
+C8  HLEndStr:    00
+CE  DelayHL:     0
+</code>
+ausgelesen mit terminal_info.pl (s. Downloads).
 **Beispiel Z9001**
 <code>
+Turbo 3
+Turbo 3.00
+Terminal Configuration
   TermTypStr:  11,Z9001-Color
   Width:       40
@@ Zeile 234: / Zeile 330: @@
 C8  HLEndStr:    02,14,'2'
 CE  DelayHL:     0
+Editor Configuration
+addr nr command                        keys hex   keys ctrl  default keys
+CURSOR MOVEMENTS:
+A1  0 new line                       01,0D      01,^M      01,^M
+A3  1 Character left                 01,08      01,^H      01,^S
+A5  2   Alternative                  01,13      01,^S      01,^H
+A7  3 Character right                01,09      01,^I      01,^D
+A9  4 Word left                      01,01      01,^A      01,^A
+AB  5 Word right                     01,06      01,^F      01,^F
+AD  6 Line up                        01,0B      01,^K      01,^E
+AF  7 Line down                      01,0A      01,^J      01,^X
+B1  8 Scroll down                    01,17      01,^W      01,^W
+B3  9 Scroll up                      02,11,'z'  02,^Q,'z'  01,^Z
+B6 10 Page up                        01,12      01,^R      01,^R
+B8 11 Page down                      01,03      01,^C      01,^C
+BA 12 To left on line                01,19      01,^Y      02,^Q,^S
+BC 13 To right on line               01,18      01,^X      02,^Q,^D
+BE 14 To top of page                 02,11,'e'  02,^Q,'e'  02,^Q,^E
+C1 15 To bottom of page              02,11,'x'  02,^Q,'x'  02,^Q,^X
+C4 16 To top of file                 02,11,'r'  02,^Q,'r'  02,^Q,^R
+C7 17 To end of file                 02,11,'c'  02,^Q,'c'  02,^Q,^C
+CA 18 To begining of block           02,11,'b'  02,^Q,'b'  02,^Q,^B
+CD 19 To end of block                02,11,'k'  02,^Q,'k'  02,^Q,^K
+D0 20 To last cursor position        02,11,'p'  02,^Q,'p'  02,^Q,^P
+INSERT & DELETE:
+D3 21 Insert mode on/off             01,1A      01,^Z      01,^V
+D5 22 Insert line                    01,0E      01,^N      01,^N
+D7 23 Delete line                    01,02      01,^B      01,^Y
+D9 24 Delete to end of line          02,11,'y'  02,^Q,'y'  02,^Q,^Y
+DC 25 Delete right word              01,14      01,^T      01,^T
+DE 26 Delete character under cursor  01,07      01,^G      01,^G
+E0 27 Delete left character          01,7F      01,7F      01,7F
+E2 28   Alternative                  01,FF      01,FF      01,FF
+BLOCK COMMANDS:
+E4 29 Mark block begin               02,05,'b'  02,^E,'b'  02,^K,^B
+E7 30 Mark block end                 02,05,'k'  02,^E,'k'  02,^K,^K
+EA 31 Mark single word               02,05,'t'  02,^E,'t'  02,^K,^T
+ED 32 Hide/display block             02,05,'h'  02,^E,'h'  02,^K,^H
+F0 33 Copy block                     02,05,'c'  02,^E,'c'  02,^K,^C
+F3 34 Move block                     02,05,'v'  02,^E,'v'  02,^K,^V
+F6 35 Delete block                   02,05,'y'  02,^E,'y'  02,^K,^Y
+F9 36 Read block from disk           02,05,'r'  02,^E,'r'  02,^K,^R
+FC 37 Write block to disk            02,05,'w'  02,^E,'w'  02,^K,^W
+MISC. EDITING COMMANDS:
+FF 38 End edit                       02,05,'d'  02,^E,'d'  02,^K,^D
+39 Tab                            01,1D      01,^]      01,^I
+40 Auto tab on/off                02,11,'i'  02,^Q,'i'  02,^Q,^I
+41 Restore line                   02,11,'l'  02,^Q,'l'  02,^Q,^L
+A 42 Find                           02,11,'f'  02,^Q,'f'  02,^Q,^F
+D 43 Find & replace                 02,11,'a'  02,^Q,'a'  02,^Q,^A
+44 Repeat last find               01,0C      01,^L      01,^L
+45 Control character prefix       01,10      01,^P      01,^P
 </code>
-Zum Auslesen dient ein kleines Perl-Programm terminal_info.pl.
+ausgelesden mit terminfo2.pl
+===== Historie =====
+*2024* die Version terminal_info2.pl erkennt die Turbo-Pascal-Version, mit der compiliert wurde. Beim Programm turbo.com werden außerdem die aktuell eingerichteten Editierkommandos angezeigt.