i2c en ensamblador pic16F

LIST P=PIC16F877A
#include
ERRORLEVEL -302

;////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
;CONSTANTES:
;////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

#define CLOCK D"0"
#define STROBED"2"
#define SCL D"3"
#define SDA D"4"

;////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////;Memoria EEPROM
;////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////;////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
; MACROS;////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

BANK0 MACRO
BCF STATUS,RP0
BCF STATUS,RP1
ENDM

BANK1 MACRO
BSF STATUS,RP0
BCF STATUS,RP1
ENDM

BANK2 MACROBSF STATUS,RP1
BCF STATUS,RP0
ENDM

BANK3 MACRO
BSF STATUS,RP1
BSF STATUS,RP0
ENDM

;GPR: GENERAL PURPOSE REGISTERS

;0x20 -> 0x47 ReservadosMemoria cartel.

;////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

DIRL EQU 0X20
DIRH EQU 0X21
DATOEQU 0X22 ;temporar. byte a enviar/dato leido
flag EQU 0X24
cuenta EQU 0X25
CONTA0 EQU 0X26
CONTA1 EQU 0X27
DATASSP EQU 0x70;////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////



ORG 0X0000
GOTO INICIO

ORG 0X0004
return

ORG...