Lcd_light Alias ??Porta.6 - привласнення порту введення виведення символьного імені.
Вкл викл. Підсвічування РКІ.
Dim Lcd_size As Byte -змінного, що зберігає інформацію про розмір РКІ.
Config Lcdpin=Pin, Db4=Porta.2, Db5=Porta.3, Db6=Porta.4, Db7=Porta.5, E=Porta.1, Rs=Porta.0 -Ініціалізація підключення РКІ до шини.
Config Spi=Hard, Interrupt=Off, Data Order=Msb, Master=Yes, Polarity=High, Phase=1, Clockrate=4, Noss=0 -Настройка режиму шини SPI. :: Ініціалізація підключення шини SPIAlias ??Portb.4: Config Portb.4=Output- привласнення порту введення виведення символьного імені. Застосовується для активізації SPI підлеглого пристрою.
Dim Second2 As Eram Byte At 17
Dim Minute2 As Eram Byte At 18Hour2 As Eram Byte At 19Dat2 As Eram Byte At 20Dat_weak2 As Eram Byte At 21Month2 As Eram Byte At 22Year2 As Eram Word At 23Leap2 As Eram Byte At 25Month_inc2 As Eram Byte At 26Dat_inc2 As Eram Byte At 27Hour_inc2 As Eram Byte At 28Month_dec2 As Eram Byte At 29Dat_dec2 As Eram Byte At 30Hour_dec2 As Eram Byte At 31Lcd_size2 As Eram Byte At 32Osc_num2 As Eram Byte At 33Fl_err_cntr2 As Eram Byte At 34P_num2 As Eram Word At 35Eep_buf2 As Eram String * +3800 At 100
- змінні, що зберігаються в Енергонезалежної пам'яті.
Dim Tact As Byte: Dim Second As Byte: Dim Minute As Byte: Hour As Byte: Dim Dat As Byte: Dim Dat_weak As ByteMonth As Byte: Dim Year As Word: Dim Leap As Byte: Month_inc As Byte: Dim Dat_inc As Byte: Hour_inc As Byte Dim Month_dec As Byte: Dat_dec As Byte: Dim Hour_dec As Byte: Maxdat As Byte: Dim Year_l As ByteYear_d As Byte: Dim Maxdat_l As Byte: Year_lo As Byte: Dim New_sec As Bit: New_min As Bit -змінного, використовувані в роботі годинника реального часу.
Dim Pwm_out As WordTim2_intr As Byte
змінні, використовувані для ШІМ.Buf_ip_err As Bit: Dim Buf1_full As Bit: Buf_err_ovr As Bit: Dim Buf_err_entr As Bit: Buf2_full As Bit: Dim Buf_tim_cnt As Byte: Buf_cntr As Byte: Dim Buf_last_sec As Byte: Buf_entr As Bit: Dim Buf_pack_num As Byte:
- змінні, використовувані для контролю пакетних посилок від ПК по каналу УСАПП.
Dim Rs_pack_b1 As Byte: Dim Rs_pack_b2 As Byte: Rs_pack_b3 As Byte: Dim Rs_pack_b4 As Byte: Dim Rs_pack_b5 As Byte: Dim Rs_pack_b6 As Byte: Dim Rs_pack_b7 As Byte: Rs_pack_b0 As Byte: Dim Rs_pack_b8 As Byte:Rs_pack_b9 As Byte
- змінні, складові первинний буфер FIFO УСАПП.
Dim Rs_buf0 As Byte: Dim Rs_buf1 As Byte: Dim Rs_buf2 As Byte: Rs_buf3 As Byte: Dim Rs_buf4 As Byte: Dim Rs_buf5 As Byte: Rs_buf6 As Byte: Dim Rs_buf7 As Byte: Dim Rs_buf8 As Byte Rs_init As Byte -змінного, складові вторинний буфер FIFO УСАПП.
Dim Wdr_ovr As Bit: Dim Cycle_err As Bit: Dim Rs_time_err As Bit
- змінні, що містять інформацію про проблему в головному циклі програми.
Dim Adc_conv As Word: Adc_conv_low As Byte At Adc_conv Overlay: Adc_conv_hight As Byte At Adc_conv + 1 Overlay: Adc_cycle As Word: Channel As Byte: Adc_buf (2000) As Byte:
- змінні, використовувані при роботі АЦП.
Dim Fl_rdy As Bit: Dim Fl_st As Byte: Dim Fl_st_tmp As Byte: Fl_buf_err As Bit: Dim Fl_mem_err As Bit: Fl_mem_ww As Bit: Dim Fl_try_w As Byte: Fl_try_max As Byte Fl_try_max=4Fzb: Reset Fl_rdy:Reset Fl_mem_ww:
- змінні, що містять інформацію про стан флеш-накопичувача.
Dim I As Word: Dim P_buf (528) As Byte: Dim P_num As Word: P_num_tmp As Word: Dim P_num_l As Byte: P_num_h As Byte: Dim P_cntr As Word: P_cntr_tmp As Word: Dim P_cntr_l As Byte: P_cntr_h As Byte: Dim P_end As Word: Meas_cnt As Word: лічильник ізмереній.K As Byte: Dim Osc_cntr As ByteOsc_num As Byte: - лічильник осціллограмм.Buf_num As Byte: -номер буфера в осціллограммеBuf_add As Word: Meas_cnt_h As Byte At Adc_conv + 1 OverlayMeas_cnt_l As Byte At Adc_conv Overlay: Ser_osc_st As Bit
- змінні-лічильники адрес в проміжних інформаційних буферів
Adc_buf (2000) та P_buf (528) Frs As Byte: Dim Fb1 (4) As Byte: Dim Frfb As Byte: Fzb (4) As Byte: Dim Rba As Byte: Dim Fl_err As Bit:Fl_err_cntr As Byte: Dim Wpn As Byte: Dim Ff As Byte=215: Fb1 (1)=132: Frfb=131: Wpn=83: Rba=212: Ff=255: K=77
- опкоди команд, призначені для управління флеш-накопичувача
Declare Sub Ready_stat (): Declare Sub Transf_osc (): Sub Osc ():
обявление підпрограм.
Reset New_sec: Reset New_min: Reset Buf1_full: Reset Buf_err_ovr: Reset Buf_entr: Reset Buf_pack_num: Reset Wdr_ovrCycle_e...
