start
clrf porta ;limpio puerto A
clrf portb ;limpio puerto B
bsf status,rp0 ;bsf estado,5 ;banco 1
bsf option_reg,7 ;activo resistencias de pull up puerto b
;movlw b'00000000'
;movwf trisa ; puerto a salida
clrf trisa ; es lo mismo ; puerto a salida
movlw b'00000001'
movwf trisb ;bit 0 de puerto b entrada
;bcf estado,5 ; banco 0
bcf status,rp0