Unterschiede
Hier werden die Unterschiede zwischen zwei Versionen angezeigt.
Beide Seiten der vorigen Revision Vorhergehende Überarbeitung Nächste Überarbeitung | Vorhergehende ÜberarbeitungLetzte ÜberarbeitungBeide Seiten der Revision | ||
cpm:turbo_pascal:tinst [2011/09/26 17:32] – [Erläuterungen] volkerp | cpm:turbo_pascal:tinst [2018/03/02 12:07] – [Beispiele] volkerp | ||
---|---|---|---|
Zeile 3: | Zeile 3: | ||
Im Anfangsbereich eines jeden Turbo-Pascal-(2.xx, | Im Anfangsbereich eines jeden Turbo-Pascal-(2.xx, | ||
- | Initial werden diese mit TINST.COM eingerichtet | + | Initial werden diese Steuercodes |
- | Zur Anpassung | + | |
- | Die Strings sind wie in Pascal üblich längendefiniert (1. Byte = Länge). | + | 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. | ||
< | < | ||
Zeile 60: | Zeile 61: | ||
installieren müssen, können Sie es auf der Liste anwählen. | installieren müssen, können Sie es auf der Liste anwählen. | ||
- | **L.2.2 Soll ein fnitialisierungsstring | + | **L.2.2 Soll ein Initialisierungsstring |
werden?** | werden?** | ||
Zeile 181: | Zeile 182: | ||
===== Beispiele ===== | ===== Beispiele ===== | ||
+ | | 0153 | TermTypStr: | ||
+ | | 0168 | Width: | ||
+ | | 0169 | Height: | ||
+ | | 016A | ???: | 0 | 0 | 0 | 0 | 0 | | ||
+ | | 016B | InitialStr: | ||
+ | | 017B | ResetStr: | ||
+ | | 018B | CursorStr: | ||
+ | | 019B | BinaryAddr: | ||
+ | | 019C | ColumnOff: | ||
+ | | 019D | LineOff: | ||
+ | | 019E | XPosition: | ||
+ | | 019F | YPosition: | ||
+ | | 01A0 | DelayCursor: | ||
+ | | 01A2 | ClearScrStr: | ||
+ | | 01A8 | HomeStr: | ||
+ | | 01AE | InsLineStr: | ||
+ | | 01B4 | DelLineStr: | ||
+ | | 01BA | DelayLine: | ||
+ | | 01BC | EraToEolStr: | ||
+ | | 01C2 | HLStartStr: | ||
+ | | 01C8 | HLEndStr: | ||
+ | | 01CE | DelayHL: | ||
**Beispiel PC 1715** | **Beispiel PC 1715** | ||
Zeile 193: | Zeile 216: | ||
018B CursorStr: | 018B CursorStr: | ||
019B BinaryAddr: | 019B BinaryAddr: | ||
- | 019C ColumnOff: | + | 019C ColumnOff: |
- | 019D LineOff: | + | 019D LineOff: |
019E XPosition: | 019E XPosition: | ||
019F YPosition: | 019F YPosition: | ||
Zeile 203: | Zeile 226: | ||
01B4 DelLineStr: | 01B4 DelLineStr: | ||
01BA DelayLine: | 01BA DelayLine: | ||
- | 01BC EraToEolStr: | + | 01BC EraToEolStr: |
01C2 HLStartStr: | 01C2 HLStartStr: | ||
01C8 HLEndStr: | 01C8 HLEndStr: | ||
Zeile 235: | Zeile 258: | ||
01CE DelayHL: | 01CE DelayHL: | ||
</ | </ | ||
- | Zum Auslesen dient ein kleines Perl-Programm terminal_info.pl. | + | |
+ | **Beispiele Pascal880s** | ||
+ | |||
+ | < | ||
+ | 125 | ||
+ | 0153 TermTypStr: | ||
+ | 0168 Width: | ||
+ | 0169 Height: | ||
+ | 016A ???: 0 | ||
+ | 016B InitialStr: | ||
+ | 017B ResetStr: | ||
+ | 018B CursorStr: | ||
+ | 019B BinaryAddr: | ||
+ | 019C ColumnOff: | ||
+ | 019D LineOff: | ||
+ | 019E XPosition: | ||
+ | 019F YPosition: | ||
+ | 01A0 DelayCursor: | ||
+ | 01A2 ClearScrStr: | ||
+ | 01A8 HomeStr: | ||
+ | 01AE InsLineStr: | ||
+ | 01B4 DelLineStr: | ||
+ | 01BA DelayLine: | ||
+ | 01BC EraToEolStr: | ||
+ | 01C2 HLStartStr: | ||
+ | 01C8 HLEndStr: | ||
+ | 01CE DelayHL: | ||
+ | </ | ||
+ | |||
+ | < | ||
+ | 125 | ||
+ | 0153 TermTypStr: | ||
+ | 0168 Width: | ||
+ | 0169 Height: | ||
+ | 016A ???: 0 | ||
+ | 016B InitialStr: | ||
+ | 017B ResetStr: | ||
+ | 018B CursorStr: | ||
+ | 019B BinaryAddr: | ||
+ | 019C ColumnOff: | ||
+ | 019D LineOff: | ||
+ | 019E XPosition: | ||
+ | 019F YPosition: | ||
+ | 01A0 DelayCursor: | ||
+ | 01A2 ClearScrStr: | ||
+ | 01A8 HomeStr: | ||
+ | 01AE InsLineStr: | ||
+ | 01B4 DelLineStr: | ||
+ | 01BA DelayLine: | ||
+ | 01BC EraToEolStr: | ||
+ | 01C2 HLStartStr: | ||
+ | 01C8 HLEndStr: | ||
+ | 01CE DelayHL: | ||
+ | </ | ||
+ | |||
+ | Zum Auslesen dient ein kleines Perl-Programm | ||