LIST P=16F873A
	INCLUDE<P16F873A.INC>
	__CONFIG _PWRTE_OFF & _WDT_OFF & _HS_OSC & _LVP_OFF
;...........................................................



TMP0		EQU		20h
TMP1		EQU 	21h
TMP2		EQU		22h
	


PIS1		EQU		23h	
PIS2		EQU		24h
PIS3		EQU		25h
PIS4		EQU		26h
PIS31		EQU		27h
PIS6		EQU		28h
PIS7		EQU		29h
PIS8		EQU		2ah
PIS9		EQU		2bh
PIS10		EQU		2ch

PIS11		EQU		2eh
PIS12		EQU		2fh
PIS13		EQU		30h
PIS14		EQU		31h
TAKT		EQU		32h		;POZOR FUNKČNÍ
SEDM		EQU		33h
REG0		EQU		34h
PIS15		EQU		35h
REG1		EQU		36h
REG2		EQU		37h
REG3		EQU		38h
REG4		EQU		39h
REG5		EQU		3ah
REG6		EQU		3bh
REG7		EQU		3ch
PIS16		EQU		3eh
PIS17		EQU		3fh

PIS18		EQU		40h
PIS19		EQU		41h
PIS20		EQU		42h
PIS21		EQU		43h
PIS22		EQU		44h
PIS23		EQU		45h
PIS24		EQU		46h
PIS25		EQU		47h
PIS26		EQU		48h
PIS27		EQU		49h
PIS28		EQU		4ah
PIS29		EQU		4bh
EEPROM		EQU		4ch
ULOZ1		EQU		4dh
ULOZ2		EQU		4eh
KOLO		EQU		4fh
KOLO1		EQU		50h
REGZ		EQU		51h
PIS30		EQU		52H
PIS32		EQU		53H
PIS33		EQU		54H
PIS34		EQU		55H
PIS35		EQU		56H
PIS36		EQU		57H
PIS37		EQU		58H
PIS38		EQU		59H
PIS39		EQU		5AH
PIS40		EQU		5BH
PIS41		EQU		5CH
PIS42		EQU		5DH
PIS43		EQU		5EH
PIS44		EQU		5FH
PIS45		EQU		60H
PIS46		EQU		61H
PIS47		EQU		62H
PIS48		EQU		63H
PIS49		EQU		64H
PIS50		EQU		65H
PIS51		EQU		66H
PIS52		EQU		67H
PIS53		EQU		68H
PIS54		EQU		69H
PIS55		EQU		6AH	
PIS56		EQU		6BH
PIS57		EQU		6CH
PIS58		EQU		6DH
PIS59		EQU		6EH
PIS60		EQU		6FH
PIS61		EQU		70H	
PIS62		EQU		71H
PIS63		EQU		72H
PIS64		EQU		73H
PIS65		EQU		74H
PIS66		EQU		75H
PIS67		EQU		76H
PIS68		EQU		77H
PIS69		EQU		78H
PIS70		EQU		79H
PIS71		EQU		7AH
PIS72		EQU		7BH
PIS73		EQU		7CH
REGX		EQU		7DH
PIS5		EQU		7EH
PIS74		EQU		7FH			;KONČÍ PAMĚŤ PRVNÍ BANKY PRO REGISTRY -
PIS77		EQU		0A1H		;DRUHÁ BANKA
PIS78		EQU		0A2H
PIS79		EQU		0A3H
PIS80		EQU		0A4H
PIS76		EQU		0A5H
PIS75		EQU		0A6H

#define	TL		PORTA,0	
#define	LE0		PORTC,0	
#define	LE1		PORTC,1	
#define	LE2		PORTC,2	
#define	PB		PORTB
#define	HOD		PORTA,1
#define	DAT		PORTA,2


	org		0x00
;.................................
	banksel TRISA
	movlw	B'00000001'
	movwf	TRISA

	movlw	B'00000000'		;KONFIGURACE VSTUPŮ-4-7
	movwf	TRISC

	movlw	B'00000000'
	movwf	TRISB
;.................................; NASTAVENÍ PORTA JAKO DIGITÁLNÍ 
	banksel	PORTA
		CLRF	PORTA
	banksel	ADCON1
		MOVLW	0X06
		MOVWF	ADCON1
		BCF		INTCON,GIE
