; Programm : Sound Effect Machine
	; Modul    : Install/Destall into Vertical Blanking
	; by       : Dan Dark Software / Jörg Schließer
	; Version  : V1.0 / April 1990
	; Assembler: Kick-Ass V1.20

	; Modul zum Installieren einer Routine in den VertB-Interrupt

	; Übergabeparameter beim Aufruf:

	; a0 = Zeiger auf Programmroutine
	; d0 = Priorität des Interrupts

	; Rückgabeparameter:

	; keine

	; Betriebsystem-Routinen

AddIntServer	= -168       ; Exec-Library
RemIntServer	= -174

	; Konstanten:

execbase	= $4           ; Exec Basisadresse

	; Install in Vertical-Blanking - Modul zum Installieren einer
	; Programmroutine in den Vertical Blanking Interrupt

installvtb:
	move.l execbase.s,a6       ;Exec-Basisadresse in a6
	lea    vtbstruct,a1        ;Zeiger auf Speicher für Int-Struktur
	move.b #2,8(a1)            ;ln_Type: Interrupt
	move.b #-10,9(a1)          ;ln_Pri : -10
	clr.l  10(a1)              ;Zeiger auf ln_Name
	clr.l  14(a1)              ;Zeiger auf ln_Data
	move.l a0,18(a1)           ;Zeiger auf ln_Code
	moveq  #5,d0               ;Int-Nr. 5 für VertB nach d0
	jsr    AddIntServer(a6)    ;und Interrupt-Vektoren setzen
	rts

	; Routinen wieder aus dem Interrupt entfernen

removevtb:
	move.l execbase.s,a6       ;Exec-Basisadresse in a6
	lea    vtbstruct,a1        ;Zeiger auf Interrupt-Struktur
	moveq  #5,d0               ;Int-Nr. 5 für VertB
	jsr    RemIntServer(a6)    ;Interrupt aus Liste entfernen
	rts

vtbstruct:	blk.l  8,0