LIST    P=16C84
LIST    R=DEC

PCF8574 EQU     0x20
UV916PL EQU     0x61

BASE    SET     0x0C
TEMP    EQU     BASE
VAL     EQU     BASE+1
COUNT   EQU     BASE+2
COUNT2  EQU     BASE+3
BASE    SET     BASE+4


        ORG     0x0000
        GOTO    MAIN

        include "picreg.equ"

        include "i2c.h"


MAIN    MOVLW   0
        TRIS    Port_B

        CALL    I2C_Init

        MOVLW   PCF8574+1
        MOVWF   _I2CADRES

        MOVLW   255
        MOVWF   COUNT2

        MOVLW   0
        MOVWF   Port_B
loop
        MOVLW   0               ; Write mode
        CALL    I2C_Adres
        ANDLW   1
        BTFSC   STATUS,Z        ; If NOT Zero, Skip
        GOTO    yes
        CALL    I2C_Stop
        INCF    _I2CADRES
        DJNZ    COUNT2,loop

lp2     GOTO    lp2



yes     BSF     rb,0
        CALL    I2C_Stop
        MOVF    _I2CADRES,W
        MOVWF   VAL

        MOVLW   PCF8574
        MOVWF   _I2CADRES
        MOVLW   0               ; Write mode
        CALL    I2C_Adres
        MOVF    VAL,W
        CALL    I2C_Send
        CALL    I2C_Stop

lp      GOTO    lp

        ORG     0x3ff
        GOTO    0x0000
END