text1.asm

点阵LED显示

RS_CNT    EQU  31H
DSP_CNT   EQU  34H
          ORG  00H
START:    MOV  RS_CNT,#00H
          MOV  DSP_CNT,#00H
		  MOV  DPTR,#SWITCH
A0:       MOV  A,DSP_CNT
          ADD  A,DSP_CNT
		  JMP  @A+DPTR
SWITCH:   SJMP DSP_0
          SJMP DSP_1
		  SJMP DSP_2
		  SJMP DSP_3
DSP_0:    MOV P0,#00H
          MOV A,#01H
L0:       MOV P3,A
          LCALL  DELAY
		  RL   A
		  INC  RS_CNT
		  MOV  R0,RS_CNT
		  CJNE R0,#24,L0
		  INC  DSP_CNT
		  MOV  RS_CNT,#00H
		  LJMP A0
DSP_1:    MOV P0,00H
          MOV A,#80H
	L1:   MOV P3,A
	      LCALL DELAY
		  RR   A
		  INC  RS_CNT
		  CJNE R0,#24,L1
		  INC  DSP_CNT
		  MOV  RS_CNT,#00H
		  LJMP A0
DSP_2:    MOV P3,#0FFH
          MOV A,#7FH
	L2:  MOV  P0,A
	     LCALL  DELAY
		 RR  A
		 INC  RS_CNT
		 MOV R0,RS_CNT
		 CJNE  R0,#24,L2
		 INC  DSP_CNT
		 MOV  RS_CNT,#00H
		 LJMP  A0
DSP_3:   MOV  P3,#0FFH
         MOV  A,#0FFH
	L3:  MOV P0,A
	     LCALL  DELAY
	     RL  A
		 INC  RS_CNT
		 MOV R0,RS_CNT
		 CJNE R0,#24,L3
		 MOV DSP_CNT,#00H
		 MOV RS_CNT ,#00H
		 LJMP A0
DELAY :   MOV R5,#10
D1:      MOV  R6,#20
D2:      MOV  R7,#248
         DJNZ  R7,$
		 DJNZ  R6,D2
		 DJNZ  R5,D1
		 RET
		 END