contador.asm

DELAY LIKE TIME SUBRUTINE AT MICROCONTROLLER PIC18F452

list p=18F452
include "p18F452.inc"

CBLOCK 0X20
CUENTA1
CUENTA2
ENDC

		ORG 0X00

INICIO 		CLRF CUENTA1
       		CLRF CUENTA2
       		CALL DESCENDENTE
       		CALL ASCENDENTE
       		GOTO INICIO
       
DESCENDENTE MOVLW 0XFF
			MOVWF CUENTA1
COUNT1		MOVLW 0XFF
			MOVWF CUENTA2
COUNT2		DECFSZ CUENTA2,F
			BRA COUNT2
			DECFSZ CUENTA1,F
			BRA COUNT1
			RETURN       

ASCENDENTE  MOVLW 0X00
			MOVWF CUENTA1
COUNT3		MOVLW 0X00
			MOVWF CUENTA2
COUNT4		INCFSZ CUENTA2,F
			BRA 	COUNT4
			INCFSZ CUENTA1,F
			BRA COUNT3
			RETURN       
  			END