;-----------------------------------------------
	LIST	P = 16F874, R = DEC
	#include P16F874.INC
  
  __CONFIG _CP_OFF &_WDT_OFF &_BODEN_OFF &_PWRTE_OFF &_HS_OSC &_WRT_ENABLE_OFF &_LVE_OFF

;--------------------------------------
	ORG 	H'0000'  
	GOTO	START
;--------------------------------------
START	NOP

;inic---IN/OUT---
	banksel	PORTA
	MOVLW	B'00000000'
	MOVWF	PORTA	     ;nastavení portu A -TR
	MOVLW	B'11111111'
	MOVWF	PORTB        ;nastavení portu B -TL
	MOVLW	B'00000000'
	MOVWF	PORTC	     ;nastavení portu C
	MOVLW	B'00000000'
	MOVWF	PORTD	     ;nastavení portu D -SEG
	MOVLW	B'00000000'
	MOVWF	PORTE	     ;nastavení portu E
	
	banksel	TRISA
	MOVLW	B'00000000'  ;1-VSTUP/0-VYSTUP
	MOVWF	TRISA	     ;nastavení portu A -TRANZISTORY
	MOVLW	B'11111111'
	MOVWF	TRISB	     ;nastavení portu B -TLAC
	MOVLW	B'00000000'
	MOVWF	TRISC	     ;nastavení portu C
	MOVLW	B'00000000'
	MOVWF	TRISD	     ;nastavení portu D -SEGMENTY
	MOVLW	B'00000000'
	MOVWF	TRISE	     ;nastavení portu E

;inic.---A/D-OFF---
	banksel	ADCON1
	MOVLW	B'00000110'  ;portA a portE DIGITAL I/O
	MOVWF	ADCON1

	banksel	ADCON0
	MOVLW	B'00000000'  ;vypnuti A/D prev.
	MOVWF	ADCON0

;---PULL UP-PORTB---
	banksel	 OPTION_REG	 
	BCF	OPTION_REG,7 ;REZISTOR Ucc-PORTB
	banksel	PORTA

	MOVLW	B'00000000'
	MOVWF	PORTD	     ;nastavení portu D -SEG

 	BCF	STATUS,RP0   ;banka 0
	BCF	STATUS,RP1
;-----------------
S1	NOP
	MOVFW	PORTB
	NOP
	MOVWF	PORTD
	GOTO	S1
	END