Программа для контроллера на базе МК C8051F020

#include "menu.h"
#include "keys.h"
#include "menu_keys.h"
#include "menu_display.h"
#include "menu_stack.h"
#include "flash_data.h"
#include "errors.h"
#include  "lcd2004.h"
#include "time_funcs.h"
#include "MainHard.h"
#include "time.h"
#include "user_task.h"
#include "Measure.h"
#include "MBSlave.h"
 
#define BEGIN_HOLD_CHANGE   20
#define HOLD_PRESCALER      5
 
extern xdata unsigned params[MPLC_REGS_N];
unsigned char d_state=0;
extern unsigned char menu_mode;
extern unsigned char access_level;
 
/*
void work_in_hold_mode(mm_handler mms)
{
 xdata unsigned int oper_cnt, max_cnt;
 
  if ((get_keys()&K_LEFT)==K_LEFT) {
      if (get_left_ctr ()>=BEGIN_HOLD_CHANGE) {
        max_cnt =  (get_left_ctr () - BEGIN_HOLD_CHANGE)/HOLD_PRESCALER;
        dec_param (mms);
        for (oper_cnt=1; oper_cnt<max_cnt;oper_cnt++) {
            dec_param (mms);
            }
        display_m_var (mms->menu_cash->temp_item, 3,1);
        show_editor(mms->menu_cash->temp_item);
         DELAY_100MS;
        }
    };
    
  if ((get_keys()&K_RIGHT)==K_RIGHT) {
      if (get_right_ctr ()>=BEGIN_HOLD_CHANGE) {
        max_cnt =  (get_right_ctr () - BEGIN_HOLD_CHANGE)/HOLD_PRESCALER;
        inc_param (mms);
        for (oper_cnt=1; oper_cnt<max_cnt;oper_cnt++) 
            {
             inc_param (mms);
             };
        display_m_var (mms->menu_cash->temp_item, 3,1);
        show_editor(mms->menu_cash->temp_item);         
         DELAY_100MS;
        }
    };      
    
}
*/
void up_arrow_down_event (mm_handler mms)
{
  if (mms->edit_mode != EDITOR_MODE) {  
    if (mms->multi_item_mode == MULTI_ITEM_MODE)  {
        if (mms->display_index>0)
            {
        mms->display_index--;
        mms->cursor_index--;
        display_cursor(mms);     
            } else if (mms->cash_index > 0)
                {
                // make scroll up
                mms->cash_index--;
                mms->cursor_index--; 
                display_menu(mms);
                }
        };          
    } else {
        if ((mms->menu_cash->temp_item->d_type == VAR_DIGITS)||(mms->menu_cash->temp_item->d_type == CODE_ITEM)) {      
            {
              if (get_decimal_dig(mms->menu_cash->temp_item->var1, mms->menu_cash->temp_item->digits_index)==9)
                    {
                      do mms->menu_cash->temp_item->var1-=ten_pow(mms->menu_cash->temp_item->digits_index);
                      while (get_decimal_dig(mms->menu_cash->temp_item->var1, mms->menu_cash->temp_item->digits_index)>0);
                    } else   if (get_decimal_dig(mms->menu_cash->temp_item->var1, mms->menu_cash->temp_item->digits_index)<9)
                                      mms->menu_cash->temp_item->var1+=ten_pow(mms->menu_cash->temp_item->digits_index);
            }
        
            if ((int)(mms->menu_cash->temp_item->max) < (int)mms->menu_cash->temp_item->var1) {
                mms->menu_cash->temp_item->var1 = mms->menu_cash->temp_item->max;
            };      
            display_m_var (mms->menu_cash->temp_item, 3,NUMBER_D_DIG-mms->menu_cash->temp_item->digits_printed);
            display_m_var (mms->menu_cash->temp_item, 3,NUMBER_D_DIG-mms->menu_cash->temp_item->digits_printed);
            show_editor(mms->menu_cash->temp_item);     
            };
                    
        if (mms->menu_cash->temp_item->d_type == TIME_MHS) {
                inc_time (mms->menu_cash->temp_item);
                display_m_var (mms->menu_cash->temp_item, 3,NUMBER_D_DIG);
                show_editor(mms->menu_cash->temp_item);             
            };
 
        if (mms->menu_cash->temp_item->d_type == DATE_YMD) {
                inc_date (mms->menu_cash->temp_item);
                display_m_var (mms->menu_cash->temp_item, 3,NUMBER_D_DIG);
                show_editor(mms->menu_cash->temp_item);             
            };
    };
}
 
