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

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:
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	RETURN

END