'  Frank Schuck, DD2NU /  02.02.2015

'  Version 1.00

'

'  ---------------------------------------------------------------------------

'  Yaesu FT-1000MP Split... ON/OFF  COM: 4800 / parity none / 2 stop / 8 daten

'  ---------------------------------------------------------------------------

'

'

' Split wird nur eingeschaltet, solange Taster gedrueckt wird!

' ---> am besten Schalter verwenden!

'

'

' FT-1000MP Menu einstellungen:

'     Menu 8-2 SPLIT auf mode A-B stellen

'     Menu 1-6 QUICK SPLIT OFFSET auf 1kHz stellen

'

'

'

' ---------------------------------------------------------------------------

' Die Methode mit dem Interrupt wurde gewaehlt, um das Programm auch fuer

' Yaesu FTdx-3000 (TXW) und Kenwood TS-590S (TF-SET) umschreiben zu koennen.

' Fuer den FT-1000MP waere diese Methode nicht notwendig gewesen, es wird ein

' Schalter und nicht ein Taster verwendet. Bei den beiden anderen Geraeten

' soll ja die Funktion nur solange aktiv sein, wie die Taste gedrueckt ist!

' ---------------------------------------------------------------------------

'

'

$regfile = "m8adef.dat"

$crystal = 16000000                                         ' auch andere Werte moeglich

$hwstack = 16

$swstack = 16

$framesize = 24

Config Com1 = 4800 , Parity = None , Stopbits = 2 , Databits = 8

Dim Flag As Integer

Config Portd.5 = Output

Portd.5 = 0

Taster Alias Pind.2

Config Taster = Input

Taster = 0

Flag = 0

Enable Interrupts

On Int0 On_0

Config Int0 = Change

Enable Int0

Do

  ' warte immer 50 ms in der Endlosschleife

  Waitms 50

Loop

On_0:

 If Flag = 0 Then

   Print Chr(&H00);                                         ' Split on

   Print Chr(&H00);

   Print Chr(&H00);

   Print Chr(&H01);

   Print Chr(&H01);

   Print Chr(&H00);                                         ' A=B

   Print Chr(&H00);                                         ' bei (SPLIT-MODE:

   Print Chr(&H00);                                         ' A-B) eigentlich nicht notwendig!  -> funktioniert bei mir aber nicht?!

   Print Chr(&H00);

   Print Chr(&H85);

   Print Chr(&H00);                                         ' Dual RX on

   Print Chr(&H00);

   Print Chr(&H00);

   Print Chr(&H01);

   Print Chr(&H83);

   Print Chr(&H00);                                         ' Main dial lock

   Print Chr(&H00);

   Print Chr(&H00);

   Print Chr(&H01);

   Print Chr(&H04);

   Flag = 1

  Portd.5 = 1                                                ' z.B. "LED an"

 Else

   Print Chr(&H00);                                         ' Dual RX off

   Print Chr(&H00);

   Print Chr(&H00);

   Print Chr(&H00);

   Print Chr(&H83);

   Print Chr(&H00);                                         ' Split off

   Print Chr(&H00);

   Print Chr(&H00);

   Print Chr(&H00);

   Print Chr(&H01);

   Print Chr(&H00);                                         ' Main dial unlock

   Print Chr(&H00);

   Print Chr(&H00);

   Print Chr(&H00);

   Print Chr(&H04);

  Flag = 0

  Portd.5 = 0                                               ' z.B. "LED aus"

 End If

Return

End