void down_arrow_down_event (mm_handler mms)
{
  unsigned int aa, bb, cc;
  
  if (mms->edit_mode != EDITOR_MODE) {  
    if (mms->multi_item_mode == MULTI_ITEM_MODE)  {
 
                     aa = mms->display_index;
                     bb = mms->cursor_index;
                     cc = mms->menu_cash->num_elems;
 
        if ((mms->display_index<(LCD_STRINGS_NUM-1))&&(mms->display_index < mms->menu_cash->num_elems))
            {
                if (mms->cursor_index < mms->menu_cash->num_elems) 
                    {
                     mms->display_index++;
                     mms->cursor_index++;
                     display_cursor(mms);
                    };       
            } else if (mms->cash_index < (mms->menu_cash->num_elems - LCD_STRINGS_NUM))
                {
                 // make scroll up
                 mms->cash_index++;
                 mms->cursor_index++; 
                 display_menu(mms);
                }
            };
    } else {
        if ((mms->menu_cash->temp_item->d_type == VAR_DIGITS)||(mms->menu_cash->temp_item->d_type == CODE_ITEM)) {
 
 
 
              if (get_decimal_dig(mms->menu_cash->temp_item->var1, mms->menu_cash->temp_item->digits_index)==0)
                    {
                      do mms->menu_cash->temp_item->var1+=ten_pow(mms->menu_cash->temp_item->digits_index);
                      while (get_decimal_dig(mms->menu_cash->temp_item->var1, mms->menu_cash->temp_item->digits_index)<9);
                    } else  if (get_decimal_dig(mms->menu_cash->temp_item->var1, mms->menu_cash->temp_item->digits_index)>0)
                                mms->menu_cash->temp_item->var1-=ten_pow(mms->menu_cash->temp_item->digits_index);
 
                           
            if ((int)(mms->menu_cash->temp_item->min) >  (int)mms->menu_cash->temp_item->var1) {
                mms->menu_cash->temp_item->var1 = mms->menu_cash->temp_item->min;
                };      
            display_m_var (mms->menu_cash->temp_item, 3,NUMBER_D_DIG-mms->menu_cash->temp_item->digits_printed);
            display_m_var (mms->menu_cash->temp_item, 3,NUMBER_D_DIG-mms->menu_cash->temp_item->digits_printed);
            show_editor(mms->menu_cash->temp_item); 
            };
            
        if (mms->menu_cash->temp_item->d_type == TIME_MHS) {
            dec_time (mms->menu_cash->temp_item);
            display_m_var (mms->menu_cash->temp_item, 3,NUMBER_D_DIG);
            show_editor(mms->menu_cash->temp_item);             
            };
 
        if (mms->menu_cash->temp_item->d_type == DATE_YMD) {
                dec_date (mms->menu_cash->temp_item);
                display_m_var (mms->menu_cash->temp_item, 3,NUMBER_D_DIG);
                show_editor(mms->menu_cash->temp_item);             
            };          
    };
}
 
void dec_param (mm_handler mms)
{
xdata  int temp;
 
   temp = (int)mms->menu_cash->temp_item->var1 - 1;
   if ((int)(mms->menu_cash->temp_item->min) <= temp) {
    mms->menu_cash->temp_item->var1 =  temp;
    } else {
        mms->menu_cash->temp_item->var1 = mms->menu_cash->temp_item->min;
        };
}
 
