$regfile = "m1284pdef.dat"
$crystal = 16000000

'$regfile = "m2560def.dat"
'$crystal = 16000000
$hwstack = 300                                              '300
$swstack = 250                                              '200
$framesize = 250                                            '300
Config Submode = New
Debug Off                                                   'On  'Off                                              'if you debug off you remove all print from USB port
'*****************************************************************
'*         CONFIG BUFFERED USART FOR  USB               *
'*****************************************************************
Config Com1 = 115200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Echo Off
Config Serialin0 = Buffered , Size = 30                     'RX from Terminal
Open "COM1:" For Binary As #1
Const Usb = 1
'M2560-------------------------------------
' RXD0= yellow to  PE0 tx0
' TXD0= Blue to    PE1 rx0
'M1284------------------------------------
 ' RXD0= yellow to  PD0
' TXD0=yellow to  PD1

'
'---serial port-------------------------------------------------------------------------------------------------------------
Config Com2 = 115200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0       '34800   modif le 12-02-2020
Open "COM2:" For Binary As #2
Config Serialin1 = Buffered , Size = 50
Config Serialout1 = Buffered , Size = 30
Const Nex = 2
'M2560-------------------------------------
' RXD1= yellow to  PD2        
' TXD1= Blue to    PD3            
'M1284------------------------------------
 ' RXD1= yellow to  PD3
' TXD1= Blue to  PD2


'------------les config------------------------------------------------------
Config Clock = User                                         ' we use Nextion RTC for the clock
Config Date = Dmy , Separator = Slash

'*******************************************************************************
'buzzer
Const Noteaigu = 1500                                       '2548
Const Notebasse = 14000                                     '1500       '4096       '400
Const Durdo = 200                                           '100 300
Const Durlent = 50
'Const Durdo = 600                                           '300
'Const Notela = 400       '200
'Const Durla = 1000
'atmega 2560 ---------
'Portbuzzer Alias PortH.5
'atmega 1284 ---------
'Portbuzzer Alias Portb.0
'Config Portbuzzer = Output
' we use the Nextion RTC basic display are not avaliable here============================
'********************
$include "declaration_nextion.inc"
$include "sub_macro_nextion#3.inc"
$include "nextiontimedate.inc"
$include "consthour.inc"
$include "clocksub.inc"


'*******variable to use with nextion**************************************************
Dim Tabreturn(30) As Byte                                   'array of bye returned by nextion
Dim Flagcar As Byte
Dim Page_id As Byte , Device_id As Byte , Event_id As Byte
Dim Letter_id As String * 10

' ---date Time var------------------------------------------------------------------------------------------

Dim Jsecond As Byte , Jminute As Byte , Jhour As Byte
Dim Oldsecond As Byte , Oldminute As Byte , Oldhour As Byte
Dim S_second As String * 2 , S_minute As String * 2 , S_hour As String * 2
Dim S_dow As String * 8
Dim Jday As Byte , Jmonth As Byte , Jyear As Byte
Dim S_month As String * 10
Dim S_day As String * 2
Dim Anne As Word , Jcentury As Word , S_anne As String * 4

Dim S_year As String * 4 , S_century As String * 4
Dim Dow As Byte                                             'day of week
 

sub crazy(prm as byte)
  if prm=1 then
     $regfile="m88def.dat"
  else
    $regfile = "m32def.dat"
  end if
end sub