; Bordersprites / Borderpointer
; This program is Public Domain, feel free to modify it!

; exec.library
_LVOCloseLibrary	EQU -414
_LVOOpenLibrary	EQU -552

; intuition.library
_LVORemakeDisplay	EQU -384

; gfxbase.i:
GB_BP3BITS	EQU $1E3

START	MoveM.L	D1-D7/A0-A6,-(SP)

	Lea.L	GfxName(PC),A1
	MoveQ	#39,D0	; version 3.0 or better
	Move.L	4.W,A6	; get ExecBase
	Jsr	_LVOOpenLibrary(A6)
	Move.L	D0,A2	; A2 is GraphicsBase
	Beq.S	GfxFail

	Lea.L	IntName(PC),A1
	MoveQ	#37,D0	; version 3.0 or better
	Jsr	_LVOOpenLibrary(A6)
	Move.L	D0,D6
	Beq.S	IntFail

	Eor.B	#$02,GB_BP3BITS(A2)	; Set SPRTBORDER

	Move.L	D6,A6	; Get IntuitionBase
	Jsr	_LVORemakeDisplay(A6)

	Move.L	D6,A1
	Move.L	4.W,A6	; get ExecBase
	Jsr	_LVOCloseLibrary(A6)

IntFail	Move.L	A2,A1
	Jsr	_LVOCloseLibrary(A6)

GfxFail	MoveM.L	(SP)+,D1-D7/A0-A6
	MoveQ	#0,D0	; no return value, if wrong OS!
	Rts

	Dc.B	'$VER: BorderSprites 1.0 (18.01.95)',10
	Dc.B	'Made by Steffen Thorsen 1995',0
GfxName	Dc.B	'graphics.library',0
IntName	Dc.B	'intuition.library',0

	END