�����<���<���<���<���<���<���<���<���<��;Staram si� znale�� adr ekranu [cli]
;rtk/rdst

Openlibrary	equ	-552
CloseLibrary	equ	-414

CLEAR:	MACRO
	moveq	#0,\1
	ENDM

EXEC:	MACRO
	move.l	4.w,a6
	ENDM

OPEN:	MACRO
	moveq	#0,d0
	lea	\1,a1
	EXEC
	jsr	OpenLibrary(a6)
	beq.w	Error
	ENDM
WAITBLITTER:	MACRO
	TST.B	2(A5)
	btst	#14,2(a5)
	bne.s	*-6
	ENDM
Vertical:	MACRO
	move.l	4(a5),d0
	and.l	#$0001ff00,d0
	cmp.l	#\1*2^8,d0
	bne.s	*-16
	ENDM
RMB:	MACRO
	tst.b	$16(a5)
	btst	#2,$16(a5)
	beq.s	*-6
	ENDM

;Start

	Open	IntuitionName(pc)
	move.l	d0,IntuiBase
	move.l	d0,a1
	move.l	52(a1),a2	;ActiveWindow
	move.l	50(a2),a2	;rastport
	move.l	4(a2),a2	;bitmap
	move.l	8(a2),EKRAN2	;adres 2 bitplanu
;	move.l	12(a2),d2	;2 bpl adr !!

	CLEAR	d0
	jsr	CloseLibrary(a6)

L=1
	IF	L=1
	LEA	$50000,A0
	MOVE.L	#256,D2
ABC
	MOVE.L	#40-1,D0
XX	MOVE.B	#0,(A0)+
	DBF	D0,XX

	MOVE.L	#40-1,D1
XY	MOVE.B	#-1,(A0)+
	DBF	D1,XY


	DBF	D2,ABC
	ENDC

	lea	$dff000,a5


NO_NO_LIMITS

	VERTICAL	100
	VERTICAL	101

	RMB

;BlitterFill:
	WAITBLITTER

	move.l	EKRAN2(PC),$50(a5)	;BLTAPT
	move.l	Ekran2(pc),$54(a5)	;BLTDPT
	MOVE.L	#$50000,$4C(A5)		;BLTBPT
	move.l	#$4DC00000,$40(a5)	;BLTC0 D=A and B
	MOVE.W	#0,$62(A5)
	move.l	#$00000000,$64(a5)	;BLTAMOD i D dla 64 = 18
	move	#[250*64]+[80/2],$58(a5) ;BLTSIZE

	BTST	#6,$BFE001
	BNE.S	NO_NO_LIMITS


End:
	moveq	#0,d0
	rts

Error:
	moveq	#-1,d0
	rts

EKRAN2:
	dc.l	0
IntuiBase
	dc.l	0
IntuitionName
	dc.b	'intuition.library',0,0