; PAL-Test © 1990 EHJ

; Testet, ob beim Booten noch NTSC-Screen geöffnet ist.
; Löst dann RESET aus.

; ACHTUNG!
;	Es wird eine Hardware-Routine angesprungen,
;	die in künftigen Kickstart-Versionen NICHT
;	unbedingt an dieser Adresse stehen muß!

ExecBase=4
OpenLibrary=-552
CloseLibrary=-414

;---INT-Library öffnen
g:	move.l	ExecBase,a6	;
	lea	IntName(pc),a1	;'intuition.library'
	moveq	#0,d0		;Version egal
	jsr	OpenLibrary(a6)	;öffnen
	move.l	d0,a5		;Basis merken

;---Höhe im aktiven Screen auf NTSC testen
	move.l	56(a5),a0	;Adresse aktiver Screen
	cmp.w	#200,14(a0)	;Höhe = 200 ?
	beq.s	NTSC		;dann NTSC

	cmp.w	#400,14(a0)	;Höhe = 400 ?
	bne.s	CloseINT	;nein, OK, Programm beenden

;---Es ist der NTSC-Modus aktiv!
NTSC:	bsr	CloseINT	;Library schließen

;---Reset auslösen
	move.w	#$4000,$dff09a	;Alle Interrupts sperren
	move.l	#Reset,$b4.w	;Adresse der Routine nach $B4
	trap	#13		;Trap auslösen
Reset:	move.w	#$2700,sr	;Interrupts erlauben
	jmp	$fc05b8		;Hard-Reset
;----------------------
;UP - Library schließen
;----------------------
CloseINT:
	move.l	a5,a1		;INT
	jmp	CloseLibrary(a6);schließen und zurück
;--------------------------------------------
IntName:	dc.b	"intuition.library",0