	jmp	Start		; preskoci podatke o slici
	
Slika:
	incbin	e:\asembler\source\pic.f16
	even			; sledeca naredba je na parnoj adresi
				; u slucaju da je picture size neparno

Start:
	jsr	Video_Begin	; saznaj pocetak video memorije
	move.l	a0,a1		; to ce biti destination
	move.l	#64000,d0	; uvek u petlji koristi .l da popunis celi d0
	lea	Slika,a0
Loop:
	move.w	(a0)+,(a1)+	; prebaci wor po word (320*200*2 bajtova)
	subq.l	#1,d0		; sljedeci bajt
	bne.s	Loop		; NE=not equival, loop until zero in d0

	bsr	Wait_For_Key

	clr.w	-(sp)		; 0 na stek
	trap	#1		; kraj Atari programa

; In:	nothing
; Out:	a0.l=begin address of video screen
Video_Begin:
	movem.l	d1-d7/a1-a6,-(sp)
	move.w	#2,-(sp)	; XBIOS 2 (phybase)
	trap	#14		; pozovi XBIOS rutinu
	add.l	#2,sp		; popravi stek za 2 bajta
	move.l	d0,a0		; XBIOS nam vraca adresu ekrana kao long
	movem.l	(sp)+,d1-d7/a1-a6	
	rts

; In:	nothing
; Out:	a0.l=begin address of video screen
Wait_For_Key:
	movem.l	d0-a6,-(sp)
	move.w	#1,-(sp)	; GEMDOS funkcija (1) wait for key
	trap	#1
	addq.l	#2,sp	
	movem.l	(sp)+,d0-a6
	rts