;############################################
;#                                          #
;#             OpenPP V1.0                  #
;#                                          #
;#  (c)1995 Dariusz J. "Thufor" Garbowski   #
;#                                          #
;# $VER: OpenPP V1.0 (95.05.22)             #
;#                                          #
;############################################

;dos
_LVOWrite		EQU	-48
_LVOInput		EQU	-56
_LVOOutput		EQU	-60

;exec
_LVOFindResident	EQU	-96
_LVOCloseLibrary	EQU	-414
_LVOOpenLibrary		EQU	-552

_SysBase		EQU	4

j:	move.l	[_SysBase].w,a6
	
	lea	_dosname(pc),a1
	move.l	#33,d0
	jsr	_LVOOpenLibrary(a6)
	move.l	d0,_dosbase
	tst.l	d0
	beq.w	quit_prg

	move.l	d0,a6
	jsr	_LVOOutput(a6)
	move.l	d0,d1
	move.l	#prgname,d2
	move.l	#[prgnameend-prgname],d3
	jsr	_LVOWrite(a6)

	move.l	[_SysBase].w,a6
	lea	_ppname(pc),a1		;LibName
	move.l	#0,d0			;Version
	jsr	_LVOOpenLibrary(a6)
	move.l	d0,_ppbase
	tst.l	d0
	beq.s	Failure

	move.l	_dosbase(pc),a6
	jsr	_LVOOutput(a6)
	move.l	d0,d1
	move.l	#ok_message,d2
	move.l	#[ok_messageend-ok_message],d3
	jsr	_LVOWrite(a6)
	
	move.l	[_SysBase].w,a6
	move.l	_ppbase(pc),a1
	jsr	_LVOCloseLibrary(a6)

	bra.b	quit_prg

Failure:
	move.l	_dosbase(pc),a6
	jsr	_LVOOutput(a6)
	move.l	d0,d1
	move.l	#error_message,d2
	move.l	#[error_messageend-error_message],d3
	jsr	_LVOWrite(a6)

	move.l	[_SysBase].w,a6
	move.l	_dosbase(pc),a1
	jsr	_LVOCloseLibrary(a6)
	moveq	#5,d0
	rts

quit_prg:
	moveq	#0,d0
	rts

prgname:	dc.b	'OpenPP V1.0',$a
		dc.b	'(c)1995 Dariusz J. "Thufor" Garbowski',$a
prgnameend:
ok_message:	dc.b	'powerpacker.library installed!',$a
ok_messageend:
error_message:	dc.b	"I can't find powerpacker.library!",$a
error_messageend:
_dosname:	dc.b	'dos.library',0
_ppname:	dc.b	'powerpacker.library',0
		even
_dosbase:	dc.l	0
_ppbase:	dc.l	0
_PRG_SIGN:	dc.b	'$VER: OpenPP V1.0 (95.05.22)',0