xclock.asm

智能电子钟

		inc a
		mov b,#02d
		div ab
		;**********
		mov led1,a
		;**********
		dec a
		rl a
		mov r0,#al1_h
		add a,r0
		mov r0,a
		mov a,@r0
		acall bcd_8
		mov led2,a
		jnz ld2
		mov led2,#blk_led
	ld2:	
		mov a,b
		add a,#10d
		mov led3,a
;************************************		
		inc r0
		mov a,@r0
		acall bcd_8
		add a,#10d
		mov led4,a
		mov led5,b

;***************************flash bit
		jb fl_250ms,led_al_end
		acall jj_bit
		jnz led_al_e
		mov led4,#blk_led
		mov led5,#blk_led
		sjmp led_al_end
	led_al_e:
		mov led2,#blk_led
		mov led3,#blk_led
led_al_end:
		acall led
		ret
;***************************************
		proc set_clock
set_clock:
		mov k1_data,#01d
		mov k2_data,#01d
		clr set_over		
		call led_cl
		call key_bord
		call sf_key
		mov key_data,#0
		mov frist,#0
set_al41:
		call  clock
	        acall  week_auto
		call  al_out
		acall led_cl
		acall key_bord
		call key_del
		acall key_cl
		jnb set_over,set_al41		
		;acall key_bord
		clr a
		mov k1_data,a
		mov k2_data,a
		mov key_data,a
		mov frist,a
		ret
		end
;**************************************
		proc key_cl
key_cl:
		mov a,key_data
		jz key_al_end
		cjne a,#01d,k2_al

		inc k1_data     ;(1-8)
		mov a,k1_data
		cjne a,#9d,key_al_end
		mov k1_data,#01d
		sjmp key_al_end	
	k2_al:
		mov a,k1_data
		cjne a,#08d,ke2
		setb set_over
		sjmp key_al_end
	ke2:	
		dec a
		mov dptr,#asc_h
		movc a,@a+dptr
		mov b,a		
;********************************		
		mov r0,#sec
		mov a,k1_data
		dec a
		add a,r0
		mov r0,a
		inc @r0
		mov a,@r0
		div ab
		mov a,b
		mov @r0,a
key_al_end:
	ret
	end	
asc_h:
	db 60d,60d,24d,32d,13d,100d,100d

		proc led_cl
led_cl:
		mov dptr,#led_ord_3
		mov a,k1_data
		dec a
		mov b,#02h
		mul ab
		jmp @a+dptr
led_ord_3:      ajmp led_k0_2
		ajmp led_k1_2
		ajmp led_k2_2
		ajmp led_k3_2
		ajmp led_k4_2
		ajmp led_k5_2
		ajmp led_k6_2
		ajmp led_k7_2
		
led_k0_2:    ; led sec
		mov led2,#blk_led
		mov led3,#dot_led
		mov a,sec
		acall bcd_8
		add a,#10d
		mov led4,a
		mov led5,b
		jb fl_250ms ,lk1
		mov led4,#blk_led
		mov led5,#blk_led		
	lk1:	
		ajmp led_jmp_5_end
led_k1_2:    ; led min,hour
		acall led_hour
		jb fl_250ms ,lk2
		mov led4,#blk_led
		mov led5,#blk_led		
	lk2:	
		ajmp led_jmp_5_end
led_k2_2:       ;led min,hour 
		acall led_hour
		jb fl_250ms ,lk3
		mov led2,#blk_led
		mov led3,#blk_led		
	lk3:	
		ajmp led_jmp_5_end
led_k3_2:       ;led day,mon
		acall led_mon
		jb fl_250ms ,lk4
		mov led4,#blk_led
		mov led5,#blk_led		
	lk4:	
		ajmp led_jmp_5_end
led_k4_2:    ; led day,mon
		acall led_mon
		jb fl_250ms ,lk5
		mov led2,#blk_led
		mov led3,#blk_led		
	lk5:	
		ajmp led_jmp_5_end
led_k5_2:    ; led year
		mov led2,#2d
		mov led3,#0d
		mov a,year
		acall bcd_8
		mov led4,a
		mov led5,b
		jb fl_250ms ,lk6
		mov led4,#blk_led
		mov led5,#blk_led		
	lk6:	
		ajmp led_jmp_5_end
led_k6_2:       ;led w_adj 
		mov led2,#d_led
		mov led3,#blk_led
		mov a,w_adj
		acall bcd_8
		mov led4,a
		mov led5,b
		jb fl_250ms ,lk7
		mov led4,#blk_led
		mov led5,#blk_led		
	lk7:	
		ajmp led_jmp_5_end
led_k7_2:       ;led out
		acall led_out1