void inc_param (mm_handler mms)
{
xdata  int temp;
 
    temp = (int)mms->menu_cash->temp_item->var1 + 1;
    if ((int)(mms->menu_cash->temp_item->max) >= temp) {
    mms->menu_cash->temp_item->var1 =  temp;
    } else {
        mms->menu_cash->temp_item->var1 = mms->menu_cash->temp_item->max;
        };
}
 
void left_arrow_down_event (mm_handler mms)
{
 //xdata unsigned int temp, adr, rec_adr;
 
  if (mms->edit_mode == EDITOR_MODE) {
  
        // code for selection list item
        if (mms->menu_cash->temp_item->d_type == SEL_LIST) {
            dec_param(mms);
            display_m_var (mms->menu_cash->temp_item, 3,0);
            show_editor(mms->menu_cash->temp_item);
        }
        
        // code for limited variable item
        if ((mms->menu_cash->temp_item->d_type == VAR_DIGITS)||(mms->menu_cash->temp_item->d_type == CODE_ITEM)) {
                if (mms->menu_cash->temp_item->digits_index<LEFT_END_CURSOR)
                    mms->menu_cash->temp_item->digits_index++;
                    
                display_m_var (mms->menu_cash->temp_item, 3,NUMBER_D_DIG-mms->menu_cash->temp_item->digits_printed);
                show_editor(mms->menu_cash->temp_item);
            };
        
        // code for time  item
        if (mms->menu_cash->temp_item->d_type == TIME_MHS) {
                if (mms->menu_cash->temp_item->digits_index<LEFT_END_CURSOR)
                    mms->menu_cash->temp_item->digits_index++;
                    
                display_m_var (mms->menu_cash->temp_item, 3,NUMBER_D_DIG);
                show_editor(mms->menu_cash->temp_item);
            };
        
        // code for date  item          
        if (mms->menu_cash->temp_item->d_type == DATE_YMD) {
                if (mms->menu_cash->temp_item->digits_index<LEFT_END_CUR_DATE)
                    mms->menu_cash->temp_item->digits_index++;
                    
                display_m_var (mms->menu_cash->temp_item, 3,NUMBER_D_DIG);
                show_editor(mms->menu_cash->temp_item);
            };
 
        // code for contrast mode       
        if (mms->menu_cash->temp_item->d_type == NO_DISP_ITEM) {
            inc_param(mms);
            display_m_var (mms->menu_cash->temp_item, 3,0);
            show_editor(mms->menu_cash->temp_item);
            //set_int_param(CONTRAST, (unsigned char)mms->menu_cash->temp_item->var1);
            //set_contrast (get_int_param (CONTRAST));
            }
        
        } 
}
 
void right_arrow_down_event (mm_handler mms)
{
//xdata unsigned int temp, adr, rec_adr;
 
  if (mms->edit_mode == EDITOR_MODE) {
        if (mms->menu_cash->temp_item->d_type == SEL_LIST) {
            inc_param(mms);
            display_m_var (mms->menu_cash->temp_item, 3,0);
            show_editor(mms->menu_cash->temp_item);         
            } 
        // code for contrast mode       
        if (mms->menu_cash->temp_item->d_type == NO_DISP_ITEM) {
            dec_param(mms);
            display_m_var (mms->menu_cash->temp_item, 3,0);
            show_editor(mms->menu_cash->temp_item);
            //set_int_param(CONTRAST, (unsigned char)mms->menu_cash->temp_item->var1);
            //set_contrast (get_int_param (CONTRAST));
            } 
        if  ((mms->menu_cash->temp_item->d_type == VAR_DIGITS)||
            (mms->menu_cash->temp_item->d_type == CODE_ITEM)||
                (mms->menu_cash->temp_item->d_type == TIME_MHS)||
                     (mms->menu_cash->temp_item->d_type == DATE_YMD))
                {
                if (mms->menu_cash->temp_item->digits_index>RIGHT_END_CURSOR)
                    mms->menu_cash->temp_item->digits_index--;
                display_m_var (mms->menu_cash->temp_item, 3,NUMBER_D_DIG-mms->menu_cash->temp_item->digits_printed);
                show_editor(mms->menu_cash->temp_item);
                };
        }
}
 
