串口输出中断方式.asm

自己做的单片机Proteus仿真实例

		org   	0000
		LJMP	START
		ORG   0023H;串行口中断入口
		AJMP  SBR           	 	;转入串行口中断服务程序  	
		ORG   0030H          		;主程序起始地址
START:    	MOV   SCON ,#00H     	;串行口方式0初始化
		MOV   IE,#10010000B
		MOV   A ,#80H        	;最左一位发光二极管先亮
    		CLR   P1.0           	;关闭并行输出
		SETB   P1.0          	;启动并行输出
    		MOV   SBUF,A        	;开始串行输出
LOOP : 		SJMP    $             		;等待中断
SBR  : 		ACALL   DELAY         	;显示延迟一段时间
        	CLR     TI            		;清发送中断标志
        	RR      A             		;准备右边一位显示
        	CLR     P1.0          		;关闭并行输出
               	SETB    P1.0          		;启动并行输出
        	MOV     SBUF , A      	;再一次串行输出
        	RETI                  		;中断返回

DELAY:  	MOV   	R7,#6
DD1:		MOV   	R6,#0FFH
DD2:		MOV   	R5,#0FFH
		DJNZ    R5,$
		DJNZ    R6,DD2
		DJNZ    R7,DD1
		RET
		
		end