LIST P=16F627
#INCLUDE "P16F627.INC"
__CONFIG _INTRC_OSC_NOCLKOUT & _CP_OFF & _WDT_OFF & _MCLRE_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'01000000' 
	MOVWF	PORTB
	CALL	SZUN
	MOVLW	B'00100000'
	MOVWF	PORTB
	CALL	SZUN
	MOVLW	B'00010000'
	MOVWF	PORTB
	CALL	SZUN
	MOVLW	B'00001000'
	MOVWF	PORTB
	CALL	SZUN
	MOVLW	B'00000100'
	MOVWF	PORTB
	CALL	SZUN
	MOVLW	B'00000010'
	MOVWF	PORTB
	CALL	SZUN
	MOVLW	B'00000001'
	MOVWF	PORTB
	CALL	SZUN
	GOTO	VISSZA

SZUN:
	NOP
	NOP
	RETURN

END