#INCLUDE
CBLOCK 0X20
SOU
CNT
TEMP1
TEMP2
TEMP3
SADR
ENDC
ORG 00H
ARIFILE:
MOVLW .3
MOVWF CNT
MOVWF TEMP3
CLRF TEMP2
MOVF SADR,W
MOVWF FSR
CLRW
NEXT49:
ADDWF INDF ,W
BTFSC STATUS,C
INCF TEMP2,F
DECFSZ CNT,F
GOTO NEXT49
MOVWF TEMP1
CLRF SOU
MOVLW .8
MOVWF CNT
LOOP91:
RLF TEMP1,F
RLF TEMP2,F
BTFSC STATUS,C
GOTO NEXT50
MOVF TEMP3,W
SUBWF TEMP2,W
BTFSC STATUS,C
MOVWF TEMP2
NEXT50:
RLF SOU,F
DECFSZ CNT,F
GOTO LOOP91
RETURN
END
