Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- cpm:turbo_pascal:tinst [2018/03/02 12:07] – [Beispiele] volkerp
+++ cpm:turbo_pascal:tinst [2024/12/06 09:07] (aktuell) – [Downloads] volkerp
@@ Zeile 4: / Zeile 4: @@
 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.
+===== 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.).
@@ Zeile 232: / Zeile 242: @@
 </code>
-**Beispiel Z9001**
+**Beispiele Pascal880s**
 <code>
-  TermTypStr:  11,Z9001-Color
-  Width:       40
+  TermTypStr:  15,PC 1715 / 1715W
+  Width:       80
   Height:      24
 A  ???:         0
-B  InitialStr:  00
+B  InitialStr:  03,1B,'^','P'
-B  ResetStr:    00
+B  ResetStr:    03,1B,'^','@'
 B  CursorStr:   03,1B,00,00
 B  BinaryAddr:  1
@@ Zeile 253: / Zeile 264: @@
 B4  DelLineStr:  00
 BA  DelayLine:   0
-BC  EraToEolStr: 00
+BC  EraToEolStr: 01,16
-C2  HLStartStr:  02,14,'3'
+C2  HLStartStr:  00
-C8  HLEndStr:    02,14,'2'
+C8  HLEndStr:    00
 CE  DelayHL:     0
 </code>
-**Beispiele Pascal880s**
+**Beispiel KC85/4**
 <code>
-  TermTypStr:  15,PC 1715 / 1715W
+  TermTypStr:  20,KC85+D004/KC compact
   Width:       80
   Height:      24
 A  ???:         0
-B  InitialStr:  03,1B,'^','P'
+B  InitialStr:  01,85
-B  ResetStr:    03,1B,'^','@'
+B  ResetStr:    01,84
 B  CursorStr:   03,1B,00,00
 B  BinaryAddr:  1
@@ Zeile 286: / Zeile 297: @@
 CE  DelayHL:     0
 </code>
+ausgelesen mit terminal_info.pl (s. Downloads).
+**Beispiel Z9001**
 <code>
+Turbo 3
+Turbo 3.00
+Terminal Configuration
-  TermTypStr:  20,KC85+D004/KC compact
+  TermTypStr:  11,Z9001-Color
-  Width:       80
+  Width:       40
   Height:      24
 A  ???:         0
-B  InitialStr:  01,85
+B  InitialStr:  00
-B  ResetStr:    01,84
+B  ResetStr:    00
 B  CursorStr:   03,1B,00,00
 B  BinaryAddr:  1
@@ Zeile 307: / Zeile 326: @@
 B4  DelLineStr:  00
 BA  DelayLine:   0
-BC  EraToEolStr: 01,16
+BC  EraToEolStr: 00
-C2  HLStartStr:  00
+C2  HLStartStr:  02,14,'3'
-C8  HLEndStr:    00
+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 {{:cpm:terminal_info.zip|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.