Hi,

Delay_1 is a Word,I try now something more simple:

INCLUDE "modedefs.bas"
DEFINE OSC 4
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_SPBRG 12 ' 19200 Bauds
DEFINE HSER_CLROERR 1
'''''''''''''''''''''''''''''''''''''''''''''''''' ''Communication Variable'''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''
RCIF VAR PIR1.5 ' Receive interrupt flag (1=full , 0=empty)
TXIF VAR PIR1.4 ' Transmit interrupt flag (1=empty, 0=full)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''
ADCON1 = 7
TRISC=0
TRISA.0=1
DataIn var byte
ZeroDetect var PortA.0
Delay_1 var word
low PortC.0
SOUND PORTB.1,[124,100]

low PORTB.0 '''''''''''''''''''''''''''''''''''''''''''''RS485 Input Data Enable'''''''''''''''''''''''''''''''''''''''''''' ''''''''''''
low PortC.0
Datain = 10
MainStart:
hserin [Datain]
Delay_1 = Datain * 100
POS_FLNK:IF ZeroDetect = 0 Then POS_FLNK
NEG_FLNK:IF ZeroDetect = 1 Then NEG_FLNK
PauseUs Delay_1
high PortC.0
PauseUs 100
low PortC.0
GoTo MainStart


This work the light is now Increase and decrease,but the Bulb dont stay on.

Regard
Pesti