; ARCHIVO CONTADOR.ASM
; CUENTA BINARIA EN LOS LEDS.
; CODIGO FUENTE PARA EL SISTEMA BOLT
; SE UTILIZA UN PROGRAMA BOOTLOADER PARA 
; CARGAR EL PROGRAMA .HEX EN LA MEMORIA FLASH 
; EL CRISTAL EXTERNO DEL 18F2550 ES DE 20 MHZ
; PERO LA FRECUENCIA EFECTIVA DE FUNCIONAMIENTO
; ES DE 48 MHZ DEBIDO AL PLL MULTIPLICADOR
; PARA HACER LA SIMULACION EN MPLAB, ORG=0
; PARA CORRER EL PROGRAMA EN BOLT, ORG=800

	processor 18F2550
	include	  <p18F2550.inc>

J	equ	H'80'	  
K	equ	H'81'
L	equ H'82'	 
			org 800
			clrf	TRISA
			clrf	TRISB			 			
inicio:		clrf	PORTB
			clrf	PORTA
increment:	incf	PORTB,F			
			call	retrobolt						
			goto	increment

	; RETRASO APROX DE 16.4 x L MILISEGUNDOS

retrobolt:	movlw	D'61'	;valor de L
			movwf	L
lloop		movlw	D'255'	; w := 200 decimal
			movwf	J	; J := w
jloop:		movwf	K	; K := w
kloop:		decfsz	K,f	; K = K-1, skip next if zero
			goto 	kloop
			decfsz	J,f	; J = J-1, skip next if zero
			goto	jloop
			decfsz	L,f
			goto	lloop
			return


			end	

