MEMORY	move.l	#300000,d0
	move.l	#$00010003,d1
	CALLEXEC AllocMem
	move.l	d0,_BackBuff
	
	move.l	#48010,d0
	move.l	#$00010003,d1
	CALLEXEC AllocMem
	move.l	d0,_ShipMap
	
	move.l	#40010,d0
	move.l	#$00010003,d1
	CALLEXEC AllocMem
	move.l	d0,_BackMap
	
	move.l	#67000,d0
	move.l	#$00010003,d1
	CALLEXEC AllocMem
	move.l	d0,_BckGrnd1
	
	move.l	#67000,d0
	move.l	#$00010003,d1
	CALLEXEC AllocMem
	move.l	d0,_BckGrnd2

	move.l	#15000,d0
	move.l	#$00010003,d1
	CALLEXEC AllocMem
	move.l	d0,_Buffer
	
	lea	backname,a1
	move.l	#0,d0
	CALLEXEC OpenLibrary
	tst.l	d0
	beq	QUIT
	move.l	d0,_BackBase		OpenLibrary(backstab.library)
	move.l	_BackBase,a6		+ 	
	moveq	#1,d0			|
	jsr	-30(a6)			| Turns off the OS
	tst.l	d0			|
	bne	QUIT			+
	rts	

***************************************************************************

QUIT	move.l	_BackBase,a6		Turns on the OS
	jsr	-36(a6)	
	move.l	_BackBuff,a1
	move.l	#300000,d0
	CALLEXEC FreeMem
	move.l	_BckGrnd1,a1
	move.l	#67000,d0
	CALLEXEC FreeMem
	move.l	_BckGrnd2,a1
	move.l	#67000,d0
	CALLEXEC FreeMem
	move.l	_ShipMap,a1
	move.l	#48010,d0
	CALLEXEC FreeMem
	move.l	_BackMap,a1
	move.l	#40010,d0
	CALLEXEC FreeMem
	move.l	_Buffer,a1
	move.l	#15000,d0
	CALLEXEC FreeMem
	move.l	#0,d0
	rts

*+-------------------------------------------------------------------------+
	
backname	dc.b	'backstab.library',0

_BackBase	dc.l	0
_BackBuff	dc.l	0
_BckGrnd1	dc.l	0
_BckGrnd2	dc.l	0
_ShipMap	dc.l	0
_BackMap	dc.l	0
_BitMapY	dc.l	0
_BitMapN	dc.l	0
_Buffer		dc.l	0