;	incdir	'Code:Include/'
	;	include	'Standard'
	;	include	'OpenCloseRTPP'

	;	bsr	OpenRTPP
	;	...
	;	bsr	CloseRTPP
	;	rts

CloseRTPP:	move.l	4.w,a6
		move.l	RTBase(pc),a1
		cmp.l	#0,a1
		beq.w	SendError
		jsr	-414(a6)
		move.l	PPBase(pc),a1
		cmp.l	#0,a1
		beq.w	SendError
		jmp	-414(a6)

OpenRTPP:	move.l	4.w,a6
		lea.l	.RTNm(pc),a1
		clr.l	d0
		jsr	-552(a6)
		move.l	d0,RTBase
		move.l	#.RTErr,d2
		move.l	#.RTLn,d3
		tst.l	d0
		beq.b	.ErrORTPP
		lea.l	.PPNm(pc),a1
		clr.l	d0
		jsr	-552(a6)
		move.l	d0,PPBase
		move.l	#.PPErr,d2
		move.l	#.PPLn,d3
		tst.l	d0
		bne.w	SendOK

		;PP or RT not opened - Exit

.ErrORTPP:	move.l	4.w,a6
		movem.l	d2-d3,-(sp)
		lea.l	.DsNm(pc),a1
		clr.l	d0
		jsr	-552(a6)
		move.l	d0,a6
		move.l	#.WnNm,d1
		move.l	#1005,d2
		jsr	-30(a6)		;Open Win
		move.l	d0,d7
		move.l	d7,d1
		movem.l	(sp)+,d2-d3
		jsr	-48(a6)		;Write err
		moveq.l	#-1,d1
.B:		move.w	#$fff,$dff180
		clr.w	$dff180
		dbf	d1,.B
		move.l	d7,d1
		jsr	-36(a6)		;Close win and Exit
		bra	SendError

.WnNm:		dc.b	'con:170/108/300/40/Debug',0
.DsNm:		dc.b	'dos.library',0
.RTErr:		dc.b	'Could not open '
.RTNm:		dc.b	'reqtools.library',0,$a
.RTLn		=*-.RTErr
.PPErr:		dc.b	'Could not open '
.PPNm:		dc.b	'powerpacker.library',0,$a
.PPLn		=*-.PPErr
		even
RTBase:		dc.l	0
PPBase:		dc.l	0