jzled1.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,#0E7H               
            MOV      51H,#0E7H           
            MOV      52H,#0E7H            
            MOV      53H,#00H            
            MOV      54H,#00H            
            MOV      55H,#0E7H            
            MOV      56H,#0E7H           
            MOV      57H,#0E7H            
            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