led_jmp_5_end:
		mov led1,week
		acall led
		ret
		end
		
	led_hour:
		mov a,hour
		acall bcd_8
		mov led2,a
		jnz lj1
		mov led2,#blk_led	
	lj1:	
		mov a,b
		add a,#10d
		mov led3,a
	;*********************	
		mov a,min
		acall bcd_8
		add a,#10d
		mov led4,a
		mov led5,b
		ret
	led_mon:
		mov a,mon
		jnz lj5
		inc mon
		mov a,mon	
	lj5:
		acall bcd_8
		mov led2,a
		jnz lj2
		mov led2,#blk_led
	lj2:	
		mov led3,b
	;*********************	
		mov a,day
		jnz lj4
		inc day
		mov a,day	
	lj4:
		acall bcd_8
		mov led4,a
		jnz lj3
		mov led4,#blk_led	
	lj3:	
		mov led5,b
		ret
;********************************************
al_out:
		jb ha_over,al_out_end
		mov r7,#8d
		mov r1,#al8_m				
al_ch_1:
		mov r0,#min
		mov r6,#02d    ;min hour
	al_l:
		mov a,@r0
		mov b,@r1
		cjne a,b ,al_ch
		inc r0
		dec r1
		djnz r6 ,al_l	
;**************************************************
		mov a,r7
		dec a
		mov r0,#al1
		add a,r0
		mov r0,a
		mov a,@r0
		mov c,acc.0
		cpl c
		anl c,fl_250ms
		cpl c
		mov beep_f,c	
		acall beep_out		
al_ch:  
		clr c
		mov a,r1
		subb a,r6
		mov r1,a
		djnz r7,al_ch_1
al_out_end:
		ret

beep_out:
		jb ha_f,ba1
		mov beep,sec
		setb ha_f		 				
	ba1:
		mov a,beep
		add a,beep_t
		mov b,#60d
		div ab
		mov a,sec
		cjne a,b,beep_out_end
		setb beep_f
		setb ha_over
		clr ha_f
beep_out_end:
		ret
timer_int:
		MOV T_1S,#TIMER_no
		mov beep_t,#15d
		mov year ,#01d
		mov mon , #011d
		mov day , #06d
		mov hour ,#13d
		mov min , #00d
		mov sec , #00d
		mov r7,#16
		mov dptr ,#al_asc
		mov r0,#al1_h
	al_read:
		clr a
		movc a,@a+dptr
		mov @r0,a
		inc r0
		inc dptr
		djnz r7,al_read
		ret
al_asc:
	db 05d,00d, 05d,05d, 05d,15d, 06d,00d;am 4_al
	db 06d,05d, 06d,15d, 14d,00d, 14d,10d;pm 4_al
;************************************
beep_timer:
		mov led1,#blk_led
		mov led2,#b_led
		mov led3,#blk_led
		mov a,beep_t
		acall bcd_8
		mov led4,a
		mov led5,b
		jb fl_250ms,ft1
		mov led4,#blk_led
		mov led5,#blk_led
ft1:
	ret		

time_12:
		mov dptr,#asc_12
		mov a,hour
		rl a
		movc a,@a+dptr
		mov led2,a
		jnz iu2
		mov led2,#blk_led	
	iu2:	
		inc dptr
		mov a,hour
		rl a
		movc a,@a+dptr
		jb fl_500ms ,iu1
		add a,#10d	
	iu1:	
		mov led3,a
				
;*************************************** min to led
		acall led_min
time_24_end:
		ret
asc_12:
	db 11d,2d,21d,1d,21d,2d,21d,3d,21d,4d,21d,5d,21d,6d,21d,7d
	db 21d,8d,21d,9d,11d,0d,11d,1d
	db 1d,2d,0d,1d,0d,2d,0d,3d,0d,4d,0d,5d,0d,6d,0d,7d,0d,8d,0d,9d
	db 1d,0,1d,1d

clock:
;********************************
		mov a,sec	
		cjne a,#60d,clock_end;!!!!!!!!!!!!!!!!!!!!!!
		mov sec,#00h

		inc min
		;**********
		clr ha_over  ;2001.5.6
		
		mov a,min
		cjne a,#60d,clock_end
		mov min,#00h
		
		inc hour
		mov a,hour
		cjne a,#24d,clock_end
		mov hour,#00h
		
		mov a,mon
		xrl a,#02d
		jnz mm_1
		mov dptr,#year_d
		mov a, year
		movc a,@a+dptr
		sjmp mm_2
	mm_1:
		mov a,mon
		dec a     
		mov dptr,#mou_12
		movc a,@a+dptr
	mm_2:
		mov b,a
		inc b
                inc day  ;***************day+1
		mov a,day
		cjne a ,b ,clck_end
		sjmp clck1
	clck_end:
		jc clock_end
	clck1:
		mov day,#01h
	
		inc mon
		mov a,mon
		cjne a,#13d ,clock_end
		mov mon,#01d				

		inc year
		mov a,year
	 	cjne a,#100d ,clock_end
		mov year,#00d	 	
