IR decoder Sony code Help

[Thammink]

I have a pic16F628A my TSOP34838 is connected to pin 10 or RB4.

I've set RB4 to I/O in the configuration bits when i program the chip.
I'm attempting to use the internal oscillator.

I've hooked an oscilloscope to the output of the TSOP34838 and I'm seeing the signal there just fine.

The LCD output appears to work.

I'm not getting it to display the IR information it received. It just appears to be going through the LCD initialization, then going to Sony_In getting an input of 0, going to No_Sig and relooping.



I've been at this for hours and hours and can't figure out what's wrong. Any help would be appreciated, I'm completely lost.

'Program SONY_RX.BAS
' *************************************************************
' * For use with EXPERIMENTING WITH THE PICBASIC PRO COMPILER *
' *             *
' *  This source code may be freely used within your own      *
' *  programs. However, if it is used for profitable reasons, *
' *        please give credit where credit is due.       *
' *  And make a reference to myself or Rosetta Technologies   *
' *             *
' *   Les. Johnson         *
' *************************************************************
'
'This program reads signals from a Sony IR remote control, 
'and displays them on a Serial LCD, connected to PortA.0 at inverted 9600 Baud 8-N-1
'The infrared receiver module used is the Sharp GP1U58X.
'The infrared receiver module for this experiment should, 
'be a type that is set for a 38 kHz carrier frequency. 
'If another type is used. some reduction in range may be noticed. 
'The output pin of the IR module connects to PortB.0 
'The remote control used, may be either a Sony manufactured unit,
'or one of the universal remotes that can be configured for Sony equipment. 
'This is important since we are dealing with a specific signal protocol.
'With Sony’s SIRCS specification, a start pulse is initially sent to
'indicate the beginning of a frame of data. This pulse is approx 2.5 msec in length. 
'Following this, are 7-bits of data, which represent the instruction being sent. 
'Then an additional 5-bit command byte, which signifies the target device (TV, VCR, etc.). 
'Data bits are sent with the least significant bit first.
 Include "Modedefs.Bas"
' ** Setup the Crystal Frequency, in Mhz **
 Define  OSC  4  ' Set Xtal Frequency
 
' ** Declare the Variables **
 
    CMCON = 7
 IR_Sense  Var     PortB.4        ' The IR sensor is attached to this pin
 ST       Var     Word     ' Header length, signal
 IR_Word  Var St  ' Double up the variable, to save ram
 ID  Var Byte  ' The sony bit length 600us = 0, 1200us = 1
 IR_Data  Var Byte  ' The data byte returned
 IR_Dev  Var Byte  ' The command byte returned
 Sony_LP  Var Byte  ' Temporary variable used for a loop
 IR_Valid Var Bit  ' Flag to indicate a valid signal has been received
 
Main:
    gosub InitializeDisplay
 Gosub Sony_In     ' Receive the remote control signal
 
    If IR_Valid=1 then    ' Do the following code, if a valid packet has been received
' Display the data Byte (7-bit code), and the command byte (5-bit code)
        lcdout $FE, 1, "Data"
        pause 500
        lcdout $FE, 1, BIN IR_Data
        lcdout $FE, $C0, bin IR_Dev
        pause 500   
 Endif
        Goto Main     ' Loop Forever.
' The subroutine "SONY_IN", receives the signal from a Sony remote control,
' and returns with the 7-bit data byte in the variable "IR_DATA",
' and the 5-bit command byte in the variable "IR_Dev".
InitializeDisplay:  ' Subroutine to initialize NEWHAVEN NHD-0208AZ-RN-YBW 
'=================  ' 2x8 LCD display                   
     ' LCD DEFINES FOR USING 2x8 LCD with PortA
           DEFINE LCD_DREG PORTB    ' Use PORTA for LCD Data
           DEFINE LCD_DBIT 0        ' Use lower(4) 4 bits of PORTB
                                      ' PORTA.0 thru PORTA.3 connect to
                                      ' LCD DB4 thru LCD DB-7 respectively
           DEFINE LCD_RSREG PORTA   ' PORTA for RegisterSelect (RS) bit
           DEFINE LCD_RSBIT 3       ' PORTA.3 pin for LCD's RS line
           DEFINE LCD_RWREG PORTA   ' LCD read/write port
           DEFINE LCD_RWBIT 4       ' LCD read/write bit
           DEFINE LCD_EREG PORTA    ' PORTA for Enable (E) bit
           DEFINE LCD_EBIT 7        ' PORTA.7 pin for LCD's E line
           DEFINE LCD_BITS 4        ' Using 4-bit bus
           DEFINE LCD_LINES 2       ' Using 2 line Display
           DEFINE LCD_COMMANDUS 10000' Command Delay (uS)
           DEFINE LCD_DATAUS 100     ' Data Delay (uS)
       
    ' DEFINE LCD Control Constants 
           Line1   CON 128          ' Point to beginning of line 1 ($80) 
           Line2   CON 192          ' Point to beginning of line 2 ($C0)   
    
    ' Test the LCD during initialization
           LCDOut $fe,1:FLAGS=0:Pause 250    ' Clear Display
           LCDOut $fe,Line1,"LCD TEST"       ' Display on 1st line
           Pause 500
           LCDOut $fe,Line2,"Power On!"      ' Display on 2nd line
           PAUSE 1000
Return
Sony_In:
 TrisB.4=1    ' Set the sensor pin to input
 IR_Valid=1    ' Initialize the valid data flag
 If IR_Sense=0 then goto No_Sig   ' We are already in the middle of a pulse so, exit
        IR_Word = 0:IR_Data=0:IR_Dev=0         ' Clear the variables used within the subroutine
        Pulsin IR_Sense,0,ST   ' Measure the header length.
        If St < 200 then goto No_Sig     ' Verify a good start bit, should be approx 240-260, using a 4mhz Crystal      
        If St > 270 then goto No_Sig        ' If not valid then return with "IR_DATA"=255
' Receive the 12 data bits (LSB first), and convert them into a 12-bit word,
' A high (1) should be approx 120, actual timing is 1200 us
' A low (0) should be approx 60 , actual timing is 600 us
' We split the difference and say that < 100 is a low, >= 100 is a high
' These values are for use with a 4mhz crystal
 For Sony_Lp=0 to 11   ' Do 12-bits
 Pulsin IR_Sense,0,ID   ' Receive the IR bit pulse
 If ID>=100 then 
 IR_Word.0[Sony_Lp]=1   ' If it's greater than 100 then we have received a 1
 Else 
 IR_Word.0[Sony_Lp]=0   ' If it's less than 100 we have received a 0 
 Endif
 Next      ' Close the loop
' Split the 7-bit data byte, and the 5-bit command byte
 IR_Data=IR_Word & 111111  ' Mask the first 7 "DATA" bits
 IR_Dev=(IR_Word >>7)&00011111  ' Move down and mask the last 5 "COMMAND" bits
 Return     ' Exit the subroutineNo_Sig:
 IR_Valid=0    ' Indicate, No signal detected
 Return     ' was detected