Отправлено expert 27 апреля 2003 г. 08:41 В ответ на: Хм. Не проще. отправлено blackbit 26 апреля 2003 г. 22:21

;-----------------> установка температуры поддержания <---------------------
Bank0
button_choice b'100000', PORTC, temp_ust_yes,temp_ust_no
nop
temp_ust_yes
load_L_in_A_16 h'30', h'31', temp_h3,
; запись параметра регулировки в eeprom адреса 30,31
temp_h2
call kal_term
load_A_in_B_16 temp_h3, temp_h2, parametr_h, parametr_l
temp_ust_no

; ------------------ измерение температуры ---------------------

call sensor_in
load_A_in_B_16 temp_h1, temp_l, zx_h, zx_l
nop
; load and Calculations
load_A_in_B_16 GBcalHi, GBcalLo, zmax_h, zmax_l
load_A_in_B_16 GMcalHi, GMcalLo, zmin_h, zmin_l
load_A_in_B_16 LGMcal_h, LGMcal_l, rmin_h, rmin_l
load_A_in_B_16 LGBcal_h, LGBcal_l, rmax_h, rmax_l

nop
call pol_alg ; calculations
nop
;------------------> вывод на индикатор <----------------

load_A_in_B_16 rx_h, rx_l, led_out_h, led_out_l
call led_lcd_4

;------------------> задержка 1секунда

call delay_1s

;-----------------------сравнение

if_A_more_B_16 rx_h,rx_l,parametr_h,parametr_l,off_nagrevat,
on_nagrevat
off_nagrevat

bcf PORTC,2 ;отключить нагреватель '0'
goto cycle_new

on_nagrevat

bsf PORTC,2 ;включить нагреватель '1'
goto cycle_new

операторы как if_A_more_B_16, можно и ifm16 это кому как удобнее