delays.asm

DELAY LIKE TIME SUBRUTINE AT MICROCONTROLLER PIC18F452

;**********************************************************
; Ejemplo8.asm
;**********************************************************

	list p=18f452

	; Include file, change directory if needed
	include "p18f452.inc"
	
	CBLOCK 0x20	;Define un area de memoria para contantes
	CUENTA1
	CUENTA2
	ENDC
	
			ORG 0x0000			; Vector de Reset
			

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				
			CLRF		CUENTA1
			CLRF		CUENTA2
			MOVLW		0X00			
			MOVWF		CUENTA1
COUNT3		MOVLW		0X00
			MOVWF		CUENTA2
COUNT4		INCFSZ		CUENTA2,F		
			BRA			COUNT4
			INCFSZ		CUENTA1,F
			BRA			COUNT3
			RETURN
			END