errorlevel 2	
LIST P=16F876
	#INCLUDE "P16F876.INC"
	__CONFIG _HS_OSC&_CP_OFF&_WDT_OFF&_LVP_OFF

CBLOCK 0X20
SZ
EL
EH
EU
XXH
XXL
ENDC

	movlw	D'255'
	movwf	XXL
	MOVLW	D'255'
	MOVWF	XXH
	MOVLW	D'10'
	CALL	SZORZAS16X8
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP	
	
SZORZAS16X8

	CLRF	SZ	
	BSF  	SZ,4
	CLRF	EL
	CLRF	EH
	CLRF	EU

VISSZA
	RLF	EL
	RLF	EH
	RLF	EU
	RLF	XXH,F
	RLF	XXL,F
	BTFSC	STATUS,C
	GOTO	OSSZEAD
X	DECFSZ	SZ
	GOTO	VISSZA
	RETURN
OSSZEAD
	ADDWF	EL,f
	BTFSS	STATUS,C
	GOTO	X
	INCFSZ	EH
	GOTO	X
	INCF	EU
	GOTO	X

END