text1.asm

来自「彩灯程序,控制树林的生长和心字的闪烁和重复闪烁」· 汇编 代码 · 共 108 行

               ORG    0000H
               LJMP   MAIN
               ORG    030H
MAIN:          MOV    A,#00H
               MOV    P1,A
               MOV    P3,A
               ACALL  DEL
	       ACALL  DEL
	       MOV    A,#0FFH
	       MOV    P1,A
	       MOV    P3,A
	       ACALL  DEL
               CLR    P1.0
               ACALL  DEL
	       CLR    P1.1
	       ACALL  DEL
	    
               CLR    P1.2
               ACALL  DEL
	       
	       SETB   P1.2
	       ACALL  DEL
	      
	       CLR    P1.2
	       ACALL  DEL
	     
               SETB   P1.2
	       ACALL  DEL
	       
	       CLR    P1.2
	       ACALL  DEL
	    
	       SETB   P1.2
	       ACALL  DEL
	      
	       CLR    P1.2
	       ACALL  DEL
            
               SETB   P1.2
	       ACALL  DEL

	       CLR    P1.2
	       ACALL  DEL
	       
	       CLR    P1.3
	       ACALL  DEL
	       CLR    P1.4
	       ACALL  DEL
	       CLR    P1.5
	       ACALL  DEL
	       
	       CLR    P1.6
	       ACALL  DEL
	      
               SETB   P1.6
	       ACALL  DEL
	       
	       CLR    P1.6
	       ACALL  DEL
	       
	       SETB   P1.6
	       ACALL  DEL
	       
	       CLR    P1.6
	       ACALL  DEL

	       SETB   P1.6
	       ACALL  DEL

	       CLR    P1.6
	       ACALL  DEL
	       CLR    P1.7
               ACALL  DEL
	       CLR    P3.0
	       ACALL  DEL
	       CLR    P3.1
	       ACALL  DEL
	       CLR    P3.2
	       ACALL  DEL
               MOV    A,#0FFH
	       MOV    P1,A
	       MOV    P3,A
               ACALL DEL

	       CLR    P1.6
	       CALL   DEL
	       SETB   P1.6
	       CALL   DEL
	       CLR    P1.6
	       ACALL  DEL
	       SETB   P1.6
	       ACALL  DEL
	       CLR    P1.6
	       ACALL  DEL
	       SETB   P1.6
	       ACALL  DEL

	       AJMP  MAIN
DEL:           MOV    R7,#0FFH
DEL1:          MOV    R6,#0FFH
DEL2:          MOV    R5,#09FH
DEL3:          DJNZ   R5,DEL3
               DJNZ   R6,DEL2
	       DJNZ   R7,DEL1
	       RET

	       END