;***************************************************
;* Test PIC16F84A,externí krystal 4MHz,Tcy = 1us   *
;* Výstup: LED připojená na RB0 - aktivní v log. 1 *
;* Blikání LED (Tzap = Tvyp = 500ms)        	   *
;***************************************************
	include "P16F84A.INC"
	__config	_CP_OFF & _WDT_OFF & _PWRTE_ON & _HS_OSC
;*******************************************************

;.......................................................
;		Definice proměnných
;.......................................................
#define	LED	PORTB,0					;LED na PB0

tmp1	equ	20h
tmp2	equ 21h
tmp3	equ 22h
;******************************************************
		org	00h						;Skok na adresu po RESETu
		goto	Start
;******************************************************
;	Hlavní program
;******************************************************
Start	bsf	STATUS,RP0				;Bank1
		movlw	b'11111110'			;PB0 - out
		movwf	06h					;TRISB
		bcf	STATUS,RP0				;Bank0
;.....................................................
Opak
		bsf	LED						;LED on
;.....................................................
;Tzap = (cca 500ms)
;.....................................................
;10x
		movlw	.10
		movwf	tmp3				;tmp3 = 10
;100x
		movlw	.100
		movwf	tmp2				;tmp2 = 100
		
;166 x 3 x 1us  = 498us
		movlw	.166				
		movwf	tmp1				;tmp1 = 166
		decfsz	tmp1,F				;tmp1 = tmp1 - 1
		goto	$-1					;skok pokud tmp1 > 0
									;tmp1 = 0
		decfsz	tmp2,F				;tmp2 = tmp2 - 1
		goto	$-5					;skok pokud tmp2 > 0
									;tmp2 = 0
		decfsz	tmp3,F				;tmp3 = tmp3 - 1
		goto	$-9					;skok pokud tmp3 > 0
									;tmp3 = 0
;....................................................
		bcf	LED						;LED off
;....................................................
;Tvyp = (cca 500ms)
;....................................................
;10x
		movlw	.10
		movwf	tmp3
;100x
		movlw	.100
		movwf	tmp2
		
;166 x 3 x 1us  = 498us
		movlw	.166				
		movwf	tmp1
		decfsz	tmp1,F
		goto	$-1

		decfsz	tmp2,F
		goto	$-5

		decfsz	tmp3,F
		goto	$-9
;......................................................
		goto	Opak		;nekonečná smyčka
;******************************************************
		end