;...................................

	banksel	PORTA
;...................................
		MOVLW	00h	
		MOVWF	PORTA


		MOVLW	00h
		MOVWF	PORTB
	
		MOVLW	00h
		MOVWF	PORTC
;................................


;......................
	MOVLW	.80
	MOVWF	TAKT
	MOVLW	.7
	MOVWF	SEDM
;..........................
	MOVLW	.0
	MOVWF	REG0
	MOVWF	REGX
;..............................
;BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
	MOVLW	.10
	banksel	PIS80
	MOVWF	PIS80
	MOVLW	.126
	banksel	PIS74
	MOVWF	PIS74
	MOVLW	.9
	MOVWF	PIS73
	MOVLW	.9
	MOVWF	PIS72
	MOVLW	.9
	MOVWF	PIS71
	MOVLW	.126
	MOVWF	PIS70
	MOVLW	.0
	MOVWF	PIS69
	MOVLW	.255
	
	MOVWF	PIS68
	MOVLW	.65
	MOVWF	EEPROM
	MOVLW	.8
	MOVWF	PIS67
	MOVLW	.8
	MOVWF	PIS66
	MOVLW	.8
	MOVWF	PIS65
	MOVLW	.255
	MOVWF	PIS64
	MOVLW	.0
	MOVWF	PIS63
	MOVLW	.62
	MOVWF	PIS62
	MOVLW	.65	
	MOVWF	PIS61
;,,,,,,,,,,,,,,,,,,,
	MOVLW	.65
	MOVWF	PIS60
	MOVLW	.65
	MOVWF	PIS59
	MOVLW	.62
	MOVWF	PIS58
	MOVLW	.0
	MOVWF	PIS57	
	MOVLW	.48		;J
	MOVWF	PIS56
	MOVLW	.65
	MOVWF	PIS55
	MOVLW	.65
	MOVWF	PIS54
	MOVLW	.65
	MOVWF	PIS53
	MOVLW	.63
	MOVWF	PIS52
	MOVLW	.0
	MOVWF	PIS51
		
;§§§§§§§§§§§§§§§§§§§§§§
	MOVLW	.1
	MOVWF	REG1
	MOVLW	.2
	MOVWF	REG2
	MOVLW	.3			;
	MOVWF	REG3
	MOVLW	.4
	MOVWF	REG4
	MOVLW	.5
	MOVWF	REG5
	MOVLW	.6
	MOVWF	REG6
	MOVLW	.7
	MOVWF	REG7
	MOVLW	.8
	MOVWF	REGX
	MOVLW	.7
	MOVWF	KOLO
	MOVWF	.7
	MOVWF	KOLO1
	MOVLW	.255
		

;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
;.......................
	GOTO	START
;...............................

;..............................


CASX
	banksel	TMP0
	   MOVLW 0x01  ;1 DEC8000
        MOVWF TMP2
        MOVLW 0x27  ;39 DEC
        MOVWF TMP1
        MOVLW 0x43  ;67 DEC
        MOVWF TMP0
        DECFSZ TMP0,F
        GOTO $-1
        DECFSZ TMP1,F
        GOTO $-5
        DECFSZ TMP2,F
        GOTO $-9
		RETURN
;....................................
NULUJ	MOVLW	.7		;VYNULUJE ŘÁDKY
		MOVWF	PB
		BSF	DAT			;VYNULUJE SLOUPCE
A2		BSF	HOD
		BCF	HOD
		DECFSZ	TAKT,1
		GOTO	A2
		MOVLW	.80
		MOVWF	TAKT
		RETURN
;..............................
;................................
ZJISTI
	banksel	REG0
		MOVFW	REG0		;NAČTE ČÍSLO 1
		XORWF	REG1,0		;POROVNÁ S ČÍSLEM 1 V REGISTRU REG1
		BTFSS	03H,2
		GOTO	HOP1		;POKUD SE NESHODUJÍ PŘESKOČÍ
		BTFSC	REGX,0		;NA POZICI /0/ ZJISTÍ  O JAKÝ BIT SE JEDNÁ 1-0
		GOTO	AP7
		GOTO	AB7
