;;;;;;;;;;;;;;;;;;;;;;;;;;;HC595.inc;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;
; Thanks to Nebojsa Matic of mikroElektronika for idea
; Var variable whose contents is transferred to outputs of shift register.
; Var1 loop counter
; Here 8bit data is used, so VAR1 gets decimal 8
; to continue the loop for 8 times
;****_***|***|**_*************_********************************************

HC595 MACRO VAR,VAR1
     LOCAL   LOOP
     MOVLW   .8
     MOVWF   VAR1
LOOP 
     RLF     VAR,F
     BTFSS   STATUS,C
     BCF     DATA1
     BTFSC   STATUS,C
     BSF     DATA1
     GOTO    $+1              ; 6 cycles
     GOTO    $+1
     GOTO    $+1
     GOTO    $+1              ; 6 cycles
     GOTO    $+1
     GOTO    $+1

     BSF     CLOCK
     NOP
     GOTO    $+1              ; 6 cycles
     GOTO    $+1
     GOTO    $+1
     GOTO    $+1              ; 6 cycles
     GOTO    $+1
     GOTO    $+1
     BCF     CLOCK

     DECFSZ  VAR1,F
     GOTO    LOOP

     BSF     LATCH
     NOP
     GOTO    $+1              ; 6 cycles
     GOTO    $+1
     GOTO    $+1
     GOTO    $+1              ; 6 cycles
     GOTO    $+1
     GOTO    $+1
     BCF     LATCH

     ENDM