Schneider / Amstrad CPC Forum

Amstrad / Schneider CPC => Hardware => Topic started by: Vandalsk on 04. June 2014, 23:21:32

Title: Morse-Decoder für KW Empfänger am CPC
Post by: Vandalsk on 04. June 2014, 23:21:32
Ich hab gestern in einer alten Happy Computer einen -für mich- interessanten Artikel über einen Kurzwellen Decodierer gelesen. Der Artikel und die Bauanleitung bezog sich zwar auf den C 64, soll aber nach Angeben des Autors auf jeden anderen Homecomputer mit 9 pol. Joystickanschluss möglich sein. Die Schaltung der Platine ist auch recht einfach.
Das Listing ist bis auf einen Peek Befehl super auf den CPC umzusetzen. Ich hab gestern natürlich spontan mein Röhrenradio angeheizt (ein 5 € Weltempfänger hätte es sicher auch getan, aber man hat ja Stil  :) ) und tatsächlich werden diese Signale wohl noch genutzt.



Hat sowas schon mal jemand für den CPC umgesetzt?

(Wenn interesse besteht, scanne ich die Seiten gerne bei Gelegenheit ein.)
Title: Re: Morse-Decoder für KW Empfänger am CPC
Post by: Rennert on 05. June 2014, 06:14:26
Bitte scanne mal ein, würde das bei Gelegenheit mal am KC Compact probieren :flehan:
Title: Re: Morse-Decoder für KW Empfänger am CPC
Post by: Devilmarkus on 05. June 2014, 15:03:53
Ja, scanne mal... Ich finds auch äusserst Interessant...

LG
Markus
Title: Re: Morse-Decoder für KW Empfänger am CPC
Post by: Vandalsk on 05. June 2014, 22:54:53
Ok, ich scann das mal ein. Vielleicht könnte man das Listing und die Schaltung ja sogar noch verbessern.
Title: Re: Morse-Decoder für KW Empfänger am CPC
Post by: Vandalsk on 09. June 2014, 17:22:44
Sorry, hat etwas gedauert. Mein Scanner hat Probleme gemacht.
Aber hier, wie versprochen, der Bericht aus der Happy Computer.

Vielleicht kann mir bei dem Peek Befehl noch jemand einen Tip geben, was der im Listing bewirkt. Ich kenne mich mit dem C 64 nicht so gut aus.
Title: Re: Morse-Decoder für KW Empfänger am CPC
Post by: Rennert on 09. June 2014, 22:19:25
ich habe zwar einen C64 aber softwaretechnisch auch keinen großen Plan davon.
kann maximal im großen C64 Buch nachschlagen, was der Peek Befehl überhaupt macht.
Title: Re: Morse-Decoder für KW Empfänger am CPC
Post by: Vandalsk on 09. June 2014, 23:23:11
Das wäre klasse, wenn Du mal in dem Buch nachschlagen könntest. Aber es eilt nicht, lass Dir Zeit. Soweit ich mich erinnere, wurden Peek Befehle am C64 auch gerne für Farbcodes genutzt. Aber garantiert auch noch für 100 000 andere Sachen.
Ich hab auch noch einen geschenkten C64 eingemottet, aber ich habe da nie dran gearbeitet.
Bis auf Load"*",8,1 kenn ich das Gerät überhaupt nicht. Weder Hard- noch Softwaretechnisch.
Title: Re: Morse-Decoder für KW Empfänger am CPC
Post by: Devilmarkus on 12. June 2014, 19:33:39
Ich hab mir die Schaltung noch nicht gebaut (Werd ich wohl auch leider nicht können...)

Was den Peek anbelangt: Ich vermute, es wird der Joystick abgefragt in irgendeiner Weise.

Ist also ein spezielles Signal vorhanden, wird A$ auf " " gesetzt, statt normal auf "" (Ein Leerzeichen wird eingefügt)
Title: Re: Morse-Decoder für KW Empfänger am CPC
Post by: Vandalsk on 12. June 2014, 20:55:16
Ichhabmir das Listing gerade noch mal angeguckt......gibt absolut Sinn mit dem Peek und dem Leerzeichen.  :smiley027:
Title: Re: Morse-Decoder für KW Empfänger am CPC
Post by: Devilmarkus on 12. June 2014, 21:21:39
Könnte man (Falls es eine Joystickrichtung oder - Feuertaste ist) mit IF INKEY(xx)=0 THEN A$=" " modifizieren. (INKEY Codes stehen im Handbuch)
Title: Re: Morse-Decoder für KW Empfänger am CPC
Post by: Devilmarkus on 12. June 2014, 21:35:38
Hier das komplette CPC-Listing:

