What it is made a mistake ?


'TESTE
DEFINE LCD_BITS 8
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTD
DEFINE LCD_RSBIT 1
DEFINE LCD_EREG PORTD
DEFINE LCD_EBIT 3
DEFINE LCD_RWREG PORTD
DEFINE LCD_RWBIT 2

DEFINE LCD_COMMANDUS 10000
DEFINE LCD_DATAUS 100
DEFINE LCD_INITMS 1000

symbol SCL = PORTC.3 ' I2C clock
symbol SDA = PORTC.5 ' I2C data

define osc 40

'INCLUDE "modedefs.bas"
'include "18f452.inc"

DEFINE CHAR_PACING 1000
DEFINE BUTTON_PAUSE 50

DEFINE I2C_SLOW 1

'TRISB = %11111111

S var word 'Segundos
M var word 'Minutos
H var word 'Horas
DD var word 'Dia
MM var word 'Mês
AA var word 'Ano
DIA var word 'Dia da semana

pause 200
lcdout $fe,1 'limpa o display
Pause 500
lcdout "Aprender"

Pause 500
lcdout $fe,1 'limpa o display
'I2CWRITE SDA,SCL,$84,2,"15"

loop:

I2CREAD SDA,SCL,$85,2,[H]
I2CREAD SDA,SCL,$83,2,[M]
LCDOUT $FE,1,dec2(H), ":", DEC2(M)

PAUSE 100

goto loop