void undo_down_event (mm_handler mms)
{
 if (mms->multi_item_mode == MULTI_ITEM_MODE)  {
    if (mms->menu_cash->cash_code!=10)
        {
                if (mstk_pop(mms) != STACK_OK) fatal_message (MENU_STACK_ERROR);           
                make_items_list (mms->menu_cash);              
                read_one_item (mms->menu_cash);                
                mms->menu_cash->full_item_code =  mms->cash_index;             
                display_menu(mms);
        } else set_menu_mode (D_NO_MENU_MODE);
    } else {
           
           if (mms->edit_mode == READER_MODE) 
            {
            mms->multi_item_mode = MULTI_ITEM_MODE;
            display_menu(mms);
            };
           if (mms->edit_mode == EDITOR_MODE)
            {
                params[mms->menu_cash->temp_item->address] =  mms->temp_value;
                if ((mms->menu_cash->temp_item->d_type==DATE_YMD)||(mms->menu_cash->temp_item->d_type==TIME_MHS)) {
                    mms->menu_cash->temp_item->var1 = mms->temp_value;
                    mms->menu_cash->temp_item->var2 = mms->temp_value2;
                    }
                    else mms->menu_cash->temp_item->var1 = mms->temp_value;
                
            display_menu(mms);
            mms->edit_mode = READER_MODE; 
            
                if (mms->menu_cash->temp_item->d_type == NO_DISP_ITEM) {
                //  set_int_param(CONTRAST, (unsigned char)mms->menu_cash->temp_item->var1);
                //  set_contrast (get_int_param (CONTRAST));
                }
                    
            }
            send_command(0x0c);
         };
}
 
#define ENTER_READ_VALS     if ((mms->menu_cash->temp_item->d_type==DATE_YMD)||(mms->menu_cash->temp_item->d_type==TIME_MHS)) {\
            mms->temp_value = params[mms->menu_cash->temp_item->address];\
            mms->menu_cash->temp_item->var1 = mms->temp_value; \
            mms->temp_value2 = params[(mms->menu_cash->temp_item->address+1)];\
            mms->menu_cash->temp_item->var2 = mms->temp_value2;\
            } else {\
                mms->temp_value = params[mms->menu_cash->temp_item->address];\
                mms->menu_cash->temp_item->var1 = mms->temp_value;\
                if ((unsigned int)(mms->menu_cash->temp_item->max) < (unsigned int)mms->menu_cash->temp_item->var1) {\
                mms->menu_cash->temp_item->var1 = mms->menu_cash->temp_item->max;\
                };\
                            if ((int)(mms->menu_cash->temp_item->min) >  (int)mms->menu_cash->temp_item->var1) {\
                mms->menu_cash->temp_item->var1 = mms->menu_cash->temp_item->min;\
                };\
                }
 
