jzled.asm

单片机例程打包 液晶 AD EEPROM LED 电机 BEEP 键盘等

;***************************************************************************
;*  [e-mail]	      深圳随想电子科技有限公司版权所有    *
;*  Create by :欧海明     www.szsxmcu.com 更多例程及单片机专业    *
;*  咨讯请登陆网站      因为专业所以做得更好！深圳随想电子科技 	  *
;***************************************************************************
        CLK       EQU       P3.2
        DINA      EQU       P3.3
        DINB      EQU       P3.4
        CLEAR     EQU       P3.5
        ORG       0000H
        AJMP      MAIN
        ORG       0100H
MAIN:       
        MOV      SP,#70H              
        MOV      50H,#66H             
        MOV      51H,#0A5H            
        MOV      52H,#0C3H            
        MOV      53H,#00H             
        MOV      54H,#00H            
        MOV      55H,#0C3H            
        MOV      56H,#0A5H            
        MOV      57H,#66H             
        CLR      CLEAR             
        SETB      CLK
        SETB      DINA
        SETB     DINB
        SETB      CLEAR
mainloop:       
            mov      r6,#8h              
            mov      dptr,#tab1    
            MOV      R1,#50H          
flashcy:
            MOV      A,@R1            
            MOV      R0,A
            INC      R1                    
            CLR      A
            MOVC     A,@A+DPTR
            MOV      P1,#0FFH
            LCALL    SENDt
            MOV      P1,A
            INC        DPTR
            LCALL   DELAY
            DJNZ      R6,flashcy
            SJMP      MAINLOOP
sendt:                                     
            PUSH      ACC
            CLR      CLK
SENDTIME:       
            MOV      R7,#08H
            MOV      A,R0
            CLR       C
SENDCY:                     
            RRC       A
            MOV      DINA,C
            SETB      CLK
            CLR        CLK
            DJNZ      R7,SENDCY
            POP       ACC
            RET
DELAY:  MOV     R7,#01        
DELAY0: MOV     R4,#17
DELAY1: MOV     R3,#28        
        DJNZ    R3,$
        DJNZ    R4,DELAY1
        DJNZ    R7,DELAY0
	RET
tab1:   DB 0FEH,0FDH,0FBH,0F7H,0EFH,0DFH,0BFH,07FH ;X0~X7(列扫描)
end