PORTA=0
PORTB=0
TRISA=%00000001
TRISB=%00000000

AL      VAR BYTE
GIRIS   VAR PORTA.0
ROLEA   VAR PORTB.0
ROLEB   VAR PORTB.1
LEDA    VAR PORTB.6
LEDB    VAR PORTB.7

CMCON=7
CLEAR
PAUSE 500
PORTB=0

BASLA:
        SERIN2 GIRIS,396,[WAIT ("ETE"),AL]

        IF AL=88 THEN
            TOGGLE LEDA
            TOGGLE ROLEA
        ENDIF

        IF AL=66 THEN
            TOGGLE LEDB
            TOGGLE ROLEB
        ENDIF
        PAUSE 200
        GOTO BASLA
END