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)