DebugIn problem

Hi!

Why ist´n this working?

@ device INTRC_OSC_NOCLKOUT
DEFINE DEBUGIN_REG PORTB
DEFINE DEBUGIN_BIT 0
DEFINE DEBUG_BAUD 2400
DEFINE DEBUGIN_MODE 1

DEFINE LCD_DREG PORTA
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTA
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50

Pause 500 'Wait for LCD to wake up
LCDOut $FE, 1 'Initiate LCD by clearing display
Pause 500

X VAR BYTE

MAIN:

DebugIn [X]

Pause 50
LCDOut $FE, 1, X

GoTo MAIN

End