'        JR8VT.BAS
'        Last EDIT 2016/07/18
'        copyright@JARL_MUIKAMACHI JA0YEH
'JR8VT  ID ROM
' ID= DE_JR8VT
' CPU:ATmega88A Clock=1MHz Program_Use:8%

$regfile = "m88Adef.dat"
'  MEGA88A
$crystal = 1000000


  Config Portb = Output
  Config Portd = Input
  Config Portc = Input
  Config Timer1 = Timer , Prescale = 64
  On Timer1 Timer1_int
  Enable Interrupts
  Enable Timer1
  Config Watchdog = 8192                                    '-set WDT 8192msec                                '
  Start Watchdog

   '
   '  * �����ݒ� *

Dim D1 As Word
Dim D2 As Word
Dim P As Word
Dim Tn As Word
Dim Tn2 As Word
Dim Ondo As Word                                            'ADcon-->Ondo
Dim Ondo2 As Word
Dim Ondo3 As Word
Dim Mo As Word
Dim Mo0 As Word
Dim Mo1 As Word
Dim Tanten As Word
Dim Cyouten As Word
Dim Lp As Word                                              '--for next cnt


Idpin4 Alias Portb.0                                        'ID_PIN4=TONE out
Idpin3 Alias Pind.0
Test_led Alias Portb.2
Tx_led Alias Portb.3
                                        'ID_PIN3=ID_start SIG


'----CW Tone const-----
D1 = 100
D2 = 40
P = 100
Tn = 40
Tn2 = 110

Reset Portb. 1

 '********** MAIN LOOP **********************************
   Do
       Debounce Idpin3 , 1 , Wgid , Sub
   Loop
'********************************************************
End

Wgid:
   Set Portb.1
   Set Tx_led
   Waitms 300
'-------------------SEND ID -------------------
   Gosub Tu1                                                '--D
   Gosub To1
   Gosub To1
          Waitms Tn2
   Gosub To1                                                '--E
         Waitms Tn2 : Waitms Tn2
   Gosub To1                                                '--J
   Gosub Tu1
   Gosub Tu1
   Gosub Tu1
         Waitms Tn2
   Gosub To1                                                '--R
   Gosub Tu1
   Gosub To1
         Waitms Tn2
   Gosub Tu1                                                '--8
   Gosub Tu1
   Gosub Tu1
   Gosub To1
   Gosub To1
          Waitms Tn2
   Gosub To1                                                '--V
   Gosub To1
   Gosub To1
   Gosub Tu1

         Waitms Tn2
  Gosub Tu1                                                 '--T
     Waitms 300


   Waitms 300
 '-----------------------------------------------
  Reset Portb.1
   Reset Tx_led

   Return

 '=================================================
    Tu1:
     Sound Idpin4 , D1 , P : Waitms Tn
     Return
    To1:
     Sound Idpin4 , D2 , P : Waitms Tn
     Return

'***************** WDT ****************************
Timer1_int:
     Reset Watchdog
     Toggle Test_led
      Return

_init_micro:                                                'BACOM Bug fix
Config Watchdog = 512                                       '-set WDT 2148msec                                '
Start Watchdog                                              'start WDT
Return