; main.asm of shift reg test

   ERRORLEVEL -302


   LIST   p=16F84A
   #include <p16F84A.inc>
   __CONFIG   _CP_OFF && _PWRTE_ON && _XT_OSC

#define   WREG   W
#define   RAMBASE   0x0C
   
   ORG 0x000
   goto start

#include "74HCT597.h"

TEMP      equ   RAMBASE
SHIFTREG   equ   RAMBASE+2

start:

   bsf      STATUS,RP0
;
   clrf   TRISA
   clrf   TRISB
   bsf      TRISA,0
;   
   movlw   B'10000000'
   movwf   OPTION_REG
;   
   bcf      STATUS,RP0
;
   clrf   PORTA
   clrf   PORTB

loop:

   GETSHIFTREG   SHIFTREG

   movfw   SHIFTREG
   movwf   PORTB

; 2 second wait
   movlw   D'32'
   movwf   TEMP
;
   clrf   TMR0
   bsf      STATUS,RP0
   movlw   B'10000111'
   movlw   OPTION_REG
;
   call   wait
   decfsz   TEMP,F
   goto   $-2
   goto    loop
;
;

wait:

   bcf      INTCON,T0IF
   btfss   INTCON,T0IF
   goto   $-1
   return
;
;

   END   


----------

; WARNING !!! BAD ENGLISH
;
; 74HTC597 header file
; 8 parallel in , 1 serial out :)

#define    QS      PORTA,0
#define      MR      PORTA,1
#define      SHcp   PORTA,2
#define      STcp   PORTA,3
#define      PL      PORTA,4

SHIFTREGBITS equ   RAMBASE+10

getshiftreg_:

   movlw   D'8'
   movwf   SHIFTREGBITS
   movlw   0      ; i don't know why , but realy
   movwf   WREG    ; clrf WREG doesn't work :?

   bcf      MR      ; these two makes
   bsf      PL      ; reset
   
   bcf      STcp   ; 1 impulse for
   bsf      STcp   ; input reg
   bcf      STcp

   bsf      MR      ; going in
   bcf      PL      ; working mode

   bcf      STcp   ; 1impulse for
   bsf      STcp   ; (input to) shift reg
   bcf      STcp

   bsf      PL      ; shifting mode
   bcf      SHcp   

getnextinshiftreg:

   btfss   QS
   bcf      WREG,0
   btfsc   QS
   bsf      WREG,0
   rlf      WREG,F
   
   bsf      SHcp
   bcf      SHcp
   decfsz   SHIFTREGBITS,F
   goto   getnextinshiftreg
   return
;
;

   ERRORLEVEL -302


   LIST   p=16F84A
   #include <p16F84A.inc>
   __CONFIG   _CP_OFF && _PWRTE_ON && _XT_OSC

#define   WREG   W
#define   RAMBASE   0x0C

   Cblock   0x0C
RX
CountSPI
   endc

#define   Data   PORTA,0
#define   Clock   PORTA,1
#define Latch   PORTA,2
#define   Load   PORTA,3

HC597   macro   Var,Var1

   Local   Loop
   movlw   .8
   movwf   Var1
   
   bsf      Latch
   nop
   bcf      Latch
   
   bcf      Load
   nop
   bsf      Load    

Loop   rlf   Var,f

   btfss   Data
   bcf      Var,0
   btfsc   Data
   bsf      Var,0

   bsf      Clock
   nop
   bcf      Clock

   decfsz Var1,f
   goto   Loop

   endm


   ORG 0x000
   goto main
   ORG 0x004
   goto main

main:

   bsf   STATUS,RP0
   movlw B'00010001'
   movwf TRISA
   clrf  TRISB

   bcf   STATUS,RP0

   clrf   PORTA
   bsf   Load

Loop   HC597   RX, CountSPI
   movf RX,W
   movwf PORTB

   goto Loop

   END

;
; 74HC597 - 8 parallel inputs, 1 serial output
;

Count      EQU RAMBASE+0
SerialData   EQU   RAMBASE+1

#define SerIn   PORTA,4      ; 9 pin, Q, Serial data output
#define Reset   PORTA,0      ; 10 pin, Reset, MR, asynchrounus reset input, active LOW
#define Clock    PORTA,1      ; 11 pin, SHcp, Shift clock input ( LOW-to-HIGH, edge trigered )
#define Store   PORTA,2      ; 12 pin, STcp, Storage clock input ( LOW-to-HIGH, edge trigered )   
#define Load   PORTA,3      ; 13 pin, PL, Parallel load input ( active LOW )

   ORG   0x0000

InitHardware:
   clrf   STATUS
   clrf   INTCON
   movlw   0x09         ; Reset = 1, Clock = 0, Store = 0, Load = 1
   movwf   PORTA
   clrf   PORTB         ; PORTB  = 0;
   bsf      STATUS,RP0
   movlw   0x20
   movwf   TRISA
   movlw   0x00
   movwf   TRISB
   bcf      STATUS,RP0
   
main:
   call   ReadShiftRegister
   movwf   PORTB
   call   Delay1s   
   goto   main

ReadShiftRegister:
   ; Reset register
   bcf      Reset
   bcf      Clock         ; Clock not active
   bcf      Store         ; Store not active
   bsf      Load         ; Load not acitve
   bsf      Reset

   ; load data to input latch
   bsf      Store
   bcf      Store

   ; transfer data from input latch to shift register
   bcf      Load
   bsf      Store
   bcf      Store
   bsf      Load
   
   ; get data from shift register
   movlw   8
   movwf   Count
ReadShiftRegisterLoop:
   bsf      Clock
   bcf      STATUS,C
   btfsc   SerIn
   bsf      STATUS,C
   bcf      Clock
   rlf      SerialData,F
   decfsz   Count,F
   goto   ReadShiftRegisterLoop

   ; Save serial data in WREG
   movf   SerialData,W

   return
   
Delay1s:
   ; put code for delay 1 second
   return