nt02.asm

空调控制器

		lda	tem_cal_f
		and	#tem_cal_t_st
		beq	t640_next4
		inc	tem_cal_t		
		jmp	t640_next5
t640_next4:	
		stz	tem_cal_t
t640_next5:
		lda	h_motor_t
		cmp	#00h
		beq	t640_next6
		dec	h_motor_t
t640_next6:


		rts
		
		
			
t10msec_ret:
		lda	#t10msf
		jmp	t_m_ret
t20msec_ret:
		lda	#t20msf
		jmp	t_m_ret
t40msec_ret:
		lda	#t40msf
		jmp	t_m_ret
t80msec_ret:
		lda	#t80msf
		jmp	t_m_ret
t160msec_ret:
		lda	#t160msf
		jmp	t_m_ret
t320msec_ret:
		lda	#t320msf
		jmp	t_m_ret
t640msec_ret:
		lda	#t640msf
;		jmp	t_m_ret	

t_m_ret:		
		ora	timeflag
		sta	timeflag
		rts
time_manager_ret:		
		rts
		
;--------------------------
stop_ad_convert:		
		lda	#00h
		sta	rADCC
key_no_action:	
		rts
		
;***********************************************;
;remote value convert to key value and action **;
;***********************************************;
remote_action:
		lda	remote_f
		and	#rem_in_f
		beq	remote_action_ret_0
		
		lda	remote_f
		and	#rem_in_f_n
		sta	remote_f
;-----------------------------------------------;


		lda	r_data0
		cmp	#60h
		beq	r_power_off_0		; power off mode
		
		lda	powerflag
		and	#power_on_f
		bne	remote_action_0
		jsr	power_k			;
remote_action_0:
		lda	#8			; when key press then back light on
		sta	back_light_t		; setting back light 5sec
		
		stz	clock_setting_t	
		jsr	buzzer_on

			
		lda	r_data0
		cmp	#04h
		beq	cold_sp_mode0		; cold mode
		cmp	#00h
		beq	cold_sp_mode0		; cold or speed  mode
		cmp	#06h
		beq	r_hot_mode0		; hot mode
		cmp	#02h
		beq	r_hot_mode0		; hot mode
		
		cmp	#50h
		beq	p_off_time_s0		; auto power off time setting
		rts
p_off_time_s0:
		jmp	p_off_time_s		
cold_sp_mode0:
		jmp	cold_sp_mode
r_hot_mode0:
		jmp	r_hot_mode
	
remote_action_ret_0:
		rts
;-----------------------------------------------;		
r_power_off_0:
		lda	r_data1
		cmp	#02h
		beq	r_power_off_1		; power off mode
p_save_mdoe:
		lda	#8			; when key press then back light on
		sta	back_light_t		; setting back light 5sec
		jsr	buzzer_on
		rts
r_power_off_1:		
		jmp	r_power_off
r_hot_mode:
		lda	r_data1
		cmp	#08h
		beq	r_h_low_mode_16	
		cmp	#09h
		beq	r_h_mid_mode_16
		cmp	#0Ah
		beq	r_h_high_mode_16
		
		cmp	#10h
		beq	r_h_low_mode_17	
		cmp	#11h
		beq	r_h_mid_mode_17	
		cmp	#12h
		beq	r_h_high_mode_17

		cmp	#18h
		beq	r_h_low_mode_18	
		cmp	#19h
		beq	r_h_mid_mode_18	
		cmp	#1ah
		beq	r_h_high_mode_18
		
		cmp	#20h
		beq	r_h_low_mode_19	
		cmp	#21h
		beq	r_h_mid_mode_19	
		cmp	#22h
		beq	r_h_high_mode_19
		
		cmp	#28h
		beq	r_h_low_mode_20	
		cmp	#29h
		beq	r_h_mid_mode_20	
		cmp	#2ah
		beq	r_h_high_mode_20
		

		jmp	h_mode_next

;-----------------------------------------------;
mode_16:
		lda	#16
		sta	t_setting_m
		rts
r_h_low_mode_16:
		jsr	mode_16
		jmp	r_hot_low_com	
r_h_mid_mode_16:
		jsr	mode_16
		jmp	r_hot_mid_com	
r_h_high_mode_16:
		jsr	mode_16
		jmp	r_hot_high_com
;-----------------------------------------------;
mode_17:
		lda	#17
		sta	t_setting_m
		rts
r_h_low_mode_17:
		jsr	mode_17
		jmp	r_hot_low_com	
r_h_mid_mode_17:
		jsr	mode_17
		jmp	r_hot_mid_com	
