1-Programme « perroquet CW » :
Rem Perroquet CW
Symbol Osc = Output2
Symbol Led = Output1 'La LED éclaire en synchro avec le code Morse
Symbol Character = b0
Symbol Even_Or_Odd_Character = b1
Symbol Index = b2
EEPROM 0, (21,27,0,21,27,0,21,27,0,9,2,0,15,5,48,17,19,0,15,5,48,17,19,0,15,5,48,17,19,0,21,27,0,21,27,0,21,27,0,9,2,0,15,5,48,17,19,0,15,5,48,17,19,0,15,5,48,17,19,0,22,8,2,0,13) 'CQ CQ CQ DE ON4BZ ON4BZ ON4BZ (2X) PSE K
Start:
ReadADC 4, W3 'Détermine la vitesse CW via le potentiomètre
W3 = W3 * 5/10 + 25 'Dit length
W4 = W3 * 3 'Dah length = Dit length X 3, Character Space = Dit Length X 3
W5 = W3 * 5 'Word Space = Dit length X 5
Pause 2000 'Pour démarrer , appuyer sur le switch
If pin3=1 then Identify
Goto Start
Identify:
For Index = 0 to 64
Read Index,Character 'The #64 doit être changé pour satisfaire aux caractères de votre appel CW
Gosub Morse
Next
Goto Start
Morse:
If Character = 0 then Word_sp
Do
Even_Or_Odd_Character = Character // 2 'Returns remainder, odd or even (dit or dah)
Character = Character / 2 'Shift right
If Even_Or_Odd_Character = 0 then Gosub Dit
If Even_Or_Odd_Character = 1 then Gosub Dah
Loop until Character = 1
Gosub Char_Sp
Return
Dit:
High Led
High Osc
Pause W3
Low Led
Low Osc
Pause W3
Return
Dah:
High Led
High Osc
Pause W4
Low Led
Low Osc
Pause W3
Return
Char_sp:
Pause W4
Return
Word_sp:
Pause W5
Return
REM FOR THOSE WHO DON'T KNOW MORSE CODE:)
REM A .- B -... C -.-. D -.. E . F ..-.
REM G --. H .... I .. J .--- K -.- L .-..
REM M -- N -. O --- P .--. Q --.- R .-.
REM S ... T - U ..- V ...- W .-- X -..-
REM Y -.-- Z --..
REM 1 .---- 2 ..--- 3 ...-- 4 ....- 5 .....
REM 6 -.... 7 --... 8 ---.. 9 ----. 0 -----
REM FULL STOP [.] .-.-.- COLON [:] ---...
REM COMMA [,] --..-- SEMICOLON [;] -.-.-.
REM QUESTION MARK [?] ..--.. EQUAL SIGN double dash [=] -...-
REM APOSTROPHE ['] .----. PLUS [+] .-.-.
REM EXCLAMATION MARK [!] -.-.-- HYPHEN minus [-] -....-
REM FWD SLASH [/] -..-. UNDERSCORE [_] ..--.-
REM PARENTHESIS open [(] -.--. QUOTATION MARK ["] .-..-.
REM PARENTHESIS closed [)] -.--.- DOLLAR SIGN [$] ...-..-
REM AMPERSAND [&] .-... AT SIGN [@] .--.-.
REM *** ENCODED CHARACTER NUMBERS ***
REM NUMBERS USED TO PROGRAM YOUR MESSAGE IN THE "BEACON"
REM A 6, B 17, C 21, D 9, E 2, F 20,
REM G 11, H 16, I 4, J 30, K 13, L 18,
REM M 7, N 5, O 15, P 22, Q 27, R 10,
REM S 8, T 3, U 12, V 24, W 14, X 25,
REM Y 29, Z 19,
REM 1 62, 2 60, 3 56, 4 48, 5 32,
REM 6 33, 7 35, 8 39, 9 47, 0 63,
REM FULL STOP [.] 106 COLON [:] 71
REM COMMA [,] 115 SEMICOLON [;] 85
REM QUESTION MARK [?] 76 EQUAL SIGN double dash [=] 49
REM APOSTROPHE ['] 94 PLUS [+] 42
REM EXCLAMATION MARK [!] 117 HYPHEN minus [-] 97
REM FWD SLASH [/] 41 UNDERSCORE [_] 108
REM PARENTHESIS open [(] 45 QUOTATION MARK ["] 82
REM PARENTHESIS closed [)] 109 DOLLAR SIGN [$] 200
REM AMPERSAND [&] 34 AT SIGN [@] 86
2-Programme « Perroquet CW EU FOX »
Rem Perroquet CW EU Fox
Symbol Osc = Output2
Symbol Led = Output1 'La LED éclaire en synchro avec le code Morse
Symbol Character = b0
Symbol Even_Or_Odd_Character = b1
Symbol Index = b2
EEPROM 0, (21,27,0,21,27,0,2,12,0,20,15,25,0,9,2,0,15,5,48,17,19,0,15,5,48,17,19,0,15,5,48,17,19,0,21,27,0,21,27,0,2,12,0,20,15,25,0,9,2,0,15,5,48,17,19,0,15,5,48,17,19,0,15,5,48,17,19,0,22,8,2,0,13) 'CQ CQ EU FOX DE ON4BZ ON4BZ ON4BZ (2X) PSE K
Start:
ReadADC 4, W3 'Détermine la vitesse CW via le potentiomètre
W3 = W3 * 5/10 + 25 'Dit length
W4 = W3 * 3 'Dah length = Dit length X 3, Character Space = Dit Length X 3
W5 = W3 * 5 'Word Space = Dit length X 5
Pause 2000 'Pour démarrer , appuyer sur le switch
If pin3=1 then Identify
Goto Start
Identify:
For Index = 0 to 74
Read Index,Character 'The #74 doit être changé pour satisfaire aux caractères de votre appel CW
Gosub Morse
Next
Goto Start
Morse:
If Character = 0 then Word_sp
Do
Even_Or_Odd_Character = Character // 2 'Returns remainder, odd or even (dit or dah)
Character = Character / 2 'Shift right
If Even_Or_Odd_Character = 0 then Gosub Dit
If Even_Or_Odd_Character = 1 then Gosub Dah
Loop until Character = 1
Gosub Char_Sp
Return
Dit:
High Led
High Osc
Pause W3
Low Led
Low Osc
Pause W3
Return
Dah:
High Led
High Osc
Pause W4
Low Led
Low Osc
Pause W3
Return
Char_sp:
Pause W4
Return
Word_sp:
Pause W5
Return
REM FOR THOSE WHO DON'T KNOW MORSE CODE:)
REM A .- B -... C -.-. D -.. E . F ..-.
REM G --. H .... I .. J .--- K -.- L .-..
REM M -- N -. O --- P .--. Q --.- R .-.
REM S ... T - U ..- V ...- W .-- X -..-
REM Y -.-- Z --..
REM 1 .---- 2 ..--- 3 ...-- 4 ....- 5 .....
REM 6 -.... 7 --... 8 ---.. 9 ----. 0 -----
REM FULL STOP [.] .-.-.- COLON [:] ---...
REM COMMA [,] --..-- SEMICOLON [;] -.-.-.
REM QUESTION MARK [?] ..--.. EQUAL SIGN double dash [=] -...-
REM APOSTROPHE ['] .----. PLUS [+] .-.-.
REM EXCLAMATION MARK [!] -.-.-- HYPHEN minus [-] -....-
REM FWD SLASH [/] -..-. UNDERSCORE [_] ..--.-
REM PARENTHESIS open [(] -.--. QUOTATION MARK ["] .-..-.
REM PARENTHESIS closed [)] -.--.- DOLLAR SIGN [$] ...-..-
REM AMPERSAND [&] .-... AT SIGN [@] .--.-.
REM *** ENCODED CHARACTER NUMBERS ***
REM NUMBERS USED TO PROGRAM YOUR MESSAGE IN THE "BEACON"
REM A 6, B 17, C 21, D 9, E 2, F 20,
REM G 11, H 16, I 4, J 30, K 13, L 18,
REM M 7, N 5, O 15, P 22, Q 27, R 10,
REM S 8, T 3, U 12, V 24, W 14, X 25,
REM Y 29, Z 19,
REM 1 62, 2 60, 3 56, 4 48, 5 32,
REM 6 33, 7 35, 8 39, 9 47, 0 63,
REM FULL STOP [.] 106 COLON [:] 71
REM COMMA [,] 115 SEMICOLON [;] 85
REM QUESTION MARK [?] 76 EQUAL SIGN double dash [=] 49
REM APOSTROPHE ['] 94 PLUS [+] 42
REM EXCLAMATION MARK [!] 117 HYPHEN minus [-] 97
REM FWD SLASH [/] 41 UNDERSCORE [_] 108
REM PARENTHESIS open [(] 45 QUOTATION MARK ["] 82
REM PARENTHESIS closed [)] 109 DOLLAR SIGN [$] 200
REM AMPERSAND [&] 34 AT SIGN [@] 86
Réf :
« A mini meter beacon on 28,322 MHZ » de VK6HV
« Morse code beacon » de Stan Swan
Michel ON4BZ