kit.asm

MAKE THE FUNCION LIKE THE INCREDIBLE CAR IN PORTC OF THE MICROCONTROLLER PIC18F452

    
          list p=18f452
          include "p18f452.INC"


        CBLOCK	0X020
        PAKITO
		VAR
        ENDC

		ORG		0X00
		CLRF	TRISC
		CLRF	PORTC

		MOVLW	0X01
		MOVWF	PORTC
		
IZQ		RLCF	PORTC
		MOVLW	0X80
		CPFSEQ	PORTC,W
		BRA     IZQ
		BRA		DER


DER		RRCF	PORTC
		MOVLW	0X01
		CPFSEQ	PORTC,W
		BRA		DER
		BRA		IZQ

    	END