| /Designs/HAM Constructions/HF_TRAMP/FW/V1_6/VFO.C |
|---|
| 0,0 → 1,1558 |
| //********************************************************************** |
| // program pro rizeni TRXu |
| //********************************************************************** |
| // (c) OK1XGL 2005 |
| // verze 1.0.0 - uvodni verze |
| // verze 1.0.1 - prechod 16F877 a usazeni sibnalu na porty |
| // verze 1.0.2 = odladeni zakladnich funkci - muzeme delat tistak |
| // verze 1.0.3 - definitivni usazeni signalu - hotovy DPS |
| // verze 1.0.4 - prvni pouzitelna verze |
| // verze 1.1.0 - SIGNAL ATN1 PRESUNUT NA RE0 A SIGNAL ATN2 PRESUNUT NA RC0 !!!!! |
| // verze 1.2.0 - doprobramovan jednopakovy klic |
| // verze 1.3.0 - elbug zmenen na dvoupakovy a cely presunut do preruseni |
| // verze 1.4.0 - po zapnuti se RX naladi na QRP kmitocet na danem pasmu |
| // - PSV se povazuje za platne jen kdyz je skutecne zaklicovano |
| // verze 1.5.0 - upraven zpusob cteni dat z AD prevodniku |
| // - pwm rozsirena na 157 kroku |
| // - doplneno ALC pro vykon a nastaveni vykonu v 0.5W jednotkach |
| // verze 1.6.0 - provedena kalibrace S-metru |
| // Poznamky: |
| // zobrazeni kmitoctu na LCD trva 30ms !!! |
| // pri rychlosti klicovani 200zn/s je sirka impulzu (tecka) cca 30ms |
| // timer2 vyhrazen na generovani tonu a ma nastaven kmitocet 800Hz, ton se generuje PWM, rizeni vykonu tez PWM 800Hz je baze |
| // timer 1 vyhrazen pro elbug |
| //DODELAT: - pri BK provozu je treba, aby se pri prepnuti na prjem mezi elementy znacky nezobrazoval S-metr, protoze |
| // se to tak rychle nestiha zobrazovat a je lepsi,aby se zobrazovalo stale psv a vykon. Nyni je toho dosazeno tak, |
| // ze pokud je aktivni elbug, tak se zobrazeni nedela ovsem toto reseni nebude fungovat pri externim elbugu |
| // spravne reseni je timerem, ktery bude vykryvat cas mezi znackami |
| // - projit kod a nektere veci ucesat |
| #include "vfo.h" |
| #include <lcd.c> |
| //#define ADC_LCD // misto obvyklych udaju zobrazuje hodnoty AD prevodniku |
| //#define NO_FILTER_CONTROL // vyrazuje prubeznou kontrolu pritomnosti filtru pro prislusne pasmo |
| /////////// FUNKCE PRO ZOBRAZOVANI NA LCD ///////// |
| // podpora zobrazeni RIT |
| // POZOR: pred pouzitim je nutno vynulovat promennou lcd_pos !!! |
| void rit_lcd_putc(int8 c) |
| { |
| lcd_pos++; |
| if(lcd_pos==2) lcd_putc('.'); // prida tecku za KHZ |
| lcd_putc(c); |
| } // rit_lcd_putc |
| // podpora zobrazeni kmitoctu VFO |
| // POZOR: pred pouzitim je nutno vynulovat promennou lcd_pos !!! |
| void vfo_lcd_putc(int8 c) |
| { |
| lcd_pos++; |
| // za MHz dopln pismenko VFO |
| if(lcd_pos==3) |
| if(vfo_index) |
| if(bit_test(_SPLIT)) lcd_putc('\21'); // vyplnene b |
| else lcd_putc('b'); |
| else if(bit_test(_SPLIT)) lcd_putc('\22'); // vyplnene a |
| else lcd_putc('a'); |
| // za KHz dopln tecku |
| if(lcd_pos==6) |
| if(step_index) lcd_putc(':'); // hrube ladeni |
| else lcd_putc('.'); // jemne ladeni |
| lcd_putc(c); |
| } //vfo_lcd_putc |
| // podpora zobrazeni vykonu a psv |
| // POZOR: pred pouzitim je nutno vynulovat promennou lcd_pos !!! |
| void pwr_lcd_putc(int8 c) |
| { |
| lcd_pos++; |
| if(lcd_pos==2) lcd_putc('.'); |
| lcd_putc(c); |
| } // pwr_lcd_putc |
| // podpora zobrazeni napeti baterie |
| // POZOR: pred pouzitim je nutno vynulovat promennou lcd_pos !!! |
| void batt_lcd_putc(int8 c) |
| { |
| lcd_pos++; |
| if(lcd_pos==3) lcd_putc('.'); |
| lcd_putc(c); |
| } // batt_lcd_putc |
| /////////// FUNKCE PRO PRACI S DDS ///////// |
| // odesle 16 bitovy zaznam do DDS |
| // |
| void dds_send(int16 record) |
| { |
| int8 i; |
| #use fast_io(A) |
| #use fast_io(B) |
| #use fast_io(C) |
| #use fast_io(D) |
| output_low(DDS_FSYNC); // zacatek komunikace s DDS |
| i=16; |
| do |
| { |
| if(bit_test(record,15)) output_high(DDS_SDATA); // vystav datovy bit, zaciname MSB |
| else output_low(DDS_SDATA); |
| output_low(DDS_SCK); // hodinovy impulz |
| output_high(DDS_SCK); |
| record=record<<1; // na dalsi bit |
| } while(--i); |
| output_high(DDS_FSYNC); // konec komunikace s DDS |
| #use standard_io(A) |
| #use standard_io(B) |
| #use standard_io(C) |
| #use standard_io(D) |
| } // dds_send |
| // naplni registr0 pro kmitocet v DDS (28 bitu) |
| // |
| void dds_freq0(int32 freq) |
| { |
| int16 record; |
| // posli ridici slovo |
| dds_send(CTRL_FREQ0); |
| // zapis pozadovane frekvence |
| // zapis LSB |
| record=(int16)freq; |
| bit_set(record,14); // zapis do frekvencniho registru 0 |
| bit_clear(record,15); |
| dds_send(record); |
| // zapis MSB |
| record=(int16)((freq<<2)>>16); // divny zapis, ale >> 14 dava hrozny vysledek |
| bit_set(record,14); // zapis do frekvencniho registru 0 |
| bit_clear(record,15); |
| dds_send(record); |
| } // dds_freq0 |
| /////////// FUNKCE PRO RIZENI PRIPOSLECHU ///////// |
| // vypne generovani tonu priposlechu |
| // |
| #inline |
| void tone_off() |
| { |
| int8 a; |
| a=input(TONE); |
| } // tone_off() |
| // zapne generovani tonu priposlechu |
| // |
| #inline |
| void tone_on() |
| { |
| output_low(TONE); |
| } // tone_on |
| ///////////////////////////////// |
| // Prerusovaci rutiny |
| ///////////////////////////////// |
| // rezie preruseni je cca 30+30 cyklu |
| // preruseni od zmeny polohy kroutitka |
| #int_EXT |
| void Encoder_handler() |
| { |
| #use fast_io(a) |
| #use fast_io(b) |
| #use fast_io(c) |
| #use fast_io(d) |
| int1 dir; |
| dir=input(ENCODER_DIR); // zapamatuj si smer krouceni |
| bit_set(_ENC_CHNG); // oznam zmenu polohy kroutitka |
| if(dir) enc_delta++; // pridej |
| else enc_delta--; // uber |
| #use standard_io(a) |
| #use standard_io(b) |
| #use standard_io(c) |
| #use standard_io(d) |
| } // Encoder_handler |
| // periodicke tiky, granularita TICK_TIME |
| // citace/ casovace se granularitou TICK_TIME |
| #INT_TIMER0 |
| void Tick_handler() |
| { |
| #use fast_io(a) |
| #use fast_io(b) |
| #use fast_io(c) |
| #use fast_io(d) |
| set_timer0(TICK_TIME); // znovu natahni timer |
| // mereni napeti z prevodniku |
| if(bit_test(_ADC_START)) |
| { |
| read_adc(ADC_START_ONLY); // spust prevod |
| bit_clear(_ADC_START); // priste budeme cist vysledek |
| } else |
| { |
| adc_val=read_adc(ADC_READ_ONLY); // vyzvedni vysledek |
| if(bit_test(_KEYING)) // hodnoty vykonu aktualizuj jen pokud je zaklicovano |
| { |
| if(adc_ch==1) fwd_val=adc_val; |
| if(adc_ch==0) rev_val=adc_val; |
| } |
| if(adc_ch==2) batt_val=adc_val; |
| else if(adc_ch==3) smtr_val=adc_val; |
| else if(adc_ch==4) bnd_val=adc_val; |
| if(adc_ch>=4) adc_ch=0; // mame 5 kanalu |
| else adc_ch++; |
| set_adc_channel(adc_ch); // priste nasledujici kanal |
| bit_set(_ADC_START); // priste budeme spoustet prevod |
| } |
| // klicovani |
| if(bit_test(_TXDELAY)) // jen pokud tx_delay vyprsel |
| { |
| if(!bit_test(_ELBUG_ON)) |
| keyer=(~input_b()) & 0b10000000; // pokud neni zapnut elbug, zavzorkuj stav klice |
| if((keyer!=0 && !bit_test(_ELBUG_ON)) || // pri vypnutem elbugu rizeno stavem pak |
| (bit_test(_ELBUG_OUT) && bit_test(_ELBUG_ON))) // pri zapnutem elbugu rizeno stavem _ELBUG_ON |
| { |
| // zaklicuj |
| output_high(KEYING); |
| tone_on(); |
| bit_clear(_RUN_VOX); |
| bit_set(_KEYING); |
| adc_ch=0; // zacneme merit dopredny vykon |
| set_adc_channel(adc_ch); |
| bit_set(_ADC_START); // priste spustime prevod ADC |
| } else |
| { |
| // prestan klicovat |
| output_low(KEYING); |
| vox_timer=vox_time; // natahni vox_timer |
| bit_set(_RUN_VOX); |
| tone_off(); |
| bit_clear(_KEYING); |
| } |
| bit_clear(_TXDELAY); |
| } |
| // periodicky timer na aktualizaci kde ceho |
| if(update_timer==0xFF) update_timer=UPDATE_TIME; |
| else update_timer--; |
| // vox timer |
| if(bit_test(_RUN_VOX)) |
| if(vox_timer!=0) vox_timer--; |
| else |
| { |
| // vox vyprsel |
| bit_clear(_RUN_VOX); |
| output_low(RXTX); // prepni zpet na prijem |
| bit_clear(_TRANSMIT); |
| bit_set(_DDS_UPDATE); |
| } |
| // timer pro zjisteni dlouheho stisku tlacitek |
| if(key_timer!=0) key_timer--; |
| // periodicke cteni tlacitek |
| #use fast_io(C) |
| keys_work=(~input_c()) & KEY_MASK; // precti stav tlacitek |
| #use standard_io(C) |
| if(keys_work!=keys_old) keys_old=keys_work; // neshoda zapamatuj si novy stav |
| else |
| { |
| // shoda |
| if(keys_work!=0) |
| { |
| // tlacitko je STISKNUTO |
| if(keys==0) |
| { |
| // akceptujeme jen pokud bylo zpracovano vse predchozi |
| keys=keys_work; // zapamatuj si nove tlacitko |
| key_timer=KEY_LONG; // natahni casovac pro zjisteni dlouheho stisku |
| } else |
| { |
| // neco je jeste ke zpracovani |
| if(key_timer==0 && !bit_test(_KEYS_RELEASE)) |
| { |
| // jde o dlouhy stisk tlacitka |
| bit_set(_KEYS_LONG); |
| bit_set(_KEYS_VALID); |
| } |
| } |
| } else |
| { |
| // tlacitko je UVOLNENO |
| if(key_timer!=0) |
| { |
| // jde o kratky stisk tlacitka |
| bit_set(_KEYS_VALID); |
| key_timer=0; |
| } else if(bit_test(_KEYS_RELEASE)) |
| { |
| keys_flags=0; // jde o klidovy stav - tlacitka zpracovana |
| keys=0; |
| } |
| } |
| } |
| #use standard_io(a) |
| #use standard_io(b) |
| #use standard_io(c) |
| #use standard_io(d) |
| } // Tick_handler |
| // periodicke tiky kazdych 5ms |
| // vyuzito pro rizeli LCD_LED |
| // |
| #INT_TIMER2 |
| void led_handler() |
| { |
| #use fast_io(a) |
| #use fast_io(b) |
| #use fast_io(c) |
| #use fast_io(d) |
| flash_timer++; |
| // rizeni LED |
| // pri prijmu bez attenuatoru sviti zelena |
| // pri prijmu s attenuatorem sviti zluta |
| // pri vysilani sviti cervena |
| // pri vybite baterii pri prijmu led blika |
| if(bit_test(_TRANSMIT)) |
| { |
| // vysilani - rozsvid cervenou LED |
| if(bit_test(_LED_UPDATE)) output_high(LCD_LED1); |
| else output_low(LCD_LED1); |
| output_low(LCD_LED2); |
| } else |
| { |
| if(bit_test(_BATT_LOW) && bit_test(flash_timer,7)) |
| { |
| // zhasni led |
| output_low(LCD_LED1); |
| output_low(LCD_LED2); |
| } else |
| { |
| // prijem - rozsvid zelenou nebo zlutou led |
| if(bit_test(_LED_UPDATE)) |
| { |
| output_high(LCD_LED2); |
| output_low(LCD_LED1); |
| } else |
| { |
| output_low(LCD_LED2); |
| if(bit_test(_ATTN)) output_high(LCD_LED1); |
| else output_low(LCD_LED1); |
| } |
| } |
| } |
| if(bit_test(_LED_UPDATE)) bit_clear(_LED_UPDATE); |
| else bit_set(_LED_UPDATE); |
| #use standard_io(a) |
| #use standard_io(b) |
| #use standard_io(c) |
| #use standard_io(d) |
| } // led_handler |
| // cteni pak, klice |
| #INT_RB |
| void paddle_handler() |
| { |
| #use fast_io(a) |
| #use fast_io(b) |
| #use fast_io(c) |
| #use fast_io(d) |
| keyerb=(~input_b()); // precti stav pak |
| if(bit_test(_ELBUG_ON)) keyerb=keyerb & 0b11000000; // platne jsou obe paky |
| else keyerb=keyerb & 0b10000000; // platna je paka tecek |
| if(!bit_test(_TXDELAY)) // reagujeme jen kdyz nebezi TXDELAY |
| { |
| if(!bit_test(_ELBUG_ON)) |
| { |
| // RUCNI KLICOVANI |
| set_timer0(TICK_TIME); // txdelay je dano jednim zakladnim tikem, natahni tik |
| _T0IF=0; |
| bit_set(_TXDELAY); // spustime TXDELAY |
| } else |
| { |
| // ELBUG |
| // nastav priznaky pak |
| if(bit_test(_ELBUG_REV)) |
| { |
| if(bit_test(keyerb,6)) bit_set(_ELBUG_DOT); |
| if(bit_test(keyerb,7)) bit_set(_ELBUG_DASH); |
| } else |
| { |
| if(bit_test(keyerb,7)) bit_set(_ELBUG_DOT); |
| if(bit_test(keyerb,6)) bit_set(_ELBUG_DASH); |
| } |
| if(!bit_test(_ELBUG_BSY)) |
| { |
| // spusteni elbugu |
| setup_timer_1(T1_INTERNAL | T1_DIV_BY_8); // spust casovac |
| _TMR1IF=1; |
| } |
| } |
| if(!bit_test(_TRANSMIT) && keyerb!=0) // pri stisku pak prejdeme na vysilani pokud tomu jiz tak neni |
| { |
| bit_set(_TRANSMIT); // priznak stavu vysilani |
| output_high(RXTX); // prepni TRX na vysilani |
| bit_set(_DDS_UPDATE); // nastav vysilaci kmitocet |
| } |
| } |
| #use standard_io(a) |
| #use standard_io(b) |
| #use standard_io(c) |
| #use standard_io(d) |
| } // paddle_handler |
| // elbug |
| // |
| #int_timer1 |
| void elbug_handler() |
| { |
| #use fast_io(a) |
| #use fast_io(b) |
| #use fast_io(c) |
| #use fast_io(d) |
| if(bit_test(_ELBUG_SP)) |
| { |
| // odvysilali jsem tecku nebo carku - musime dovysilat mezeru |
| bit_clear(_ELBUG_SP); // priste budeme vysilat podle stavu pak |
| bit_clear(_ELBUG_OUT); |
| set_timer1(elbug_dot_sp); // natahni casovac na mezeru |
| set_timer0(TICK_TIME); // txdelay je dano jednim zakladnim tikem, natahni tik |
| _T0IF=0; |
| bit_set(_TXDELAY); // spustime TXDELAY |
| return; |
| } |
| if(bit_test(_ELBUG_BSY)) |
| { |
| // odvysilali jsme posloupnost tecka-mezera nebo carka-mezera |
| // nuluj priznak prave dovysilaneho elementu |
| if(bit_test(_ELBUG_LAST)) bit_clear(_ELBUG_DASH); |
| else bit_clear(_ELBUG_DOT); |
| // dale se rozhodujeme podle stavu pak |
| keyer=(~input_b()) & 0b11000000; // precti stav pak |
| // nastav priznak pak podle stisknute paky |
| if(bit_test(_ELBUG_REV)) |
| { |
| if(bit_test(keyer,6)) bit_set(_ELBUG_DOT); |
| if(bit_test(keyer,7)) bit_set(_ELBUG_DASH); |
| } else |
| { |
| if(bit_test(keyer,7)) bit_set(_ELBUG_DOT); |
| if(bit_test(keyer,6)) bit_set(_ELBUG_DASH); |
| } |
| if(bit_test(_ELBUG_REAL) && keyer==0) // nestisknuto nic |
| { |
| // pri realnem klicovani po uvolneni pak se uz dal nic nevysila |
| bit_clear(_ELBUG_DOT); |
| bit_clear(_ELBUG_DASH); |
| } |
| } |
| // prepnuti na vysilani pokud tomu uz tak neni |
| if(!bit_test(_TRANSMIT) && |
| (bit_test(_ELBUG_DOT) || bit_test(_ELBUG_DASH))) |
| { |
| bit_set(_TRANSMIT); // priznak stavu vysilani |
| output_high(RXTX); // prepni TRX na vysilani |
| bit_set(_DDS_UPDATE); // nastav vysilaci kmitocet |
| } |
| // nastav hodnotu casovace podle stisknute paky |
| if(bit_test(_ELBUG_DOT)) |
| { |
| if(bit_test(_ELBUG_DASH)) |
| { |
| // stisknuty obe paky - vysilej opak priznaku LAST |
| if(bit_test(_ELBUG_LAST)) |
| { |
| bit_clear(_ELBUG_LAST); |
| set_timer1(elbug_dot_sp); // natahni casovac na tecku |
| } else |
| { |
| bit_set(_ELBUG_LAST); |
| set_timer1(elbug_dash); // natahni casovac na carku |
| } |
| } else |
| { |
| bit_clear(_ELBUG_LAST); |
| set_timer1(elbug_dot_sp); // natahni casovac na tecku |
| } |
| } else if(bit_test(_ELBUG_DASH)) |
| { |
| bit_set(_ELBUG_LAST); |
| set_timer1(elbug_dash); // natahni casovac na carku |
| } else |
| { |
| // NENI CO VYSILAT -KONCIME |
| bit_clear(_ELBUG_BSY); |
| setup_timer_1(T1_DISABLED); // zastav casovac |
| return; |
| } |
| bit_set(_ELBUG_BSY); // elbug bezi |
| bit_set(_ELBUG_SP); // priste musime vysilat mezeru |
| bit_set(_ELBUG_OUT); |
| set_timer0(TICK_TIME); // txdelay je dano jednim zakladnim tikem, natahni tik |
| _T0IF=0; |
| bit_set(_TXDELAY); // spustime TXDELAY |
| #use standard_io(a) |
| #use standard_io(b) |
| #use standard_io(c) |
| #use standard_io(d) |
| } // elbug_handler |
| /////////// FUNKCE PRO OVLADANI UTLUMU ///////// |
| // natavi utlum |
| // |
| void Attn_0dB() |
| { |
| output_low(ATN1); |
| output_low(ATN2); |
| output_high(ATNC); |
| delay_ms(RELE_PULSE); |
| input(ATNC); // prepni ANTC zpet do tretiho stavu (vstup) |
| delay_ms(RELE_PULSE); |
| input(ATN1); |
| input(ATN2); |
| } |
| // natavi utlum |
| // |
| void Attn_6dB() |
| { |
| output_high(ATN1); |
| output_low(ATNC); |
| delay_ms(RELE_PULSE); |
| input(ATNC); // prepni ANTC zpet do tretiho stavu (vstup) |
| output_low(ATN2); |
| output_high(ATNC); |
| delay_ms(RELE_PULSE); |
| input(ATNC); // prepni ANTC zpet do tretiho stavu (vstup) |
| delay_ms(RELE_PULSE); |
| input(ATN1); |
| input(ATN2); |
| } |
| // natavi utlum |
| // |
| void Attn_12dB() |
| { |
| output_low(ATN1); |
| output_high(ATNC); |
| delay_ms(RELE_PULSE); |
| input(ATNC); // prepni ANTC zpet do tretiho stavu (vstup) |
| output_high(ATN2); |
| output_low(ATNC); |
| delay_ms(RELE_PULSE); |
| input(ATNC); // prepni ANTC zpet do tretiho stavu (vstup) |
| delay_ms(RELE_PULSE); |
| input(ATN1); |
| input(ATN2); |
| } |
| // natavi utlum |
| // |
| void Attn_18dB() |
| { |
| output_high(ATN1); |
| output_high(ATN2); |
| output_low(ATNC); |
| delay_ms(RELE_PULSE); |
| input(ATNC); // prepni ANTC zpet do tretiho stavu (vstup) |
| delay_ms(RELE_PULSE); |
| input(ATN1); |
| input(ATN2); |
| } |
| /* |
| // precte z prevodnihu hornich 8 bitu |
| // |
| int8 adc() |
| { |
| return(read_adc()>>8) ; |
| } // adc |
| */ |
| /////////// FUNKCE PRO PRACI S EEPROM ///////// |
| // aktualizuje kontrolni soucet |
| // |
| void update_eeprom() |
| { |
| int8 i; |
| int8 crc; |
| crc=0; |
| for(i=0;i<EE_ADR_CRC;i++) crc+=read_eeprom(i); |
| crc=0-crc; |
| write_eeprom(EE_ADR_CRC,crc); |
| } // update_eeprom |
| // zkontroluje obsah pameti eeprom a pokud je poskozen, nAstavi defaultni parametry |
| // |
| void check_eeprom() |
| { |
| int8 i; |
| int8 crc; |
| crc=0; |
| for(i=0;i<=EE_ADR_CRC;i++) crc=crc+read_eeprom(i); |
| if(crc!=0) |
| { |
| i=EE_ADR_POWER; |
| while(i<BAND_NUM) write_eeprom(i++,PAR_LIMIT[PAR_POWER][0]); // minimalni vykon na vsech pasmech |
| write_eeprom(EE_ADR_KEYER,20); // nastaveno 20 WPM |
| write_eeprom(EE_ADR_VOX,6); // vox 300ms |
| write_eeprom(EE_ADR_BATT,0); // konstantni hodntota,dale se nemeni |
| write_eeprom(EE_ADR_KEYER_REV,0); // nereverzuj paky |
| write_eeprom(EE_ADR_KEYER_MODE,0); // doplnkove klicovani |
| write_eeprom(EE_ADR_ATTN,PAR_LIMIT[PAR_VOX][0]); // utlum vypnut |
| update_eeprom(); // aktualizuj kontorlni soucet |
| } |
| } // check_eeprom |
| ///////////////////////////////////// |
| // VYKONNE FUNKCE HLAVNI SMYCKY |
| ///////////////////////////////////// |
| // zpracovani zmeny polohy kroutitka |
| // trva max 600cyklu (600us) |
| // |
| // CHELO BY TO UCESAT POMOCI KONSTRUKCE IF - RETURN |
| #inline |
| void enc_chng() |
| { |
| int32 freq_dds; |
| signed int32 delta_freq; |
| signed int16 delta_rit; |
| if(bit_test(_MNU) || bit_test(_MNU2)) |
| { |
| // NASTAVUJEME PARAMETRY |
| if(enc_delta<ENC_HISTEREZE && enc_delta>-ENC_HISTEREZE) return; // zmeny pod minimum si nevsimej |
| if(enc_delta>0) |
| { |
| // nastala zmena +1 |
| if(bit_test(_MNU2)) |
| { |
| if(par_index<PAR_NUM-3) |
| { |
| par_index++; // zmena typu parametru pokud projde kontrola horni meze |
| bit_set(_LCD2_UPDATE); |
| } |
| } else if(par[par_index]<PAR_LIMIT[par_index][1]) // zmena hodnoty parametru pokud projde kontrola horni meze |
| { |
| par[par_index]++; |
| bit_set(_PAR_UPDATE); // pozadavek aktualizace parametru |
| } |
| } else |
| { |
| // nastala zmena -1 |
| if(bit_test(_MNU2)) |
| { |
| if(par_index>0) |
| { |
| par_index--; // zmena typu parametru pokud projde kontrola dolni meze |
| bit_set(_LCD2_UPDATE); |
| } |
| } else if(par[par_index]>PAR_LIMIT[par_index][0]) // zmena hodnoty parametru pokud projde kontrola dolni meze |
| { |
| par[par_index]--; |
| bit_set(_PAR_UPDATE); // pozadavek aktualizace parametru |
| } |
| } |
| enc_delta=0; // zmena provedena |
| } else |
| { |
| // LADIME KMITOCET |
| if(bit_test(_RIT)) |
| { |
| // ladime RIT |
| delta_rit=enc_delta*RIT_STEP; |
| enc_delta=0; |
| if(freq_rit+delta_rit <=RIT_LIMIT[1] && |
| freq_rit+delta_rit >=RIT_LIMIT[0]) freq_rit+=delta_rit; |
| } else |
| { |
| // ladime VFO |
| delta_freq=enc_delta*FREQ_STEP[step_index]; |
| enc_delta=0; |
| freq_dds=freq_vfo[vfo_index]+delta_freq; |
| if(freq_dds <=BAND_LIMIT[band_index][1] && |
| freq_dds >=BAND_LIMIT[band_index][0]) freq_vfo[vfo_index]+=delta_freq; |
| } |
| bit_set(_DDS_UPDATE); // pozadujeme zmenu kmitoctu v DDS |
| } |
| bit_clear(_ENC_CHNG); // zmena polohy kroutitka zpracovana |
| } // enc_chng |
| // aktualizuje parametry |
| // |
| #inline |
| void par_update() |
| { |
| // int16 power; |
| bit_clear(_PAR_UPDATE); |
| switch(par_index) |
| { |
| case PAR_ATTN: |
| bit_set(_ATTN); // pri utlumu bude misto zelene led svitit zluta |
| switch(par[PAR_ATTN]) |
| { |
| case 1: Attn_6dB(); |
| break; |
| case 2: Attn_12dB(); |
| break; |
| case 3: Attn_18dB(); |
| break; |
| default:Attn_0dB(); |
| bit_clear(_ATTN); // zadny utlum, zpet zelena led |
| break; |
| } |
| break; |
| case PAR_POWER: |
| // set_pwm2_duty(par[PAR_POWER]); |
| // power=par[PAR_POWER]; |
| // set_pwm2_duty(power<<1); |
| //!!!!! |
| power=par[PAR_POWER]*5; // vykon je v nasobcich 0.5W |
| break; |
| case PAR_KEYER: |
| if(par[PAR_KEYER]<=PAR_LIMIT[PAR_KEYER][0]) bit_clear(_ELBUG_ON); ///elbug_flags=0; // vypni elbug |
| else |
| { |
| // zapni elbug a nastav rychlost |
| bit_set(_ELBUG_ON); |
| elbug_dot_sp=~(ELBUG_CONST/par[PAR_KEYER]); // preved na hodnotu citace TMR1 |
| elbug_dot_sp++; |
| elbug_dash=(elbug_dot_sp<<1)+elbug_dot_sp; // *3, ale rychleji |
| } |
| break; |
| case PAR_VOX: |
| vox_time=par[PAR_VOX]; |
| if(vox_time!=0) vox_time=vox_time*10; // cas je ve 50ms jednotkach |
| else vox_time=1; // minimalni vox je 5ms |
| break; |
| case PAR_KEYER_REV: |
| if(par[PAR_KEYER_REV]) bit_set(_ELBUG_REV); // |
| else bit_clear(_ELBUG_REV); |
| break; |
| case PAR_KEYER_MODE: |
| // if(par[PAR_KEYER_MODE]) bit_set(_ELBUG_REAL); // |
| // else bit_clear(_ELBUG_REAL); |
| break; |
| } |
| bit_set(_LCD2_UPDATE); // pozadujeme update 2. radku dispeje |
| } // par_update() |
| // aktualizuje kmitocet v dds |
| // trva max. cca 2500cyklu (2.5ms) |
| // |
| #inline |
| void dds_update() |
| { |
| int32 freq_dds; |
| signed int32 delta_freq; |
| signed int32 freq_rit2; |
| if(!bit_test(_TRANSMIT)) |
| { |
| // PRIJEM |
| if(band_index>=SUB_IF_INDEX) freq_dds=freq_vfo[vfo_index]-FREQ_IF; // pri prijmu na 14MHz se odecita kmitocet mezifrekvence |
| else freq_dds=freq_vfo[vfo_index]+FREQ_IF; // pri prijmu pod 14MHz se pricita kmitocet mezifrekvence |
| if(bit_test(_RIT)) |
| { |
| freq_rit2=freq_rit; // prevod na signed int32, chyba v C, neumi int32 + signed int16 |
| freq_dds=freq_dds+freq_rit2; // je-li zapnut RIT, udelej korekci kmitoctu |
| } |
| bit_set(_LCD1_UPDATE); // pozadujeme zmenit kmitocet na lcd |
| } else |
| { |
| // VYSILANI |
| if(bit_test(_SPLIT)) // pri split se pouzije opacne vfo |
| freq_dds=freq_vfo[(~vfo_index)]; |
| else freq_dds=freq_vfo[vfo_index]; |
| } |
| dds_freq0((int32)((float)freq_dds*CONVERT_CONST)); // odesli jej do DDS trva to cca 2050 cylklu (2.05ms) |
| bit_clear(_DDS_UPDATE); // kmitocet v dds zmenen |
| // bit_set(_LCD1_UPDATE); // pozadujeme zmenit kmitocet na lcd |
| } // dds_update |
| // aktualizuje zobrazeni na lcd - 1.radek |
| // trva max. 3000cyklu (30ms) !!!!!! |
| // |
| //#inline |
| #separate |
| int8 lcd1_update() |
| { |
| int16 rit_val; |
| lcd_gotoxy(1,1); |
| bit_clear(_LCD1_UPDATE); |
| if(bit_test(_MNU2)) printf(lcd_putc,"PARAM: "); // zobraz ze vybirame typ parametru |
| else if(bit_test(_MNU)) |
| { |
| // zobraz nazev parametru |
| switch(par_index) |
| { |
| case PAR_ATTN: printf(lcd_putc,"ATTN: "); |
| break; |
| case PAR_POWER: printf(lcd_putc,"POWER: "); |
| break; |
| case PAR_KEYER: printf(lcd_putc,"KEYER: "); |
| break; |
| case PAR_VOX: printf(lcd_putc,"DELAY: "); |
| break; |
| case INF_BATT: printf(lcd_putc,"BATTERY:"); |
| break; |
| case PAR_KEYER_MODE: printf(lcd_putc,"MODE: "); |
| break; |
| case PAR_KEYER_REV: printf(lcd_putc,"REVERSE:"); |
| break; |
| } |
| } else if(bit_test(_RIT)) |
| { |
| // POZN: fce printf spatne zachazi se znaminkovimi cisly, proto je znamenko |
| // zobrazeno samostatne a rit je preveden na neznamenkove cislo |
| printf(lcd_putc,"RIT:"); |
| if(freq_rit<0) lcd_putc('+'); |
| else lcd_putc('-'); |
| rit_val=abs(freq_rit); |
| lcd_pos=0; |
| printf(rit_lcd_putc,"%04LU",rit_val); // zobraz RIT na LCD |
| } else |
| { |
| lcd_pos=0; |
| printf(vfo_lcd_putc,"%8LD",freq_vfo[vfo_index]); // zobraz kmitocet na LCD |
| } |
| } // lcd1_update |
| // pomocna funkce pro zobrazeni vykonu a psv na lcd |
| // |
| #separate |
| void lcd_pwr_psv() |
| { |
| #ifdef ADC_LCD |
| printf(lcd_putc,"F%2X R%2X",pwr_val,psv_val); |
| #else |
| // vysilani - zobrazujeme vykon a psv |
| if(pwr_val>99) printf(lcd_putc,">10"); |
| else |
| { |
| lcd_pos=0; |
| printf(pwr_lcd_putc,"%02U",pwr_val); |
| } |
| printf(lcd_putc,"W "); |
| if(psv_val>99) printf(lcd_putc,">10"); |
| else |
| { |
| lcd_pos=0; |
| printf(pwr_lcd_putc,"%02U",psv_val); |
| } |
| #endif |
| } // lcd_pwr_psv |
| // aktualizuje zobrazeni na lcd - 2.radek |
| // trva max 2000 cyklu (2ms) |
| // |
| //#inline |
| #separate |
| void lcd2_update() |
| { |
| int8 i; |
| int16 vox; |
| int16 batt; |
| bit_clear(_LCD2_UPDATE); |
| lcd_gotoxy(1,2); |
| if(bit_test(_MNU2)) |
| { |
| // zobraz vybrany parametr |
| switch(par_index) |
| { |
| case PAR_POWER: printf(lcd_putc,"POWER "); |
| break; |
| case PAR_VOX: printf(lcd_putc,"DELAY "); |
| break; |
| case INF_BATT: printf(lcd_putc,"BATTERY "); |
| break; |
| case PAR_KEYER_MODE: printf(lcd_putc,"MODE "); |
| break; |
| case PAR_KEYER_REV: printf(lcd_putc,"REVERSE "); |
| break; |
| } |
| } else if(bit_test(_MNU)) |
| { |
| // zobraz hodnotu parametru |
| switch(par_index) |
| { |
| case PAR_ATTN: printf(lcd_putc,"-%2U dB ",par[PAR_ATTN]*6); // krok je po 6dB |
| break; |
| case PAR_POWER: if(!bit_test(_TRANSMIT)) |
| { |
| lcd_pos=0; |
| printf(pwr_lcd_putc,"%02UW PTT",power); // prijem - zobraz pozadovany vykon a vyzvu k vysilani |
| } else lcd_pwr_psv(); // vysilani - zobraz vykon a psv |
| break; |
| case PAR_KEYER: if( par[PAR_KEYER]<=PAR_LIMIT[PAR_KEYER][0]) printf(lcd_putc,"OFF "); |
| else printf(lcd_putc,"%2U ",par[PAR_KEYER]); |
| break; |
| case PAR_VOX: |
| vox=par[PAR_VOX]; |
| vox=vox*50; // ve 50ms jednotkach |
| printf(lcd_putc,"%4LU ms ",vox); |
| break; |
| case INF_BATT: |
| #ifdef ADC_LCD |
| printf(lcd_putc,"%3X V ",batt_val); |
| #else |
| // zobraz napeti baterie na desetiny voltu |
| batt=batt_val; |
| batt=(batt*10)/16; |
| lcd_pos=0; |
| printf(batt_lcd_putc,"%03UV ",(int8)batt); |
| #endif |
| break; |
| case PAR_KEYER_MODE: |
| if(par[PAR_KEYER_MODE]) printf(lcd_putc,"B "); |
| else printf(lcd_putc,"A "); |
| break; |
| case PAR_KEYER_REV: |
| if(par[PAR_KEYER_REV]) printf(lcd_putc,"YES "); |
| else printf(lcd_putc,"NO "); |
| break; |
| } |
| } else if(bit_test(_TRANSMIT)) lcd_pwr_psv(); // vysilani - zobraz vykon a psv |
| else if(!bit_test(_ELBUG_BSY)) // v mezerach mezi znackami elbugu S-metr nezobrazuj |
| { |
| // prijem - zobrazujeme S-metr |
| #ifdef ADC_LCD |
| printf(lcd_putc,"SMTR:%2X ",smtr_val); |
| #else |
| if(smtr_val<=S_METER[0]) lcd_putc('2'); |
| else lcd_putc(' '); |
| if(smtr_val<=S_METER[1]) lcd_putc('3'); |
| else lcd_putc(' '); |
| if(smtr_val<=S_METER[2]) lcd_putc('4'); |
| else lcd_putc(' '); |
| if(smtr_val<=S_METER[3]) lcd_putc('5'); |
| else lcd_putc(' '); |
| if(smtr_val<=S_METER[4]) lcd_putc('6'); |
| else lcd_putc(' '); |
| if(smtr_val<=S_METER[5]) lcd_putc('7'); |
| else lcd_putc(' '); |
| if(smtr_val<=S_METER[6]) lcd_putc('8'); |
| else lcd_putc(' '); |
| if(smtr_val<=S_METER[8]) lcd_putc('\23'); |
| else if(smtr_val<=S_METER[7]) lcd_putc('9'); |
| else lcd_putc(' '); |
| #endif |
| } |
| } // lcd2_update() |
| // nastavi pasmo podle pripojeneho filtru |
| // |
| //#inline |
| void set_band() |
| { |
| // int8 adc_band; |
| set_adc_channel (BND_CH); // prepni ADC na vstup signalu BAND |
| delay_ms(20); |
| // opakuj dokud neni pripojen vhodny filtr |
| for(;;) |
| { |
| bnd_val=read_adc() & BAND_ADC_MASK; |
| // prohlidni tabulku moznych filtru |
| band_index=BAND_NUM; |
| while(band_index--) |
| { |
| if(bnd_val==BAND_ADC[band_index]) return; // platny filtr pritomen |
| } |
| printf(lcd_putc,"\rCONNECT\n"); |
| printf(lcd_putc," FILTER"); |
| delay_ms(500); |
| } |
| } // set_band |
| // mereni analogovych vstupu |
| // |
| // doba trvani max 3000 cyklu (3ms) |
| #separate |
| void analog_inputs() |
| { |
| static int8 count; |
| int16 k; |
| int32 pom32,pom32_2; // pro vypocet dopredneho vykonu |
| int16 pom16,pom16_2; // pro vypocet PSV |
| signed int8 delta; |
| #ifndef NO_FILTER_CONTROL // vyrazuje prubeznou kontrolu pritomnosti filtru pro prislusne pasmo |
| if((bnd_val & BAND_ADC_MASK)!=BAND_ADC[band_index]) reset_cpu(); // fittr byl odpojen |
| #endif |
| // mereni napeti baterie |
| if(batt_val+5<=BATT_MIN) bit_set(_BATT_LOW); // baterie je vybita |
| // vypocti aktualni vykon a psv a reguluj vykon |
| if(bit_test(_TRANSMIT)) |
| { |
| #ifdef ADC_LCD // vypina zpracovani - zobrazuje prime hodnoty z prevodniku |
| pwr_val=fwd_val; |
| psv_val=rev_val; |
| #else |
| // vypocti vykon na desetiny watu |
| pom32=fwd_val; |
| pom32=pom32*pom32; // vykon je umerny kvadratu napeti |
| // vynasobime *10 - vykon bude 100mW jednotkach |
| // realizuje *10, je vyrazne casove kratsi ( o cca 500cyklu) |
| pom32_2=pom32<<3; |
| pom32_2=pom32_2+pom32; |
| pom32_2=pom32_2+pom32; |
| pwr_val=pom32_2/PWR_FWD_CONST; // vydelime kalibracni konstantou pro dopredny vykon |
| // vypocti PSV na desetinu |
| if(fwd_val>=0 && rev_val==0) psv_val=10; // psv je 1.0 pokud je odrazeny vykon nulovy |
| else |
| { |
| pom16=fwd_val; |
| pom16=pom16<<4; // vynasobime *16 pro vetsi presnost |
| k=pom16/rev_val; // pomer odpovidajici ciniteli odrazu |
| if(k<=16) psv_val=250; // PSV se blizi nekonecnu |
| else if(k>337) psv_val=10; // psv je lepsi jak 1.1 tedy ho povazujeme za 1.0 |
| else |
| { |
| // toto realizuje vyraz (k+16)*10 |
| pom16=k+16; |
| pom16_2=pom16<<3; |
| pom16_2=pom16_2+pom16; |
| pom16_2=pom16_2+pom16; |
| // vypocet psv |
| psv_val=pom16_2/(k-16); |
| } |
| } |
| // rizeni vykonu (ALC) |
| if(psv_val>BAD_PSV) delta=PWR_LIM-pwr_val; // pri spatnem PSV omez vykon |
| else delta=power-pwr_val; |
| if(delta<-PWR_HIST_HI && pwm_val>PWM_MIN) |
| { |
| if(delta<-10) pwm_val=pwm_val-4; |
| else pwm_val--; |
| pom16=pwm_val; |
| set_pwm2_duty(pom16<<1); |
| } else if(delta>PWR_HIST_LO && pwm_val<PWM_MAX) |
| { |
| if(delta>10) pwm_val=pwm_val+4; |
| else pwm_val++; |
| pom16=pwm_val; |
| set_pwm2_duty(pom16<<1); |
| } |
| #endif |
| } |
| // zobrazeni na LCD delame mene casto |
| if(count>4) |
| { |
| bit_set(_LCD2_UPDATE); |
| count=0; |
| } else count++; |
| }// analog_inputs |
| /* |
| void pwr_control() |
| { |
| int16 aaa; |
| signed int8 delta; |
| if(bit_test(_TRANSMIT)) |
| { |
| delta=power-pwr_val; |
| if(delta<-1 && pwm_val>27) |
| { |
| if(delta<-10) pwm_val=pwm_val-4; |
| else |
| pwm_val--; |
| aaa=pwm_val; |
| set_pwm2_duty(aaa<<1); |
| } else if(delta>2 && pwm_val<157) |
| { |
| if(delta>10) pwm_val=pwm_val+4; |
| else |
| pwm_val++; |
| aaa=pwm_val; |
| set_pwm2_duty(aaa<<1); |
| } |
| } |
| } // pwr_control |
| */ |
| ///////////////////////////////// |
| ///// HLAVNI FUNKCE ///// |
| ///////////////////////////////// |
| void main() |
| { |
| int8 ee_adr; |
| int8 a; |
| int8 b; |
| signed int8 c; |
| // inicializace LCD |
| lcd_init(); |
| // definice specialnich znaku |
| lcd_define_char(2,LCD_CHAR_a_FILL); |
| lcd_define_char(1,LCD_CHAR_b_FILL); |
| lcd_define_char(3,LCD_CHAR_9_FILL); |
| // nastaveni smeru signalu a jejich klidovych stavu |
| port_b_pullups(TRUE); |
| output_high(DDS_FSYNC); // zapis_so DDS neaktivni |
| output_low(DDS_SDATA); // data do 0 |
| output_high(DDS_SCK); // hodiny do neaktivniho stavu |
| output_low(RXTX); // prepni na prijem |
| output_low(KEYING); // neklicuj |
| output_low(LCD_LED2); // zhasni led |
| output_low(LCD_LED1); // zhasni led |
| input(TONE); // vypni priposlech |
| output_low(PWR_CTRL); // nulovy vykon |
| output_low(ATN1); |
| output_low(ATN2); |
| output_low(ATNC); |
| // inicializace DDS |
| dds_send(CTRL_RESET); // pozadujeme reset |
| dds_send(CLR_PHASE0); |
| dds_send(CLR_PHASE1); |
| // zakladni nastaveni ridicich promennych programu |
| update_timer=UPDATE_TIME; // natahni periodicky timer pro LCD |
| flags=0; // nuluj priznaky ridici program |
| elbug_flags=0; // nuluj priznaky pro elbug |
| keys_flags=0; |
| adc_flags=0; |
| adc_ch=0; |
| pwm_val=PWM_MIN; |
| enc_delta=0; // zadna zmena od kroutitka |
| keys=0; // zadna tlacitka nejsou stisknuta |
| freq_rit=0; // nuluj RIT |
| // uvodni hlaseni programu |
| lcd_gotoxy(1,1); |
| printf(lcd_putc,NAME); |
| lcd_gotoxy(1,2); |
| printf(lcd_putc,VERSION); |
| delay_ms(1000); |
| // nastaveni AD prevodniku |
| setup_adc(ADC_CLOCK_DIV_8); |
| setup_adc_ports(AN0_AN1_AN2_AN3_AN4); // povoleny porty AN0-AN4 |
| set_band(); // nastav pasmo podle pripojeneho filtru nebo cekej na jeho pripojeni |
| check_eeprom(); // kontrola platnosti obsahu eeprom, pri poruse nastav defaultni parametry |
| // obnoveni a nastaveni parametru programu |
| par[PAR_POWER]=read_eeprom(EE_ADR_POWER+band_index); // vyzvedni nastaveny vykon pro dane pasmo |
| power=par[PAR_POWER]*5; |
| par[PAR_KEYER]=read_eeprom(EE_ADR_KEYER); // vyzvedni rychlost klice |
| if(par[PAR_KEYER]<=PAR_LIMIT[PAR_KEYER][0]) elbug_flags=0; // vypni elbug |
| else |
| { |
| // zapni elbug a nastav rychlost |
| bit_set(_ELBUG_ON); |
| elbug_dot_sp=~(ELBUG_CONST/par[PAR_KEYER]); // preved na hodnotu citace TMR1 |
| elbug_dot_sp++; |
| elbug_dash=(elbug_dot_sp<<1)+elbug_dot_sp; // *3, ale rychleji |
| } |
| par[PAR_VOX]=read_eeprom(EE_ADR_VOX); // vyzvedni vox |
| vox_time=par[PAR_VOX]; |
| if(vox_time!=0) vox_time=vox_time*20; // cas je ve 100ms jednotkach |
| else vox_time=2; |
| par[PAR_KEYER_REV]=read_eeprom(EE_ADR_KEYER_REV); // vyzvedni chapani pak |
| if(par[PAR_KEYER_REV]) bit_set(_ELBUG_REV); // |
| else bit_clear(_ELBUG_REV); |
| par[PAR_KEYER_REV]=read_eeprom(EE_ADR_KEYER_REV); // vyzvedni mod elbugu |
| // if(par[PAR_KEYER_REV]) bit_set(_ELBUG_REAL); // |
| // else bit_clear(_ELBUG_REAL); |
| bit_clear(_ELBUG_REAL); // mod elbugu je zatim vzdy doplnkovy |
| par[PAR_ATTN]=PAR_LIMIT[PAR_ATTN][0]; // attenuator vzdy vypnut |
| Attn_0dB(); |
| freq_vfo[0]=START_FREQ[band_index]; // QRP volaci kmitocet BAND_LIMIT[band_index][0] ; // po zapnuti ma VFO nejmensi kmitocet pasma |
| freq_vfo[1]=START_FREQ[band_index]; // QRP volaci kmitocet BAND_LIMIT[band_index][0] ; // po zapnuti ma VFO nejmensi kmitocet pasma |
| bit_set(_DDS_UPDATE); // pozadujeme nastavit kmitocet v dds |
| step_index=0; // defaultne jemny krok ladeni |
| vfo_index=0; // defaultne vfoA |
| // nastaveni zakladniho tiku |
| setup_timer_0(RTCC_INTERNAL|RTCC_DIV_128); |
| set_timer0(TICK_TIME); |
| // nastaveni pro generovani priposlechu, rizeni LCD_LED a PWM pro rizeni vykonu |
| setup_timer_2(T2_DIV_BY_16,TONE_SET,4); // zajisti pro PWM rozliseni 8.28 bitu |
| setup_ccp1(CCP_PWM); // pro generovani tonu |
| set_pwm1_duty((TONE_SET+1)/2); // strida cca 1:1 |
| tone_off(); // priposlech vypnut |
| setup_ccp2(CCP_PWM); // pro rizeni vykonu |
| set_pwm2_duty((int16)27); // |
| setup_timer_1(T1_DISABLED); // elbug je v klidu |
| #use fast_io(b) |
| keyer=(~input_b()) & 0b11000000; // precti stav pak |
| #use standard_io(b) |
| if(bit_test(keyer,6)) bit_clear(_ELBUG_ON); // pokud je ori zapnuti stisknuta paka carek, je pripojen rucni klic |
| // povoleni preruseni |
| enable_interrupts(INT_EXT); // preruseni od zmeny polohy kroutitka |
| enable_interrupts(INT_TIMER0); // zakadni tik |
| enable_interrupts(INT_TIMER2); // preruseni pro rizeni vykonu, LED a generovani priposlechu |
| enable_interrupts(INT_TIMER1); // preruseni pro elbug |
| enable_interrupts(INT_RB); // preruseni od stavu pak klice |
| enable_interrupts(GLOBAL); |
| //#define TEST |
| #ifdef TEST |
| bit_set(_TRANSMIT); |
| //bit_set(_MNU); |
| fwd_val=150; |
| rev_val=10; |
| smtr_val=150; |
| bnd_val=0x20; |
| a=50; |
| b=5; |
| // testovaci smycka pro zjistovani doby behu testovane funkce |
| setup_timer_1(T1_INTERNAL|RTCC_DIV_1); |
| set_timer1(0); |
| //Analog_inputs(); |
| c=b-a; |
| setup_timer_1(T1_DISABLED); |
| lcd_gotoxy(1,1); |
| printf(lcd_putc,"T:%LU",get_timer1()); |
| lcd_gotoxy(1,2); |
| printf(lcd_putc,"%D",c); |
| for(;;); |
| #else |
| // HLAVNI SMYCKA |
| for(;;) |
| { |
| ///////////////// |
| // pozadavek na zmenu kmitoctu (max. 2,5ms) |
| if(bit_test(_DDS_UPDATE)) dds_update(); |
| //////////////// |
| // nastala zmena polohy kroutitka |
| if(bit_test(_ENC_CHNG)) enc_chng(); |
| ///////////////// |
| // zmena parametru |
| if(bit_test(_PAR_UPDATE)) par_update(); |
| ///////////////// |
| // pozadavek zmeny kmitoctu na lcd - 1.radek (zabere 30ms !!!!!) |
| // PODMINKU NUTNO UPRAVIT |
| if(bit_test(_LCD1_UPDATE) && update_timer==0 && !bit_test(_ELBUG_BSY)) lcd1_update(); |
| ///////////////// |
| // pozadavek na zmenu informaci na lcd - 2.radek (max 2ms) |
| if(bit_test(_LCD2_UPDATE) && update_timer==0) |
| { |
| lcd2_update(); |
| update_timer=0xFF; // ukonci okno,kdy je timer vyprseny |
| } |
| ///////////////// |
| // periodicka mereni (max 3ms) |
| if(update_timer==0) |
| { |
| analog_inputs(); |
| update_timer=0xFF; // ukonci okno,kdy je timer vyprseny |
| } |
| ///////////////// |
| // stisknuta tlacitka |
| if(bit_test(_KEYS_VALID)) // stisknuto nejake tlacitko |
| { |
| // kratky stisk libovolneho tlacitka ukonci nastavovani |
| if(bit_test(_MNU) && !bit_test(_KEYS_LONG)) |
| { |
| bit_clear(_MNU); // vypni nastavovani |
| enc_delta=0; // zahod nacitane zbyle impulzy korutitka |
| if(bit_test(_ELBUG_ON_TMP)) bit_set(_ELBUG_ON); // obnov zapnuti elbugu pokud byl zapnut |
| if(par_index!=PAR_ATTN) // stav attenuatoru se neuklada do eeprom |
| { |
| ee_adr=EE_ADDR[par_index]; |
| if(par_index==PAR_POWER) ee_adr=ee_adr+band_index; // pro parametr vykonu urci adresu eeprom pro dane pasmo |
| if(read_eeprom(ee_adr)!=par[par_index]) // pokud doslo ke zmene parametru, aktualizuj ho v eeprom |
| { |
| write_eeprom(ee_adr,par[par_index]); |
| update_eeprom(); |
| } |
| } |
| bit_set(_LCD1_UPDATE); |
| bit_set(_LCD2_UPDATE); |
| } else |
| { |
| // ktere tlacitko je stisknuto? |
| if(keys==KEY_SPLIT) // SPLIT/MNU |
| { |
| if(bit_test(_KEYS_LONG)) |
| { |
| // dlouhy stisk - vstup do MENU |
| bit_set(_MNU2); // prvni stisk - vyber parametr |
| par_index=PAR_POWER; |
| bit_set(_LCD1_UPDATE); |
| bit_set(_LCD2_UPDATE); |
| } else |
| { |
| // kratky stisk - pokracovani v MENU |
| if(bit_test(_MNU2)) |
| { |
| if(par_index==PAR_POWER) |
| { |
| // zapamatuj si , zda je elbug zapnut nebo vypnut |
| if(bit_test(_ELBUG_ON)) bit_set(_ELBUG_ON_TMP); |
| else bit_clear(_ELBUG_ON_TMP); |
| bit_clear(_ELBUG_ON); // pri nastavovani vykonu je elbug vypnut |
| } |
| bit_clear(_MNU2); // druhy stisk - prejdi do vybraneho parametru |
| bit_set(_MNU); |
| } else |
| { |
| // kratky stisk - funkce SPLIT |
| if(bit_test(_SPLIT)) bit_clear(_SPLIT); |
| else bit_set(_SPLIT); |
| } |
| bit_set(_LCD1_UPDATE); |
| } |
| } // KEY_SPLIT |
| // ostani tlacitka jsou aktivni jen kdyz nejsme ve vyberu parametru |
| if(!bit_test(_MNU2)) |
| { |
| if(keys==KEY_RIT) // RIT/STEP |
| { |
| if(bit_test(_KEYS_LONG)) |
| { |
| // dlouhy stisk - funkce STEP |
| if(step_index) step_index=0; |
| else step_index=1; |
| bit_set(_LCD1_UPDATE); |
| } else |
| { |
| // kratky stisk - funkce RIT |
| if(bit_test(_RIT)) |
| { |
| bit_clear(_RIT); |
| freq_rit=0; // pri vypnuti RIT vynuluj |
| } else bit_set(_RIT); |
| bit_set(_DDS_UPDATE); |
| } |
| } // KEY_RIT |
| if(keys==KEY_CHNGVFO) // prepni VFO/srovnej VFO |
| { |
| if(bit_test(_KEYS_LONG)) |
| { |
| // dlouhy stisk - funkce srovnej VFO |
| if(vfo_index) freq_vfo[0]=freq_vfo[1]; |
| else freq_vfo[1]=freq_vfo[0]; |
| } else |
| { |
| // kratky stisk - funkce prepni VFO |
| if(vfo_index) vfo_index=0; |
| else vfo_index=1; |
| bit_set(_DDS_UPDATE); |
| } |
| } // KEY_CHNGVFO |
| if(keys==KEY_ATTN) // ATTN/ELBUG |
| { |
| if(bit_test(_KEYS_LONG)) |
| { |
| // dlouhy stisk - funkce ELBUG |
| par_index=PAR_KEYER; |
| bit_set(_MNU); |
| bit_set(_LCD1_UPDATE); |
| bit_set(_LCD2_UPDATE); |
| } else |
| { |
| // kratky stisk - funkce ATTN - mozne jen pokud se nevysila |
| par_index=PAR_ATTN; |
| bit_set(_MNU); |
| bit_set(_LCD1_UPDATE); |
| bit_set(_LCD2_UPDATE); |
| } |
| } // KEY_ATTN |
| } |
| } |
| bit_clear(_KEYS_VALID); // tlacitko zpracovano |
| bit_set(_KEYS_RELEASE); // budeme cekat na uvolneni tlacitek |
| } |
| } // hlavni smycka |
| #endif |
| } |
| // End of File |
| /Designs/HAM Constructions/HF_TRAMP/FW/V1_6/VFO.H |
|---|
| 0,0 → 1,315 |
| //********************************************************************** |
| // program pro rizeni TRXu - HLAVICKOVY SOUBOR |
| //********************************************************************** |
| // (c) OK1XGL 2005 |
| #include <16F877.h> |
| #device ADC=8; |
| #fuses XT,NOWDT,NOPROTECT,BROWNOUT,NOLVP,NOCPD |
| #use delay (clock=4000000,restart_wdt) |
| // LCD display |
| #define LCD_RS PIN_D2 /* rizeni registru LCD displeje */ |
| #define LCD_E PIN_D3 /* enable LCD displeje */ |
| #define LCD_DATA_LSB PIN_D4 /* pripojeni LSB bitu datoveho portu LCD displeje (celkem 4 bity vzestupne za sebou) */ |
| #define LCD_LED1 PIN_B5 |
| #define LCD_LED2 PIN_B4 |
| #define LCD_CHAR_a_FILL "\x80\x80\x0E\x01\x0F\x1F\x0F\x80" /* male a s s vyplnenym briskem */ |
| #define LCD_CHAR_b_FILL "\x10\x10\x16\x1F\x1F\x1F\x1E\x80" /* male b s vyplnenym briskem */ |
| #define LCD_CHAR_9_FILL "\x0E\x1F\x1F\x0F\x01\x02\x0C\x80" /* 9 s vyplnenym briskem */ |
| // smimac polohy - ladeni |
| #define ENCODER_CLK PIN_B0 /* musi zde byt ,je od nej preruseni */ |
| #define ENCODER_DIR PIN_B1 |
| // tlacitka |
| #define KEY_ATN_KEY PIN_C7 |
| #define KEY_SPLIT_MNU PIN_C4 |
| #define KEY_A_B PIN_C5 |
| #define KEY_RIT_STEP PIN_C6 |
| #define KEYPORT PORTC |
| // masky pro jednotlive funkce na tlacitkach |
| #define KEY_MASK 0b11110000 /* maska pouzitych tlacitek */ |
| #define KEY_LONG 100 /* doba, po, ktere je povazuje stisk tlacitka za dlouhy v jednotkach zakladniho tiku */ |
| #define KEY_RIT 0b01000000 /* funkce RIT/STEP */ |
| #define KEY_SPLIT 0b00010000 /* funkce SPLIT/MNU */ |
| #define KEY_CHNGVFO 0b00100000 /* prepni VFO/srovnej VFO */ |
| #define KEY_ATTN 0b10000000 /* nastav utlum/rychlost elbugu */ |
| // tlg. klic |
| #define KEY_DASH PIN_B6 |
| #define KEY_DOT PIN_B7 |
| // ridici signaly TRXu |
| #define RXTX PIN_B2 /* prepinac prijem vysilani 1= vysilani*/ |
| #define KEYING PIN_B3 /* klicovaci signal */ |
| #define MUTE PIN_C3 /* uzavira NF cestu pri vysilani */ |
| #define TONE PIN_C2 /* generovani tonu odposlechu NEMENIT!!! PWM1 je jen zde */ |
| #define PWR_CTRL PIN_C1 /* vystup PWM2 pro rizeni vystupniho vykonu PA NEMENIT !!!*/ |
| // DDS signaly |
| #define DDS_FSYNC PIN_D0 /* enable prenosu dat aktivni v log0 */ |
| #define DDS_SCK PIN_D5 /* musi zde byt, hodiny sestupna hrana */ |
| #define DDS_SDATA PIN_D4 /* musi zde byt, seriova data */ |
| #define DDS_FSEL PIN_D1 /* prepnuti frekvencnich registru */ |
| // rizeni attenuatoru |
| #define ATN1 PIN_E0 |
| #define ATN2 PIN_C0 |
| #define ATNC PIN_E1 |
| #define RELE_PULSE 10 /* delka prepinaciho pulzu pro rele v ms jednotkach */ |
| // analogove vsupni signaly |
| #define REF PIN_A1 |
| #define FWD PIN_A0 |
| #define MTR12V PIN_A2 |
| #define SMTR PIN_A3 |
| #define BAND PIN_A5 |
| // cisla pouzitych kanalu |
| #define REF_CH 0 |
| #define FWD_CH 1 |
| #define MTR12V_CH 2 |
| #define SMTR_CH 3 |
| #define BND_CH 4 |
| // konstanty verze programu |
| #define NAME "VERSION " |
| #define VERSION " V1.6 " |
| // konstanty timeru0 |
| #define TICK_TIME 0xFFFF-(5000/128)+1 /* zakladni tik TMR0 bude 5ms */ |
| #define UPDATE_TIME 10 /* doba, po ktere se muze updatovat kde co v jedntkach tick_time */ |
| // konstanty timeru2 |
| #define TONE_SET 0x4d /* konstanta urcujici kmitocet priposlechu, zde 800Hz */ |
| // konstanty kmitoctu pro VFO |
| #define CONVERT_CONST 5.36870912 /* 2^28/50000000 , tedy 2^28/kmitocet hodin DDS*/ |
| #define FREQ_IF 4999600L /* kmitocet mezifrekvence v Hz */ |
| #define SUB_IF_INDEX 3 /* index pasma, od ktereho se mezifrekvencni kmitocet odecita */ |
| // zakladni nastaveni ridiciho registru DDS |
| #define CTRL_FREQ0 0b0010000000000000 /* prepni se do freq0 */ |
| #define CTRL_FREQ1 0b0010100000000000 /* prepni se do freq1 */ |
| #define CTRL_RESET 0b0010000100000000 /* pozaduj reset */ |
| #define CLR_PHASE0 0b1100000000000000 /* nuluj fazovy registr 0 */ |
| #define CLR_PHASE1 0b1110000000000000 /* nuluj fazovy registr 1 */ |
| #define ENC_HISTEREZE 10 /* necitlivost kroutitka pri nastavovani parametru v impulzech */ |
| #define BAND_NUM 4 /* pocet pasem */ |
| // tabulka meznich kmitoctu v Hz pro jednotliva pasma |
| int32 const BAND_LIMIT[BAND_NUM][2] = { |
| //{1800000,2000000}, |
| {3500000,3620000}, |
| {7000000,7045000}, |
| {10100000,10150000}, |
| {14000000,14120000} |
| //{18068000,18168000} |
| //{21000000,21450000} |
| }; |
| int32 const START_FREQ[BAND_NUM] = { |
| //1810000, |
| 3560000, |
| 7030000, |
| 10116000, |
| 14060000, |
| //18096000, |
| //21060000 |
| }; |
| #define RIT_STEP 10 /* krok RITu v Hz */ |
| signed int16 const RIT_LIMIT[2] = {-2000,2000}; /* rozsah RITu v Hz */ |
| int16 const FREQ_STEP[2]={20,1000}; /* tabulka ladicich kroku v Hz */ |
| // tabulka dekodovani pasma |
| #define BAND_ADC_MASK 0b11100000 |
| int8 const BAND_ADC[BAND_NUM]= { |
| //0x00, /* 160m */ |
| 0x20, /* 80m */ |
| 0x40, /* 40m */ |
| 0x60, /* 30m */ |
| 0x80 /* 20m */ |
| //0x82, /* 17m */ |
| //0x84 /* 15m */ |
| }; |
| // hodnoty napeti z prevodniku odpovidajici prislusnym S stupnum |
| int8 const S_METER[9]= { |
| 0xC7, /* S2 */ |
| 0xBA, /* S3 */ |
| 0xA8, /* S4 */ |
| 0x91, /* S5 */ |
| 0x82, /* S6 */ |
| 0x79, /* S7 */ |
| 0x73, /* S8 */ |
| 0x6C, /* S9 */ |
| 0x60 /* S9 + cca 10dB */ |
| }; |
| // priznaky v promenne flags |
| #define _DDS_UPDATE flags,0 /* pozadavek zmeny kmitoctu DDS */ |
| #define _LCD1_UPDATE flags,1 /* pozadavek aktualizace udaje v 1.radku LCD */ |
| #define _LCD2_UPDATE flags,2 /* pozadavek aktualizace udaje ve 2. radku LCD */ |
| #define _PAR_UPDATE flags,3 /* pozadavek aktualizace vybraneho parametru */ |
| #define _RIT flags,4 /* misto kmitoctu zobrazuj RIT */ |
| #define _SPLIT flags,5 /* zapnut rezim SPRIT */ |
| #define _TRANSMIT flags,6 /* je prepnuto na vysilani */ |
| #define _LED_UPDATE flags,7 /* zrcadlo stavu LED */ |
| #define _ENC_CHNG flags,8 /* doslo ke zmene polohy korutitka */ |
| #define _TXDELAY flags,9 /* bezi spozdeni mezi stiskem klice a zaklicovanim vysilace */ |
| #define _ATTN flags,10 /* je zapnuty utlum */ |
| #define _MNU flags,11 /* rezim nastavovani hodnoty parametru */ |
| #define _MNU2 flags,12 /* rezim vyberu parametru */ |
| #define _RUN_VOX flags,13 /* bezi vox timer */ |
| #define _BATT_LOW flags,14 /* baterie je vybita */ |
| #define _KEYING flags,15 /* je zaklicovan vysilac */ |
| // priznaky promenne keys_flags |
| #define _KEYS_LONG keys_flags,0 /* tlacitko stisknuto po dlouhou dobu */ |
| #define _KEYS_VALID keys_flags,1 /* tlacitka jsou platna */ |
| #define _KEYS_RELEASE keys_flags,2 /* cekej na uvolneni tlacitka = ukonceni reakce na tlacitko */ |
| // priznaky promenne adc_flags |
| #define _ADC_START adc_flags,0 /* spust_prevod */ |
| // priznaky promenne elbug_flags |
| #define _ELBUG_ON elbug_flags,0 /* klicovani bude rizeno elbugem */ |
| #define _ELBUG_BSY elbug_flags,1 /* probiha generovani signalu _ELBUG */ |
| #define _ELBUG_OUT elbug_flags,2 /* vystup z elbugu */ |
| #define _ELBUG_SP elbug_flags,3 /* priste vysilej mezeru */ |
| #define _ELBUG_DOT elbug_flags,4 /* byla stisknuta paka tecek */ |
| #define _ELBUG_DASH elbug_flags,5 /* byla stisknuta paka carek */ |
| #define _ELBUG_LAST elbug_flags,6 /* minula stisknuta paka 0=dot 1=dash */ |
| #define _ELBUG_REV elbug_flags,7 /* reverzni chapani pak */ |
| #define _ELBUG_REAL elbug_flags,8 /* zapnuto realne klicovani */ |
| #define _ELBUG_ON_TMP elbug_flags,9 /* pro zapamatovani stavu _ELBUG_ON pri nastavovani vykonu */ |
| // konstanta pro odmereni nejmensiho elementu elbugu (tecka nebo tez mezera) |
| #define ELBUG_CONST ((60*1000)/(5*5*2))*125 /* 60 - prevod na vteriny */ |
| /* 1000 - prevod na ms */ |
| /* 5 - prevod WPM na LPM */ |
| /* 5 - pocet tecek v 1sec pro 200WPM */ |
| /* 2 - zajima nas sirka tecky */ |
| /* 125 - prevodni konstanta pro timer */ |
| #define PAR_NUM 7 /* pocet parametru TRXu */ |
| // cisla (indexy) parametru TRXu |
| // poradi urcuje poradi ve vyberovem menu |
| // parametry za volnym radkem v menu nejsou, vybiraji se na funkcnich tlacitkach |
| #define PAR_POWER 0 /* vykon vysilace */ |
| #define PAR_VOX 1 /* doba prepnuti zpet na prijem */ |
| #define INF_BATT 2 /* napeti baterie */ |
| #define PAR_KEYER_REV 3 /* zap/vyp reverzni chapani pak */ |
| #define PAR_KEYER_MODE 4 /* doplnkove nebo realne klicovani */ |
| #define PAR_KEYER 5 /* rychlost elbugu */ |
| #define PAR_ATTN 6 /* attenuator */ |
| // tabulka mezi pro jednotlive parametry |
| int8 const PAR_LIMIT[PAR_NUM][2] = { |
| {0,16}, /* vykon ve 0.5w jednotkach */ |
| {0,40}, /* meze pro vox v 50ms jednotkach */ |
| {0,0}, /* hodnota napeti baterie */ |
| {0,1}, /* meze pro zap/vyp reverzi pak */ |
| {0,1}, /* mod klicovani */ |
| {5,40}, /* meze pro elbug ve WPM */ |
| {0,3} /* meze pro attenuator 0,-6,-12 a -18dB */ |
| }; |
| // adresy jednotlivych parametru ulozenych v eeprom |
| #define EE_ADR_POWER 0 /* BAND_NUM bajtu - pro kazde pasmo jeden bajt */ |
| #define EE_ADR_VOX BAND_NUM |
| #define EE_ADR_BATT EE_ADR_VOX+1 |
| #define EE_ADR_KEYER_REV EE_ADR_BATT+1 |
| #define EE_ADR_KEYER_MODE EE_ADR_KEYER_REV+1 |
| #define EE_ADR_KEYER EE_ADR_KEYER_MODE+1 |
| #define EE_ADR_ATTN EE_ADR_KEYER+1 |
| #define EE_ADR_CRC EE_ADR_ATTN+1 /* kontrolni soucet eeprom */ |
| // pole adres parametru ulozenych v eeprom |
| int8 const EE_ADDR[PAR_NUM] = { |
| EE_ADR_POWER, |
| EE_ADR_VOX, |
| EE_ADR_BATT, // napeti baterie se neuklada, zde je zapsana konstantni hodnota |
| EE_ADR_KEYER_REV, |
| EE_ADR_KEYER_MODE, |
| EE_ADR_KEYER, |
| EE_ADR_ATTN |
| }; |
| #define BATT_MIN 173 // napeti baterie, od ktere se povazuje za vybitou (hodnota z prevodniku pro 10.8V) |
| #define BAD_PSV 18 // od PSV > 1.8 se omezi vykon |
| #define PWR_LIM 10 // vykon pri spatnem psv je omezen na 1W |
| #define PWM_MIN 27 // minimalni hodnota pro PWM2 |
| #define PWM_MAX 157 // maximalni hodnota pro PWM2 |
| #define PWR_HIST_LO 2 // spodni povolena odchylka od pozadovaneho vykonu v nasobcich 100mW |
| #define PWR_HIST_HI 1 // horni povolena odchylka od pozadovaneho vykonu v nasobcich 100mW |
| #define PWR_FWD_CONST 5600 // prevodni konstatna pro prevod napeti z ADC na vykon |
| int8 lcd_pos; // poloha znaku na LCD pro specialni fce s nazvy xxx_lcd_putc |
| int32 freq_vfo[2]; // pozadovany kmitocet vfoA a vfoB |
| signed int16 freq_rit; // rozladeni +- pri prijmu |
| signed int8 enc_delta; // +-pocet impulzu zmeny kroutitka |
| int8 update_timer; // periodicky casovac pro aktualizaci kde ceho |
| int8 key_timer; // casovac pro rozpoznani dlouheho stisku tlacitka |
| int16 vox_timer; // casovac pro automaticke prepnuti na prijem po urcite dobe bez vysilani |
| int16 vox_time; // hodnota vox timeru, 0 = plny BK |
| int8 flash_timer; // pro blikani ledkou pri vybite baterii |
| int8 keys; // obsahuje tlacitka, ktera byla stisknuta (0=klidovy stav) |
| int8 keys_work; // pro precteni stavu tlacitek v preruseni |
| int8 keys_old; // predchozi stav tlacitek, pro osetreni zakmitu |
| int8 keyer; // obsahuje stav stisknutych pak elbugu |
| int8 keyerb; // obsahuje aktualni stav pak elbugu |
| int1 step_index; // index do tabulky moznych kroku ladeni |
| int1 vfo_index; // index do tabulky VFO |
| int8 band_index; // index do tabulky rozsahu kmitoctu |
| int16 flags; // stavove priznaky pro rizeni programu |
| int16 elbug_flags; // stavove priznaky pro rizeni elbugu |
| int8 keys_flags; // stavove priznaky tlacitek |
| int8 adc_flags; // stavove priznaky pro rizeni ADC |
| int8 par[PAR_NUM]; // parametry TRXu |
| int8 par_index; // cislo nastavovaneho parametru |
| int8 adc_ch; // citac kanalu ADC |
| int8 adc_val; // napeti z ADC aktualniho kanalu |
| int8 smtr_val; // hodnota napeti z ADC odpovidajici S-metru |
| int8 pwr_val; // hodnota aktualniho vykonu v 100mW jednotkach |
| int8 psv_val; // hodnota psv v desetinovych jednotkach |
| int8 fwd_val; // napeti z ADC odpovidajici doprednemu vykonu |
| int8 rev_val; // napeti z ADC odpovidajici odrazenemu vykonu |
| int8 bnd_val; // napeti z ADC odpovidajici pasmu |
| int8 batt_val; // napeti z ADC odpovidajici napeti baterie |
| int8 pwm_val; // hodnota pro PWM2 - rizeni vykony PA |
| int8 power; // pozadovany vykon PA |
| int16 elbug_dot_sp; // hotnota timeru 1 pro generovani tecky a mezery |
| int16 elbug_dash; // hordnota timeru1 pro generovani carky |
| #bit _T0IF = 0x0B.2 // priznak preteceni timeru0 - vyuziva se pri spousteni TXDELAY |
| // (vyuziva se pro nej prave timer0) aby byla jistota, ze se TXDELAY |
| // skutecne odmeri |
| #bit _TMR1IF = 0x0C.0 // priznak preruseni od timeru 1 - pro vyprovokovani preteceni (start elbugu) |
| // End of File |
| /Designs/HAM Constructions/HF_TRAMP/FW/V1_6/VFO.HEX |
|---|
| 0,0 → 1,723 |
| :1000000010308A0000280000FF00030E8301A100C9 |
| :100010000A08A0008A010408A2007708A300780853 |
| :10002000A4007908A5007A08A6007B08A70083131E |
| :1000300083128B1D1D280B1844280B1E21288B189A |
| :1000400047288C308400001C27280C184A288C3044 |
| :100050008400801C2D288C184D288B1E31280B19EC |
| :100060005028220884002308F7002408F8002508F7 |
| :10007000F9002608FA002708FB0020088A00210E54 |
| :100080008300FF0E7F0E09008A110A12CC2A8A1102 |
| :100090000A12D5298A110A12FB2A8A110A12A72AE2 |
| :1000A0008A110A12EB290A108A100A118207E03419 |
| :1000B000673435340034A0343C3437340034C03431 |
| :1000C000CF346A34003488347F346B3400342034C5 |
| :1000D0001D349A3400347034E0349A34003480345F |
| :1000E0009F34D534003440347434D73400340A108B |
| :1000F0008A100A1182074034523436340034F03406 |
| :1001000044346B340034A0345B349A340034E0342B |
| :100110008934D63400340A108A100A118207143444 |
| :100120000034E83403340A108A100A11820720349C |
| :100130004034603480340A108A100A118207003477 |
| :1001400010340034283400340034003401340034D6 |
| :10015000013405342834003403340A108A100A119B |
| :100160008207003404340534063407340834093473 |
| :100170000A108A100A11820728340C34013406341C |
| :100180000A108A100A118207503441345234413423 |
| :100190004D343A3400340A108A100A11820741346F |
| :1001A000543454344E343A3400340A108A100A114C |
| :1001B000820750344F345734453452343A34203463 |
| :1001C000203400340A108A100A1182074B34453457 |
| :1001D0005934453452343A342034203400340A102F |
| :1001E0008A100A118207443445344C34413459345E |
| :1001F0003A342034203400340A148A100A11820759 |
| :1002000042344134543454344534523459343A34F9 |
| :1002100000340A148A100A1182074D344F344434D2 |
| :1002200045343A3400340A148A100A1182075234D1 |
| :100230004534563445345234533445343A3400341A |
| :100240000A148A100A1182075234493454343A3459 |
| :1002500000340A148A100A11820750344F3457347C |
| :100260004534523400340A148A100A118207443487 |
| :1002700045344C344134593400340A148A100A117C |
| :10028000820742344134543454344534523459345E |
| :10029000203400340A148A100A1182074D344F3476 |
| :1002A0004434453400340A148A100A118207523447 |
| :1002B00045345634453452345334453420340034B4 |
| :1002C0000A148A100A1182072D3425343234553429 |
| :1002D0002034643442342034203400340A148A1028 |
| :1002E0000A118207253430343234553457342034DF |
| :1002F00050345434543400340A148A100A118207DA |
| :10030000253434344C34553420346D347334203433 |
| :10031000203400340A148A100A1182070D34433441 |
| :100320004F344E344E344534433454340A3400345C |
| :100330000A148A100A1182072034463449344C3496 |
| :1003400054344534523400340A148A100A11820796 |
| :10035000803480340E3401340F341F340F34803431 |
| :1003600000340A148A100A1182070E341F341F3415 |
| :100370000F34013402340C34803400340A148A10EF |
| :100380000A118207563445345234533449344F34B9 |
| :100390004E34203400340A148A100A1182072034A3 |
| :1003A000563431342E343634003483163F108312E1 |
| :1003B000861CDD2983163F148312441483163F1CC8 |
| :1003C000E5298312B40AE72983168312B4038B103C |
| :1003D0008A110A123128D9308100481CF2291F15D0 |
| :1003E0004810272A1F19F2291E08D200C41F012A0B |
| :1003F000510BFC295208D600D108031D012A5208CE |
| :10040000D7005108023C031D082A5208D900152ABA |
| :100410005108033C031D0F2A5208D300152A510826 |
| :10042000043C031D152A5208D8005108033C031848 |
| :100430001B2AD1011C2AD10A510DF700F70DF70D27 |
| :10044000F830F7051F08C73977049F004814C41C0B |
| :10045000612A45182F2A0608FF3A8039BF00BF08D5 |
| :100460000319342A451C382A451D4E2A451C4E2A9C |
| :100470008615601160088316870083120711C41265 |
| :10048000C417D101510DF700F70DF70DF830F7053E |
| :100490001F08C73977049F004814602A86113A085C |
| :1004A000B8003908B700C4166015600883168700C5 |
| :1004B000C0018312071D5F2A8316C00A8312C4136A |
| :1004C000C410350F662A0A30B500672AB503C41E6A |
| :1004D000782AB708031D6F2AB8080319742A370849 |
| :1004E0000319B803B703782AC4120611431343143F |
| :1004F000B608031DB6030708FF3AF039BD003E08F1 |
| :100500003D020319862A3D08BE00A32ABD0803192F |
| :10051000992ABC08031D912A3D08BC006430B6002E |
| :10052000982AB608031D982A4719982A4714C71411 |
| :10053000A32AB60803199F2AC714B601A32A471D88 |
| :10054000A32AC701BC010B118A110A123128BB0A68 |
| :10055000431FB12AC31FAE2A8616AF2A861206127F |
| :10056000C32A441FB82ABB1FB82A86120612C32A00 |
| :10057000C31FBD2A06168612C32A0612441DC22AAC |
| :100580008616C32A8612C31FC72AC313C82AC317D5 |
| :100590008C108A110A1231280608FF3AC000451C47 |
| :1005A000D42AC030C005D62A8030C005C418F72A26 |
| :1005B0004518DF2AD93081000B11C414EF2AC51F5A |
| :1005C000E62A401B4516C01BC516EA2AC01B451665 |
| :1005D000401BC516C518EF2AB53090000C14431BFC |
| :1005E000F72AC0080319F72A4317061543140B10FE |
| :1005F0008A110A123128C51D082BC51145115D0845 |
| :100600008F005C088E00D93081000B11C414582B68 |
| :10061000C51C252B451F0E2BC5120F2B4512060896 |
| :10062000FF3AC039BF00C51F1A2B3F1B4516BF1B21 |
| :10063000C5161E2BBF1B45163F1BC516461C252B7A |
| :10064000BF08031D252B4512C512431B2E2B451A2F |
| :100650002B2BC51E2E2B431706154314451E462B68 |
| :10066000C51E402B451F3A2B45135D088F005C08C3 |
| :100670008E003F2B45175F088F005E088E00452BCC |
| :1006800045135D088F005C088E00512BC51E4E2B54 |
| :1006900045175F088F005E088E00512BC510900132 |
| :1006A000582BC514C5154515D93081000B11C4143C |
| :1006B0000C108A110A1231287E30840000080319B8 |
| :1006C000722B0130F800BF30F7006400F70B652B88 |
| :1006D000F80B632B4A30F700F70B6C2B000064001B |
| :1006E000800B612B003408080F398316A600250EF5 |
| :1006F000F700F030F7057708F039260483128800F8 |
| :100700008815831688116400831288118316881156 |
| :10071000831200348316A308031D922B8312081141 |
| :10072000942B83168312081583160811A40E24082F |
| :10073000A500831273238316A40E2408A500831238 |
| :10074000732364000C30F700F70BA42B00000000AB |
| :1007500000341430FE005C230F30831688058312AA |
| :1007600008118316081183128811831688118312C9 |
| :10077000E6016608023C031CC72B0230FE005C2326 |
| :1007800003308316A50083127323E60AB92B640095 |
| :100790000C30F700F70BCA2B000000000230831664 |
| :1007A000A5008312732364000C30F700F70BD62BDF |
| :1007B00000000000E6016608023C031CEF2B6608FF |
| :1007C000B820E7008316A301831267088316A400EC |
| :1007D00083128A230230FE005C23E60ADB2B8A1197 |
| :1007E0000A160E2801308316A300831267088316A9 |
| :1007F000A40083128A230034081010308316B0003E |
| :10080000AF1F062C83120816082C831683120812B9 |
| :100810008812881603108316AE0DAF0DB00B002C96 |
| :1008200083120814003401307E028316A1002008D0 |
| :10083000023C031D1D2C4030A10721088038A20076 |
| :10084000A3012208A40083128A2300347D080C3AF5 |
| :100850000319342C063A03193E2C073A0319462C87 |
| :10086000053A03194D2C542C8316A3010130A40022 |
| :1008700083128A230230FE005C23622C0130FE00CA |
| :1008800002308316A00083121324622C0130FE0074 |
| :100890008316A00083121324622C8316A301103048 |
| :1008A000A40083128A23622C7D081F3C031C5A2C4F |
| :1008B0000730FD0501308316A3007D08A4008312D4 |
| :1008C0008A23622C00342030F8001F08C7397804CE |
| :1008D0009F001430FE005C231F151F196D2C1E088D |
| :1008E000E039D8000430C2004208C203003A0319BC |
| :1008F000802C42089320F800580203199E2C742C77 |
| :10090000E60166088A21E60AF700FD002624093080 |
| :100910006602031D812CE60166089821E60AF700AD |
| :10092000FD00262407306602031D8C2C0230E600F1 |
| :10093000FA30FE005C23E60B982C6C2C8A110A1608 |
| :100940004929E901E8016808093C031CB32C68083F |
| :1009500003178D0083168C130C1483120C080313D9 |
| :10096000E907E80AA32CE909E90A0A3003178D0010 |
| :100970000313690803178C0083168C130C1583125C |
| :1009800003130B08F7008B138316031755308D00E4 |
| :10099000AA308D008C148C18CB2C0C117708831284 |
| :1009A00003138B040034E701E60166080A3C031CCC |
| :1009B000E52C660803178D0083168C130C14831224 |
| :1009C0000C080313E707E60AD52CE7080319A92D3D |
| :1009D000E6016608033C031C0A2D6608E60AE800E7 |
| :1009E00003178D008C0183168C130C1583120313CF |
| :1009F0000B08F7008B138316031755308D00AA30B0 |
| :100A00008D008C148C18022D0C117708831203139F |
| :100A10008B04E92C083003178D0014308C008316EA |
| :100A20008C130C15831203130B08F7008B1383161A |
| :100A3000031755308D00AA308D008C148C181E2D94 |
| :100A40000C117708831203138B04043003178D00F5 |
| :100A500006308C0083168C130C15831203130B08BD |
| :100A6000F7008B138316031755308D00AA308D00C5 |
| :100A70008C148C18392D0C117708831203138B04F6 |
| :100A8000053003178D008C0183168C130C1583120F |
| :100A900003130B08F7008B138316031755308D00D3 |
| :100AA000AA308D008C148C18532D0C1177088312EA |
| :100AB00003138B04063003178D008C0183168C13EF |
| :100AC0000C15831203130B08F7008B1383160317FF |
| :100AD00055308D00AA308D008C148C186D2D0C11A2 |
| :100AE0007708831203138B04073003178D008C01E2 |
| :100AF00083168C130C15831203130B08F7008B134A |
| :100B00008316031755308D00AA308D008C148C1875 |
| :100B1000872D0C117708831203138B0409300317F8 |
| :100B20008D008C0183168C130C15831203130B0894 |
| :100B3000F7008B138316031755308D00AA308D00F4 |
| :100B40008C148C18A12D0C117708831203138B04BD |
| :100B5000A1248A110A164C29F701F8017008031024 |
| :100B60007118F707F70CF80CF118F707F70CF80CE9 |
| :100B70007119F707F70CF80CF119F707F70CF80CD7 |
| :100B8000711AF707F70CF80CF11AF707F70CF80CC5 |
| :100B9000711BF707F70CF80CF11BF707F70CF80CB3 |
| :100BA0000034F701F801F901FA018316A801A9013F |
| :100BB000AA01AB0127082604250424040319102EDA |
| :100BC0002030AC000310A00DA10DA20DA30DA80DA7 |
| :100BD000A90DAA0DAB0D27082B02031DF92D260820 |
| :100BE0002A02031DF92D25082902031DF92D2408C9 |
| :100BF0002802031C0A2E2408A8022508031C250F1E |
| :100C0000A9022608031C260FAA022708031C270F87 |
| :100C1000AB020314F70DF80DF90DFA0DAC0BE22D34 |
| :100C20000000A8308400831200341030F700FA016D |
| :100C3000F601FD0CFC0C031C252E83162008FA0778 |
| :100C40000318F60A2108F6078312F60CFA0CF90CC1 |
| :100C5000F80CF70B192E00348316091083120910B3 |
| :100C600060106008831687008312071083168910AE |
| :100C7000831289140A30FE005C23831689140A301B |
| :100C8000FE0083125C23831609148312601460082B |
| :100C90008316870083120034B630F700FA01F90199 |
| :100CA000F80183162008210422042304031D5A2E70 |
| :100CB000F701672E0310F81B662EA00DA10DA20DE3 |
| :100CC000A30DFA0DF90DF80DF70B5A2EF813831238 |
| :100CD0008A110A166B2B831624080319DC2EAC002C |
| :100CE00028080319DC2EAC0703187D2E7F30AC02D8 |
| :100CF000031CDC2E0319DC2E812E8130AC07031877 |
| :100D0000DC2E2C08F700F801F901FA012508B000E3 |
| :100D1000B0172608AF002708AE001830AC00AD01B0 |
| :100D20002E1CAA2E2B08FA07031C9C2EF90A031D61 |
| :100D30009C2EF80A0319AD172A08F907031CA32EE5 |
| :100D4000F80A0319AD172908A600A6172608F80700 |
| :100D50000318AD17AD0DF80CF90CFA0CB00CAF0C74 |
| :100D6000AE0C0310AC0B8F2E0130F7070318DC2EEE |
| :100D7000F81BC12EB00DFA0DF90DF80DF70303198C |
| :100D8000DC2EB01FD22EFA0A031DD22EF90A031D43 |
| :100D9000D22EF80A031DD22EF80CF90CFA0CF70A21 |
| :100DA0000319DC2E2508AD002908AD06AD1FDA2E8B |
| :100DB000F817E02EF813E02EF701F801F901FA0117 |
| :100DC000000083128A110A16882B83162408B63C69 |
| :100DD000A400FA012508A800A5170310A50CA60C6D |
| :100DE000A70CFA0CF90CF80CF70CA40BED2EA81FAD |
| :100DF000042FF709F809F909FA09F70A0319F80A9B |
| :100E00000319F90A0319FA0A83128A110A16952B93 |
| :100E1000A90A2908023C031D102F2E30FD002624AC |
| :100E20007008FD00262400340408EF00690EF03835 |
| :100E3000EB00EB07E23EEC00323EEE0069080F39B2 |
| :100E4000EC07EC07EE07E93EED00ED07ED07680E55 |
| :100E50000F39ED07EE07ED0DEE0DEE09EE0D68080A |
| :100E60000F39EE07EB0D0730EA000A30EE07ED030D |
| :100E7000031C362FED07EC03031C3A2FEC07EB03A2 |
| :100E8000031C3E2FEB07EA03031C422F6A30840049 |
| :100E900007306F0584076E30040203196B2F0008BA |
| :100EA000F700031D592F6F1A692FEF195B2F2030A0 |
| :100EB0005C2F0830EF003030F707E9010408E80044 |
| :100EC0007708EA007708F0000827680884006A08B5 |
| :100ED000F700840A4B2F0008F7003030F707770837 |
| :100EE000F00008278A150A126829A90A2908033C74 |
| :100EF000031D8F2FC11C862FC31E822F1130FD00B2 |
| :100F00002624852F6230FD0026248F2FC31E8C2FB0 |
| :100F10001230FD0026248F2F6130FD002624290881 |
| :100F2000063C031D9C2F411C992F3A30FD002624BE |
| :100F30009C2F2E30FD0026247C08FD002624003442 |
| :100F40006F08F8016E020318A82F6E08F700B42F7F |
| :100F5000F7010830F000EE0DF70D6F087702031867 |
| :100F6000F700F80DF00BAB2F0034A90A2908023C5A |
| :100F7000031DBD2F2E30FD0026246D08FD00262404 |
| :100F800000345408633C0318CF2F3E30FD00262464 |
| :100F90003130FD0026243030FD002624D72FA90152 |
| :100FA0005408EB000130EC008A15F5218A11573006 |
| :100FB000FD0026242030FD0026245508633C03183C |
| :100FC000EB2F3E30FD0026243130FD00262430304A |
| :100FD000FD002624F32FA9015508EB000130EC0099 |
| :080FE0008A15F5218A11003485 |
| :101000000408F100F01F14282D30FC008A11752708 |
| :101010008A15ED09EE09EF09F009ED0A0319EE0A48 |
| :101020000319EF0A0319F00A3B30F6009A30F50075 |
| :10103000CA30F400F3010A30F20070088316A300EE |
| :1010400083126F088316A20083126E088316A10014 |
| :1010500083126D088316A0007608A7007508A60005 |
| :101060007408A5007308A4008A118312D1258A157B |
| :101070000008ED00840A0008EE00840A0008EF0072 |
| :10108000840A0008F000FD308407F708031D5A2881 |
| :101090007208013A03195A28710803195B280F399D |
| :1010A00072020319552803186228F030711B0030B2 |
| :1010B000F7005B28F1013030F7077708FC008A1150 |
| :1010C00075278A1576088316A3007508A200740890 |
| :1010D000A1007308A000A701A601A5010A30A40081 |
| :1010E0008A118312D1258A157A08F6007908F5004D |
| :1010F0007808F4007708F300F20B1D288A150A120D |
| :101100008C290130FE008316A0008A11831213245B |
| :101110008A15C310441EA528E80168088A11C0205A |
| :101120008A15E80AF700FD008A1126248A15063080 |
| :101130006802031D8D280330E9002030FD008A116C |
| :1011400026248A15E90B9D288C29C41D30295008B6 |
| :10115000F93E03182F29073E8F29E80168088A11F4 |
| :10116000CB208A15E80AF700FD008A1126248A158B |
| :1011700005306802031DAE280330E9002030FD0071 |
| :101180008A1126248A15E90BBE282F29E801680850 |
| :101190008A11D5208A15E80AF700FD008A11262455 |
| :1011A0008A1508306802031DC7282F29E80168083E |
| :1011B0008A11E2208A15E80AF700FD008A11262428 |
| :1011C0008A1508306802031DD7282F29E80168080E |
| :1011D0008A11EF208A15E80AF700FD008A112624FB |
| :1011E0008A1508306802031DE7282F29E8016808DE |
| :1011F0008A11FC208A15E80AF700FD008A112624CE |
| :101200008A1508306802031DF7282F29E8016808AD |
| :101210008A1109218A15E80AF700FD008A1126249F |
| :101220008A1505306802031D07290330E9002030C4 |
| :10123000FD008A1126248A15E90B17292F29E801B8 |
| :1012400068088A1113218A15E80AF700FD008A113F |
| :1012500026248A1508306802031D20292F298C298D |
| :10126000431E6A29E80168088A1120218A15E80AC4 |
| :10127000F700FD008A1126248A1504306802031D38 |
| :101280003329B31F49292B30FD008A1126248A15E2 |
| :101290004E292D30FD008A1126248A153308FA00C4 |
| :1012A0003208B31F5C293208003CF700FA0133080A |
| :1012B000031C330FFA027708E6007A08E700A90159 |
| :1012C000093084006708E9006608E8008A11142FD5 |
| :1012D0008A158C29A9010030C1180130F700F70DDB |
| :1012E000F70DFC30F70577082A3E84000008E90076 |
| :1012F000840A0008EA00840A0008EB00840A000857 |
| :10130000EC00083084006C08F0006B08EF006A08FD |
| :10131000EE006908ED0000288A110A169B2E0A14B7 |
| :101320008A100A118207C628E628F6281F290629EE |
| :10133000D628AD286D13ED126C08EE006430EF0076 |
| :101340008A11A0278A157708EC007808031DC829A0 |
| :10135000ED1AC829ED19DA296D1BB4296D18B429C5 |
| :101360006D19B429ED1BDA296D1CC029ED1BDA2992 |
| :101370006D1BC0296D18DA296D19C029ED1BDA29FA |
| :1013800020306D1E3030FD008A1126248A15DA299E |
| :10139000ED16ED1FD42978088000F8002D30FD00EF |
| :1013A0008A1126248A15ED1330307807FD008A1142 |
| :1013B00026248A156D1BE7296C08EE000A30EF0021 |
| :1013C0008A11A0278A157708EC006D17A529ED1F53 |
| :1013D000EE292D30FD008A1126248A1530306C0745 |
| :1013E000FD008A1126248A1500346C13EC126B0858 |
| :1013F000EE006430EF008A11A0278A157708EB0011 |
| :101400007808031D232AEC1A232AEC19352A6C1BB1 |
| :101410000F2A6C180F2A6C190F2AEC1B352A6C1C2A |
| :101420001B2AEC1B352A6C1B1B2A6C18352A6C19DD |
| :101430001B2AEC1B352A20306C1E3030ED008A113F |
| :10144000B5278A15352AEC16EC1F2F2A780880005C |
| :10145000F8002D30ED008A11B5278A15EC133030D5 |
| :101460007807ED008A11B5278A156C1B422A6B0894 |
| :10147000EE000A30EF008A11A0278A157708EB00EA |
| :101480006C17002AEC1F492A2D30ED008A11B52770 |
| :101490008A1530306B07ED008A11B5278A150034A4 |
| :1014A0000408F2006C0EF038EE00EE07E23EEF00AA |
| :1014B000323EF1006C080F39EF07EF07F107E93E04 |
| :1014C000F000F007F0076B0E0F39F007F107F00D91 |
| :1014D000F10DF109F10D6B080F39F107EE0D073031 |
| :1014E000ED000A30F107F003031C722AF007EF0346 |
| :1014F000031C762AEF07EE03031C7A2AEE07ED039E |
| :10150000031C7E2A6D308400073072058407713019 |
| :1015100004020319A92A0008F700031D952A721A6C |
| :10152000A72AF219972A2030982A0830F200303082 |
| :10153000F707EC010408EB007708ED007708FD00E1 |
| :101540008A1126248A156B0884006D08F700840A26 |
| :10155000872A0008F7003030F7077708FD008A1166 |
| :1015600026248A158A150A12252CA90A2908033C63 |
| :10157000031DBF2A2E30FD008A1126248A156D080E |
| :10158000FD008A1126248A1500346C13EC126B08B6 |
| :10159000EE006430EF008A11A0278A157708EB006F |
| :1015A0007808031DF12AEC1AF12AEC19FF2A6C1BAA |
| :1015B000DF2A6C18DF2A6C19DF2AEC1BFF2A6C1C4F |
| :1015C000EB2AEC1BFF2A6C1BEB2A6C18FF2A6C1908 |
| :1015D000EB2AEC1BFF2A20306C1E3030ED00B522C8 |
| :1015E000FF2AEC16EC1FFB2A78088000F8002D304B |
| :1015F000ED00B522EC1330307807ED00B5226C1BFE |
| :101600000C2B6B08EE000A30EF008A11A0278A1518 |
| :101610007708EB006C17D02AEC1F112B2D30ED0052 |
| :10162000B52230306B07ED00B5228A150A12562C10 |
| :1016300043110130FE0002308316A0008A1183128C |
| :1016400013248A15441E962B5008FB3E0318952B35 |
| :10165000053E402DEB016B088A1129218A15EB0A02 |
| :10166000F700FD008A1126248A1505306B02031D40 |
| :101670002B2B0330EC002030FD008A1126248A1524 |
| :10168000EC0B3B2B952BEB016B088A1133218A1550 |
| :10169000EB0AF700FD008A1126248A1505306B023B |
| :1016A000031D442B0330EC002030FD008A1126245A |
| :1016B0008A15EC0B542B952BEB016B088A113D21FD |
| :1016C0008A15EB0AF700FD008A1126248A150830D6 |
| :1016D0006B02031D5D2B952BEB016B088A114A21D0 |
| :1016E0008A15EB0AF700FD008A1126248A150430BA |
| :1016F0006B02031D6D2B0430EC002030FD008A11BD |
| :1017000026248A15EC0B7D2B952BEB016B088A1197 |
| :1017100053218A15EB0AF700FD008A1126248A1549 |
| :1017200008306B02031D862B952B3D2DC41DB32C59 |
| :101730005008F93E0318B22C073E492D4F08F0001F |
| :101740000630F1008A11AC258A157808EB002D309F |
| :10175000FD008A1126248A156B08EC001130ED007B |
| :101760009A210430EC006C088A1160218A15EC0A79 |
| :10177000F700FD008A1126248A1509306C02031D2A |
| :10178000B32BB22C431BDB2BA9015B08EB00013010 |
| :10179000EC00F5210430EB006B088A116E218A15EC |
| :1017A000EB0AF700ED008A11B5278A1509306B02A4 |
| :1017B000031DCC2BDE2B8A11C1278A15B22C4E08B3 |
| :1017C000053C031CFC2B4F30FD008A1126248A1592 |
| :1017D0004630FD008A1126248A154630FD008A1104 |
| :1017E00026248A150530EB002030FD008A112624BE |
| :1017F0008A15EB0BF42B0A2C4E08EC001130ED008F |
| :101800009A210630EB002030FD008A1126248A152B |
| :10181000EB0B032CB22CE8014A08E7006808FD0036 |
| :101820006708FC008316A1013230A0008A118312E0 |
| :1018300015268A157908E8007808E7000130840049 |
| :101840006808EC006708EB00502A0430EB006B08D6 |
| :101850008A117C218A15EB0AF700FD008A112624E3 |
| :101860008A1509306B02031D272CB22CEA01590896 |
| :10187000E9006A08FD006908FC008316A1010A302E |
| :10188000A0008A11831215268A15790CEA00780CBB |
| :10189000E900EA0CE90CEA0CE90CEA0CE90C0F305F |
| :1018A000EA05A9016908EB00EC01C52A5630ED00F4 |
| :1018B000B5220430EB002030ED00B522EB0B5B2CA1 |
| :1018C000B22CCD080319732C4230FD008A11262456 |
| :1018D0008A150730EB002030FD008A1126248A1576 |
| :1018E000EB0B6B2C812C4130FD008A1126248A15CC |
| :1018F0000730EB002030FD008A1126248A15EB0BFF |
| :101900007A2CB22CCC0803199E2C5930FD008A1178 |
| :1019100026248A154530FD008A1126248A15533065 |
| :10192000FD008A1126248A150530EB002030FD00C9 |
| :101930008A1126248A15EB0B962CB12C4E30FD0013 |
| :101940008A1126248A154F30FD008A1126248A1513 |
| :101950000630EB002030FD008A1126248A15EB0B9F |
| :10196000AA2CB22C3D2D431FB92C8A11C1278A15F0 |
| :101970003D2DC5183D2D5308C73C031CC52C3230E6 |
| :10198000FD008A1126248A15CA2C2030FD008A11F8 |
| :1019900026248A155308BA3C031CD42C3330FD008E |
| :1019A0008A1126248A15D92C2030FD008A1126247C |
| :1019B0008A155308A83C031CE32C3430FD008A111F |
| :1019C00026248A15E82C2030FD008A1126248A1549 |
| :1019D0005308913C031CF22C3530FD008A1126245B |
| :1019E0008A15F72C2030FD008A1126248A15530809 |
| :1019F000823C031C012D3630FD008A1126248A15F5 |
| :101A0000062D2030FD008A1126248A155308793CC2 |
| :101A1000031C102D3730FD008A1126248A15152D40 |
| :101A20002030FD008A1126248A155308733C031CBC |
| :101A30001F2D3830FD008A1126248A15242D2030D0 |
| :101A4000FD008A1126248A155308603C031C2E2DA4 |
| :101A50001330FD008A1126248A153D2D53086C3C55 |
| :101A6000031C382D3930FD008A1126248A153D2D9E |
| :101A70002030FD008A1126248A158A110A16A52E07 |
| :101A80000A148A100A1582072A2B432B5C2B852BFC |
| :101A90006C2B0A148A100A158207C22B0B2C362CC9 |
| :101AA000822C612CDF2B9E2B20308316AC00A801EA |
| :101AB000A901AA01AB012308FA002208F9002108B4 |
| :101AC000F8002008F7000310771C742D2408A807DD |
| :101AD00025080318250FA90726080318260FAA07AB |
| :101AE00027080318270FAB07AB0CAA0CA90CA80CEE |
| :101AF000FA0CF90CF80CF70CAC0B632D83128A1559 |
| :101B00000A12E42DF801F901F701FA018316210800 |
| :101B1000031D8D2D20080319A72D1030FE00031082 |
| :101B2000FC0DFD0DF70DFA0D21087A02031D9A2D0B |
| :101B300020087702031CA32D2008F702031CFA03D8 |
| :101B40002108FA020314F80DF90DFE0B8F2D000089 |
| :101B5000831200345808E039F50042088A119320B6 |
| :101B60008A15F80075020319B72D8A01002805307F |
| :101B70005907AD3C03184417431F072FEB01EA0137 |
| :101B8000E9015608E8006B088316A30083126A086F |
| :101B90008316A200831269088316A10083126808C5 |
| :101BA0008316A00083126B088316A70083126A08AD |
| :101BB0008316A600831269088316A500831268089D |
| :101BC0008316A4008312542D7A08EB007908EA00EA |
| :101BD0007808E9007708E800680DEC00690DED0071 |
| :101BE0006A0DEE006B0DEF00EC0DED0DEE0DEF0D3F |
| :101BF000EC0DED0DEE0DEF0DF830EC056808EC077F |
| :101C000069080318690FED076A0803186A0FEE07E1 |
| :101C10006B0803186B0FEF076808EC0769080318D7 |
| :101C2000690FED076A0803186A0FEE076B080318BF |
| :101C30006B0FEF076F088316A30083126E088316DD |
| :101C4000A20083126D088316A10083126C0883160C |
| :101C5000A000A701A6011530A500E030A4008A115C |
| :101C60008312D1258A157708D400D708031D3B2E8F |
| :101C70000A30D500A72EF1015608F000F00DF10D45 |
| :101C8000F00DF10DF00DF10DF00DF10DF030F0054E |
| :101C90007108FD007008FC008316A101831257082B |
| :101CA0008316A000831282257908E7007808E600F1 |
| :101CB000E708031D622E6608103C031C622EFA30F2 |
| :101CC000D500A72E6708003C0318702EFF3A031DAD |
| :101CD0006D2E6608513C0318702E0A30D500A72ED1 |
| :101CE00010306607F0006708F1000318F10A700D64 |
| :101CF000F200710DF300F20DF30DF20DF30DF8305B |
| :101D0000F2057008F2070318F30A7108F307700868 |
| :101D1000F2070318F30A7108F30710306602F700A0 |
| :101D20006708FA000030031C0130FA027708F5005A |
| :101D30007A08F6007308FD007208FC007A08831622 |
| :101D4000A1007708A000831282257808D5005508E5 |
| :101D5000123C0318AF2E54080A3CF400B22E54086B |
| :101D60005B02F4007408803A7E3C031CDC2E5A08A7 |
| :101D70001B3C0318DC2E7408803A753C031CC32EF0 |
| :101D80000430DA02C42EDA03F1015A08F00003101D |
| :101D9000700DF500710DF600F60CF50CF60CF50C57 |
| :101DA000F60C75089B00F60C760C3039F7001D0810 |
| :101DB000CF3977049D00072FF41B072F7408023CCE |
| :101DC0000318072F5A089C3C031C072FF41BEF2E07 |
| :101DD00074080A3C0318EF2E0430DA07F02EDA0AF2 |
| :101DE000F1015A08F0000310700DF500710DF600B6 |
| :101DF000F60CF50CF60CF50CF60C75089B00F60CC1 |
| :101E0000760C3039F7001D08CF3977049D00610842 |
| :101E1000043C03180E2F4315E1010F2FE10A8A112C |
| :041E20000A16AF2EC1 |
| :1020000084011F30830583161F149F141F159F1111 |
| :10201000FF308312E000E1010A12A92B0A16831691 |
| :10202000A3015030A4000A1283128A230A16023038 |
| :10203000FE000A125C230A16E60166080A12A421B1 |
| :102040000A16E60AF700E7000A12F2230A16083019 |
| :102050006602031D1D288316A3010330A4000A1283 |
| :1020600083128A230A160230FE000A125C230A1623 |
| :102070008316A3014830A4000A1283128A230A1689 |
| :102080000230FE000A125C230A161030E7000A1222 |
| :10209000F2230A161030E7000A12F2230A1616304D |
| :1020A000E7000A12F2230A160330E6001F30E700A9 |
| :1020B0000A12F2230A16E60B56281E30E7000A120F |
| :1020C000F2230A168030E7000A12F2230A1683165A |
| :1020D000A3010330A4000A1283128A230A160230D5 |
| :1020E000FE000A125C230A168316A3015830A400CE |
| :1020F0000A1283128A230A160230FE000A125C2397 |
| :102100000A16E60166080A12B1210A16E60AF70065 |
| :10211000E7000A12F2230A1608306602031D82281D |
| :102120008316A3010330A4000A1283128A230A161D |
| :102130000230FE000A125C230A168316811308106F |
| :102140008312081483160812831208128316881249 |
| :1021500083128816831606118312061183168611C0 |
| :1021600083128611831606128312061283168612B4 |
| :102170008312861260156008831687008312E010B0 |
| :102180006008831687008312871083160910831254 |
| :1021900009106010600883168700831207108316E9 |
| :1021A00089108312891021308316AF00AE010A1204 |
| :1021B0008312FC230A16C0308316AF00AE010A1248 |
| :1021C0008312FC230A16E0308316AF00AE010A1218 |
| :1021D0008312FC230A160A30B500C401C301C601EC |
| :1021E000C501C701C801D1011B30DA00B401BC012F |
| :1021F000B301B2010130FE008316A0000A1283125F |
| :1022000013240A16E60166080A12BE210A16E60A17 |
| :10221000F700FD000A1226240A1608306602031D84 |
| :1022200003290130FE0002308316A0000A12831237 |
| :1022300013240A16E60166080A12CB210A16E60ADA |
| :10224000F700FD000A1226240A1605306602031D57 |
| :102250001B290330E7002030FD000A1226240A164D |
| :10226000E70B2B290430E600FA30FE000A125C234B |
| :102270000A16E60B34291F179F1383169F13831228 |
| :102280001F1483161F109F141F119F110A1283120F |
| :10229000632C0A160A12D32C0A16420803178D0063 |
| :1022A00083168C130C1483120C080313C9004908FD |
| :1022B000F0000530F1000A12AC250A167808DB00A0 |
| :1022C000083003178D0083168C130C1483120C082E |
| :1022D0000313CE004E08053C031C7129C601C5013D |
| :1022E0009C2945148316A3010230A2004930A100A5 |
| :1022F000F030A000A701A601A50183124E088316A5 |
| :10230000A4000A128312D1250A167708DC00DC0922 |
| :102310007808DD00DD09DC0A0319DD0A03105C0D15 |
| :10232000E6005D0DE7005C086607DE006708DF0079 |
| :102330000318DF0A5D08DF07043003178D008316DA |
| :102340008C130C1483120C080313CA00BA014A0838 |
| :10235000B900B908031DAF29BA080319C0293A0802 |
| :10236000FD003908FC008316A1011430A0000A12F8 |
| :10237000831215260A167908BA007808B900C3290D |
| :10238000BA010230B900063003178D0083168C1392 |
| :102390000C1483120C080313CC00CC080319D229A7 |
| :1023A000C517D329C513063003178D0083168C1368 |
| :1023B0000C1483120C080313CC004610CF010A1230 |
| :1023C0002C260A16420DF700F70DFC30F7057708AA |
| :1023D000E6000330E60766080A1277200A16FA00BC |
| :1023E000E60366080A1277200A16F900E603660873 |
| :1023F0000A1277200A16F80066030A1277200A16D6 |
| :10240000F7007A08AD007908AC007808AB007708CF |
| :10241000AA00420DF700F70DFC30F7057708E6003B |
| :102420000330E60766080A1277200A16FA00E60368 |
| :1024300066080A1277200A16F900E60366080A12EF |
| :1024400077200A16F80066030A1277200A16F700AA |
| :102450007A08B1007908B0007808AF007708AE00BC |
| :1024600043144110C11083160108C0390638810099 |
| :10247000D930831281001830F800063892004D30B0 |
| :1024800083169200831260116008831687008312FE |
| :1024900007110C30970027309500601560088316EF |
| :1024A0008700C0018312071D582A8316C00A8312B1 |
| :1024B000E010600883168700831287100C309D009F |
| :1024C00006309B001D08CF3930389D00900106086A |
| :1024D000FF3AC039BF003F1B45100B168B16831601 |
| :1024E0008C140C1483128B15C0308B04431CDD2B11 |
| :1024F000431B1C2B4208023C0318B42A0030C118AD |
| :102500000130F700F70DF70DFC30F70577082A3E8C |
| :10251000840000088316A100840A0008A200840A2F |
| :102520000008A300840A0008A400FD308407B0302E |
| :1025300021028312E600831622088312E700493045 |
| :10254000031C4A30E702831623088312E8004C304C |
| :10255000031C4D30E802831624088312E900003082 |
| :10256000031C0130E902E92A0030C1180130F700EC |
| :10257000F70DF70DFC30F70577082A3E84000008B8 |
| :102580008316A100840A0008A200840A0008A300A0 |
| :10259000840A0008A400FD308407B03021078312AC |
| :1025A000E600831622088312E700493003184A30F8 |
| :1025B000E707831623088312E8004C3003184D30D8 |
| :1025C000E807831624088312E9000030031801305D |
| :1025D000E907431E1A2B3208F7003308F800F90107 |
| :1025E000FA01B31FF52AF903FA037A08F100790812 |
| :1025F000F0007808EF007708EE006E086607F70035 |
| :102600006708F8006F0803186F0FF8076808F900EB |
| :1026100070080318700FF9076908FA0071080318A9 |
| :10262000710FFA077A08E9007908E8007808E700EE |
| :102630007708E600C314592BC31E3C2B0030C11C85 |
| :102640000130F700F70DF70DFC30F70577082A3E4B |
| :1026500084000008F700840A0008F800840A0008D3 |
| :10266000F900840A0008FA00E9007908E80078080F |
| :10267000E7007708E600592B0030C1180130F70059 |
| :10268000F70DF70DFC30F70577082A3E84000008A7 |
| :10269000F700840A0008F800840A0008F900840A98 |
| :1026A0000008FA00E9007908E8007808E7007708F0 |
| :1026B000E60069088316A300831268088316A20047 |
| :1026C000831267088316A100831266088316A00090 |
| :1026D0000A1283124C2E0A1677088316A000780877 |
| :1026E000A1007908A2007A08A3002308A700220805 |
| :1026F000A6002108A5002008A4007730AB00CC304C |
| :10270000AA002B30A9008130A8000A1283126B2E78 |
| :102710000A167A088316A7007908A6007808A5008B |
| :102720007708A4000A128312E52E0A167A08831687 |
| :10273000A7007908A6007808A5007708A400270854 |
| :10274000AB002608AA002508A9002408A80020300C |
| :10275000AF00AE010A128312FC230A168316290861 |
| :10276000AD002808AC002D17AD132D08AF002C08C4 |
| :10277000AE000A128312FC230A168316280DAF003E |
| :10278000290DB0002A0DB1002B0DB200AF0DB00D18 |
| :10279000B10DB20DFC30AF05F901FA013208AD0000 |
| :1027A0003108AC002D17AD132D08AF002C08AE007A |
| :1027B0000A128312FC230A164310441C812DC419EB |
| :1027C000E32B441E302CB41BE92B3408093C031CBA |
| :1027D000EE2B3408803A763C031C812DB41B122C5E |
| :1027E0003408003C0318122C441EFD2B5008033CF7 |
| :1027F000031CFC2BD00A4315112C493050078400D0 |
| :102800000008F0000310500D013E0A129B200A162A |
| :10281000F80070020318112C493050078400800A18 |
| :10282000C3152E2C441E1A2CD0080319192CD003C2 |
| :1028300043152E2C4930500784000008F000031087 |
| :10284000500D0A129B200A16F8007008780203182F |
| :102850002E2C4930500784008003C315B401802D0D |
| :10286000431E742C3408F0000A30F1000A12AC2523 |
| :102870000A167808FA01F700F71BFA03EE007A0847 |
| :10288000EF00B4016E083207F0003308F1000318BE |
| :10289000F10A6F08F107F11B572C7108073C031C64 |
| :1028A000732C031D572C7008D03C031C732C6E082E |
| :1028B0003207F2003308F3000318F30A6F08F30736 |
| :1028C000F31F6D2C7308F73C0318732CFF3A031D9C |
| :1028D0006D2C72082F3C0318732C6E08B207031876 |
| :1028E000B30A6F08B3077F2DF3013408F200B41B5D |
| :1028F000F303003041180130F7000310F70D77089B |
| :10290000F100770A0A128B200A16FA0071080A12DF |
| :102910008B200A16F4007A08F5007308FD0072088F |
| :10292000FC007A088316A1007408A0000A12831222 |
| :1029300015260A167908FA007808F7007908F800D1 |
| :10294000F901FA01F81FA62CF903FA037A08ED0041 |
| :102950007908EC007808EB007708EA00B401003051 |
| :10296000C1180130F700F70DF70DFC30F7057708B7 |
| :102970002A3E84000008F100840A0008F200840A5C |
| :102980000008F300840A0008F4006A087107F700E1 |
| :102990007208F8006B0803186B0FF8077308F9004A |
| :1029A0006C0803186C0FF9077408FA006D08031817 |
| :1029B0006D0FFA077A08E9007908E8007808E7005F |
| :1029C0007708E600420DF700F70DF70DF830F70530 |
| :1029D0007708043EF1000330F10771080A12532012 |
| :1029E0000A16FA00F10371080A1253200A16F900B8 |
| :1029F000F10371080A1253200A16F80071030A1233 |
| :102A000053200A16F70069087A02031C7F2D031D64 |
| :102A1000192D68087902031C7F2D031D192D6708E5 |
| :102A20007802031C7F2D031D192D66087702031CF5 |
| :102A30007F2D420DF700F70DF70DF830F7057708F9 |
| :102A4000F3000330F30773080A1253200A16FA0042 |
| :102A5000F30373080A1253200A16F900F3037308EC |
| :102A60000A1253200A16F80073030A1253200A169A |
| :102A7000F7007A086902031C7F2D031D4F2D79088A |
| :102A80006802031C7F2D031D4F2D78086702031C6D |
| :102A90007F2D031D4F2D77086602031C7F2D00300C |
| :102AA000C1180130F700F70DF70DFC30F705770876 |
| :102AB0002A3E84006A080007F700840A0008F8002C |
| :102AC0006B0803186B0FF807840A0008F9006C08FC |
| :102AD00003186C0FF907840A0008FA006D08031840 |
| :102AE0006D0FFA07FD30840777088000840A7808A4 |
| :102AF0008000840A79088000840A7A0880004314E0 |
| :102B00004410C31D912EC3115008063A0319982D85 |
| :102B1000063A03192E2E053A0319382E043A0319E2 |
| :102B20006A2E023A0319882E073A03198F2E902E27 |
| :102B300044154F08013A0319A42D033A0319D32D64 |
| :102B4000013A0319022E262E831609108312091446 |
| :102B500083168910831289100A30FE000A125C2342 |
| :102B60000A16831689148312601060088316870082 |
| :102B70008312071083168910831289140A30FE000D |
| :102B80000A125C230A16831689140A30FE000A1200 |
| :102B900083125C230A1683160914831260146008DA |
| :102BA000831687002C2E83160910831209108316B2 |
| :102BB0008910831289140A30FE000A125C230A1657 |
| :102BC00083168914831260106008831687008312AD |
| :102BD000071483168910831289100A30FE000A1226 |
| :102BE0005C230A16831689140A30FE000A12831227 |
| :102BF0005C230A1683160914831260146008831676 |
| :102C000087002C2E831609108312091460106008A7 |
| :102C10008316870083120714831689108312891084 |
| :102C20000A30FE000A125C230A16831689140A3041 |
| :102C3000FE000A1283125C230A16831609148312FB |
| :102C400060146008831687002C2E83120A122C262B |
| :102C50000A16441183162C2E8312902E4908F00078 |
| :102C60000530F1000A12AC250A167808DB00902E18 |
| :102C70004E08053C031C3E2E4510692E4514831654 |
| :102C8000A3010230A2004930A100F030A000A7014A |
| :102C9000A601A50183124E088316A4000A1283120E |
| :102CA000D1250A167708DC00DC097808DD00DD098B |
| :102CB000DC0A0319DD0A03105C0DE6005D0DE70078 |
| :102CC0005C086607DE006708DF000318DF0A5D089E |
| :102CD000DF07902EBA014A08B900B908031D732E08 |
| :102CE000BA080319842E3A08FD003908FC0083163F |
| :102CF000A1010A30A0000A12831215260A167908CB |
| :102D0000BA007808B900872EBA010130B900902EB8 |
| :102D1000CC0803198D2EC5178E2EC513902E902E1C |
| :102D20004315C31C9D2EB508031D9D2EC5189D2E51 |
| :102D30000A128A1581280A168A11431DA92EB50880 |
| :102D4000031DA92E0A128A15182B0A168A11FF30A4 |
| :102D5000B500B508031DB32E0A128A15AA2D0A164E |
| :102D60008A11FF30B500C71C6E2FC41D052F4718F0 |
| :102D7000052FC411B401C61845145008063C0319A8 |
| :102D8000022F50080A12AD200A16F800E200D008FF |
| :102D9000031DCC2E4208E207620803178D0083163C |
| :102DA0008C130C1483120C080313E60049305007EF |
| :102DB0008400000866020319022F4930500784007E |
| :102DC0000008E600620803178D0003136608031766 |
| :102DD0008C0083168C130C15831203130B08F70059 |
| :102DE0008B138316031755308D00AA308D008C1479 |
| :102DF0008C18F82E0C117708831203138B040A1217 |
| :102E0000A1240A16C31443156C2F3C08103C031D63 |
| :102E1000242F471C102F4416D001C3144315242F10 |
| :102E2000441E1E2FD008031D1B2F451C192FC6142E |
| :102E30001A2FC61045104412C415232FC31E222F6B |
| :102E4000C312232FC316C314441A6C2F3C08403CF2 |
| :102E5000031D3B2F471C332F411C302F4110312FB6 |
| :102E60004114C3143B2F431E392F4312B301B20147 |
| :102E70003A2F431643143C08203C031D5B2F471C8C |
| :102E8000552FC11C4C2F3108AD003008AC002F0865 |
| :102E9000AB002E08AA00542F2D08B1002C08B0005A |
| :102EA0002B08AF002A08AE005B2FC11C592FC110A0 |
| :102EB0005A2FC11443143C08803C031D6C2F471C3F |
| :102EC000672F0530D000C415C31443156C2F06308E |
| :102ED000D000C415C3144315C7104715762A6300E4 |
| :02400E00793FF8 |
| :00000001FF |
| ;PIC16F877 |