r_h_high_mode_17:
		jsr	mode_17
		jmp	r_hot_high_com
;-----------------------------------------------;
mode_18:
		lda	#18
		sta	t_setting_m
		rts
r_h_low_mode_18:
		jsr	mode_18
		jmp	r_hot_low_com	
r_h_mid_mode_18:
		jsr	mode_18
		jmp	r_hot_mid_com	
r_h_high_mode_18:
		jsr	mode_18
		jmp	r_hot_high_com	
;-----------------------------------------------;
mode_19:
		lda	#19
		sta	t_setting_m
		rts
r_h_low_mode_19:
		jsr	mode_19
		jmp	r_hot_low_com	
r_h_mid_mode_19:
		jsr	mode_19
		jmp	r_hot_mid_com	
r_h_high_mode_19:
		jsr	mode_19
		jmp	r_hot_high_com	
;-----------------------------------------------;
mode_20:
		lda	#20
		sta	t_setting_m
		rts
r_h_low_mode_20:
		jsr	mode_20
		jmp	r_hot_low_com	
r_h_mid_mode_20:
		jsr	mode_20
		jmp	r_hot_mid_com	
r_h_high_mode_20:
		jsr	mode_20
		jmp	r_hot_high_com	
;-----------------------------------------------;
mode_21:
		lda	#21
		sta	t_setting_m
		rts
r_h_low_mode_21:
		jsr	mode_21
		jmp	r_hot_low_com	
r_h_mid_mode_21:
		jsr	mode_21
		jmp	r_hot_mid_com	
r_h_high_mode_21:
		jsr	mode_21
		jmp	r_hot_high_com	
;-----------------------------------------------;
mode_22:
		lda	#22
		sta	t_setting_m
		rts
r_h_low_mode_22:
		jsr	mode_22
		jmp	r_hot_low_com	
r_h_mid_mode_22:
		jsr	mode_22
		jmp	r_hot_mid_com	
r_h_high_mode_22:
		jsr	mode_22
		jmp	r_hot_high_com	
;-----------------------------------------------;
mode_23:
		lda	#23
		sta	t_setting_m
		rts
r_h_low_mode_23:
		jsr	mode_23
		jmp	r_hot_low_com	
r_h_mid_mode_23:
		jsr	mode_23
		jmp	r_hot_mid_com	
r_h_high_mode_23:
		jsr	mode_23
		jmp	r_hot_high_com		
;-----------------------------------------------;
mode_24:
		lda	#24
		sta	t_setting_m
		rts
r_h_low_mode_24:
		jsr	mode_24
		jmp	r_hot_low_com	
r_h_mid_mode_24:
		jsr	mode_24
		jmp	r_hot_mid_com	
r_h_high_mode_24:
		jsr	mode_24
		jmp	r_hot_high_com	
;-----------------------------------------------;
mode_25:
		lda	#25
		sta	t_setting_m
		rts
r_h_low_mode_25:
		jsr	mode_25
		jmp	r_hot_low_com	
r_h_mid_mode_25:
		jsr	mode_25
		jmp	r_hot_mid_com	
r_h_high_mode_25:
		jsr	mode_25
		jmp	r_hot_high_com	
		
;-----------------------------------------------;
h_mode_next:
		lda	r_data1
		cmp	#30h
		beq	r_h_low_mode_21	
		cmp	#31h
		beq	r_h_mid_mode_21	
		cmp	#32h
		beq	r_h_high_mode_21
		cmp	#38h
		beq	r_h_low_mode_22	
		cmp	#39h
		beq	r_h_mid_mode_22	
		cmp	#3ah
		beq	r_h_high_mode_22
		
		cmp	#40h
		beq	r_h_low_mode_23	
		cmp	#41h
		beq	r_h_mid_mode_23	
		cmp	#42h
		beq	r_h_high_mode_23
		
		cmp	#48h
		beq	r_h_low_mode_24	
		cmp	#49h
		beq	r_h_mid_mode_24	
		cmp	#4ah
		beq	r_h_high_mode_24
		
		cmp	#50h
		beq	r_h_low_mode_25	
		cmp	#51h
		beq	r_h_mid_mode_25	
		cmp	#52h
		beq	r_h_high_mode_25
		
		cmp	#58h
		beq	r_h_low_mode_26	
		cmp	#59h
		beq	r_h_mid_mode_26	
		cmp	#5ah
		beq	r_h_high_mode_26
		
		cmp	#60h
		beq	r_h_low_mode_27	
		cmp	#61h
		beq	r_h_mid_mode_27	
		cmp	#62h
		beq	r_h_high_mode_27
		
		cmp	#68h
		beq	r_h_low_mode_28	
		cmp	#69h
		beq	r_h_mid_mode_28	
		cmp	#6ah
		beq	r_h_high_mode_28
		
		cmp	#70h
		beq	r_h_low_mode_29	
		cmp	#71h
		beq	r_h_mid_mode_29	
		cmp	#72h
		beq	r_h_high_mode_29
		
		cmp	#78h
		beq	r_h_low_mode_30	
		cmp	#79h
		beq	r_h_mid_mode_30	
		cmp	#7ah
		beq	r_h_high_mode_30														
		rts
