clr.l	-(a7)
	move.w	#32,-(a7)
	trap	#1
	addq.l	#6,a7
	move.l	d0,old_stack

	movem.l	$ffff8240,d0-d7
	movem.l	d0-d7,old_palette



	bsr	initialise

	movem.l	sunset+2,d0-d7
	movem.l	d0-d7,$ffff8240

	move.l	#buffer,d0
	add.l	#255,d0
	clr.b	d0
	move.l	d0,display		;display now on 256 boundary


	move.l	display,a1
	move.l	a1,d1
	move.l	#sunset+34,a0

	move.l	#7999,d0
copy_buffer:
	move.l	(a0)+,(a1)+
	subi.l	#1,d0
	bne	copy_buffer

	movem.l	clear_regs,d0-d7

	move.l	#buffer2,d0
	add.l	#256,d0
	clr.b	d0
	move.l	d0,display2

	move.l	display2,d1	;display 2 is blank
				;display 1 contains picture


	move.l	display,d0
	add.l	#31840,d0
	move.l	d0,a1		;end of picture=a1
	move.l	display2,a0	;blankscreen=a0


	clr.l	d2
	move.l	#40,d7
	move.l	#200,d6
	clr.l	d5
	move.l	#200,d4

	clr.l	d3
	bsr	v_sync
	bsr	disp_it

whole_pic:

one_scan:
	move.l	(a1)+,(a0)+
	sub.l	#1,d7
	cmp.l	d7,d2
	bne	one_scan

	move.l	d0,a1
	sub.l	#1,d6
	move.l	#40,d7
	cmp.l	d6,d2
	bne	whole_pic



	move.l	display,d0
	add.l	#31840,d0
	add.l	#160,d5
	sub.l	d5,d0
	move.l	d0,a1
	move.l	display2,a0
	sub.l	#1,d4

	move.l	d4,d6
	cmp.l	d4,d2
	bne	whole_pic


key	cmp.b	#$39,$fffffc02
	bne	key

quit
	bsr	restore

	movem.l	old_palette,d0-d7
	movem.l	d0-d7,$ffff8240

	move.l	old_stack,-(a7)
	move.w	#32,-(a7)
	trap	#1
	addq.l	#6,a7

	clr.l	-(a7)
	trap	#1

*******************************************************************************
*
*	Display the screen
*
*******************************************************************************
disp_it:
	movem.l d0-d7/a0-a6,-(sp)
	clr.b	$ffff820d.w
	lsr.l	#8,d1
	move.b	d1,$ffff8203.w
	lsr.w	#8,d1
	move.b	d1,$ffff8201.w
	movem.l (sp)+,d0-d7/a0-a6
	rts

	include	'b:\init.s'

sunset:		incbin	'B:\data\sunset.pi1'

buffer:			ds.b	32000
			ds.b	256
buffer2:		ds.b	32000
			ds.b	256
old_stack:		ds.l	1
old_palette:		ds.l	8
display			ds.l	1
display2		ds.l	1
clear_regs:		ds.l	8