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