;================================================
;74HC595 走马灯演示程序

;创作日期：2006/01/02
;创作者：  gguoqing
;================================================

         SDATA_595  EQU  P1.0   ;串行数据输入
         SCLK_595   EQU  P1.1   ;移位时钟脉冲
         RCK_595    EQU  P1.2   ;输出锁存器控制脉冲
        
;================================================

               ORG  0000H
               LJMP  MAIN
               ORG  0030H

;================================================
  MAIN:
                MOV  SP,#60H
                MOV  R0,#0FEH
  MAIN1:
                CALL OUT_595
                CALL  DELAY
                MOV  A,R0
                RL  A
                MOV  R0,A
                JMP  MAIN1
;---------------------------------------------------------------
;输出锁存器输出数据子程序
;---------------------------------------------------------------
OUT_595:
                LCALL WR_595
                CLR  RCK_595
                NOP
                NOP
                SETB RCK_595      ;上升沿将数据送到输出锁存器
                NOP
                NOP
                NOP
                CLR  RCK_595
                RET
;--------------------------------------------------------------
;移位寄存器接收数据子程序
;--------------------------------------------------------------
WR_595:        
                MOV R4,#08H        
                MOV A,R0
WR_LOOP:       
                RLC A
                MOV SDATA_595,C
                SETB SCLK_595       ;上升沿发生移位
                NOP
                NOP
                CLR SCLK_595
                DJNZ R4,WR_LOOP
                RET
;--------------------------------------------------------------
;延时子程序
;--------------------------------------------------------------
DELAY:         
                MOV  R5,#03H
 DEL0:        
                MOV  R6,#0FFH
 DEL1:         
                MOV  R7,#0FFH
                DJNZ  R7,$
                DJNZ  R6,DEL1
                DJNZ  R5,DEL0
                RET
;---------------------------------------------------------------
                END