Secuencia de motor paso a paso para girar hacia la Izquierda ( Programacion en Mplab)

__CONFIG _CP_OFF&_WDT_OFF&_PWRTE_ON&_XT_OSC
List P=16F84A
#include <P16F84A.inc>
Retardo equ 20H
Retardo2 equ 21H
Retardo3 equ 22H

org 00H
goto inicio

inicio: bsf STATUS, RP0
bcf PORTB, 0
bcf PORTB, 1
bcf PORTB, 2
bcf PORTB, 3
bcf STATUS, RP0


bsf PORTB, 0
bsf PORTB, 1
bsf PORTB, 2
bsf PORTB, 3



sigue: bcf PORTB, 0
movlw d'10'
movwf Retardo3
movlw d'10'
movwf Retardo2
movlw d'10'
movwf Retardo
nop
decfsz Retardo,f
goto $-2
decfsz Retardo2,f
goto $-6
decfsz Retardo3,f
goto $-8



bsf PORTB, 0
bcf PORTB, 1
movlw d'10'
movwf Retardo3
movlw d'10'
movwf Retardo2
movlw d'10'
movwf Retardo
nop
decfsz Retardo,f
goto $-2
decfsz Retardo2,f
goto $-6
decfsz Retardo3,f
goto $-8


bsf PORTB, 1
bcf PORTB, 2
movlw d'10'
movwf Retardo3
movlw d'10'
movwf Retardo2
movlw d'10'
movwf Retardo
nop
decfsz Retardo,f
goto $-2
decfsz Retardo2,f
goto $-6
decfsz Retardo3,f
goto $-8



bsf PORTB, 2
bcf PORTB, 3
movlw d'10'
movwf Retardo3
movlw d'10'
movwf Retardo2
movlw d'10'
movwf Retardo
nop
decfsz Retardo,f
goto $-2
decfsz Retardo2,f
goto $-6
decfsz Retardo3,f
goto $-8


bsf PORTB, 3
goto sigue
end