БЭМЗ полищук доки / mogilev yst / МК7007БМ / INIT

/*”г­ЄжЁп Ё­ЁжЁ «Ё§ жЁЁ ЊЉ7007Ѓ 60Ђ 
      Copyright (c) ЃҐ«Ё«м­ЁЄ®ў ‚.„. ¬ ав 2009Ј. 䥢ࠫм 2010Ј. */

         /*Ї®¤Є«о祭ЁҐ § Ј®«®ўЄ®ў ў­гв७­Ёе ॣЁбва®ў 80‘31*/
#include <io51.h>
         /*Ї®¤Є«о祭ЁҐ § Ј®«®ўЄ®ў ЎЁЎ«Ё®вҐз­ле дг­ЄжЁ©*/
#include <stdlib.h>

extern  void delayi(char);            /*§ ¤Ґа¦Є  б Єў ­в®¬ 10¬б*/
extern  void delay1(char);            /*§ ¤Ґа¦Є  б Єў ­в®¬ 1б*/
extern  void wait_ind(void);          /*®¦Ё¤ ­ЁҐ Ј®в-вЁ Ё­¤ЁЄ в®а */
extern  void init_sint(char);         /*Ё­ЁжЁ «Ё§ жЁп ᨭ⥧ в®а®ў*/
extern  void loadcwu(void);           /*§ Јаг§Є  гЇа.б«®ў  ў ᨭ⥧ в®а U*/
extern  void loadcwi(void);           /*§ Јаг§Є  гЇа.б«®ў  ў ᨭ⥧ в®а I*/
extern  void sw_on_u(float,float,float,char);
extern  void sw_on_i(float,float,float,char);

         /*®ЇаҐ¤Ґ«Ґ­ЁҐ  ¤аҐб®ў гбва®©бвў ўў®¤ -ўлў®¤ */
#define ind_read_write (*(char*) 0x014000) /*§ ЇЁбм Ё з⥭ЁҐ Ё­¤ЁЄ в®а */
#define wrled_rdk1     (*(char*) 0x014800) /*§ ЇЁбм ў ॣЁбва ᢥ⮤Ё®¤®ў
                                            Ё з⥭ЁҐ 1-Ј® Ў ©в  Є« ўЁ вгал*/
#define wrreg_rdk2     (*(char*) 0x015000) /*§ ЇЁбм ў ॣЁбва гЇа ў«Ґ­Ёп 
                                            Ё з⥭ЁҐ 2-Ј® Ў ©в  Є« ўЁ вгал*/

/*®ЇЁб ­ЁҐ ЇҐаҐ¬Ґ­­ле*/
extern unsigned char i;
extern unsigned char ireg_led;