AP7		CALL	JEDNA		;PROVEDE ZÁPIS DO POSUVNÉHO REGISTRU ZAPÍŠE 0 NEBO 1
		GOTO	HOP7
AB7		CALL	NULA
		GOTO	HOP7
;........................
HOP1	MOVFW	REG0		;NAČTE ČÍSLO 2
		XORWF	REG2,0		;POROVNÁ S ČÍSLEM 2
		BTFSS	03H,2
		GOTO	HOP2		;POKUD SE NESHODUJÍ PŘESKOČÍ
		BTFSC	REGX,1		;NA POZICI /1/ ZJISTÍ O JAKÝ BIT SE JEDNÁ 1-0
		GOTO	AP6
		GOTO	AB6
AP6		CALL	JEDNA		;PROVEDE ZÁPIS DO POSUVNÉHO REGISTRU ZAPÍŠE 0 NEBO 1
		GOTO	HOP7
AB6		CALL	NULA
		GOTO	HOP7
;.............................
HOP2	MOVFW	REG0		;NAČTE ČÍSLO 3
		XORWF	REG3,0		;POROVNÁ S ČÍSLEM 3
		BTFSS	03H,2
		GOTO	HOP3		;POKUD SE NESHODUJÍ PŘESKOČÍ
		BTFSC	REGX,2		;NA POZICI /2/ ZJISTÍ O JAKÝ BIT SE JEDNÁ 1-0
		GOTO	AP5
		GOTO	AB5
AP5		CALL	JEDNA		;PROVEDE ZÁPIS DO POSUVNÉHO REGISTRU ZAPÍŠE 0 NEBO 1
		GOTO	HOP7
AB5		CALL	NULA
		GOTO	HOP7
;.............................
HOP3	MOVFW	REG0		;NAČTE ČÍSLO 4
		XORWF	REG4,0		;POROVNÁ S ČÍSLEM 4
		BTFSS	03H,2
		GOTO	HOP4		;POKUD SE NESHODUJÍ PŘESKOČÍ
		BTFSC	REGX,3		;NA POZICI /3/ ZJISTÍ O JAKÝ BIT SE JEDNÁ 1-0
		GOTO	AP4
		GOTO	AB4
AP4		CALL	JEDNA		;PROVEDE ZÁPIS DO POSUVNÉHO REGISTRU ZAPÍŠE 0 NEBO 1
		GOTO	HOP7
AB4		CALL	NULA
		GOTO	HOP7
;..........................
HOP4	MOVFW	REG0		;NAČTE ČÍSLO 2
		XORWF	REG5,0		;POROVNÁ S ČÍSLEM 2
		BTFSS	03H,2
		GOTO	HOP5		;POKUD SE NESHODUJÍ PŘESKOČÍ
		BTFSC	REGX,4		;NA POZICI /2/ ZJISTÍ O JAKÝ BIT SE JEDNÁ 1-0
		GOTO	AP3
		GOTO	AB3
AP3		CALL	JEDNA		;PROVEDE ZÁPIS DO POSUVNÉHO REGISTRU ZAPÍŠE 0 NEBO 1
		GOTO	HOP7
AB3		CALL	NULA
		GOTO	HOP7
;.............................
HOP5	MOVFW	REG0		;NAČTE ČÍSLO 2
		XORWF	REG6,0		;POROVNÁ S ČÍSLEM 2
		BTFSS	03H,2
		GOTO	HOP6		;POKUD SE NESHODUJÍ PŘESKOČÍ
		BTFSC	REGX,5		;NA POZICI /2/ ZJISTÍ O JAKÝ BIT SE JEDNÁ 1-0
		GOTO	AP2
		GOTO	AB2
AP2		CALL	JEDNA		;PROVEDE ZÁPIS DO POSUVNÉHO REGISTRU ZAPÍŠE 0 NEBO 1
		GOTO	HOP7
AB2		CALL	NULA
		GOTO	HOP7
;.............................
HOP6	MOVFW	REG0		;NAČTE ČÍSLO 2
		XORWF	REG7,0		;POROVNÁ S ČÍSLEM 2
		BTFSS	03H,2
		GOTO	HOP7		;POKUD SE NESHODUJÍ PŘESKOČÍ
		BTFSC	REGX,6		;NA POZICI /2/ ZJISTÍ O JAKÝ BIT SE JEDNÁ 1-0
		GOTO	AP1
		GOTO	AB1
