;
;	Computacion 3
;	Programa 2: generacion de las senales de excitacion
;		para un motor paso-a-paso.
;
        list    P=16C84, R=HEX
        include p16cxx.inc

CONT    equ     0C

        bsf     STATUS,RP0
        movlw   b'11110000'
        movwf   TRISB
        bcf     STATUS,RP0

lazo    movlw   b'00001001'
        movwf   PORTB
        call    delay

        movlw   b'00001100'
        movwf   PORTB
        call    delay

        movlw   b'00000110'
        movwf   PORTB
        call    delay

        movlw   b'00000011'
        movwf   PORTB
        call    delay
        goto    lazo

delay   movlw   0C8
        movwf   CONT
delay1  decfsz  CONT,1
        goto    delay1
        return

        end