;
;  8051 Disassembly of fontan.hex
;
	org	0
;
	ljmp	X006d
;
X0003:
	clr	a				; nulirane na acc a
	mov	p2,a			; zarejdane  v port P2 spirane na diuzite     1 -> vkl duza 0 -> izkl
	setb	p2.0		; palene na 1 duza 1-> P2.0
	mov	r7,#88h			; zarejdane na konstanta za zakasnenie ot 5 sek kato q promenqsh se meni i vremeto !!!
	mov	r6,#13h			; konstantata se zarejda v registri r6,r7 v nashiq slu4aj e 0x1388 -> 5000 ms  =5 sek
	lcall	X004d		; vikane na podprograma za zakusnenie
; vsi4ko tova se povtarq samo vremeto e razli4no za duzite				
	clr	a				
	mov	p2,a
	setb	p2.1		; tika ve4e e za 2 duza   0x1770 -> 6000ms =6 sek
	mov	r7,#70h
	mov	r6,#17h
	lcall	X004d
	
	clr	a
	mov	p2,a
	setb	p2.2
	mov	r7,#58h			; 0x1b58 ->7000 ms = 7 sek 
	mov	r6,#1bh
	lcall	X004d

	clr	a
	mov	p2,a
	setb	p2.3
	mov	r7,#28h			; 0x2328 -> 9000ms = 9 sek
	mov	r6,#23h
	lcall	X004d

	clr	a
	mov	p2,a
	setb	p2.4
	mov	r7,#0f8h		; 0x2af8 11000ms - 11 sek 
	mov	r6,#2ah
	lcall	X004d

	clr	a
	mov	p2,a
	setb	p2.5
	mov	r7,#98h			; .tva si go smetni sam !!!!!!!!!!!!!
	mov	r6,#3ah
	lcall	X004d
;	tuka chakash 11 sek nishto da ne e otvoreno   	
	clr	a
	mov	p2,a		; tika se spirat vsi4ki duzi 0-> v port P2
	mov	r7,#0f8h
	mov	r6,#2ah
	lcall	X004d
;----------------------------------------------------------	
	sjmp	X0003	; prehod v na4aloto na programata
;
;----------------------------------------------------------
;podprograma za zakusnenie  v neq nishto ne stava osven 4e se cukli za opredelen period ot vreme zadaden v reg r6,r7 vremeto e v ms pri 12 MHz quarc !!!!!
X004d:	
	clr	a
	mov	r5,a
	mov	r4,a
X0050:	
	clr	c
	mov	a,r5
	subb	a,r7
	mov	a,r4
	subb	a,r6
	jnc	X006c
	clr	a
	mov	r3,a
	mov	r2,a
X005a:	
	inc	r3
	cjne	r3,#0,X005f
	inc	r2
X005f:	
	mov	a,r3
	xrl	a,#82h
	orl	a,r2
	jnz	X005a
	inc	r5
	cjne	r5,#0,X006a
	inc	r4
X006a:	
	sjmp	X0050
;
X006c:	
	ret	
	
; kraj na podprograma za zakusnenie  	
;--------------------------------------------------------------------------------------------------------------------------------


;	nulirane na vsi4ki kletki ot rama 
X006d:	
	mov	r0,#7fh
	clr	a
X0070:	
	mov	@r0,a
	djnz	r0,X0070
;     kraj nulirane na vsi4ki kletki ot rama; 	
; inicializaciq na steka 	
	mov	sp,#7
; kraj na inicializaciq na steka
	ljmp	X0003
; skok da zapo4ne golqmoto cuklene i feeriqta po fontana :)
;
	end
;