;---------------------------------------------
;Házi számláló berendezés
;Version 0.1
;Segmens kijelző beállítása
;
;
#include <P16F877_PARANCS.INC>	; Meghívjuk a Parancs Listát
SEGM1       EQU 20h		;1,2 Segmens regiszter címe 
SEGM2       EQU 21h		;3,4 Segmens regiszter címe 
IDOZITO1    EQU 22h		;8Bit-es időzítő regiszter

				;
STARTADR:     ORG 000h      ;Kezdő cím, innen indul
              GOTO START	;Ugorjunk a START címkére
              ORG 010h		;010h-ról folytatjuk
				;
START:        BSF STATUS, RP0	;Bank1-re állítjuk
              BCF STATUS, RP0
              MOVLW 0FFh	;255 értéket adunk a W-nek
              MOVWF TRISB	;W-t áthelyezzük a TRISB-be
              MOVLW 0FFh	;255 értéket adunk a W-nek
              MOVWF TRISC	;W-t áthelyezzük a TRISC-be
              			;
              BCF STATUS,RP0	;BANK0-re állítjuk
              BCF STATUS,RP1
              			;
              MOVLW 000h	;W-nek adunk 0 értéket
              MOVWF SEGM1	;Beírjuk a W-t a SEGM1 címkébe
              MOVFW SEGM1   ;SEGM1 értékét PORTB-be írjuk
              MOVWF PORTB
              			;
              MOVLW 000h	;W-nek 0 értéket adunk
              MOVWF SEGM2	;Beírjuk a W-t a SEGM2 címkébe
              MOVFW SEGM2	;SEGM1 értékét PORTC-be írjuk
              MOVWF PORTC
              			;
PROBA:        MOVLW b'00000000'		;Berakjuk a SEGM1-be a 0 értéket
              MOVWF SEGM1
              MOVLW b'00000000'		;Berakjuk a SEGM2-be a 0 értéket
              MOVWF SEGM2

ADD:          MOVFW SEGM1 		;SEGM1-et berakjuk a PORTB-be
              MOVWF PORTB
              MOVFW SEGM2		;SEGM2-őt berakjuk a PORTC-be
              MOVWF PORTC 

SEGMENS_1:    INCFSZ SEGM1, F		;Addig megyünk, míg SEGM1 0-nem lesz
              GOTO SEGMENS_1		;Addig ugrás SEGMENS_1-es cimkére
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              NOP
              INCFSZ SEGM2          ;Addig megyünk, míg SEGM2 nem lesz 0
              GOTO ADD              ;Addig ugrás ADD címkére
              
              SLEEP
              END