10 MODE 1:REM BOB'88
20 P=2:B=2*P:W=4*B:C=1
30 c$=":ETIANMSURWDKGOHVF£L£PJBXCYYQ££54£3£££2££+££££16=/£££££7£££8£90"
40 I=0:N=0
50 GOSUB 300:IF A$="" THEN N=N+1
60 IF N>B THEN 140
70 GOSUB 300:IF A$="" THEN 50
80 GOSUB 300:IF a$<>"" THEN I=I+1
90 IF I=0 THEN 80
100 GOSUB 300:IF A$<>"" THEN 80
110 C=C+C
120 IF I>P THEN C=C+1
130 GOTO 40
140 IF C>63 THEN PRINT"£";:GOTO 160
150 PRINT MID$(C$,C,1);
160 C=1:I=0
170 GOSUB 300:IF A$="" THEN N=N+1
180 IF N>W THEN PRINT " ";:GOTO 80
190 GOSUB 300:IF A$<>"" THEN 80
200 GOTO 170
300 a$="":IF INKEY(76)=0 THEN A$=" "
310 RETURN


Bestätigt:

PEEK(56230) am C64 ist der Joy-Port 2. Gibt er 111 aus, ist Feuer gedrückt.

http://www.c64-wiki.de/index.php/Joystick#Programmierung

Hier als DSK:

Title: Re: Morse-Decoder für KW Empfänger am CPC
Post by: Devilmarkus on 12. June 2014, 21:40:22
Kennt jemand eine Internetquelle für solch ein Signal? (Dann könnte ich die Hardware emulieren, und somit die Software testen)

Oder kann mir jemand solch ein Signal aufnehmen? (WAV oder MP3)
Title: Re: Morse-Decoder für KW Empfänger am CPC
Post by: Devilmarkus on 13. June 2014, 10:57:06
Ups...
Da hatte sich ein Fehler eingeschlichen in Zeile 30...

Korrektur:

10 MODE 1:REM BOB'88
20 P=2:B=2*P:W=4*B:C=1
30 c$=":ETIANMSURWDKGOHVF£L£PJBXCYZQ££54£3£££2££+££££16=/£££££7£££8£90"
40 I=0:N=0
50 GOSUB 300:IF A$="" THEN N=N+1
60 IF N>B THEN 140
70 GOSUB 300:IF A$="" THEN 50
80 GOSUB 300:IF a$<>"" THEN I=I+1
90 IF I=0 THEN 80
100 GOSUB 300:IF A$<>"" THEN 80
110 C=C+C
120 IF I>P THEN C=C+1
130 GOTO 40
140 IF C>63 THEN PRINT"£";:GOTO 160
150 PRINT MID$(C$,C,1);
160 C=1:I=0
170 GOSUB 300:IF A$="" THEN N=N+1
180 IF N>W THEN PRINT " ";:GOTO 80
190 GOSUB 300:IF A$<>"" THEN 80
200 GOTO 170
300 a$="":IF INKEY(76)=0 THEN A$=" "
310 RETURN


Korrigierte Disk:

Title: Re: Morse-Decoder für KW Empfänger am CPC
Post by: TFM on 31. July 2014, 20:10:21
Ah ja, RTTY, daran kann ich mich erinnern. Und da sendet echt noch eine Station! Ist ja faszinierend.

Wie geht das eigentlich? Ist es so eine Art A/D Wandler mit Antenne? Wäre ja mal interessant in die Richtung weiter zu denken.
Title: Re: Morse-Decoder für KW Empfänger am CPC
Post by: Vandalsk on 03. August 2014, 00:08:48
Zu meiner Bundeswehrzeit war RTTY, also quasi das Funkschreibverfahren, noch aktuell. Ob das heute noch praktiziert wird weiß ich nicht. Aber ich glaube, es gibt noch so einige Sender die in Gebrauch sind.
Ich bin leider nicht so der Hardwarespezialist und bis auf ein bißchen CB Funk kenn ich mich mit der Materie nicht mehr sonderlich gut aus. Aber ich denke auch, dass es ein Analog/Digital Wandler sein müßte.
Title: Re: Morse-Decoder für KW Empfänger am CPC
Post by: TFM on 05. June 2018, 16:19:55
Hat es schon mal jemand probiert?
Title: Re: Morse-Decoder für KW Empfänger am CPC
Post by: Devilmarkus on 31. December 2018, 17:12:11