;APS0000022F0000022F0000022F0000022F0000022F0000022F0000022F0000022F0000022F0000022F
* virker pa ALLE maskiner! bruge et talle loop i et interrupt 31bit taller

gettime_loop	MACRO
	move.l	vbl_loop_timer,\1
		ENDM

* virker via Cia A som ogsa styre parallel porten
* Virker ikke pa min maskine! :P
gettime_CIA_A: MACRO
	Moveq.l	#00,\1
	MOVE.B	$BFEA01,\1
	LSL.L	#4,\1
	LSL.L	#4,\1
	MOVE.B	$BFE901,\1
	LSL.L	#4,\1
	LSL.L	#4,\1
	MOVE.B	$BFE801,\1

	ENDM

* virker via Cia B virker ikke 100% :P
gettime_CIA_B: MACRO
	Moveq.l	#00,\1
	MOVE.B	$BFDA00,\1
	LSL.L	#4,\1
	LSL.L	#4,\1
	MOVE.B	$BFD900,\1
	LSL.L	#4,\1
	LSL.L	#4,\1
	MOVE.B	$BFD800,\1
	ENDM


** venter et stykke tid
waitsvin:

	gettime_loop	D7

	move.l	d7,time

.loop:	gettime_loop d7
	sub.l	time,d7
	cmp.l	#100,d7
	ble.b	.loop
	rts
	cnop	0,2
** reseter vbl_loop_timer
reset_vbl_timer: 
	lea.l	vbl_loop_timer,a0
	move.l	#$00,(A0)
	rts

vbl_loop_timer:	dc.l	0
time:		dc.l	0
.