ahi va caballero.
retardo
movlw .200
movwf contador
ggg decfsz contador,1
goto ooo
return
ooo btfsc porta,1
goto PRIMER_ROT
btfsc porta,2
goto SEGUNDO_ROT
btfsc porta,3
goto TERCER_ROT
goto ggg
UNO_SEG
movlw .14
movwf PDel0
PLoopx movlw .72
movwf PDel1
PLoopy movlw .247
movwf PDel2
PLoopz clrwdt
btfsc porta,0
goto FIJO
btfsc porta,2
goto SEGUNDO_ROT
btfsc porta,3
goto TERCER_ROT
decfsz PDel2, 1
goto PLoopz
decfsz PDel1, 1
goto PLoopy
decfsz PDel0, 1
goto PLoopx
PDelL1 goto PDelLx
PDelLx clrwdt
return
TRES_SEG
movlw .67
movwf PDel0
PLoop0 movlw .91
movwf PDel1
PLoop1 movlw .122
movwf PDel2
PLoop2 clrwdt
btfsc porta,0
goto FIJO
btfsc porta,1
goto PRIMER_ROT
btfsc porta,3
goto TERCER_ROT
decfsz PDel2, 1
goto PLoop2
decfsz PDel1, 1
goto PLoop1
decfsz PDel0, 1
goto PLoop0
PDelL6 goto PDelL2
PDelL2 clrwdt
return
CINCO_SEGUNDOS
movlw .165
movwf PDel0
PLoopv movlw .41
movwf PDel1
PLoopw movlw .147
movwf PDel2
PLoopm clrwdt
clrwdt
btfsc porta,0
goto FIJO
btfsc porta,1
goto PRIMER_ROT
btfsc porta,2
goto SEGUNDO_ROT
decfsz PDel2, 1
goto PLoopm
decfsz PDel1, 1
goto PLoopw p
decfsz PDel0, 1
goto PLoopv
return
EMPEZAR
btfss porta,0
goto UNO_ROT
call anti
btfss porta,0
goto UNO_ROT
goto FIJO
UNO_ROT btfss porta,1
goto DOS_ROT
call anti
btfss porta,1
goto DOS_ROT
goto PRIMER_ROT
DOS_ROT btfss porta,2
goto TRES_ROT
call anti
btfss porta,2
goto TRES_ROT
goto SEGUNDO_ROT
TRES_ROT btfss porta,3
goto EMPEZAR
call anti
btfss porta,3
goto EMPEZAR
goto TERCER_ROT
FIJO movlw H'ff'
movwf portb
call retardo
goto FIJO
PRIMER_ROT
clrf contador
repit movf contador,0
call tabla
movwf portb
call uno_seg
incf contador,1
movlw .7
xorwf contador,0
btfss status,2
goto repit
goto PRIMER_ROT
SEGUNDO_ROT
clrf contador
repit1 movf contador,0
call tabla
movwf portb
call tres_seg
incf contador,1
movlw .7
xorwf contador,0
btfss status,2
goto repit1
goto segundo_rot
TERCER_ROT
clrf contador
repit2 movf contador,0
call tabla
movwf portb
call cinco_seg
incf contador,1
movlw .7
xorwf contador,0
btfss status,2
goto repit2
goto TERCER_ROT
end
muchas gracias