;-----------------------------------------------;
mode_26:
		lda	#26
		sta	t_setting_m
		rts
r_h_low_mode_26:
		jsr	mode_26
		jmp	r_hot_low_com	
r_h_mid_mode_26:
		jsr	mode_26
		jmp	r_hot_mid_com	
r_h_high_mode_26:
		jsr	mode_26
		jmp	r_hot_high_com
;-----------------------------------------------;
mode_27:
		lda	#27
		sta	t_setting_m
		rts
r_h_low_mode_27:
		jsr	mode_27
		jmp	r_hot_low_com	
r_h_mid_mode_27:
		jsr	mode_27
		jmp	r_hot_mid_com	
r_h_high_mode_27:
		jsr	mode_27
		jmp	r_hot_high_com	
;-----------------------------------------------;
mode_28:
		lda	#28
		sta	t_setting_m
		rts
r_h_low_mode_28:
		jsr	mode_28
		jmp	r_hot_low_com	
r_h_mid_mode_28:
		jsr	mode_28
		jmp	r_hot_mid_com	
r_h_high_mode_28:
		jsr	mode_28
		jmp	r_hot_high_com	
;-----------------------------------------------;
mode_29:
		lda	#29
		sta	t_setting_m
		rts
r_h_low_mode_29:
		jsr	mode_29
		jmp	r_hot_low_com	
r_h_mid_mode_29:
		jsr	mode_29
		jmp	r_hot_mid_com	
r_h_high_mode_29:
		jsr	mode_29
		jmp	r_hot_high_com	
;-----------------------------------------------;
mode_30:
		lda	#30
		sta	t_setting_m
		rts
r_h_low_mode_30:
		jsr	mode_30
		jmp	r_hot_low_com	
r_h_mid_mode_30:
		jsr	mode_30
		jmp	r_hot_mid_com	
r_h_high_mode_30:
		jsr	mode_30
		jmp	r_hot_high_com	
;-----------------------------------------------;
r_hot_low_com:
		lda	#hot_mode
		sta	actionmode
		lda	#speed_motor_l
		sta	speedmode
		rts
r_hot_mid_com:
		lda	#hot_mode
		sta	actionmode
		lda	#speed_motor_m
		sta	speedmode
		rts
r_hot_high_com:
		lda	#hot_mode
		sta	actionmode
		lda	#speed_motor_h
		sta	speedmode
		rts
;-----------------------------------------------;
r_power_off:	
		lda	powerflag
		and	#power_on_f
		beq	remote_action_ret_1
		
		lda	#8			;when key press then back light on
		sta	back_light_t		; setting back light 5sec		
		stz	clock_setting_t		
		jsr	buzzer_on				
		jsr	power_k
remote_action_ret_1:		
		rts
					
cold_sp_mode:
		lda	r_data1
		cmp	#c0h
		beq	speed_low_mode		; only low speed
		cmp	#c1h
		beq	speed_mid_mode		; only mid speed
		cmp	#c2h
		beq	speed_high_mode		; only high speed
		jmp	r_cold_mode
speed_low_mode:
		lda	#speed_motor_l
		sta	speedmode
		lda	#speed_mode
		sta	actionmode
		rts
speed_mid_mode:
		lda	#speed_motor_m
		sta	speedmode
		lda	#speed_mode
		sta	actionmode
		rts
speed_high_mode:
		lda	#speed_motor_h
		sta	speedmode
		lda	#speed_mode
		sta	actionmode
		rts		
		
r_cold_mode:
		lda	r_data1		
		cmp	#18h
		beq	r_c_low_mode_18
		cmp	#19h
		beq	r_c_mid_mode_18
		cmp	#1ah
		beq	r_c_high_mode_18

		cmp	#20h
		beq	r_c_low_mode_19
		cmp	#21h
		beq	r_c_mid_mode_19
		cmp	#22h
		beq	r_c_high_mode_19
		
		cmp	#28h
		beq	r_c_low_mode_20
		cmp	#29h
		beq	r_c_mid_mode_20
		cmp	#2ah
		beq	r_c_high_mode_20
		
		cmp	#30h
		beq	r_c_low_mode_21
		cmp	#31h
		beq	r_c_mid_mode_21
		cmp	#32h
		beq	r_c_high_mode_21
		jmp	c_mode_next0