void enter_down_event (mm_handler mms)
{
xdata  unsigned int jump_code;
 unsigned int dtemp;
 
  if (mms->multi_item_mode == MULTI_ITEM_MODE) {    
    mms->menu_cash->full_item_code =  mms->cursor_index;
    read_one_item (mms->menu_cash);
 
    if (mms->menu_cash->temp_item->el_type==NODE_ITEM)
        {
        if (mstk_push(mms) != STACK_OK) fatal_message (MENU_STACK_ERROR);
        jump_code = mms->menu_cash->temp_item->jump;
        mms->menu_cash->cash_code = jump_code;
        make_items_list (mms->menu_cash);
        if (mms->menu_cash->num_elems == 0) 
            {
             if (mstk_pop(mms) != STACK_OK) fatal_message (MENU_STACK_ERROR);
             
             make_items_list (mms->menu_cash);             
                     read_one_item (mms->menu_cash);               
                     mms->menu_cash->full_item_code =  mms->cash_index;
            } else {
 
                mms->display_index=0;
                mms->cursor_index=0;
                mms->cash_index=0;
                mms->multi_item_mode = MULTI_ITEM_MODE; // check it later
                       };   
            
        display_menu(mms);
        return;
        }
        else {
            mms->multi_item_mode = ONE_ITEM_MODE;
            mms->edit_mode = READER_MODE;
            display_menu(mms);
            return;
        };
     };
     
 if ((mms->multi_item_mode == ONE_ITEM_MODE)&&(get_acces_level(mms->menu_cash->temp_item)==READ_WRITE_PARAM)  )
    {
    send_command(0x0f);
    if (mms->edit_mode == READER_MODE) {
         mms->menu_cash->full_item_code =  mms->cursor_index;
         read_one_item (mms->menu_cash);         
        
        mms->edit_mode = EDITOR_MODE;
        
        ENTER_READ_VALS;        
        
        if (mms->menu_cash->temp_item->d_type == DATE_YMD) mms->menu_cash->temp_item->digits_index = LEFT_END_CUR_DATE;
                    else mms->menu_cash->temp_item->digits_index = 0;
 
        display_m_var (mms->menu_cash->temp_item, 3,0);
        display_m_var (mms->menu_cash->temp_item, 3,NUMBER_D_DIG-mms->menu_cash->temp_item->digits_printed);
        show_editor(mms->menu_cash->temp_item);
        
        } else if (mms->edit_mode == EDITOR_MODE) {
            if ((mms->menu_cash->temp_item->d_type==DATE_YMD)||(mms->menu_cash->temp_item->d_type==TIME_MHS)) {
 
                if (mms->menu_cash->temp_item->d_type==DATE_YMD) {
                            WriteGod(mms->menu_cash->temp_item->var1 + 2000);
                            dtemp = 100*((mms->menu_cash->temp_item->var2)&0x00ff);
                            dtemp += (mms->menu_cash->temp_item->var2 >>8);
                            WriteData(dtemp);
                            }
 
                if (mms->menu_cash->temp_item->d_type==TIME_MHS) {
                            dtemp = mms->menu_cash->temp_item->var1;
                            dtemp = mms->menu_cash->temp_item->var2;
                            dtemp = 100*mms->menu_cash->temp_item->var1 + (mms->menu_cash->temp_item->var2 >> 8);
                            WriteTime(dtemp);
                            }
 
                        params[TIMEHR]=ReadTime();
                        params[DATAHR]=ReadData();
                        params[GODHR]=ReadGod();
 
                        params[90] = params[TIMEHR]/100;
                        params[91] = ((params[TIMEHR]%100) << 8);
 
                        params[92] = params[GODHR] - 2000;
                        params[93] = ((params[DATAHR]/100)|(params[DATAHR]%100)<<8);
 
                } else {
 
                save_setpc (mms->menu_cash->temp_item->address, 
                                params[mms->menu_cash->temp_item->address], 
                                mms->menu_cash->temp_item->var1);
 
                params[mms->menu_cash->temp_item->address] = mms->menu_cash->temp_item->var1;
 
                if (params[52] > params[57]) params[52] = params [57]-1;
                }
            ENTER_READ_VALS;
            hide_editor(mms->menu_cash->temp_item);
            mms->edit_mode = READER_MODE;
 
            if ((mms->menu_cash->temp_item->address == 53)&&(params[mms->menu_cash->temp_item->address]!=0)) 
                    {
                     save_singnat(7908);
                     access_level = LOW_ACCESS_LEVEL;
                     display_menu(mms);
                    }
            if (mms->menu_cash->temp_item->address == 65) {
                   switch (params[65]) {
                           case 0:
                                Port0_Set_Br(_9600b);
                                break;
                           case 1:
                                Port0_Set_Br(_19200b);
                                break;
                           case 2:
                                Port0_Set_Br(_57600b);
                                break;
                           case 3:
                                Port0_Set_Br(_115200b);
                                break;
                           default:
                                Port0_Set_Br(_19200b);
                                break;
                           }
                }
            save_setpoint ();
            save_setpoints();
            }
    };
}
 
 
 
