LIST P=16F627
#INCLUDE "P16F627.INC"
__CONFIG _INTRC_OSC_NOCLKOUT & _CP_OFF & _WDT_OFF & _MCLRE_OFF & _LVP_OFF

; Változók
CBLOCK 0x20 
	Coarse_Delay
	Fine_Delay
	M_Delay
ENDC

ORG	0

START
	BSF		STATUS,RP0
	MOVLW	B'00011111'	; PORTA --> bemenet
	MOVWF	TRISA
	MOVLW	B'00000000'	; PORTB --> kimenet
	MOVWF	TRISB
	BCF 	STATUS,RP0
VISSZA
		MOVLW	B'10000000'	; világít
		MOVWF	PORTB
		movlw	65			; 1 -> 10mS szünet
		call	Delay
		;
		MOVLW	B'00000000' ; nem világít
		MOVWF	PORTB
		movlw	65			; 1 -> 10mS szünet
		call	Delay
	GOTO	VISSZA

Delay
	movwf	Coarse_Delay
	Delay_M
		movlw	H'0A'
		movwf	M_Delay
		Delay01
			movlw	H'FF'
			movwf	Fine_Delay
			Delay02
				NOP
				decfsz  Fine_Delay,F	; this loop takes approx 1mSec
				goto    Delay02
				decfsz  M_Delay,F
				goto    Delay01
				decfsz  Coarse_Delay,F
				goto    Delay_M
				retlw   0

END