;**********************************HMD Elektronika***************************************
;*      file: Ora1.asm 							                *
;*	Keszitette : Hajnal Sandor 2002 03 18 DMISZ				        *
;  jol mukodik !!!
;****************************************************************************************
;A program 0-9 ig szamol masodpercenkent, kijelezve az eltelt idot.
;
;     
;	C1 az  +5V -ra
;	egyes kijelzo szegmensek: a-g = RB0-RB6
;
;
;
;
;
; **************************************************************************************

	list	p=16f872			; proceszor tipus megadasa
	#include "p16f872.inc"; elore definialt szimbolumok hasznalata
	__CONFIG _XT_OSC&_WDT_OFF&_CP_OFF     	; Konfiguracios bitek
	__IDLOCS 5678			      	; ID (azonosito)
	ERRORLEVEL 1,-302	   	      	; 302-es hibauzenet kikapcs.

counter	equ 	0x21
szam	equ	0x22
	org 0
	goto start
	org 4
start				;alapadatok beallitasa
	bsf STATUS,5			;portok iranyanak beallitasa
	movlw B'00000000'
	movwf TRISB
	movlw B'00000111'		;option regiszter beallitasa TMR0 fosc/4(16MHz/4) eloozto 1:256
 	movwf OPTION_REG
	bcf STATUS,5
nullaz	
	clrf counter			;szamlao nullazasa
kiir
	movf counter,w		;kezdoertek kiirasa
	call segment
	movwf PORTB		;kijelzore kiiratas  ciklus vege 
delay				;idozites 1sec
	
	movlw 0x3D
	movwf szam
cikl_1
	btfss INTCON,T0IF 		;ciklus tulfuasok szamolasahoz itt 61 szer
	goto cikl_1
	bcf INTCON,T0IF
	decfsz szam 		;minden TMR0 tulcsordulas csokkenti "szam"-ot 0-ig
	goto cikl_1
	;movlw H'f6'		;a maradek TMR0-ba irasa itt:246
	;movwf TMR0
	;movlw B'10100000'	;TMR0 tulcsordulas megszakitast okoz
	;movwf intcon		;intcon beallitasa
	;goto delay		;vissza az elejere

	incf counter		;szamlalas 0-9 -ig ciklusban
	movf counter,w			;counter egyenlo-e  10-el ?
	sublw D'10'
	btfss STATUS,Z			;ha igen nullaz-ra ugrik es nullazza ha nem 
	goto kiir			;visszaugrik a kiir-ra es noveli egyel
	goto nullaz		;visszateres az elejere
	
segment				;szammintak
	addwf PCL,f
	DT	0x3f,0x06,0x5b,0x4f,0x66,0x6d
	DT	0x7c,0x07,0xff,0x6f		
		
	end