/*--------------------------------------------------------------------------*/
void init(void)
{
/*Ё­ЁжЁ «Ё§ жЁп ᨭ⥧ в®а®ў*/
		 cwu0=0;cwu1=0;loadcwu();
		 cwi0=0;cwi1=0;cwi1.0=1;loadcwi();

             wrreg_rdk2=0;   /*®Ў­г«Ґ­ЁҐ ॣЁбва  гЇа ў«Ґ­Ёп*/

         sw_on_i(0,0,60,1);  /*Ё­ЁжЁ «Ё§ жЁп –ЂЏ  ¬Ї«Ёвг¤л*/
         sw_on_u(0,0,264,1); /*Ё­ЁжЁ «Ё§ жЁп –ЂЏ  ¬Ї«Ёвг¤л*/
                  
             delay1(3);           /*§ ¤Ґа¦Є  3 ᥪ.*/

		 cwu0.4=1;loadcwu();    /*ўЄ«о祭ЁҐ +/-50V*/
		 cwi1.1=1;loadcwi();    /*ўЄ«о祭ЁҐ +/-50V*/
         
             delay1(2);	          /*§ ¤Ґа¦Є  2 ᥪ.*/

             P1.0=1;

         /*Ё­ЁжЁ «Ё§ жЁп в ©¬Ґа®ў*/
		 TMOD=0x21;            /*в ©¬Ґа 0 - 16-вЁ ЎЁв­л© в ©¬Ґа*/
		 TL1=0xf5;             /*в ©¬Ґа 1 - 8 ЎЁв­л©  ўв®ЇҐаҐ§ Јаг¦ Ґ¬л©*/
		 TH1=0xf5;             /*§ Јаг¦ Ґ¬®Ґ зЁб«®  234 0xea 1200*/ 
                                   /*§ Јаг¦ Ґ¬®Ґ зЁб«®  245 0xf5 2400*/                   
		 TR1=1;    /*ЇгбЄ ’1, Ў®¤®ў п з бв®в  1183,71 ѓж, ЇаЁ Єў ажҐ 10Њѓж*/
                       /*ЇгбЄ ’1, Ў®¤®ў п з бв®в  2367,42 ѓж, ЇаЁ Єў ажҐ 10Њѓж*/
	       T2CON=0x00;           /*в ©¬Ґа 2 - 16 ЎЁв­л©  ўв®ЇҐаҐ§ Јаг¦ Ґ¬л©*/
		 T2MOD=0x02;
		 RCAP2H=0xff;
		 RCAP2L=0xf4;
		 TH2=0xff;
		 TL2=0xf4;   /*’2, з бв®в  208333,3 ѓж, ЇаЁ Єў ажҐ 10Њѓж*/
             TR2=1;

         /*Ё­ЁжЁ «Ё§ жЁп Ё­¤ЁЄ в®а®ў*/
         P1.5 = 0;              /*гбв ­®ўЄ  Є®¬ ­¤л § ЇЁбм Ё­¤ЁЄ в®а */
         P1.6 = 0;              /*ўлЎ®а ॣЁбва  Є®¬ ­¤ Ё­¤ЁЄ в®а */
         delayi(2);
         ind_read_write = 0x38; /*Ё­вҐа䥩б 8 ЎЁв, 2 бва®ЄЁ, бЁ¬ў®«5*7 в®зҐЄ*/
         delayi(1);
         ind_read_write = 0x38; /*Ё­вҐа䥩б 8 ЎЁв, 2 бва®ЄЁ, бЁ¬ў®« 5*7 в®зҐЄ*/
         delayi(20);
         ind_read_write = 0x38; /*Ё­вҐа䥩б 8 ЎЁв, 2 бва®ЄЁ, бЁ¬ў®« 5*7 в®зҐЄ*/
         wait_ind();
         P1.5 = 0;              /*гбв ­®ўЄ  Є®¬ ­¤л § ЇЁбм Ё­¤ЁЄ в®а */
         ind_read_write = 0x38; /*Ё­вҐа䥩б 8 ЎЁв, 2 бва®ЄЁ, бЁ¬ў®« 5*7 в®зҐЄ*/
         wait_ind();
         P1.5 = 0;              /*гбв ­®ўЄ  Є®¬ ­¤л § ЇЁбм Ё­¤ЁЄ в®а */
         ind_read_write = 0x08; /*ўлЄ«о祭ЁҐ ¤ЁбЇ«Ґп*/
         wait_ind();
         P1.5 = 0;              /*гбв ­®ўЄ  Є®¬ ­¤л § ЇЁбм Ё­¤ЁЄ в®а */
         ind_read_write = 0x01; /*®зЁбвЄ  ¤ЁбЇ«Ґп*/
         wait_ind();
         P1.5 = 0;              /*гбв ­®ўЄ  Є®¬ ­¤л § ЇЁбм Ё­¤ЁЄ в®а */
         ind_read_write = 0x06; /*Ё­ЄаҐ¬Ґ­в ¤ ­­ле Ћ‡“, ­Ґв б¤ўЁЈ  ¤ЁбЇ«Ґп*/
         /*Є®­Ґж Ё­ЁжЁ «Ё§ жЁЁ Ё­¤ЁЄ в®а */
		 
         P1.7=1;                 /*бЎа®б Њ‚€Џ*/
         delay1(1);	         /*§ ¤Ґа¦Є  1 ᥪ.*/
         P1.7=0;                 /*а §аҐиҐ­ЁҐ Њ‚€Џ*/

/*Ё­ЁжЁ «Ё§ жЁп Ї®б«Ґ¤®ў вҐ«м­®Ј® Ї®ав  */
	   SCON=0x50;              /*०Ё¬ 1, ЇаЁҐ¬ а §аҐиҐ­*/

	   ireg_led=0xf7;
	   wrled_rdk1=ireg_led;    /*ўЄ«озЁвм ᢥ⮤Ё®¤ "‘’ЋЏ"*/

         init_sint(0x01);
         init_sint(0x10);
}