;****************************************************
;	Blikač na Port RB0, LED přes odpor na GND
;	Program pro PIC16F84A
;****************************************************
		include	"P16F84A.INC"	;Typ procesoru
		__config	_CP_OFF & _WDT_OFF & _PWRTE_ON & _HS_OSC	
;***********************************************************
;	Deklarace proměnných
;***********************************************************
#define out	PORTB,0		;out=PORTA,0
TMP1	equ	10h
TMP2	equ	11h
;**********************************************************
		org	00h		;Start adresa po RESET
		goto	Start	;Adresa fyzického začátku programu
;**********************************************************
;	Podprogramy
;**********************************************************
delay	movlw	0FFh		;W=255
		movwf	TMP1		;TMP1=W
Loop1		movlw	0FFh
		movwf	TMP2
Loop2		decfsz	TMP2,F	;TMP2=TMP2-1
		goto	Loop2		;Skok na Loop2 pokud TMP2>0
		decfsz	TMP1,F
		goto	Loop1
		return
;**********************************************************
;	Hlavní program
;**********************************************************
Start	bsf	STATUS,RP0		;Přepnutí do BANK 1
		movlw	b'11111110'	;Nastavení RB0 na režim výstup
		movwf	PORTB		;Nastavení portu(nepoužívat příkaz TRIS)
		bcf	STATUS,RP0		;Přepnutí do BANK 0
		bcf	out				;Nastavení RB0 do 0
;.........................................................
Opakuj	bsf	out				;Nastav RB0 do 1
		call	delay		;čekej cca 200ms
		bcf	out				;Nastav RB0 do 0
		call 	delay		;čekej cca 200ms
		goto Opakuj
;************************************************************
		end