Protocolo sony Basic

DEFINE OSC 4 'Velocidad de 4 mhz '

TRISA = %00000100 'Configuracion de las entradas y salidas del puerto a'
TRISB = %00000000 'Configuracion de las entradas y saldias del puerto b'
nPaq VAR WORD     'Contiene los 12bits con las info de control remoto'
nPWM VAR WORD     'Sirve para leer el pulso'
nBot VAR WORD     'Guardamos solo el numero del boton del control remoto'
nPul VAR WORD     'Sirve para leer el pulso'
nPaq = 0
nPWM = 0
nBot = 0
nPos = 0
nPul = 0

e_go:
    GOSUB SONY_IR
    nBot = nPaq & %01111111 'Nos interesa solo el codigo del boton'
    PORTB=nBot
    IF nBot !=0 THEN
        PAUSE 500
        nBot = 0
        nPaq =0
    ENDIF
    TOGGLE PORTA.3
    GOTO e_go
    END
SONY_IR:
    PULSIN PORTA.2,0,nPWM
    TOGGLE PORTA.4
    IF nPWM > 200 THEN
        IF nPWM < 270 THEN
            FOR nPos = 0 TO 11
                PULSIN PORTA.2,0,nPul
                IF nPul >= 90 THEN
                    nPaq.0[nPos]=1
                ELSE
                    nPaq.0[nPos]=0
                ENDIF
                NEXT
        ENDIF
    ENDIF
    RETURN