list p=16f84a
_config 3ff1h
estado equ 0x03
porta equ 0x05
portb equ 0x06
trisa equ 0x85
trisb equ 0x86
org 0x00
goto inicio
org 0x05
bsf estado,05
clrf trisb
movlw 0x1f
movwf trisa
bcf estado,05
clrf portb
parte1 btfss porta,0
goto parte1
bsf portab,0
bsf portab,1
bsf portab,2
bsf portab,3
parte2 btfsc porta,0
goto parte2
bcf portab,0
bcf portab,1
bcf portab,2
bcf portab,3
lugar1 btfss porta,1
goto lugar1
bsf portab,4
bsf portab,5
bsf portab,6
bsf portab,7
lugar2 btfsc porta,1
goto lugar2
bcf portab,4
bcf portab,5
bcf portab,6
bcf portab,7
goto parte1
end