***************************************************************************
*			     STANDARD SOURCECODE			  * 
***************************************************************************
	jsr	setsuper
	jsr	setscreen
	jsr	setpal
	jsr	setpic
	moveq	#1,d0
	jsr	music
	jsr	startinter
***************************************************************************
mainloop:
	jsr	waitvbl
	jmp	mainloop
***************************************************************************
setsuper:
	clr.l	-(sp)			
	move.w	#$20,-(sp)
	trap	#1
	addq.l	#6,sp
	move.l	d0,savesuper
	rts
***************************************************************************
endsuper:
	move.l	savesuper,-(sp)
	move.w	#$20,-(sp)
	trap	#1
	addq.l	#6,sp
	rts
***************************************************************************
startinter:
	move.l	$120,oldhbi 
	move.l	$70,oldvbi
	move.b	$fffffa07,old07
	move.b	$fffffa09,old09
	move.b	$fffffa0f,old0f
	move.b	$fffffa11,old11
	move.b	$fffffa1b,old1b
	and.b 	#$df,$fffa09
	and.b 	#$fe,$fffa07
	move.l	#newhbi,$120
	move.l	#newvbi,$70
	or.b  	#1,$fffffa07
	or.b  	#1,$fffffa13
	move.b	#1,$fffffa21
	bclr	#0,$fffa0f
	move.b	#8,$fffffa1b.w
	rts
***************************************************************************
newvbi:
	move.w	#1,vbiflag
	jsr	readpsg1
	jsr	readpsg2
	jsr	readpsg3
	jsr	music+8
	move.l	#rasters,a6
	rte
***************************************************************************
newhbi:
	move.w	800(a6),$ff8246
	move.w	400(a6),$ff8244
	move.w	(a6)+,$ff8242
	bclr	#0,$fffffa0f.w
	rte
***************************************************************************
waitvbl:
	cmpi.w	#1,vbiflag
	bne	waitvbl
	move.w	#0,vbiflag
	rts 
***************************************************************************
setscreen:
	move.w	#0,-(sp)
	move.l	#$70000,-(sp)
	move.l	#$70000,-(sp)
	move.w	#$5,-(sp)
	trap	#14
	add.l	#12,sp
	rts
***************************************************************************
setpal:
	move.l	#pic+2,a0
	move.l	#$ff8240,a1
	rept 8
		move.l	(a0)+,(a1)+
	endr
	rts
***************************************************************************
setpic:
	move.l	#pic+34,a0		
	move.l	#$70000,a1
	move.w	#8000,d0
	setpicloop:
		move.l	(a0)+,(a1)+
	dbf.w	d0,setpicloop
	rts
***************************************************************************
readpsg1:
	move.l	#rasters,a0
	move.l	#0,d0
	rept	100
	move.l	d0,(a0)+
	endr
	clr.l	d0
	clr.l	d1
	move.b	#8,$ff8800
	move.b	$ff8800,d1
	cmp.w	#15,d1
	ble	nopsg1
	move.w	#15,d1
nopsg1:	move.w	#15,d0
	sub.w	d1,d0
	move.l	#rastervum,a0
	move.l	#rasters,a1
	muls	#8,d0
	add.w	d0,a1
	rept	60
	move.l	(a0)+,(a1)+
	endr
	rts
***************************************************************************
readpsg2:
	move.l	#rasters+400,a0
	move.l	#0,d0
	rept	100
	move.l	d0,(a0)+
	endr
	clr.l	d0
	clr.l	d1
	move.b	#9,$ff8800
	move.b	$ff8800,d1
	cmp.w	#15,d1
	ble	nopsg2
	move.w	#15,d1
nopsg2:	move.w	#15,d0
	sub.w	d1,d0
	move.l	#rastervum,a0
	move.l	#rasters+400,a1
	muls	#10,d0
	add.w	d0,a1
	rept	60
	move.l	(a0)+,(a1)+
	endr
	rts
***************************************************************************
readpsg3:
	move.l	#rasters+800,a0
	move.l	#0,d0
	rept	100
	move.l	d0,(a0)+
	endr
	clr.l	d0
	clr.l	d1
	move.b	#10,$ff8800
	move.b	$ff8800,d1
	cmp.w	#15,d1
	ble	nopsg3
	move.w	#15,d1
nopsg3:	move.w	#15,d0
	sub.w	d1,d0
	move.l	#rastervum,a0
	move.l	#rasters+800,a1
	muls	#10,d0
	add.w	d0,a1
	rept	60
	move.l	(a0)+,(a1)+
	endr
	rts
***************************************************************************
savesuper:	dc.l	0
vbiflag:	dc.w	0
oldvbi:		dc.l	0
oldhbi:		dc.l	0
old1b:		dc.b	0
old21:		dc.b	0
old07:		dc.b	0
old09:		dc.b	0
old0f:		dc.b	0
old11:		dc.b	0
old13:		dc.b	0
music:		incbin	a:\max_25.mus
pic:		incbin	a:\*.pi1
rasters:	ds.w	1200
rastervum:	dc.w	$010,$020,$030,$040,$050,$060,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070,$070,$070,$070,$070
		dc.w	$070,$070,$070