Olivetti M10 e Tandy 102 con il TS120V per una Stazione Automatica Telegrafica

Malgrado un calo d'interesse per la telegrafia sia da anni evidente fra i radioamatori, 
ci sono sempre fra questi chi la utilizza con piacere. Quindi se siamo di questo gruppo
e desideriamo almeno una delle seguenti cose, allora il progetto forse ci può interessare.

1) Imparare a fare qso in cw senza l'intervento di un corrispondente radioamatore.
2) Imparare a fare qso in chiaro, ossia come la lingua parlata.
3) Imparare a trasmettere e ricevere ad alta velocità.
4) Imparare a decifrare direttamente e a memorizzare nella propria mente le
   parole dei segnali telegrafici senza l'ausilio di carta e penna.
5) Provare a distanza in modo automatico nuove antenne e apparati ricetrasmittenti.
6) Fare qso in cw senza l'uso del computer.
7) Interrogare la stazione radio automatica per avere dati o informazioni meteo. 
   (Occorre scrivere un nuovo programma o modificare l'attuale in funzione)


La stazione in servizio: TS120V/M (TX=29.695 Khz) con Alimentatore e il Tandy 102. 



Schema per il controllo del TS120V da utilizzare insieme al ripetitore telegrafico. 
(Vedi l'articolo specifico) 


Per utilizzare D5 della porta 208 dal connettore BCR, vedi l'articolo sul Bus I2C.

Segue in basso il listato Basic del programma che una volta caricato, insieme al programma 
in codice macchina, esegue i seguenti passi:

1) Verica ora (9) per accensione automatica. 
2) Attesa ricezione dell'impegno con portante per oltre un secondo 
3) Trasmissione automatica di 30 brevi impulsi a conferma dell'avvenuta attivazione.
4) Ricezione automatica con scrittura di base su 510 byte di memoria.
5) Ritrasmissione automatica del contenuto della memoria.
6) Al termine del messaggio, trasmissione automatica della lettera K.  
7) Verifica dopo ogni trasmissione dell'ora (19) per lo spegnimento automatico e ritorno
   al punto (4).

Va menzionato, che non essendoci dei filtri audio in uscita dal ricetrasmettitore, il
relè del ripetitore telegrafico può attrarre brevemente anche in presenza di scariche
atmosferiche o rivelare la presenza di altri segnali interferenti o spurii. 
Per questo fatto, ho voluto usare la parte estrema alta della banda dei 10 metri, 
29.600 - 29.700 Khz.
La parte estrema della frequenza dei 10 metri è la più pulita e anche la più tranquilla 
per fare esperimenti di questo genere, inoltre l'antenna può anche essere di ridotte 
dimensioni e la propagazione in onda diretta è buona. Infatti bastano pochi watt per 
collegarsi alla distanza di diversi chilometri. 

Ecco le mie semplici condizioni di utilizzo:

Antenna della stazione automatica - 8 metri di filo inclinato
Ricetrasmettitore - Il mio TS120V modificato e impostato con il Vox per CW.
Potenza in uscita - Data l'impedenza elevata del carico dell'antenna, circa 4 Watt.
Distanza percorsa nel collegamento - Circa 7 chilometri con vari ostacoli.
Antenna della stazione con operatore - Due filari inclinate in mezzo ai palazzi di 10 e 27 m.
Potenza in uscita trasmettitore - Anche qui con carico ad impedenza elevata circa 4 Watt.
Velocità massima utilizzata - Oltre 40 PM. (Da ricordare che la velocità massima dipende 
molto dal tipo di microrelè che è montato nel ripetitore telegrafico).
Per trasmettitore uso il mio piccolo a divisione di frequenza, mentre per ricevitore il 
Sony ICF-2001 senza filtri in ricezione e solo con la sua antenna a stilo.
  
Il listato è conciso.

0 CLS:CLEAR800,61990
1 U=186:T=39:P=103:S=231'TX,RX,SPENTO
2 DEFINT G:OUTU,S
3 PRINT@84,"STAZIONE TELEGRAFICA AUTOMATICA
5 PRINT@124,"CARICA PROGRAMMA
7 FORF=62000TO62108:READA:POKEF,A:NEXT
8 CLS: PRINT@46,"CONTROLLO ORA ACCENSIONE
10 PRINT@134,TIME$
11 T$=TIME$:V=VAL(MID$(T$,1,2)):IFV<>9 THEN10
12 OUTU,P:FORN=0TO2000:NEXT'ACCENSIONE RTX
13 CLS:PRINT@90,"ASPETTO SEGNALE
14 I=INP(208):IFI=240THEN14
15 FORN=0TO1500:NEXT
16 I=INP(208):IFI=240THEN14
17 PRINTCHR$(7)
18 CLS:PRINT@90,"TX PARTENZA RADIO
19 FORF=1TO30:OUTU,T:FORN=1TO150:NEXT:OUTU,P:FORN=1TO250:NEXT:NEXT
20 CLS:PRINT@90,"RICEZIONE CW
22 I=INP(208):IFI=240THEN22
25 CALL62000
26 CLS:PRINT@90,"RITRASMISSIONE
28 FORF=62168TO62167+(PEEK(62004)*2)STEP2
30 IFPEEK(F)=1THENFORG=0TOPEEK(F+1)/3:OUTU,T:NEXTG
35 IFPEEK(F)=0THENFORG=0TOPEEK(F+1)/3:OUTU,P:NEXTG
40 NEXT:OUTU,P:FORN=1TO300:NEXT
45 FORN=0TO50:OUTU,T:NEXT:FORN=0TO17:OUTU,P:NEXT'TX K
47 FORN=0TO16:OUTU,T:NEXT:FORN=0TO17:OUTU,P:NEXT
50 FORN=0TO50:OUTU,T:NEXT:OUTU,P
65 T$=TIME$:V=VAL(MID$(T$,1,2)):IFV=19 THEN OUTU,S:GOTO8
70 GOTO20
99 STOP
100 DATA 33,215,242,17,255,0,62,16,211,185,219,230,254,254,200,
219,208,230,32,194,54,242,14,0,6,0,0,5,194,74,242,12,175,185,
202,95,242,219,208,230,32,202,72,242,195,96,242,13,35
110 DATA 54,1,35,113,27,122,179,200,219,208,230,32,202,70,242,
14,0,6,0,0,5,194,116,242,12,175,185,202,137,242,219,208,230,
32,194,114,242,195,138,242,13,35,54,0,35,113,27,122,179,200,
219,208,230,32,194,112,242,195,70,242
200 I=INP(208):IFI=240THEN200'PER TARATURA LIVELLO AUDIO
210 PRINT CHR$(7):GOTO200

Buoni esperimenti in telegrafia e cordiali saluti da Emilio - IK1WJQ ex I1KIB

(Vai a pagina1)