串口输出查询.asm

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

    		ORG   2000H          		;主程序起始地址
    		MOV   SCON ,#00H     		;串行口方式0初始化
    		MOV   A ,#80H        		;最左一位发光二极管先亮
LOOP1: 		CLR   P1.0 
		SETB    P1.0 		
    	   	acall   DP12			;开始串行输出

SBR  :  					;启动并行输出
        		ACALL   DELAY         		;显示延迟一段时间
        
        		RR      A             			;准备右边一位显示
              	SJMP  LOOP1

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

	DOUT    BIT    	P2.1
	CLK     BIT    	P2.0 

DP12: 		MOV    R2,     #8                  
     	  	MOV    A,      @R0               
DP13: 		RLC    A                               
      	  	MOV   DOUT,  C                  
           		CLR    CLK                           
           		SETB   CLK
           		DJNZ   R2,   DP13       
	  	RET
		
		end