include	lvo30/exec_lib.i

RECALL		MACRO
		jsr	_LVO\1(a6)
		ENDM

main		move.l	4,a6
		lea	LibName(pc),a1
		moveq	#37,d0
		RECALL	OpenLibrary
		move.l	d0,d2
		beq.s	2$
		exg	d2,a6
		jsr	-30(a6)
		move.l	d0,-(sp)
		exg	d2,a6
		move.l	d2,a1
		RECALL	CloseLibrary
		move.l	(sp)+,d0
		rts

2$		suba.l	a1,a1
		RECALL	FindTask
		move.l	d0,a2
		tst.l	172(a2)
		bne.s	1$
		adda.w	#92,a2
		RECALL	Forbid
		move.l	a2,a0
		RECALL	WaitPort
		move.l	a2,a0
		RECALL	GetMsg
		move.l	d0,a1
		RECALL	ReplyMsg
1$		moveq	#0,d0
		rts

LibName		dc.b	'tolleuhr.library',0
		dc.b	'$VER: TolleUhr-Loader 1.0 (15.11.95)',0

		end