AP1		CALL	JEDNA		;PROVEDE ZÁPIS DO POSUVNÉHO REGISTRU ZAPÍŠE 0 NEBO 1
		GOTO	HOP7
AB1		CALL	NULA
		GOTO	HOP7
HOP7	NOP
		RETURN
;......................................
;,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, PODPROGRAM PRO PŘEPÍNÁNÍ STAVU ŘÁDKŮ
RADA	MOVFW	REG0		;NAČTE ČÍSLO 1
		XORWF	REG1,0		;POROVNÁ S ČÍSLEM 1
		BTFSS	03H,2
		GOTO	SA1
		MOVLW	.0			;ZAPNE ŘÁDEK NA ZVOLENÉ POZICI TJ-0
		MOVWF	PB
SA1		MOVFW	REG0		;NAČTE ČÍSLO 1
		XORWF	REG2,0		;POROVNÁ S ČÍSLEM 1
		BTFSS	03H,2
		GOTO	SA2
		MOVLW	.1			;ZAPNE ŘÁDEK NA ZVOLENÉ POZICI TJ-0
		MOVWF	PB
SA2		MOVFW	REG0		;NAČTE ČÍSLO 1
		XORWF	REG3,0		;POROVNÁ S ČÍSLEM 1
		BTFSS	03H,2
		GOTO	SA3
		MOVLW	.2			;ZAPNE ŘÁDEK NA ZVOLENÉ POZICI TJ-0
		MOVWF	PB
SA3		MOVFW	REG0		;NAČTE ČÍSLO 1
		XORWF	REG4,0		;POROVNÁ S ČÍSLEM 1
		BTFSS	03H,2
		GOTO	SA4
		MOVLW	.3			;ZAPNE ŘÁDEK NA ZVOLENÉ POZICI TJ-0
		MOVWF	PB
SA4		MOVFW	REG0		;NAČTE ČÍSLO 1
		XORWF	REG5,0		;POROVNÁ S ČÍSLEM 1
		BTFSS	03H,2
		GOTO	SA5
		MOVLW	.4			;ZAPNE ŘÁDEK NA ZVOLENÉ POZICI TJ-0
		MOVWF	PB
SA5		MOVFW	REG0		;NAČTE ČÍSLO 1
		XORWF	REG6,0		;POROVNÁ S ČÍSLEM 1
		BTFSS	03H,2
		GOTO	SA6
		MOVLW	.5			;ZAPNE ŘÁDEK NA ZVOLENÉ POZICI TJ-0
		MOVWF	PB
SA6		MOVFW	REG0		;NAČTE ČÍSLO 1
		XORWF	REG7,0		;POROVNÁ S ČÍSLEM 1
		BTFSS	03H,2
		GOTO	SA7
		MOVLW	.6			;ZAPNE ŘÁDEK NA ZVOLENÉ POZICI TJ-0
		MOVWF	PB
SA7		NOP
		RETURN	
;.....................................
JEDNA	BCF		DAT			;NASTAVUJE POSUVNÝ REGISTR UKLÁDÁ DATA DO H
		BSF		HOD
		BCF		HOD
		BSF		DAT
		GOTO	HOP7
		RETURN
;.....................................
NULA	BSF		DAT			;NASTAVUJE POSUVNÝ REGISTR UKLÁDÁ DATA DO L
		BSF		HOD
		BCF		HOD
		BCF		DAT
		GOTO	HOP7
		RETURN


;ttttttttttttttttttttttttttttttttttttttttttttttttttttttttt
START	BTFSC	TL		;SPOUŠTĚCÍ tlačítko
		GOTO	A1
		GOTO	START

A1		CALL	NULUJ	;VYNULUJE ŘÁDKY VYNULUJE SLOUPCE
		BSF	PORTC,0
		
;.........................................
	
VRCH
	banksel		REG0
	INCF	REG0,f  	;ZAPISUJE PO KAŽDÉM NÁBĚHU AŽ DO 7
		MOVLW	.7		;VYPNE SLOUPCE 
		MOVWF	PB
