Readkeyend01:			mov	a,#0x08	b0mov	counter,aReadkeyend02:	rrcm	databuffer	b0bts0	FC	incms	counter1		;keycounter	nop	decms	counter	jmp	Readkeyend02	b0mov	a,counter1		;keycounter	cmprs	a,#0x01	jmp	Readkeyend06	b0mov	a,keybuffer	cmprs	a,keybuffercopy	jmp	Readkeyend04		b0bts0	KMINUTE	jmp	Readkeyend03	b0bts1	KHOUR	jmp	Readkeyend07Readkeyend03:	b0mov	a,keytime	cmprs	a,#0	jmp	Interruptend	b0bset	F_NO_TONE	mov	a,#40	jmp	Readkeyend05Readkeyend04:	b0mov	a,keybuffer	b0mov	keybuffercopy,a			b0bclr	F_NO_TONE	mov	a,#100Readkeyend05:	b0mov	keytime,a	b0bset	F_KEY	jmp	InterruptendReadkeyend06:	b0mov	a,keybuffer	b0mov	keybuffercopy,a	Readkeyend07:			mov	a,#100	b0mov	keytime,a	b0bclr	F_KEY	b0bclr	F_NO_TONEInterruptend:	clr	INTRQ        b0xch  	a,pflagbuffer        b0xch  	a,PFLAG        b0xch  	a,accbuffer		reti	;\\\\\\\\\\\Tobcd:	b0mov	bufferL,a	clr	bufferHH	clr	bufferHTobcd01:		b0mov	a,bufferL	sub	a,#10	b0bts1	FC	jmp	Tobcd02	b0mov	bufferL,a	incms	bufferH	jmp	Tobcd01Tobcd02:	add	a,#10	b0mov	bufferL,aTobcd03:		b0mov	a,bufferH	sub	a,#10	b0bts1	FC	jmp	Tobcd04	b0mov	bufferH,a	incms	bufferHH	jmp	Tobcd03Tobcd04:	add	a,#10	b0mov	bufferH,a	ret;\\\\\\\\\\Toseg:	b0mov	Y,#Segtable$M	b0mov	Z,#Segtable$L	b0mov	a,bufferH	add	Z,a	movc	b0mov	bufferH,a	b0mov	Y,#Segtable$M	b0mov	Z,#Segtable$L	b0mov	a,bufferL	add	Z,a	movc		b0mov	bufferL,a	ret;\\\\\\\\\\\\\	;*******************	Pt6312writ:	b0mov	databuffer,a	mov	a,#0x08		b0mov	counter,aPt6312writ1:			b0bclr	CLK	b0bclr	DI	rrcm	databuffer	b0bts0	FC	b0bset	DI	nop	nop	b0bset	CLK	nop	nop	decms	counter	jmp	Pt6312writ1	nop	nop	ret     ;*******************;********************Pt6312read:	mov	a,#0x08	b0mov	counter,aPt6312read1:	b0bclr	CLK	nop	nop	nop	b0bclr	FC	b0bts0	DO	b0bset	FC	rrcm	databuffer	b0bset	CLK	nop	nop	decms	counter	jmp	Pt6312read1	       	ret;**************;**********************Clrstatus:	b0bclr	F_ON_OFF	b0bclr	F_FINISH	mov	a,#0	b0mov	ledbuffer,aClrstatus01:	clr	flag1	clr	fantime	clr	stertime	clr	flag4	b0bclr	DRY	b0bclr	STER	b0bclr	FAN	ret;\\\\\\\\Sum:	b0mov	a,00h	add	a,01h	add	a,02h	add	a,03h	add	a,04h	add	a,05h	add	a,06h	add	a,07h	b0mov	databuffer,a	ret	;*****************Start:	clr	OSCM	clr	PFLAG	mov	a,#00000111b	b0mov	P1M,a	mov	a,#01101111b	b0mov	P2M,a	mov	a,#0xff	b0mov	PUR,a	call	Sum	mov	a,databuffer	cmprs	a,sumbuffer	jmp	Verify03		mov	a,#0x09	b0mov	counter,a	clr	Y	clr	ZVerify02:	b0mov	a,@YZ	cmprs	a,#0x00	jmp	Verify04	incms	Z	nop	decms	counter	jmp	Verify02Verify03:	clr	P1	clr	P2Init:	clr	Y	clr	ZInit01: 	mov	a,#0	b0mov	@YZ,a	incms	Z	mov	a,#0x2f	cmprs	a,Z	jmp	Init01	b0bset	TONE_ENABLE	jmp	Init02Verify04:		b0mov	a,portacopy	b0mov	P1,a	b0mov	a,portbcopy	b0mov	P2,aInit02:	mov	a,#0xb0		;1:32	b0mov	TC0M,a	mov	a,#131	;0x56	b0mov	TC0C,a	b0bset	FTC0IEN	b0bset	FGIE	clr	INTRQMain:	b0bset	FWDRST	call	Sum	b0mov	a,databuffer	b0mov	sumbuffer,a	b0mov	a,P1	b0mov	portacopy,a	b0mov	a,P2	b0mov	portbcopy,a		b0bts1	F_FINISH	jmp	Full6312buffer	call	Clrstatus	jmp	Keyactive01Full6312buffer:	b0bts1	F_DISPLAY	jmp	main00	b0bclr	F_DISPLAY	mov	a,#00000001b		;5g/16s	b0bclr	STB	call	Pt6312writ	b0bset	STB		mov	a,#01000000b		;set display buffer mode	b0bclr	STB	call	Pt6312writ	b0bset	STB	mov	a,#11000000b	b0bclr	STB	call	Pt6312writ		;set address	mov	a,#0x00	call	Pt6312writ		;set data	mov	a,#0x00	call	Pt6312writ		;set dataFull6312buffer01:			b0mov	a,displaybuffer2	call	Pt6312writ		;set data	b0mov	a,displaybuffer3	call	Pt6312writ		;set data	b0mov	a,displaybuffer4	call	Pt6312writ		;set data	b0mov	a,displaybuffer5	call	Pt6312writ		;set data	b0mov	a,displaybuffer6	call	Pt6312writ		;set data	b0mov	a,displaybuffer7	call	Pt6312writ		;set data	b0mov	a,displaybuffer8	call	Pt6312writ		;set data	b0mov	a,displaybuffer9	call	Pt6312writ		;set data	b0bset	STB	mov	a,#10001111B		;sets display contorl(command 4)	b0bclr	STB	call	Pt6312writ	b0bset	STB	main00:			b0bts1	F_KEY	jmp	Main	b0bclr	F_KEY		b0bts0	KPOWER	jmp	Poweractive		b0bts0	KLIGHT	jmp	Lightactive	b0bts0	KHOUR	jmp	Houractive			b0bts0	KMINUTE	jmp	Minuteactive		b0bts1	F_ON_OFF	jmp	Main			b0bts0	KSTER90	jmp	Ster90active	b0bts0	KSTER45	jmp	Ster45active	b0bts0	KDRY30	jmp	Dry30active	b0bts1	KDRY60	jmp	Main	;\\\\\\\\\\\\\\\\\\\\\\\\\\\	Dry60active:	b0bts0	F_STER	jmp	Dry60active02		Dry60active01:		clr	flag2	b0bset	F_DRY60	b0mov	a,flag2	b0mov	ledbuffer,a	call	Clrstatus01	mov	a,#60		jmp	Dry30active02Dry60active02:	b0bts0	F_DISPLAY_FLASH60	jmp	Dry60active04	b0bset	F_DISPLAY_FLASH60	b0bclr	F_DISPLAY_FLASH30	b0bset	F_DISPLAY_FLASH	b0bclr	F_MINUTE		b0mov	a,Dminute_dry	sub	a,#60	b0bts0	FC	jmp	Dry60active03	mov	a,#60	b0mov	Dminute_dry,a	Dry60active03:		mov	a,#10	b0mov	delaybuffer,a	b0bset	F_DELAY		jmp	Keyactive01Dry60active04:	clr	flag4	b0bts1	F_MINUTE	jmp	Dry60active01	b0bclr	F_MINUTE	jmp	Keyactive01;\\\\\\\\\\\\\\\\\\\\\\\\\\\		;********************Poweractive:	b0bts1	F_ON_OFF	jmp	Poweractive01	call	Clrstatus	jmp	Keyactive01Poweractive01:	b0bset	F_ON_OFF	jmp	Ster90active;***********	Dry30active:	b0bts0	F_STER	jmp	Dry30active03Dry30active01:	clr	flag2	b0bset	F_DRY30	b0mov	a,flag2	b0mov	ledbuffer,a	call	Clrstatus01	mov	a,#30	b0bset	FAN	b0bset	F_FANDry30active02:		b0bset	F_DRY	b0bset	DRY	;\\\\\\\\\\\\\\\\\\\\\\\\\\\	Keyactive:	b0mov	Dminute,a		clr	DsecondKeyactive01:		clr	flashtime	b0bset	F_FLASH1	b0bts0	F_NO_TONE	jmp	Main	b0bset	TONE_ENABLE	clr	tonetime	jmp	Main;*******************Dry30active03:	b0bts0	F_DISPLAY_FLASH30	jmp	Dry30active04	b0bset	F_DISPLAY_FLASH30	b0bclr	F_DISPLAY_FLASH60	b0bset	F_DISPLAY_FLASH	b0bclr	F_MINUTE	b0mov	a,Dminute_dry	sub	a,#60	b0bts1	FC	jmp	Dry60active03	mov	a,#30	b0mov	Dminute_dry,a	jmp	Dry60active03Dry30active04:	clr	flag4	b0bts1	F_MINUTE	jmp	Dry30active01	b0bclr	F_MINUTE	jmp	Keyactive01;\\\\\\\\\\\\\\\\\\\\\\\\\\\	Lightactive:	b0bts0	F_LIGHT	jmp	Lightactive01	b0bset	F_LIGHT	b0bset	LIGHT	jmp	Keyactive01Lightactive01:		b0bclr	F_LIGHT	b0bclr	LIGHT	jmp	Keyactive01;\\\\\\\\\\\\\\\\\\\\\\\\\\\Houractive:	b0bts0	F_ON_OFF	jmp	Houractive02Houractive01:		incms	hour	nop	b0mov	a,hour	sub	a,#12	b0bts0	FC	clr	hour	jmp	Keyactive01Houractive02:	mov	a,#0x05	b0mov	delaybuffer,a	b0bts0	F_DELAY	jmp	Houractive01		b0bset	F_DELAY	jmp	Keyactive01;\\\\\\\\\\\\\\\\\\\\\\\\\\\	Minuteactive:	b0bts0	F_ON_OFF	jmp	Minuteactive02Minuteactive01:		incms	minute	nop	b0mov	a,minute	sub	a,#60	b0bts0	FC	clr	minute		jmp	Keyactive01Minuteactive02:	b0bts0	F_DISPLAY_FLASH30	jmp	Dry30_time_ster	b0bts0	F_DISPLAY_FLASH60	jmp	Dry60_time_ster		incms	Dminute	nop	b0bts0	F_STER90		jmp	Ster90_time	b0bts0	F_STER45		jmp	Ster45_time	b0bts0	F_DRY60		jmp	Dry60_time	b0bts0	F_DRY30	jmp	Dry30_time	b0bts0	F_DELAY	jmp	Minuteactive01		jmp	MainDry30_time:	b0mov	a,Dminute	sub	a,#60	b0bts1	FC	jmp	Keyactive01	mov	a,#30	jmp	KeyactiveDry60_time:	b0mov	a,Dminute	sub	a,#121	b0bts1	FC	jmp	Keyactive01	mov	a,#60	jmp	KeyactiveSter45_time:	b0mov	a,Dminute	sub	a,#90	b0bts1	FC	jmp	Keyactive01	mov	a,#45	jmp	KeyactiveSter90_time:		b0mov	a,Dminute	sub	a,#241	b0bts1	FC	jmp	Keyactive01	mov	a,#90	jmp	Keyactive;\\\\\\\\\\\\\\\\\\\\\\\\\\\	Dry30_time_ster:	incms	Dminute_dry	nop	b0mov	a,Dminute_dry	sub	a,#60	b0bts1	FC	jmp	Dry60_time_ster01	mov	a,#30	b0mov	Dminute_dry,a	jmp	Dry60_time_ster01Dry60_time_ster:	incms	Dminute_dry	nop	b0mov	a,Dminute_dry	sub	a,#121	b0bts1	FC	jmp	Dry60_time_ster01	mov	a,#60	b0mov	Dminute_dry,aDry60_time_ster01:			mov	a,#15	b0mov	delaybuffer,a	b0bset	F_DELAY	b0bset	F_MINUTE	b0bclr	F_FLASH	clr	flashtime	jmp	Keyactive01	;\\\\\\\\\\\\\\\\\\\\\\\\\\\	Ster90active:	mov	a,#60	b0mov	Dminute_Dry,a	clr	flag2	b0bset	F_STER90	b0mov	a,flag2	b0mov	ledbuffer,a	call	Clrstatus01		mov	a,#90	jmp	Ster45active01;\\\\\\\\\\\\\\\\\\\\\\\\\\\	Ster45active:	mov	a,#60	b0mov	Dminute_Dry,a	clr	flag2	b0bset	F_STER45	b0mov	a,flag2	b0mov	ledbuffer,a	call	Clrstatus01		mov	a,#45Ster45active01:		b0bset	F_STER	b0bset	STER	clr	ozone	jmp	Keyactive;\\\\\\\\\\\\AdjDisplay:	b0bts1	F_STER90	jmp	AdjDisplay01	mov	a,Dminute	sub	a,#45	b0bts0	FC	ret	b0bclr	F_STER90	b0bset	F_STER45	b0mov	a,flag2	b0mov	ledbuffer,a	retAdjDisplay01:	b0bts1	F_DRY60	ret	mov	a,Dminute	sub	a,#30	b0bts0	FC	ret	b0bclr	F_DRY60	b0bset	F_Dry30	b0mov	a,flag2	b0mov	ledbuffer,a	ret			;\\\\\\\\\\\\\\\\\\\\\\\\\StertableH:		;x2345678		dw	0xff00	;00000000b	;	dw	0xff40	;01000000b	;s2	dw	0xff48	;01001000b	;s2,s5	dw	0xff49	;01001001b	;s2,s5,s8	dw	0xff00	;00000000b	;	dw	0xff20	;00100000b	;s3	dw	0xff24	;00100100b	;s3,s6	dw	0xff00	;00000000b	;	dw	0xff10	;00010000b	;s4	dw	0xff12	;00010010b	;s4,s7StertableL:	dw	0xff10	;00010000b	;1	dw	0xff18	;00011000b	;2b2	dw	0xff1c	;00011100b	;3b3	dw	0xff1e	;00011110b	;4b4	dw	0xff1f	;00011111b	;5b5Segtable:;		  XDECGFBA	dw	0xffee	;01110111b	;0	dw	0xff48	;00010010b	;1	dw	0xffd6	;01101011b	;2	dw	0xffda	;01011011b	;3	dw	0xff78	;00011110b	;4	dw	0xffba	;01011101b	;5	dw	0xffbe	;01111101b	;6	dw	0xffe8	;00010111b	;7	dw	0xfffe	;01111111b	;8	dw	0xfffa	;01011111b	;9Stertable:			;x1234567		dw	0xff00	;00000000b	;	dw	0xff08	;00001000b	;s4	dw	0xff18	;00011000b	;s4,s3	dw	0xff1c	;00011100b	;s4,s3,s5	dw	0xff3c	;00111100b	;s4,s3,s5,s2	dw	0xff3e	;00111110b	;s4,s3,s5,s2,s6	dw	0xff7e	;01111110b	;s4,s3,s5,s2,s6,s1	dw	0xff7f	;01111111b	;s4,s3,s5,s2,s6,s1,s7;;*******	endp