;-----------------------------------------------;
r_c_low_mode_18:
		jsr	c_18_com
		jmp	r_cold_low_com	
r_c_mid_mode_18:
		jsr	c_18_com
		jmp	r_cold_mid_com	
r_c_high_mode_18:
		jsr	c_18_com
		jmp	r_cold_high_com	
c_18_com:
		lda	powerflag
		and	#t_set_rang_f
		bne	c_18_com0
		jsr	mode_26
		rts
c_18_com0:	
		jsr	mode_18
		rts
;-----------------------------------------------;
r_c_low_mode_19:
		jsr	c_19_com
		jmp	r_cold_low_com	
r_c_mid_mode_19:
		jsr	c_19_com
		jmp	r_cold_mid_com	
r_c_high_mode_19:
		jsr	c_19_com
		jmp	r_cold_high_com	
c_19_com:
		lda	powerflag
		and	#t_set_rang_f
		bne	c_19_com0
		jsr	mode_26
		rts
c_19_com0:	
		jsr	mode_19
		rts
;-----------------------------------------------;

r_c_low_mode_20:
		jsr	c_20_com
		jmp	r_cold_low_com	
r_c_mid_mode_20:
		jsr	c_20_com
		jmp	r_cold_mid_com	
r_c_high_mode_20:
		jsr	c_20_com
		jmp	r_cold_high_com	
c_20_com:
		lda	powerflag
		and	#t_set_rang_f
		bne	c_20_com0
		jsr	mode_26
		rts
c_20_com0:
		jsr	mode_20
		rts
;-----------------------------------------------;

r_c_low_mode_21:
		jsr	c_21_com
		jmp	r_cold_low_com	
r_c_mid_mode_21:
		jsr	c_21_com
		jmp	r_cold_mid_com	
r_c_high_mode_21:
		jsr	c_21_com
		jmp	r_cold_high_com	
c_21_com:
		lda	powerflag
		and	#t_set_rang_f
		bne	c_21_com0
		jsr	mode_26
		rts
c_21_com0:	
		jsr	mode_21
		rts
;-----------------------------------------------;

r_c_low_mode_22:
		jsr	c_22_com
		jmp	r_cold_low_com	
r_c_mid_mode_22:
		jsr	c_22_com
		jmp	r_cold_mid_com	
r_c_high_mode_22:
		jsr	c_22_com
		jmp	r_cold_high_com	
c_22_com:
		lda	powerflag
		and	#t_set_rang_f
		bne	c_22_com0
		jsr	mode_26
		rts
c_22_com0:
		jsr	mode_22
		rts
;-----------------------------------------------;
r_c_low_mode_23:
		jsr	c_23_com
		jmp	r_cold_low_com	
r_c_mid_mode_23:
		jsr	c_23_com
		jmp	r_cold_mid_com	
r_c_high_mode_23:
		jsr	c_23_com
		jmp	r_cold_high_com
c_23_com:
		lda	powerflag
		and	#t_set_rang_f
		bne	c_23_com0
		jsr	mode_26
		rts
c_23_com0:
		jsr	mode_23
		rts	
;-----------------------------------------------;
r_c_low_mode_24:
		jsr	c_24_com
		jmp	r_cold_low_com	
r_c_mid_mode_24:
		jsr	c_24_com
		jmp	r_cold_mid_com	
r_c_high_mode_24:
		jsr	c_24_com
		jmp	r_cold_high_com
c_24_com:
		lda	powerflag
		and	#t_set_rang_f
		bne	c_24_com0
		jsr	mode_26
		rts
c_24_com0:	
		jsr	mode_24
		rts				
			
;-----------------------------------------------;
c_mode_next0:
		lda	r_data1		
		cmp	#38h
		beq	r_c_low_mode_22
		cmp	#39h
		beq	r_c_mid_mode_22
		cmp	#3ah
		beq	r_c_high_mode_22
		cmp	#40h
		beq	r_c_low_mode_23
		cmp	#41h
		beq	r_c_mid_mode_23
		cmp	#42h
		beq	r_c_high_mode_23
		
		cmp	#48h
		beq	r_c_low_mode_24
		cmp	#49h
		beq	r_c_mid_mode_24
		cmp	#4ah
		beq	r_c_high_mode_24
		
		cmp	#50h
		beq	r_c_low_mode_25
		cmp	#51h
		beq	r_c_mid_mode_25