;.............................
		MOVFW	PIS1	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX	; Z REG1 JSOU DATA PŘETAŽENA DO PRACOVNÍHO REGX
		CALL	ZJISTI
;,,,,,,,,,,,,,,,,,,,,,,,,,,,
		MOVFW	PIS1	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010  -1-
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS2	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS3	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS4	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS5	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS6	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS7	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS8	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS9	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS10	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010   -10-
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS11	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS12	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS13	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS14	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS15	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS16	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS17	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS18	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS19	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS20	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010  -20-
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS21	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010  -1-
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS22	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS23	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS24	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS25	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS26	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS27	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS28	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS29	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS30	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010   -10-
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS31	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS32	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS33	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS34	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS35	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS36	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS37	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS38	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS39	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS40	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010  -20-
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS41	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010  -1-
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS42	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS43	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS44	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS45	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS46	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS46	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS48	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS49	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS50	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010   -10-
		MOVWF	REGX
		
		CALL	ZJISTI
		MOVFW	PIS51	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS52	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS53	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS54	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS55	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS56	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS57	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS58	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS59	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010  -20-
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS60	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010  -1-
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS61	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS62	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS63	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS64	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS65	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS66	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS67	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS68	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS69	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010   -10-
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS70	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS71	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS72	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS73	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
		MOVFW	PIS74	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
	banksel	PIS75
		MOVFW	PIS75	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
	banksel	PIS76
		MOVFW	PIS76	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
	banksel	PIS77
		MOVFW	PIS77	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
	banksel	PIS78
		MOVFW	PIS78	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
	banksel	PIS79
		MOVFW	PIS79	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010  -20-
		MOVWF	REGX
		CALL	ZJISTI
	banksel	PIS80	
		MOVFW	PIS80	;ULOŽENY DATA V PRVNÍM SLOUPEČKU 10101010
		MOVWF	REGX
		CALL	ZJISTI
;**********************************	
		CALL	RADA
		CALL	CASX
		CALL	NULUJ
		DECFSZ	SEDM,1
		GOTO	VRCH
;............................
			
		MOVLW	.0	
		MOVWF	REG0
		MOVLW	.7
		MOVWF	SEDM
		
;,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
		DECFSZ	KOLO,1
		GOTO	VRCH  	;SKOČÍ PO NAČTENÍ VŠECH BITŮ NA ZAČÁTEK	
		MOVLW	.7
		MOVWF	KOLO
	
	
		BSF		PORTC,1
	
		

		MOVFW	PIS74
		MOVWF	ULOZ2
		MOVFW	EEPROM
		MOVWF	PIS74
;,,,,,,
		MOVFW	PIS73
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS73
		
		MOVFW	PIS72
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS72

		MOVFW	PIS71
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS71

		MOVFW	PIS70
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS70
		

		MOVFW	PIS69
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS69
;,,,,,,
		MOVFW	PIS68
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS68
		
		MOVFW	PIS67
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS67

		MOVFW	PIS66
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS66	;20-

		MOVFW	PIS65
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS65
		
		
		MOVFW	PIS64
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS64
;,,,,,,
		MOVFW	PIS63
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS63
		
		MOVFW	PIS62
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS62

		MOVFW	PIS61
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS61

		MOVFW	PIS60
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS60
		

		MOVFW	PIS59
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS59
;,,,,,,
		MOVFW	PIS58
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS58
		
		MOVFW	PIS57
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS57

		MOVFW	PIS56
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS56

		MOVFW	PIS55
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS55
		

		MOVFW	PIS54
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS54
;,,,,,,
		MOVFW	PIS53
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS53
		
		MOVFW	PIS52
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS52

		MOVFW	PIS51
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS51

		MOVFW	PIS50
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS50
		

		MOVFW	PIS49
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS49
;,,,,,,
		MOVFW	PIS48
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS48
		
		MOVFW	PIS47
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS47

		MOVFW	PIS46
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS46	;20-
	
		MOVFW	PIS45
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS45
		

		MOVFW	PIS44
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS44
;,,,,,,
		MOVFW	PIS43
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS43
		
		MOVFW	PIS42
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS42

		MOVFW	PIS41
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS41

		MOVFW	PIS40
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS40
		

		MOVFW	PIS39
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS39
;,,,,,,
		MOVFW	PIS38
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS38
		
		MOVFW	PIS37
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS37

		MOVFW	PIS36
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS36

		MOVFW	PIS35
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS35

		MOVFW	PIS34
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS34

		MOVFW	PIS33
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS33

		MOVFW	PIS32
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS32
		

		MOVFW	PIS31
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS31
;,,,,,,
		MOVFW	PIS30
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS30
		
		MOVFW	PIS29
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS29

		MOVFW	PIS28
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS28

		MOVFW	PIS27
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS27
		
		
	;..............................

