; kit EEDT
; krystal 11,0592 MHz
; demo2 dynamicky displej
; (c) tkraj 2014

; bazy tranzistorov = p2.0 az p2.3
; segmenty a az g = p0.0 az p0.7

; 4 cislice x 10ms = 40ms
; obnovovacia frekvencia celeho displeja = 25Hz


$mod51

	org	0000h

start:

	mov	a, #11101110b		; p2.0 az p2.3 init
					; bude svietit prvy displej
 
Vypis1:
	mov	p0, #11111001b		; kod cislice 1 na segmenty
	mov	p2, a			; prvy displej
	rl	a			; rotacia pre dalsi displej
	acall	delay100		; bude svietit 10ms (100Hz)

vypis2:
	mov	p0, #10100100b		; kod cislice 2 na segmenty
	mov	p2, a			; druhy displej
	rl	a			; rotacia pre dalsi displej
	acall	delay100		; bude svietit 10ms (100Hz)	
	
vypis3:
	mov	p0, #10110000b		; kod cislice 3 na segmenty
	mov	p2, a			; treti displej
	rl	a			; rotacia pre dalsi displej
	acall	delay100		; bude svietit 10ms (100Hz)

vypis4:
	mov	p0, #10011001b		; kod cislice 4 na segmenty
	mov	p2, a			; stvrty displej
	rl	a			; rotacia pre dalsi displej
	acall	delay100		; bude svietit 10ms (100Hz)

sjmp	vypis1				; nekonecny cyklus


; ----------------------------

delay100:                                                                                           

	mov	tmod, #00100001b	; timer0 rezim 1
	mov	th0, #0dch
	mov	tl0, #00h		; delicka 9216 pre 100Hz

	setb	tr0

wait:
	jnb	tf0, wait
	clr	tr0
	clr	tf0

	ret

end