*********************************
			*				*
			*    VECTOR $78 INITIATION !	*
			*				*
			* Code: Lynx/Appendix  (c) 1994	*
			*				*
			* Input:			*
			* a1 - address			*
			* a6 = $dff000			*
			*				*
			*********************************
Vector78

	lea	$dff000,a6
	move.w	#$2000,$9a(a6)
	move.w	#$2000,$9c(a6)
	lea	$bfd000,a0
	move.b	#3,$d00(a0)
	sf.b	$e00(a0)
	move.b	#$83,$d00(a0)
	move.l	#1773447,d7		;PAL
	divu	#125,d7
	move.b	d7,$400(a0)
	lsr.w	#8,d7
	move.b	d7,$500(a0)
	move.b	#$36,$600(a0)
	move.b	#1,$700(a0)
	move.l	a1,$78.w		;Warning ! VBR in MC68010++
					;must be (in this example) set to 0
	move.w	#$e000,$9a(a6)

Ramka1V	tst.b	5(a6)
	bne.s	Ramka1V
Ramka2V	tst.b	5(a6)
	beq.s	Ramka2V

	move.b	#$11,$e00(a0)
	rts

			*************************
			*   INTERRUPT LEVEL 7 !	*
			*************************

Int78	movem.l	d0-a6,-(sp)
	move.b	$bfdd00,d0

	bclr	#0,d0			;TIME A ?
	beq.s	int1

	;your routine
	nop

int1	bclr	#1,d0			;TIME B ?
	beq.s	int2

	;your routine
	nop
int2
	movem.l (sp)+,d0-a6
	move.w	#$2000,$dff09c
	nop
	rte