clock_end:
	        call   fl_out
		ret
mou_12:  
	        db 31d, 28d, 31d, 30d, 31d,30d
	        db 31d, 31d, 30d,31d, 30d,31d
	 
year_d:
	db 29d, 28d, 28d, 28d, 29d, 28d	, 28d, 28d, 29d, 28d	
	db 28d, 28d, 29d, 28d, 28d, 28d	, 29d, 28d, 28d, 28d	
	db 29d, 28d, 28d, 28d, 29d, 28d	, 28d, 28d, 29d, 28d	
	db 28d, 28d, 29d, 28d, 28d, 28d	, 29d, 28d, 28d, 28d	
	db 'li jie 2000.5.15'
;***************************************
t1:
		push a
		push psw
		push b
		clr fl_ms_f
		djnz t_1s ,t1_end
		clr fl_s_f
		inc sec
		call adj_w
;********************************
t1_end:
		pop b
		pop psw
		pop a
		reti

	adj_w:
		clr tr1
		mov  a,#T_L_100ms
		add a, w_adj ;*******have 5 order
		mov tl1 ,a
		mov a,#T_H_100ms
		addc a, #00h
		mov th1,a		
		mov t_1s,#timer_no
		setb tr1
		ret

fl_out:	
		jb fl_ms_f ,fl_out_end
		setb fl_ms_f
		mov a,t_1s
		mov b,#02d
		div ab
		mov a,b
		jnz to_d1
		cpl fl_250ms
	to_d1:	
		mov a,t_1s
		mov b,#04d
		div ab
		mov a,b
		jnz to_d2
		cpl fl_500ms
	to_d2:	
fl_out_end:
		call sec_out
		ret
	
sec_out:
		jb fl_s_f ,sec_out_end
		setb fl_s_f
		mov a,sec
		mov b,#07d
		jnb fl_3s,za1		
		mov b,#02d
	za1:
		div ab
		mov a,b
		jnz sec_out_end
		cpl fl_3s	
sec_out_end:
		ret
;**********************************
key_del:
		mov a,key_data
		jnz kl_12
		mov a,frist
		jnz kl_13
		ret
	kl_13:
		mov key_data,frist
		mov frist,#0
		clr key_over		
		jmp sf_beep
	kl_12:	
		jnb key_over,kl11
		mov a,t_30ms
		add a,#03
		mov b,#60d
		div ab
		mov a,sec
		cjne a,b,key_del_end
		clr key_over		
		jmp set_key
	kl11:
		mov t_30ms,sec
		setb key_over
key_del_end:
		call sf_a
		cjne a,#key_da,sfg_12
		clr key_over		
		jmp sf_beep
	sfg_12:
		mov frist,key_data
		mov key_data,#0
		ret
;****************************************		
key_bord:
		acall re_k
		mov a,key_data
		jz key_bord1_end
		;acall psf_key0
key_bord1_end:
		setb key_f
		ret
set_key:
	mov a,key_data
	cjne a,#01h,set_cc1
	setb set_al4_f
	sjmp sf23
set_cc1:
	cjne a,#02h,sf23
	setb set_clk_f
sf23:
	ret
;************************************
sf_key:
		call clock
		call week_auto
		call al_out
		setb key_f
		call led
  		call sf_a
		cjne a,#key_da,sf_key
		call sf_beep
	ret

sf_beep:

	clr beep_f
	call timer_20ms
	call timer_20ms
	setb beep_f
	ret	
;********************************
re_k:	
		mov key_data,#00h
		mov p1,#00h
		mov a,p3
		orl a,#01111111b
		mov p3,a
		clr key_f
		mov a,p3
		setb key_f
		mov p1,#0ffh
		anl a ,#00000110b
		cjne a,#00000110b,you_key
re_k_end:	
		ret
you_key:
		call timer_20ms
		;call led
		mov p1,#00h
		mov a,p3
		orl a,#01111111b
		mov p3,a
		clr key_f
		mov a,p3
		setb key_f
		mov p1,#0ffh
		anl a ,#key_da
		cjne a,#key_da,you_key1
		ret;sjmp re_k_end					
you_key1:
	jb acc.1,key_kb
	mov key_data,#02h
key_kb:	
	jb acc.2,sf_key0
	mov key_data,#01h
sf_key0:
	ret		

	sf_a:
		mov p1,#00h
		mov a,p3
		orl a,#01111111b
		mov p3,a
		clr key_f
		mov a,p3
		setb key_f	
		anl a ,#key_da
		ret