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

CBLOCK 0x20 
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
	GOTO DEL4
	DECFSZ	VAR,F
	GOTO DEL3
	RETURN

END