'repeteur infrarouge 
'Define CONF_WORD_2 = 0x3ffc
Define CONF_WORD = 0x33e4  '12F683
'Define CONF_WORD = 0x31e4  '12F675
'mettre une resistance de 10k vers le +
TRISIO = %00111011  '1 = entrée  0= sortie
'cmcon = %00000111  'sans conparateur (pour 12F675)
CMCON0 = %00000111  'sans conparateur (pour 12F683)
ANSEL = %00000000  '0 digital 1 analogique (GPI0,0,1,2,4)
WPU = %00110111  'xx54x21  bit à 1 = pull up activé   si gppu de option à 0
'IOC = %00110100  '1 = interuption validé si GPIE et giede INTCON=1
GPIO = %00000000
OPTION_REG = %00000000  'ne pas oublier ce registre
AllDigital
debut:
While GPIO.0 = 0
Gosub salvebase
Wend
ASM:        bcf 0x05,2

Goto debut

End                                               

salvebase:  '39 Khz

ASM:        bsf 0x05,2
ASM:        nop
ASM:        nop
ASM:        nop
ASM:        nop
ASM:        nop



ASM:        bcf 0x05,2
ASM:        nop
ASM:        nop
ASM:        nop
ASM:        nop
ASM:        nop
ASM:        nop

ASM:        nop
ASM:        nop
ASM:        nop
ASM:        nop


Return