ASCII nach BAUDOT Code umwandeln

**Toshi** · 23. März 2019

Hallo!

Könnte mir vielleicht jemand einen Tip geben, wie ich ASCII nach BAUDOT CCITT-2 konvertiere?

Ich möchte gern ein Programm schreiben, welches einen eingegebenen Text oder aus einer ASCII-Datei konvertiert und dann auf dem Stanzer im CCITT-2 Code auf 17mm Papier / 5-Kanal ausgibt.

Hat jemand eine Idee, wie man das verwirklichen kann?

Ich habe bisher immer nur Klartext an die Schnittstelle geschickt....

**funkenzupfer** · 23. März 2019

Hab ich auf dem anderen Rechnr liegen.

Hast du etwas Zeit?

**Toshi** · 23. März 2019

Cool. Hat beliebig Zeit.

Eigentlich brauche ich nur einen Denkanstoß. Mit dem Stanzer, dessen Firmware kein BAUDOT versteht, kommuniziere ich ja mit 8 Datenbits, 1 Stopbit. Anders, als ich mit einem FS kommunizieren würde.

Ich muß dem Stanzer also Bytes schicken. Ich denke, ein Byte ist trotzdem eine Reihe Löcher, ob 5-bit oder 8-bit Streifen, richtig?

**funkenzupfer** · 23. März 2019

Unendlich?

Sprichst du den in der Zwischenzeit C?

**Toshi** · 23. März 2019

Zitat von funkenzupfer

Sprichst du den in der Zwischenzeit C?

Nicht fließend. Hab aber mal ein wenig mit rumgespielt.

PASCAL oder FORTRAN kann ich eher

**Toshi** · 23. März 2019

Also, wenn man sich auf DOS beschränkt, gibts da zumindest genug Beispiele zum Ansteuern der Schnittstelle in Pascal, um einzelne Bytes zu schicken.

Code

uses DOS, CRT;

const COM1: Integer=$03F8;
 COM2: Integer=$02F8;
 COM3: Integer=$03E8;
 COM4: Integer=$02E8;

var BA: Integer;







procedure Init (COM: Integer);

var i, Dummy: Byte;

begin
 BA:= COM;
 Port[BA+3]:=128;
 Port[BA+0]:=12; {9600 Baud}
 Port[BA+1]:=0;
 Port[BA+3]:=7; {8 Bit, n-Parity, 2 Stopbits}
 Port[BA+1]:=0; {keine Interrupts}
 Port[BA+4]:=0; {DTR=0, RTS=0}
 for i:= 1 to 3 do Dummy:= Port[BA]; {UART leeren}

end;







procedure Sende (Zeichen:Byte);

begin
 while (Port[BA+5] AND 32)=0 do; {bereit?}
 Port[BA]:= Zeichen;

end;

Alles anzeigen

rfka01 · 23. März 2019

fritzeflink (wer sonst ) hat ein Dokument mit Infos zur seriellen Schnittstelle - die ist anscheinend auf 4800 Baud voreingestellt und kann über Jumper verändert werden (mein Alpha scheint statt Jumper einen Block mit DIP-Switches zu haben)

http://oldcomputers-ddns.org/p…al/alpha_alamanch_1985.7z

http://oldcomputers-ddns.org/p…al_alphatronic_manual.pdf

Gruß

Robert

**Toshi** · 23. März 2019

Zitat von rfka01

fritzeflink (wer sonst ) hat ein Dokument mit Infos zur seriellen Schnittstelle - die ist anscheinend auf 4800 Baud voreingestellt und kann

Ja, das ist Sie. Die Handbücher habe ich sogar. Links neben dem Mäuseklavier, gleich neben dem Piepser sind die Jumper. Hab ich auch suchen gemußt.

Joe_IBM · 23. März 2019

Schau doch mal hier, da ist ein Flussdiagramm dabei: Verbindung Fernschreibmaschine <-> Computer

Gruß, Jochen

Georg · 24. März 2019

Zitat von Toshi

Eigentlich brauche ich nur einen Denkanstoß. Mit dem Stanzer, dessen Firmware kein BAUDOT versteht, kommuniziere ich ja mit 8 Datenbits, 1 Stopbit. Anders, als ich mit einem FS kommunizieren würde.

Ich muß dem Stanzer also Bytes schicken. Ich denke, ein Byte ist trotzdem eine Reihe Löcher, ob 5-bit oder 8-bit Streifen, richtig?

Die Firmware des Stanzer "versteht" auch kein ASCII - das tut nur Dein Rechner.

Wenn Du z. B. von Rechner aus ein großes A schickst, macht der da eine Bitfolge draus in der Art 01000001 und schickt die der Reihe nach rüber (was ich gerade nicht weiß ist die Reihenfolge, d.h. mit welchem Bit er anfängt. Spielt aber auch keine Rolle). Davor und dahinter packt er noch die Start und Stopbits, aber das ist nur eine Frage des Protokolls, d.h. der Einstellung der Schnittstelle. Das hast Du ja schon geklärt, und für die Nutzdaten hat das keine Bedeutung. Ach ja, je nach Einstellung schickt der Rechner nur 7 echte Datenbits (1000001 für A) und lässt das höchste weg bzw. ersetzt es durch ein parity bit.

Auf dem Streifen erscheint nun für jede 1 ein Loch. Wenn Du also nur 5 Kanäle stanzen willst, darfst Du nur die (vermutlich) untersten 5 Bits benutzen, d.h. die ASCII - Zeichen 0 bis 32 (00h bis 1Fh). Das sind leider alles Steuerzeichen, die Du auf der Tastatur nicht/kaum hinbekommst. In BASIC aber z.B. mit

PRINT CHR$(21) für das Zeichen 21, das ist Binär 10101, also

Loch Frei Loch Frei Loch

Wenn ich das richtig sehe macht der Baudot-Code für das A zwei Löcher in Spalte 1 und 2. Das ist Binär 11 und dezimal 3. Also liefert chr$(3) ein Baudot-A.

Reicht das als Denkanstoß?

Für die Umsetzung machst Du Dir am besten eine Tabelle in der Art

A = 3

B = 25

...

Dann baust Du Dir einen Array mit 32 Elementen und packst die Codes da rein. Indizieren tust Du den mit dem ASCII-Code deines Zeichens, in BASIC ASC(C$-64), in Pascal ord(c-64). Die Korrektur um 64 Einheiten ist nötig, damit Du aus dem Code 65 für A auf den ersten Index kommst (einfach mal vorausgesetzt), dass der Array mit 1 anfängt.

Wo du noch dran denken musst ist die Umschaltung - beim Baudot Code kann ja eine Lochkombination zwei Bedeutungen haben - entsprechend musst Du Deinen Text untersuchen, ggfs. umschalten und dir merken, welche Gruppe du gerade aktiv hast.

**funkenzupfer** · 24. März 2019

Hier mal meine Baudot Umsetzung.

Fuer dich interessant sind die Funktionen send_ascii2baudot() und send_baudot2ascii() und die zugehoerigen Tabellen.

Das ganze ist ein Arduino Projekt fuer mein TTY-Terminal Konverter.

Wenn du Hilfe brauchst, meld dich.