;.............................	

		MOVFW	PIS26
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS26
;,,,,,,
		MOVFW	PIS25
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS25
		
		MOVFW	PIS24
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS24

		MOVFW	PIS23
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS23	;20-

		
		MOVFW	PIS22
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS22

		MOVFW	PIS21
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS21

		MOVFW	PIS20
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS20

		
		

		MOVFW	PIS19
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS19
;,,,,,,
		MOVFW	PIS18
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS18
		
		MOVFW	PIS17
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS17

		MOVFW	PIS16
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS16

		MOVFW	PIS15
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS15
		

		MOVFW	PIS14
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS14
;,,,,,,
		MOVFW	PIS13
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS13
		
		MOVFW	PIS12
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS12

		MOVFW	PIS11
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS11

		MOVFW	PIS10
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS10
		

		MOVFW	PIS9
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS9
;,,,,,,
		MOVFW	PIS8
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS8
		
		MOVFW	PIS7
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS7

		MOVFW	PIS6
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS6

		MOVFW	PIS5
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS5
		

		MOVFW	PIS4
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS4
;,,,,,,
		MOVFW	PIS3
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS3
		
		MOVFW	PIS2
		MOVWF	ULOZ2
		MOVFW	ULOZ1
		MOVWF	PIS2

		MOVFW	PIS1
		MOVWF	ULOZ1
		MOVFW	ULOZ2
		MOVWF	PIS1	;20-
		BANKSEL	PIS80
		DECFSZ	PIS80,1		;TADY JE TEN PROBLÉM...
		GOTO	VRCH		;SKOČÍ TO JEN SEM,A TAK POŘÁD DOKOLA ALE PŘITOM TO MÁ ODEČÍST .10 A PŘESKOČIT 							;GOTO VRCH A NAČÍST .255 PRO REGISTR EEPROM
		MOVLW	.10		;		.ZKOUŠEL JSEM POD GOTO VRCH DÁT ZAPNUTÍ LED ALE VŮBEC SE TAK 				
		MOVWF	PIS80		;		NESTALO..
		banksel	EEPROM	;!!!!!!!!!!!!!!!!!!!!!!!!!	
		MOVLW	.255
		MOVWF	EEPROM
		
		GOTO	VRCH
		END

	
	
		
	;...............................................
;TOTO MÁ BÝT PROGRAM PRO OVLÁDÁNÍ POSUVNÉHO MATICOVÉHO DISPLEJE	- REGISTRY PIS1,PIS2,PIS3 ATD. SI POSTUPNĚ PŘEDÁVAJÍ ULOŽENÉ DATA PROGRAM
;SE TOČÍ PŘES GOTO VRCH ,JÁ POTŘEBUJI JEN ABY SE PO CCA 10X OTOČENÍ PŘEPSAL PRACOVNÍ REGISTR EEPROM NA HODNOTU 255 ALE TADY TO SELHÁVÁ
;PROTOŽE TO Z NĚJAKÉHO DŮVODU NECHCE PŘESKOČIT Z INSTRUKCE( DECFSZ PIS80,F).- NAČTENÍ NOVÉ HODNOTY PRO EEPROM TJ.-255 A PAK OPĚT SKOČIT GOTEM VRCH 
;NA HLAVNÍ PROGRAM.
;JEŠTĚ DETAIL- PIS80 -REGISTR VE KTERÉM JE ULOŽENA TA  HODNOTA 255 JE UŽ V BANCE 1, ALE TO JSEM MYSLÍM OŠETŘIL TÍM BANKSELEM..
;KRYSTAL 20MHZ		
	;...............................................
		








	


	