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

CBLOCK 0x0C 
VAR 
VAR2
ENDC 

ORG	0

START
	BSF		STATUS,RP0
	MOVLW	B'00011111'
	MOVWF	TRISA
	MOVLW	B'00000000'
	MOVWF	TRISB
	BCF		STATUS,RP0

VISSZA:
	MOVLW	B'10000000'
	MOVWF	PORTB
	CALL	SZUN
	MOVLW	B'00000000'
	MOVWF	PORTB
	CALL	SZUN
	GOTO	VISSZA

SZUN:
	MOVLW	d'200'
	MOVWF	VAR
	DEL3:
		MOVLW	d'200'
		MOVWF	VAR2
	DEL4:
		NOP
		NOP
		NOP
		NOP
		NOP
		DECFSZ	VAR2,F
		BRA		DEL4
		DECFSZ	VAR,F
		BRA		DEL3
	RETURN

END