void run_down_event (mm_handler mms)
{
 params[MENABLE] = 1;
 save_enable(1);
 access_level = LOW_ACCESS_LEVEL;
 save_event (SET_ON_E);
 menu_mode=D_NO_MENU_MODE;
 
}
 
void stop_down_event (mm_handler mms)
{
 
 if (params[MENABLE]!=0) {
     params[MENABLE] = 0;
     params[WRONG_START] = 0;
     params[AUTO_STOP] = 0;
     params[HAND_STOP] = 1;
     save_enable(0);
     params[98] = 7;
     save_event (0);
    }
 menu_mode=D_NO_MENU_MODE;      
}
 
void key_events_manager(mm_handler mms)
{
 
  if (access_level == LOW_ACCESS_LEVEL)
    {
      if ((params[1] == params[53])||(params[1]==4321)) {
                access_level = MIDDLE_ACCESS_LEVEL;
                params[1] = 0;
                display_menu(mms);
                 //save_event (PASSWORD_E);
                }
                else access_level = LOW_ACCESS_LEVEL;
    }
 
   if (menu_mode==D_MENU_MODE){
 
        if  (get_pressed(K_UP)==K_EVENT) {
                    clear_pressed (K_UP);
                    up_arrow_down_event (mms);
                              };        
 
        if  (get_pressed(K_DOWN)==K_EVENT) {
                    clear_pressed (K_DOWN);
                    down_arrow_down_event (mms);
                              };        
 
        if  (get_pressed(K_LEFT)==K_EVENT) {
                    clear_pressed (K_LEFT);
                    left_arrow_down_event (mms);
                              };        
 
        if  (get_pressed(K_RIGHT)==K_EVENT) {
                    clear_pressed (K_RIGHT);
                    right_arrow_down_event (mms);
                              };        
 
        if  (get_pressed(K_ENTER)==K_EVENT) {
                    clear_pressed (K_ENTER);
                    enter_down_event (mms);
                    delay (10000);
                    clear_pressed (K_ENTER);
                              };        
 
        if  (get_pressed(K_UNDO)==K_EVENT) {
                                if (mms->menu_cash->cash_code!=10)
                                    {
                                        clear_pressed (K_UNDO);
                                        undo_down_event (mms);
                                        send_command(0x0c);
                                    } else menu_mode=D_NO_MENU_MODE;
                                delay (10000);
                                clear_pressed (K_UNDO);
                              };        
 
        if  (get_pressed(K_RUN)==K_EVENT) {
                    clear_pressed (K_RUN);
                    run_down_event (mms);
                    d_state = 0;
                              };    
    
 
        if  (get_pressed(K_STOP)==K_EVENT) {
                    clear_pressed (K_STOP);
                    stop_down_event (mms);
                    d_state = 0;
                              };    
        //if (mms->edit_mode == EDITOR_MODE) work_in_hold_mode(mms);
    
        // make dynamic variables form
        if (get_r_t_stat ()==RT_DISP) if (check_time_event( _400MS_EVENT)) display_menu(mms); 
        } else {
 
            if  (get_pressed(K_UNDO)==K_EVENT) {        
                            clear_pressed (K_UNDO);
                            menu_mode=D_MENU_MODE;
                            display_menu(mms);
                            send_command(0x0c);
                            d_state = 0; 
                            }
            if (check_time_event( _400MS_EVENT)) {
                    
                    if (params[ENABLE]!=0)  { display_run_m (); d_state = 1;}
                        else {
                             if (d_state!=2) { d_state = 2; display_wait_m();}
                            }
                    }
    
            if  (get_pressed(K_RUN)==K_EVENT) {
                    clear_pressed (K_RUN);
                    run_down_event (mms);
                    d_state = 0;
                              };        
 
            if  (get_pressed(K_STOP)==K_EVENT) {
                    clear_pressed (K_STOP);
                    stop_down_event (mms);
                    d_state = 0;
                              };    
 
        }
 
}