LIST	P=16F627A
	#INCLUDE	<P16F627A.INC>
	
	__CONFIG _XT_OSC& _WDT_OFF& _CP_OFF
	
	CBLOCK		0X20
	VAR1
	VAR2
	ENDC

	ORG		0

START
	BSF		STATUS,RP0
	MOVLW	B'11111111'
	MOVWF	TRISA
	MOVLW	B'00000000'
	MOVWF	TRISB
	BCF		STATUS,RP0
MAIN
	MOVLW		B'00000001'
	MOVWF		PORTB
	CALL		IDO
	MOVLW		B'00000010'
	MOVWF		PORTB
	CALL		IDO
	MOVLW		B'00000100'
	MOVWF		PORTB
	CALL		IDO
	MOVLW		B'00001000'
	MOVWF		PORTB
	CALL		IDO
	MOVLW		B'00010000'
	MOVWF		PORTB
	CALL		IDO
	MOVLW		B'00100000'
	MOVWF		PORTB
	CALL		IDO
	MOVLW		B'01000000'
	MOVWF		PORTB
	CALL		IDO
	MOVLW		B'00000000'
	MOVWF		PORTB
	CALL		IDO
	MOVLW		B'00000000'
	MOVWF		PORTB
	CALL		IDO2
	MOVLW		B'00000000'
	MOVWF		PORTB
	CALL		IDO2
	MOVLW		B'00100000'
	MOVWF		PORTB
	CALL		IDO2
	MOVLW		B'00010000'
	MOVWF		PORTB
	CALL		IDO2
	MOVLW		B'00001000'
	MOVWF		PORTB
	CALL		IDO2
	MOVLW		B'00000100'
	MOVWF		PORTB
	CALL		IDO2
	MOVLW		B'00000010'
	MOVWF		PORTB
	CALL		IDO2
	MOVLW		B'00000001'
	MOVWF		PORTB
	CALL		IDO2
	GOTO		MAIN
IDO
	MOVLW		d'5000'
	MOVWF		VAR1
EGY
	NOP
	NOP
	NOP
	DECFSZ		VAR1,F
	GOTO		EGY
	RETURN
IDO2
	MOVLW		d'2500'
	MOVWF		VAR2
KETTO	
	NOP
	NOP
	NOP
	DECFSZ		VAR2,F
	GOTO		KETTO
	RETURN
	END