* SOS *

ORG     $40000
LOAD    $40000

		Forbid          = -132
		Permit          = -138

Start:		movem.l	a0-a6/d0-d7,-(a7)
		move.l	$4,a6
		jsr	Forbid(a6)
		move.w	#$87c0,$dff096	
		move.l	#COPPER,$dff080		
		clr.w	$dff088
		CLR.L	D0

moozie:		cmpi.b	#$FE,$dff006	
		bne.s	moozie		

		btst	#$0006,$bfe001	
		bne.s	moozie		
EXIT:	        move.l $04,a6
	        lea     GL(pc),a1
	        jsr     -408(a6)
	        move.l d0,a1
	        move.l  $26(a1),RESTORE+2
	        jsr     -414(a6)
RESTORE:    	move.l  #$000420,$DFF080
	    	clr.w   $DFF088
		move.l	$4,a6
		jsr	Permit(a6)
		moveq	#0,d0
		move.w	#$8020,$dff096
	    	movem.l (sp)+,d0-d7/a0-a6
		clr.l	d0
		clr.l	d1
	    	rts
				
GL:
	DC.B	'graphics.library',0
even

COPPER:
	DC.L $00960020
	DC.L $00920038 
	DC.L $009400D0 
	DC.L $008E2C81
	DC.L $0090f4c1
 	DC.L $01000200

	INCBIN	"/DATA/EXAMPLE.CIM"		

;      ^^ PUT YOUR CIM-PICTURE FILE ^^

  	DC.L $FFFFFFFE