Code problem

[chai98a]

We have make code for capture pulse with PulsIn function but after complier did not work pls help

Problem :
No data send out at RS232 to PC

DEFINE LOADER_USED 1
DEFINE OSC 4


DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_SPBRG 12 ' 19200 Bauds

IR VAR WORD
pulses VAR BYTE[33]
BitMask VAR WORD
i VAR BYTE 'loop index
b VAR BYTE 'byte index
LeadIn VAR WORD 'start pulse
a1 VAR BYTE
a2 VAR BYTE
TRISB = %00000001



star:

HSerout ["Bot "DEC Ir,13,10]


IF a1 = 192 Then
IF a2 = 192 Then
IF PORTB.4 = 0 Then
PORTB.4 = 1
Else
PORTB.4 = 0
EndIF
EndIF
EndIF

loop:
'PulsIn GPIO.1, 0, LeadIn
PulsIn PORTB.0, 0, LeadIn
IF LeadIn < 855 Then loop
IF LeadIn > 1045 Then loop
For i = 0 TO 24
'PulsIn GPIO.1, 1, pulses[i]
PulsIn PORTB.0, 1, pulses[i]

Next
For i = 17 TO 24
IF (pulses[i] < 40) OR (pulses[i] > 200) Then
GoTo loop
EndIF
b = i >> 3 '0,1,2,3
IF pulses[i] > 99 Then
IR[b] = IR[b] | BitMask 'set bit

EndIF
BitMask = BitMask << 1 '$01,$02,$04,$08,$10,$20,$40,$80

If BitMask = 0 Then BitMask = $01
Next

GoTo star