	incbin	e:\asembler\source\pic.raw
	lea		Slika,a0
	jsr		svm
	move.w	#64000,d1
loop:
	move.w	(a0)+,(a1)+
	dbra	d1,loop
Slika:

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

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,a1		; 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	