l1.asm

一段流水灯程序, 一段流水灯程序, 一段流水灯程序, 一段流水灯程序,一段流水灯程序

ADC		EQU	35H
CLOCK	        BIT	P2.3		;定义ADC0808时钟位
ST 		BIT 	P2.0
EOC 	        BIT 	P2.1
OE 		BIT 	P2.2

		ORG 	0000H
		SJMP	START
		ORG	0BH
		LJMP	INT_T0

                ORG     0040H
START:		MOV	TMOD,#02H
		MOV	TH0,#0FFH
		MOV	TL0,#0FFH
		MOV	IE,#82H
		SETB	TR0

WAIT: 	        CLR 	ST			  	
		SETB 	ST
		CLR 	ST		;启动AD转换
 		JNB 	EOC,$		;等待转换结束
		SETB 	OE 
		MOV 	ADC,P0		;读取AD转换结果
		CLR 	OE
              
                mov     a,adc
                clr     c            
                rrc     a               ;除4
                clr     c
                rrc     a
                jnc     aaaaaa          ;四舍五入
                inc     a
                
aaaaaa:         acall   binbcd
                MOV     P1,a	
		SJMP 	WAIT

BINBCD:	       	MOV     b,#10               
		DIV     AB              ;(A）=十位数,(B)=个位
                SWAP    A               ;十位BCD数到高四位
                ADD     A,B             ;（A）=压缩BCD码（十位、个位)
 	        RET

INT_T0:	        CPL     CLOCK		;提供ADC0808时钟信号
                MOV	TH0,#0FFH
		MOV	TL0,#0FFH
		RETI       
		END