	move.w	#200,d6
next_frame:
	jsr	svm	;adresa video mem. u a0
	move.l	a0,a1
	add.l	#320*394,a0	;d4 destination line
	add.l	#320*396,a1	;d5 source line
	move.w	#49,d3	;radi 10 linija

next_line:
	move.w	#106,d2
	sub.l	#641*2,a0
	sub.l	#641*2,a1
do_line:		;a0 i a1 ulazni podaci
	add.w	(a1)+,d7	;vrednost a1 dodaj u d0
	add.w	(a1)+,d7
	add.w	(a1)+,d7	;tako 3 puta
	divu.w	#3,d7	;deli zbir vrednosti 3 pixela sa 3
	move.w	d7,(a0)	;upisi dobijenu vrednost na ekran (a0)
	clr.l	d7
	addq.w	#6,a0	;pomeri a0 na sledeci pixel
	dbra	d2,do_line
	dbra	d3,next_line
	dbra	d6,next_frame
*************************
* Legalan kraj programa *	Ahil
*************************
	clr.w	-(sp)		; 0 na stek
	trap	#1		; kraj Atari programa
**********************************
* Tra§enje adrese video memorije *	Ahil
**********************************
svm:
	move.w	#2,-(sp)	; XBIOS 2 (phybase)
	trap	#14		; pozovi XBIOS rutinu
	add.l	#2,sp		; popravi stek za 2 bajta (vidi naredbu
				; prije trap poziva koja kvari stek)
	move.l	d0,a0		; XBIOS nam vraca adresu ekrana kao long
				; tj. 32-bitnu adresu u registru d0
				; tu adresu prebacujem u adresni reg. a0
	rts			; ReTurn from Subroutine