;----------------------------
	org  $35000
	load $35000
	anz= 26
	umatt= $44000
	uber=  $4a000
	logo=  $59000
	cycle= $5a000
	ytab=  $5a500
	xtab=  $5a600
	highh= $5a700
	font=  $5a900        ;laenge $5dc0 
        data=  $60700
;-----------------------------
	openlibrary= 	-408
	closelibrary= 	-414
	forbid= 	-132
	permit= 	-138
; ----- diskfont.library -----
	execbase= 	$04
beg:	cmp.b #$b0,$dff006
	bne.s beg

movem.l 	d0-d7/a0-a6,-(a7)
;-----------------------------
	move.l execbase,a6
	jsr    -132(a6)
	move.l execbase,a6
	jsr    -150(a6)
	move.l d0,sup
	move.w #$4000,$dff09a
	move.l		execbase,a6
	move.w #$8080,$dff096
        lea	gfxname,a1
	jsr	-408(a6)
	move.l		d0,gfxbase
        move.l		execbase,a6	
	move.l		gfxbase,a1   
	jsr		closelibrary(a6)

	move.l		gfxbase,a1	
	move.l		$32(a1),a1
	add.w #$a,a1
	move.w (a1),d2
	move.w #$e,d0
	L:
	move.w d2,(a1)
	sub.w #$0111,d2
	move.w #$ff00,d1
	f:dbra d1,f
	dbra d0,L

	clr.w $03f0
        move.b #$02,$bfe001
;-------------------------------------------
	move.w #$2fff,d0
	move.l #$40000,a0
	move.l #$50000,a1
	clear: 
	move.b #$00,(a0)+
	move.b #$00,(a1)+
	dbra d0,clear

	move.l #newcopper,$dff080	; copperliste einschalten
	clr.w  $dff088
;-------------------------------------------
	bsr ins
	bsr sprins
        bsr startmusic
;-------------------------------------------
start:
move.l    $dff004,d0
and.l  #$0001ff00,d0
cmp.l        vpos,d0
bne.s start
;-------------------------------------------
        btst #$1,bit
        bne.s nok
        move.l #$50000,bp+2
        move.l #$50004+[144*5],bcl+2
        move.l #$50004+[144*5],bcll+2
        move.w #$0005,bu1+2
        move.w #$0005,bu2+2
        move.w #$0005,bu3+2
        move.l #$50000,ab+2
        move.l #$50000,ab+2
        bchg #$1,bit
        bra.s buf
nok:
        move.l #$40000,bp+2
        move.l #$40004+[144*5],bcl+2
        move.l #$40004+[144*5],bcll+2
        move.w #$0004,bu1+2
        move.w #$0004,bu2+2
        move.w #$0004,bu3+2
        move.l #$40000,ab+2
        move.l #$40000,ab+2
        bchg #$1,bit
buf:
	move.w #$8400,$dff096
	bsr soun
	bsr cls
	bsr equ

	cmp.b #$0,ston
        beq.s neeh
       	bsr stani   ;star aktiv
neeh:
        bsr schani  ;p
        bsr bob
        bsr replay
	bsr schwab
	bsr chee    ;p
	bsr scroll
;        bsr mo
        bsr beani
	bsr cop
 
;--------------------------------------------
	btst		#6,$bfe001		; linke maustaste ???
	bne		start
;---------------------------------------------
	move.l #sctexx,zeisc
	move.b #$7,scont
	move.w #$000,ausc+2

st2:	cmp.b #$b0,$dff006
        bne.s st2
	subq #$1,encon
	bsr cls
        bsr replay
	bsr chee    ;p
	bsr cop
        bsr schani  ;p
	bsr scroll
	bsr equ
	bsr beani
       	bsr stani   ;p
        subq.b  #$01,scont
	bne.s nea
	move.b #$7,scont
	subq.w #$0001,ok3+2
        cmp.w  #$0000,ok3+2			  
        beq.s heim
nea:	cmpi.w #$0000,encon
	bne.s st2	
;---------------------------------------------
qa:	cmp.b #$b0,$dff006
	bne.s qa
heim:   bsr stopmusic
        move.l gfxbase,a5
	move.l $26(a5),$dff080
	clr.w $dff088
	move.l		gfxbase,a1	
	move.l		$32(a1),a1
	add.w #$a,a1
	move.w co1,d2
	move.w #$e,d0
	q:
	move.w d2,(a1)
	add.w #$0111,d2
	move.w #$ff00,d1
	d:dbra d1,d
	dbra d0,q

;---------------------------------------------
	move.b #$00,$bfe001
	move.l execbase,a6
	move.l #sup,d0
	jsr    -156(a6)
	move.w #$c000,$dff09a
	move.l execbase,a6
	jsr             -138(a6)
	movem.l 	(a7)+,d0-d7/a0-a6
	rts
;----------------------------------------------
mo:
	move.w $dff00c,d0
	btst #$1,d0
	bne.s rechts
        btst #$9,d0
	bne.s lins
        rts
rechts: sub.l #$00000100,vpos
	and.l #$0001ff00,vpos
	rts
lins:   add.l #$00000100,vpos
	and.l #$0001ff00,vpos
	rts
;-------------------------------
soun: 
	  cmp.b #$1,sv
	  bne.s soff      ;sound off		
	  sub.b #$01,scont
	  bne.s  nier
	  move.b #$15,scont			
	  addq.w #$0001,ok3+2
	  cmp.w  #$0040,ok3+2			  
          bne.s nier
	  move.b #$2,sv   ;sound ready	an
nier:     rts
soff:     
          cmp.b #$0,sv
	  bne.s auss      ;hau ab		
	  sub.b #$01,scont
	  bne.s  auss
	  move.b #$15,scont			
	  subq.w #$0001,ok3+2
	  cmp.w  #$0000,ok3+2			  
          bne.s auss
          move.b #$2,sv   ;sound ready	aus
auss:     rts
;-------------------------------
	scroll:
	btst #$0,stop
	bne.s  re
	bra.s  set
	re:
	btst #$0e,$dff002
	bne.s set
	move.l #$40004+[210*150],$dff050
	move.l #$40002+[210*150],$dff054
	move.w #$00,$dff064
	move.w #$00,$dff066
	move.l #$ffffffff,$dff044
	spe:move.w #$c9f0,$dff040
	move.w #$1759,$dff058
set:
	subq.b #$1,now
	cmp.b  #$0,now
	bne out
sa:	move.b #$8,now
	move.l zeisc,a0
	move.b (a0),d0
	cmp.b  #$ff,d0
	bne.s no
	move.l #sctex,zeisc
no:
	add.l  #$1,zeisc
	moveq #$00,d1
        lea asc,a0
        lo:
	cmp.b (a0)+,d0
	beq.s so
 	addq.b #$1,d1
        cmp.b  #57,d1
	bne.s lo
	so:
        cmp.b #$1e,d1
	ble.s hii
	move.w #$2dc6+$a900,scq+4
	sub.b #$1f,d1
	bra.s we
hii:
	move.w #$a900,scq+4
we:	
;--------- function ------------	
	cmp.b   #'S',d0
	bne.s  vb		
	bclr  #$0,stop
vb:
	cmp.b   #'G',d0
	bne.s  vb1		
	bset  #$0,stop
vb1:
	cmp.b   #'F',d0
	bne.s  vb2		
	move.w #$69f0,spe+2
	move.b #$3,now
	move.w #$3,sa+2
vb2:
	cmp.b   #'L',d0
	bne.s  vb3		
	move.w #$d9f0,spe+2
	move.b #$a,now
	move.w #$a,sa+2
vb3:
	cmp.b   #'N',d0
	bne.s  vb4	
	move.w #$c9f0,spe+2
	move.b #$8,now
	move.w #$8,sa+2
vb4:
	cmp.b   #'O',d0
	bne.s  vb5	
	move.b #$00,vst     ;aus st
vb5:
	cmp.b   #'P',d0
	bne.s  vb6	
	move.b #$ff,vst
vb6:
	cmp.b   #'Q',d0   ;wob rechts links nur bei stop
	bne.s  vb7	
	move.b #$00,wow
vb7:
	cmp.b   #'R',d0   ;wob rechts links an
	bne.s  vb8	
	move.b #$ff,wow
vb8:
	cmp.b   #'U',d0   ;untertauchen
	bne.s  vb9	
	move.b #$ff,runt
vb9:
	cmp.b   #'V',d0   ;auftauchen
	bne.s  vba	
	move.b #$00,runt
vba:
	cmp.b   #'W',d0   ; 5er maske
	bne.s  vbb	
	move.l #$55555555,foi+2
vbb:
	cmp.b   #'K',d0   ; fer maske
	bne.s  vbd	
	move.l #$ffffffff,foi+2
vbd:
	cmp.b   #'D',d0   ; schach rechts
	bne.s  vbe
	move.b #$0,schachr
vbe:
	cmp.b   #'X',d0   ; schach links
	bne.s  vbf	
	move.b #$1,schachr
vbf:
	cmp.b   #'Z',d0   ; schach mitte
	bne.s  vbg	
	move.b #$2,schachr
vbg:
	cmp.b   #'Y',d0   ; star on
	bne.s  vbh	
	bset #$0,ston
vbh:
	cmp.b   #'C',d0   ; berg ab 0
	bne.s  vbi	
	move.b #$0,berg     
vbi:
	cmp.b   #'J',d0   ; berg hoch 1
	bne.s  vbj	
	move.b #$1,berg
vbj:	cmp.b   #'M',d0   ; sound on
	bne.s  vbjk	
	move.b #$1,sv
vbjk:	cmp.b   #'H',d0   ; sound off
	bne.s  vbl	
	move.b #$0,sv
vbl:
;-------------------------------	
	lsl.w #$2,d1
	add.w d1,scq+4
	bsr.s char
out:
	rts
;----------------------------------
char:
	r:
	btst #$0e,$dff002
	bne.s r
	scq:move.l #$5a900,$dff050
	move.l #$4002e+[210*150],$dff054
	move.w #$7a,$dff064
	move.w #$2e,$dff066
	foi:move.l #$ffffffff,$dff044
	move.w #$09f0,$dff040
	move.w #$1742,$dff058
	rts
;------------------------------------------------------
sprins:
;--------------------	
	move.w #$1,d4
	move.w #$2800,d1
	lea spx,a2
	lea ripos,a0
nochh:	move.w #5,d0  ;anzahl star-pos  
locop:
	moveq #$00,d3
	move.b (a2)+,d3
	move.w d1,d2
	or.b d3,d1	
	move.w d1,(a0)+         ;1st-word
	and.w #$ff00,d1
	add.w #$1200,d2
	bset #$7,d2		;at-bit
	move.w d2,(a0)+         ;2-word
	and.w #$ff00,d2
	add.w #$0100,d2
	move.w d2,d1
	dbra d0,locop		
	move.w #$2800,d1
	dbra d4,nochh
;--------------------- 7a000  0-1 rein

 	lea $7f000,a0
	move.w #$1,d2
noch:	move.l  #ripos,a1
	move.w #$5,d0   ;anzahl spr 0-1;

cas:    move.l (a1)+,(a0)+  ;pos
        move.w #17,d1
ey:	move.l #stern,a2
copy:   move.l (a2)+,(a0)+  ;1st ani 
	dbra d1,copy
	dbra d0,cas
 	lea $7f200,a0
	add.l #$00000048,ey+2
	dbra d2,noch
;--------------------- 7a400  2-3 rein
	 lea $7f400,a0
	 move.w #$1,d2
nochq:	 move.l  #ripos+24,a1
	 move.w #$5,d0   ;anzahl spr 2-3

cas1:    move.l (a1)+,(a0)+  ;pos
         move.w #17,d1
eyy:	 move.l #stern,a2
copyy:   move.l (a2)+,(a0)+  ;1st ani 
	 dbra d1,copyy
	 dbra d0,cas1
 	 lea $7f600,a0
	 add.l #$00000048,eyy+2
	 dbra d2,nochq
rts
;------------------------------------------------------
ins:
;equalizier
	lea         eqcop,a1
	move.l #$2a07fffe,d0
	move.l #28,d1
	lwoop:
	move.l         d0,(a1)+
	move.l #$01800110,(a1)+
	add.l  #$01000000,d0
	dbra   d1,lwoop
;  mirror
	move.l #25,d0
	move.l #$1807fffe,d1
	lea    incop,a1
	loopf:
	move.l     	d1,(a1)+
	move.l  #$01020000,(a1)+
	move.l  #$0108ff3c,(a1)+
	move.l  #$010aff3c,(a1)+
	add.l   #$01000000,d1
	dbra d0,loopf
; schach
	lea schach,a0
	lea abs,a1
	move.w #$c207,d1
	move.w #anz-1,d0
looop:
	move.w     d1,(a0)+
	move.w #$fffe,(a0)+
	move.w #$0180,(a0)+
	move.w #$0000,(a0)+
	move.w #$0182,(a0)+
	move.w #$0000,(a0)+
	move.w (a1)+,d2
	lsl.w #$8,d2
	add.w d2,d1
	dbra d0,looop
rts
;--------------------------------
chee:
	lea col,a0
	lea col+2,a1
	move.w col+158,d2
	move.w #80,d0
	move.w #$00,ma+2
	move.w #$00,md+2
	bsr blit
ausc:	move.w d2,col

	move.l #highh,a1
	move.l #highh+2,a0
	move.w highh,d2
	move.w #256,d0
	move.w #$00,ma+2
	move.w #$00,md+2
	bsr blit
        move.w d2,highh+510
;----------------------------------------------
write:
	lea col+16,a0
	lea schach+6+12,a1
	lea col+32,a2
	lea schach+10+12,a3
	move.w #anz-2,d0
ass:
	move.w (a0)+,(a1)
	move.w (a2)+,(a3)
	add.w #$c,a1
	add.w #$c,a3
	dbra d0,ass
;----------------------------------------------
hell:
	lea schach+6,a0
	lea schach+10,a1
	move.w #$0b9b,(a0)
	move.w #$0b9b,(a1)

	move.w #$0664,d1	
	moveq #$1,d2
	move.w #$17,d0
lap:
	add.w  #$0c,a0
	add.w  #$0c,a1
	add.w d1,(a0)
	add.w d1,(a1)	
	subq #$1,d2	
	beq.s ixx
	moveq #$1,d2
	sub.w  #$0110,d1
ixx:
	dbra d0,lap
rts
;--------------------------------
schani:   ;rechts
	cmp.b #$0,schachr
	bne links
	add.w #$0004,ss+2
	and.w #$000f,ss+2
	bne.s kw
	sub.w #$0002,sw+6
kw:
	sub.b #$4,chpos
	cmp.b #20,chpos
	bne.s nnn
	move.b #$4,schachr ;stop
nnn:
	rts
links:    ;links
	cmp.b #$1,schachr
	bne.s mitte
	and.w #$000f,ss+2
	bne.s kww
	add.w #$0002,sw+6
kww:
	sub.w #$0004,ss+2
	and.w #$000f,ss+2

	add.b #$4,chpos
	cmp.b #232,chpos
	bne.s bn
	move.b #$4,schachr
bn:
rts
mitte:
	cmp.b #$2,schachr
	bne.s noth
	cmp.b #140,chpos
	bhi.s rechss
	and.w #$000f,ss+2
	bne.s kwq
	add.w #$0002,sw+2
kwq:    
	sub.w #$0004,ss+2
	and.w #$000f,ss+2
	add.w #$4,chpos
	cmp.b #140,chpos
	bne.s b
	move.b #$4,schachr
b:      rts
rechss:
	add.w #$0004,ss+2
	and.w #$000f,ss+2
	bne.s kf
	sub.w #$0002,sw+6
kf:     sub.b #$4,chpos
	cmp.b #140,chpos
	bne.s noth
	move.b #$4,schachr
noth:   rts
;--------------------------------
stani:
sub.b #$1,nnoe
bne endi
	move.b #3,nnoe
	move.l #anipoin,a2
	move.w #5,d4        ;12 ani
xcopy:
        move.l #stern,a0
pe:	move.l #$7f004,a1
;-------------------------
	move.w (a2),d1
	add.w #$0001,d1
	and.w #$000f,d1
	move.w d1,(a2)+
	move.w #$1,d2

ncopp:	
        move.w d1,d3
        move.w d1,d0
        lsl.w #$7,d1
        lsl.w #$4,d0
        add.w d1,d0
        move.w d3,d1
	add.l d0,a0
	bsr  hrein   ;1-2 plane
        move.l #stern+72,a0
pee:	move.l #$7f204,a1
	dbra  d2,ncopp
	add.l #$0000004c,pe+2	
	add.l #$0000004c,pee+2	
	dbra d4,xcopy
	move.l #$007f004,pe+2
	move.l #$007f204,pee+2
;----  sprite 2-3
	move.l #anipoinn,a2
	move.w #5,d4        ;12 ani
xcopy2:
        move.l #stern,a0
pe2:	move.l #$7f404,a1
;-------------------------
	move.w (a2),d1
	add.w #$0001,d1
	and.w #$000f,d1
	move.w d1,(a2)+
	move.w #$1,d2

ncopp2:	
        move.w d1,d3
        move.w d1,d0
        lsl.w #$7,d1
        lsl.w #$4,d0
        add.w d1,d0
        move.w d3,d1
	add.l d0,a0
	bsr.s hrein   ;1-2 plane
        move.l #stern+72,a0
pee2:	move.l #$7f604,a1
	dbra  d2,ncopp2
	add.l #$0000004c,pe2+2	
	add.l #$0000004c,pee2+2	
	dbra d4,xcopy2
	move.l #$007f404,pe2+2
	move.l #$007f604,pee2+2
endi:
	rts
;---------------------------------	
	hrein:
	rr:
	btst #$0e,$dff002
	bne.s rr

	move.l a0,$dff050  ;quelle A
	move.l a1,$dff054  ;ziel   D

	move.w #$00,$dff064  ;mod A
	move.w #$00,$dff066  ;mod D
	move.w #$09f0,$dff040
	move.l #$fffffffff,$dff044
	move.w #$0901,$dff058
bwe3:	rts
;--------------------------------
cop:
;---------------
btst #$1,noww
beq  kk
;---------------
	bchg #$1,noww
;------ rl shake -----
	btst #$0,wow
	beq.s lll
	lea rl,a0
	add.w co,a0
	lea incopa+78,a1
	move.w #31,d0
wer:	
	move.w (a0)+,(a1)
	add.w #$8,a1
	dbra d0,wer
       	add.w #64,co
	cmp.w #[64*9],co
	bne.s lll
	move.w #$0000,co
;---------------------
lll:
	btst #$0,vst
	bne.s ui
	move.w incopa+328,incopa+330
	bra.s nee
ui:
;------------------
	op:move.w sto,incopa+334
	add.l #$02,op+2
	cmp.l #end,op+2
	bne.s nee
	move.l #sto,op+2
nee:
;-------
	lea incopa+6,a0
	lea incopa+14,a1
	move.w #40,d0
fff:
	move.w (a1),(a0)
	add.w #$8,a0
	add.w #$8,a1	
	dbra d0,fff
	rts
;------------------
kk:
;----------------------------------------------
;----- font hoch runter
	cmp.b #$ff,runt
	bne.s nono
;---   runter 
	sub.w #$96,pm1+6
	sub.w #$96,pm2+6
	sub.w #$96,pm3+6

	sub.w #$96,ps1+6
	sub.w #$96,ps2+6
	sub.w #$96,ps3+6
	cmp.w #[150*153],ps1+6
bne.s nono
	move.b #$88,runt
bra.s nene
;---------
nono:
	cmp.b #$00,runt
	bne.s nene
;---   hoch
	add.w #$96,pm1+6
	add.w #$96,pm2+6
	add.w #$96,pm3+6
	
	add.w #$96,ps1+6
	add.w #$96,ps2+6
	add.w #$96,ps3+6
	cmp.w #[150*205],ps1+6
	bne.s nene
	move.b #$88,runt
	
;-------------------------
nene:
	bchg #$1,noww
;-------------------------	
	lea mwob,a1
	lea mwob+2,a0
	move.w mwob,d2
	move.w #52,d0
	move.w #$00,ma+2
	move.w #$00,md+2
	bsr blit
	move.w d2,mwob+50
;------------
	lea mwob,a0
	lea incop+10,a1
	lea mwob,a2
	lea incop+14,a3
	move.w #25,d0
llq:
	move.w (a0)+,(a1)
	move.w (a2)+,(a3)
	add.w  #$10,a1
	add.w  #$10,a3
dbra d0,llq
;--------------------
	lea wat,a1
	lea wat+2,a0
	move.w wat,d2
	move.w #52,d0
	move.w #$00,ma+2
	move.w #$00,md+2
	bsr.s blit
	move.w d2,wat+50
;------------
	lea wat,a0
	lea incop+6,a1
	lea wat+4,a2
	lea incop+22,a3
	move.w #12,d0
ghg:
	move.w (a0)+,(a1)
	move.w (a2)+,(a3)
	add.w  #$20,a1		
	add.w  #$20,a3		
	dbra d0,ghg
rts
;----------------------------------------------
	blit:
	s:
	btst #$0e,$dff002
	bne.s s

	move.l a0,$dff050  ;quelle A
	move.l a1,$dff054  ;ziel   D

	ma:move.w #$00,$dff064  ;mod A
	md:move.w #$00,$dff066  ;mod D

	move.w #$09f0,$dff040
	move.l #$fffffffff,$dff044
	lsl.w #$6,d0
	add.w #$1,d0
	move.w d0,$dff058
	rts
;------------------------------------------------------
	beani:
        cmp.b #$1,berg
        bne.s bab
	cmp.w #$8207,ta
	beq.s nk
	sub.w #$0100,ta
	rts
nk:     move.b #$2,berg
	rts
bab:     cmp.b #$0,berg
        bne.s ott
	cmp.w #$9307,ta
	beq.s kn
	add.w #$0100,ta
	rts
kn:     move.b #$2,berg
ott:	rts

;------------------------------------------------------
cls:
	btst #$0e,$dff002
	bne.s bwei
bcl:	move.l #$50000+[144*21]+04,$dff050
bcll:	move.l #$50000+[144*21]+04,$dff054
	move.l #$00080008,$dff064
	move.l #$09000000,$dff040
	move.w #$3fd4,$dff058
bwei:   rts
;------  d0=X  d1=Y  --------
bob:
	add.w  #$2,c     ;speed
	add.w  #$3,cc
	move.w c,ct
	move.w cc,cct
	lea  boban,a3

move.w #27,d6
loopy:
	moveq #$00,d0
	moveq #$00,d1
	move.l #xtab,xwer
	move.l #ytab,ywer
dis:	add.w  #$9,c       ;distanz zum naechsten Wert
diss:	add.w  #$9,cc
	and.w  #$ff,c
	move.w c,d4
	and.w  #$ff,cc
	move.w cc,d3
	add.l  d4,xwer
	add.l  d3,ywer
	move.l xwer,a2
	move.b (a2),d0 ; X
	add.w #$004f,d0
	move.l ywer,a2
	move.b (a2),d1 ; Y
	addq.w #$5,d1
	bsr.s paint
	dbra d6,loopy
	move.w ct,c
	move.w cct,cc

rts
;-----------------
paint:
;-----------------
bp:	move.l #$40000,d2
	move.w d1,d7     ; r
	lsl.w  #$7,d1    ; *128
	lsl.w  #$4,d7    ; *16
	add.w  d7,d1
	add.w d1,d2


	ror.w  #$4,d0    ;wort
	move.w d0,d5     ;retten
	and.w  #$00ff,d0
	lsl.w  #$1,d0
	add.w   d0,d2    ;wort anteil
	and.w  #$f000,d5
	or.w   #$0dfc,d5
;----------------
;   animation

	and.b #$f,(a3)
	move.b (a3),d3
	lsl.b  #$2,d3
	move.l #cycle,d1
	add.w d3,d1
	add.b #$1,(a3)+

;----------------
	ready:
	btst #$0e,$dff002
	bne.s	 ready
	move.l d1,$dff050                  ;daten
	move.l d2,$dff04c			;plane
	move.l d2,$dff054      ;  Z
;	move.l #$002c0038,$dff062    ;  B und A MODULO

qe:	move.w #$8c,$dff062  ;  Z
	move.w #$38,$dff064  ;  Z
qee:	move.w #$8c,$dff066  ;  Z
	move.l #$ffffffff,$dff044
	move.w d5,$dff040      ;daten+maske
	move.w #$03c2,$dff058
	rts
;-------- logo schwab --------
	schwab:
	move.l #highh,a1
	move.w #$9000,aa+4
	move.w #$2764-[144*35],ab+4
	move.w #$2764-[144*35],ad+4

	move.w #47,d0	
	loopo:
	bsr.s shake
	add.w #$0036,aa+4
	add.w #$0090,ab+4
	add.w #$0090,ad+4
	dbra d0,loopo
	rts
;------------------------------------------------------
shake:
	moveq #$00,d1
	move.w (a1)+,d1
	ror.w  #$4,d1    ;wort
	move.w d1,d5     ;retten
	and.w  #$00ff,d1
	lsl.w  #$1,d1
	add.w   d1,ab+4    ;wort anteil
	add.w   d1,ad+4  
	and.w  #$f000,d5
	or.w   #$0dfc,d5
	bsr.s bli
	sub.w d1,ab+4
	sub.w d1,ad+4
	rts
;------------------------------------------------------
	bli:
	btst #$0e,$dff002
	bne.s bwe4

	aa:move.l #$59000,$dff050 ;A
	ab:move.l #$40000,$dff04c  ;B
	ad:move.l #$40000,$dff054
	;move.w #$00,$dff064 ;A
qw:	move.w #$1e,$dff066 ;D
	move.l #$001e0000,$dff062 ;B,a
	move.l #$ffffffff,$dff044
	move.w d5,$dff040
	move.w #$0000,$dff042
	move.w #$c9,$dff058
bwe4:	rts
;------------------------------------------------------
startmusic:
	move.l	#data,muzakoffset	;** get offset

init0:	move.l	muzakoffset,a0		;** get highest used pattern
	add.w	#472,a0
	move.w	#$80,d0
	moveq  #$00,d1
init1:	move.l	d1,d2
	subq.w	#1,d0
init2:	move.b	(a0)+,d1
	cmp.b	d2,d1
	bgt.s	init1
	dbf	d0,init2
	addq.b	#1,d2

init3:	move.l	muzakoffset,a0		;** calc samplepointers
	lea	pointers,a1
	mulu	#1024,d2
	add.l	#600,d2
	add.l	a0,d2
	move.l	#15-1,d0
init4:	move.l	d2,(a1)+
	clr.l	d1
	move.w	42(a0),d1
	lsl.l	#1,d1
	add.l	d1,d2
	add.l	#30,a0
	dbf	d0,init4

init5:	move.w	#$0,$dff0a8		;** clear used values
	move.w	#$0,$dff0b8
	move.w	#$0,$dff0c8
	move.w	#$0,$dff0d8
	clr.w	timpos
	clr.l	trkpos
	clr.l	patpos

init6:	move.l	muzakoffset,a0		;** initialize timer irq
	move.b	470(a0),numpat+1	;nuber of patterns
	move.l	#240,d0
	sub.b	471(a0),d0
	mulu	#122,d0
	move.b	#$0,$bfde00
	move.b	d0,$bfd400
	lsr.w	#8,d0
	move.b	d0,$bfd500
	move.b	#$81,$bfdd00
	move.b	#$11,$bfde00
	rts

stopmusic:
	move.b	#$1,$bfdd00		;** restore timer & dma
	move.w	#$0,$dff0a8
	move.w	#$0,$dff0b8
	move.w	#$0,$dff0c8
	move.w	#$0,$dff0d8
	move.w	#$f,$dff096
	rts
;----------------------------- play 
replay:
	movem.l	d0-d7/a0-a6,-(a7)
	addq.w	#1,timpos
speedi:	cmp.w	#6,timpos
	beq	replaystep

chaneleffects:				;** seek effects
	lea	datach0,a6
	tst.b	3(a6)
	beq.s	ceff1
	lea	$dff0a0,a5
	bsr.s	ceff5
ceff1:	lea	datach1,a6
	tst.b	3(a6)
	beq.s	ceff2
	lea	$dff0b0,a5
	bsr.s	ceff5
ceff2:	lea	datach2,a6
	tst.b	3(a6)
	beq.s	ceff3
	lea	$dff0c0,a5
	bsr.s	ceff5
ceff3:	lea	datach3,a6
	tst.b	3(a6)
	beq.s	ceff4
	lea	$dff0d0,a5
	bsr.s	ceff5
ceff4:	movem.l	(a7)+,d0-d7/a0-a6
	rts

ceff5:	move.b	2(a6),d0		;room for some more
	and.b	#$0f,d0			;implementations below
	tst.b	d0
	beq.s	arpreggiato
	cmp.b	#1,d0
	beq	pitchup
	cmp.b	#2,d0
	beq	pitchdown
	cmp.b	#12,d0
	beq	setvol
	cmp.b	#14,d0
	beq	setfilt
	cmp.b	#15,d0
	beq	setspeed
	rts

arpreggiato:				;** spread by time
	cmp.w	#1,timpos
	beq.s	arp1
	cmp.w	#2,timpos
	beq.s	arp2
	cmp.w	#3,timpos
	beq.s	arp3
	cmp.w	#4,timpos
	beq.s	arp1
	cmp.w	#5,timpos
	beq.s	arp2
	rts

arp1:	clr.l	d0			;** get higher note-values
	move.b	3(a6),d0		;   or play original
	lsr.b	#4,d0
	bra.s	arp4
arp2:	clr.l	d0
	move.b	3(a6),d0
	and.b	#$0f,d0
	bra.s	arp4
arp3:	move.w	16(a6),d2
	bra.s	arp6
arp4:	lsl.w	#1,d0
	clr.l	d1
	move.w	16(a6),d1
	lea	notetable,a0
arp5:	move.w	(a0,d0.w),d2
	cmp.w	(a0),d1
	beq.s	arp6
	addq.l	#2,a0
	bra.s	arp5
arp6:	move.w	d2,6(a5)
	rts

pitchdown:
	bsr	newrou
	moveq   #$00,d0
	move.b	3(a6),d0
	and.b	#$0f,d0
	add.w	d0,(a4)
	cmp.w	#$358,(a4)
	bmi.s	ok1
	move.w	#$358,(a4)
ok1:	move.w	(a4),6(a5)
	rts

pitchup:bsr	newrou
	moveq  #$00,d0
	move.b	3(a6),d0
	and.b	#$0f,d0
	sub.w	d0,(a4)
	cmp.w	#$71,(a4)
	bpl.s	ok2
	move.w	#$71,(a4)
ok2:	move.w	(a4),6(a5)
	rts

setvol:	move.b	3(a6),8(a5)
	rts

setfilt:move.b	3(a6),d0
	and.b	#$01,d0
	asl.b	#$01,d0
	and.b	#$fd,$bfe001
	or.b	d0,$bfe001
	rts

setspeed:
	moveq #$00,d0
	move.b	3(a6),d0
	and.b	#$0f,d0
	move.w	d0,speedi+2
	rts

newrou:	cmp.l	#datach0,a6
	bne.s	next1
	lea	voi1,a4
	rts
next1:	cmp.l	#datach1,a6
	bne.s	next2
	lea	voi2,a4
	rts
next2:	cmp.l	#datach2,a6
	bne.s	next3
	lea	voi3,a4
	rts
next3:	lea	voi4,a4
	rts

replaystep:				;** work next pattern-step
	clr.w	timpos
	move.l	muzakoffset,a0
	move.l	a0,a3
	add.l	#12,a3			;ptr to soundprefs
	move.l	a0,a2
	add.l	#472,a2			;ptr to pattern-table
	add.l	#600,a0			;ptr to first pattern
	moveq #$00,d1
	move.l	trkpos,d0		;get ptr to current pattern
	move.b	(a2,d0),d1
	mulu	#1024,d1
	add.l	patpos,d1		;get ptr to current step
	clr.w	enbits
	lea	$dff0a0,a5		;chanel 0
	lea	datach0,a6
	bsr	chanelhandler
	lea	$dff0b0,a5		;chanel 1
	lea	datach1,a6
	bsr	chanelhandler
	lea	$dff0c0,a5		;chanel 2
	lea	datach2,a6
	bsr	chanelhandler
	lea	$dff0d0,a5		;chanel 3
	lea	datach3,a6
	bsr	chanelhandler
	move.l	#400,d0			;** wait a while and set len
rep1:	dbf	d0,rep1			;   of oneshot to 1 word
	move.l	#$8000,d0
	or.w	enbits,d0
	move.w	d0,$dff096
	cmp.w	#1,datach0+14
	bne.s	rep2
	clr.w	datach0+14
	move.w	#1,$dff0a4
rep2:	cmp.w	#1,datach1+14
	bne.s	rep3
	clr.w	datach1+14
	move.w	#1,$dff0b4
rep3:	cmp.w	#1,datach2+14
	bne.s	rep4
	clr.w	datach2+14
	move.w	#1,$dff0c4
rep4:	cmp.w	#1,datach3+14
	bne.s	rep5
	clr.w	datach3+14
	move.w	#1,$dff0d4

rep5:	add.l	#16,patpos		;next step
	cmp.l	#64*16,patpos		;pattern finished ?
	bne	rep6
	clr.l	patpos
	addq.l	#1,trkpos		;next pattern in table
	moveq   #$00,d0
	move.w	numpat,d0
	cmp.l	trkpos,d0		;song finished ?
	bne	rep6
	clr.l	trkpos
rep6:	movem.l	(a7)+,d0-d7/a0-a6
	rts

chanelhandler:
	move.l	(a0,d1.l),(a6)		;get period & action-word
	addq.l	#4,d1			;point to next chanel
	moveq  #$00,d2
	move.b	2(a6),d2		;get nibble for soundnumber
	lsr.b	#4,d2
	beq.s	chan2			;no soundchange !
	move.l	d2,d4			;** calc ptr to sample
	lsl.l	#2,d2
	mulu	#30,d4
	lea	pointers-4,a1
	move.l	(a1,d2.l),4(a6)		;store sample-address
	move.w	(a3,d4.l),8(a6)		;store sample-len in words
	move.w	2(a3,d4.l),18(a6)	;store sample-volume

	move.l	d0,-(a7)
	move.b	2(a6),d0
	and.b	#$0f,d0
	cmp.b	#$0c,d0
	bne.s	ok3
	move.b	3(a6),8(a5)
	bra.s	ok4
;ok3:	move.w	2(a3,d4.l),8(a5)	
ok3:	move.w	#$0000,8(a5)      	;change chanel-volume

ok4:	move.l	(a7)+,d0

	moveq #$00,d3
	move.w	4(a3,d4),d3		;** calc repeatstart
	add.l	4(a6),d3
	move.l	d3,10(a6)		;store repeatstart
	move.w	6(a3,d4),14(a6)		;store repeatlength
	cmp.w	#1,14(a6)
	beq.s	chan2			;no sustainsound !
	move.l	10(a6),4(a6)		;repstart  = sndstart
	move.w	6(a3,d4),8(a6)		;replength = sndlength
chan2:	cmp.w	#0,(a6)
	beq.s	chan4			;no new note set !
	move.w	22(a6),$dff096		;clear dma
	cmp.w	#0,14(a6)
	bne.s	chan3			;no oneshot-sample
	move.w	#1,14(a6)		;allow resume (later)
chan3:	bsr	newrou
	move.w	(a6),(a4)
	move.w	(a6),16(a6)		;save note for effect
	move.l	4(a6),0(a5)		;set samplestart
	move.w	8(a6),4(a5)		;set samplelength
	move.w	(a6),6(a5)		;set period
	move.w	22(a6),d0
	or.w	d0,enbits		;store dma-bit
	move.w	18(a6),20(a6)		;volume trigger
chan4:	rts

datach0:	dc.w	0,0,0,0,0,0,0,0,0,0,0,1
datach1:	dc.w	0,0,0,0,0,0,0,0,0,0,0,2
datach2:	dc.w	0,0,0,0,0,0,0,0,0,0,0,4
datach3:	dc.w	0,0,0,0,0,0,0,0,0,0,0,8
voi1:		dc.w	0
voi2:		dc.w	0
voi3:		dc.w	0
voi4:		dc.w	0
pointers:	dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
notetable:	dc.w	856,808,762,720,678,640,604,570
		dc.w	538,508,480,453,428,404,381,360
		dc.w	339,320,302,285,269,254,240,226  
		dc.w	214,202,190,180,170,160,151,143
		dc.w	135,127,120,113,000
muzakoffset:	dc.l	0
lev6save:	dc.l	0
trkpos:		dc.l	0
patpos:		dc.l	0
numpat:		dc.w	0
enbits:		dc.w	0
timpos:		dc.w	5
;-----------------------------
equ:
;-----------------------------
	move.w datach0,d0
	beq.s  noa
;-----------------------------
        lea eqcol,a0
	lea eqcop+6,a1
	move.w #$6,d0
	loqq:
	move.w (a0)+,(a1)
	addq  #$8,a1
	dbra d0,loqq 	
	bra.s wed
;-----------------------------
noa:
	lea eqcop+6,a1
	moveq #$6,d0
ls:     cmp.w #$0000,(a1)
	bhi.s t
	addq #$8,a1
	dbra d0,ls
	bra.s wed
t:      sub.w #$0011,(a1)
	addq #$8,a1
	dbra d0,ls
wed:     
;-----------------------------
	move.w datach1,d0
	beq.s  no1
	lea eqcol,a0
	lea eqcop+6+[8*7],a1
	move.w #$6,d0
	lop1:
	move.w (a0)+,(a1)
	addq  #$8,a1
	dbra d0,lop1
	bra.s we1
;-----------------------------
no1:
	lea eqcop+6+[8*7],a1
	moveq #$6,d0
l1:     cmp.w #$0000,(a1)
	bhi.s t1
	addq #$8,a1
	dbra d0,l1
	bra.s we1
t1:     sub.w #$0011,(a1)
	addq #$8,a1
	dbra d0,l1
we1:    
;----------------------------
	move.w datach2,d0
	beq.s  no2
;----------------------------
	lea eqcol,a0
	lea eqcop+6+[8*14],a1
	move.w #$6,d0
	lop2:
	move.w (a0)+,(a1)
	addq  #$8,a1
	dbra d0,lop2
	bra.s we2
;----------------------------
no2:
	lea eqcop+6+[8*14],a1
	moveq #$6,d0
l2:     cmp.w #$0000,(a1)
	bhi.s t2
	addq #$8,a1
	dbra d0,l2
	bra.s we2
t2:     sub.w #$0011,(a1)
	addq #$8,a1
	dbra d0,l2
we2:    
;----------------------------
	move.w datach3,d0
	beq.s  no3
;----------------------------
	lea eqcol,a0
	lea eqcop+6+[8*21],a1
	move.w #$6,d0
lop3:   move.w (a0)+,(a1)
	addq #$8,a1
	dbra d0,lop3
	rts
;----------------------------
no3:
	lea eqcop+6+[8*21],a1
	moveq #$6,d0
l3:     cmp.w #$0000,(a1)
	bhi.s t3
	addq #$8,a1
	dbra d0,l3
	bra.s en
t3:     sub.w #$0011,(a1)
	addq #$8,a1
	dbra d0,l3
en:     rts
;-----------------------------
	ebli:
	btst #$0e,$dff002
	bne.s ebli
	move.l a0,$dff050  ;quelle A
	move.l a1,$dff054  ;ziel   D
	mma:move.w #$00,$dff064  ;mod A
	mmd:move.w #$00,$dff066  ;mod D
	move.w #$09f0,$dff040
	move.l #$fffffffff,$dff044
	lsl.w #$6,d0
	add.w #$1,d0
	move.w d0,$dff058
	rts
;-----------------------------
newcopper:
	dc.w    $0104,$0000
	dc.w	$0120,$0007  ; 0-1 sprite
	dc.w	$0122,$f000
	dc.w	$0124,$0007
	dc.w	$0126,$f200

	dc.w	$0128,$0007  ; 2-3 sprite
	dc.w	$012a,$f400
	dc.w	$012c,$0007
	dc.w	$012e,$f600

	dc.w	$0130,$0000
	dc.w	$0132,$03f0
	dc.w	$0134,$0000
	dc.w	$0136,$03f0

	dc.w	$0138,$0000
	dc.w	$013a,$03f0
	dc.w	$013c,$0000
	dc.w	$013e,$03f0
dc.w $0180,$0112,$0182,$0ced          ;color register
dc.w $0184,$09cb,$0186,$06b9
dc.w $0188,$0497,$018a,$0275
dc.w $018c,$0164,$018e,$0053

dc.w $0190,$01f1,$0192,$02f2          
dc.w $0194,$0444,$0196,$0555
dc.w $0198,$0777,$019a,$0999
dc.w $019c,$0ccc,$019e,$0ddd



dc.w $01a0,$0000,$01a2,$0326           ;stern colour
dc.w $01a4,$0436,$01a6,$0437
dc.w $01a8,$0448,$01aa,$0558
dc.w $01ac,$0569,$01ae,$067a
dc.w $01b0,$078a,$01b2,$079b           
dc.w $01b4,$08ac,$01b6,$09bc
dc.w $01b8,$0acd,$01ba,$0bde
dc.w $01bc,$0cee,$01be,$0dff

dc.w $2807,$fffe
dc.w $0100,$3200              
dc.w $0102,$0000
bu1:dc.w $00e0,$0004,$00e2,$0000
bu2:dc.w $00e4,$0004,$00e6,$0030
bu3:dc.w $00e8,$0004,$00ea,$0060

xc:dc.w $0108,$0062,$010a,$0062

dc.w $008e,$2000,$0090,$2fff  
dc.w $0092,$0028,$0094,$00e0
;---------------------------
eqcop:
blk.l 58,0
;---------------------------

ta:dc.w $9307,$fffe

pb1:dc.w $00e0,$0004,$00e2,$9ffc+14-[138*23]-6
pb2:dc.w $00e4,$0004,$00e6,$a02c+12-[138*23]-6
pb3:dc.w $00e8,$0004,$00ea,$a05c+10-[138*23]-6

dc.w $0100,$3200

dc.w $0180,$0112,$0182,$05ad            ;color berg
dc.w $0184,$0245,$0186,$0256
dc.w $0188,$08df,$018a,$0134
dc.w $018c,$06cf,$018e,$038a

qq:dc.w $0108,$005c,$010a,$005c ;modulo-werte(40byte=$28=320
dc.w $0102,$0000
;------ horizont

dc.w $9407,$fffe,$0180,$0112
dc.w $9507,$fffe,$0180,$0112
dc.w $9607,$fffe,$0180,$0112
dc.w $9707,$fffe,$0180,$0213
dc.w $9807,$fffe,$0180,$0314
dc.w $9907,$fffe,$0180,$0315
dc.w $9a07,$fffe,$0180,$0425
dc.w $9b07,$fffe,$0180,$0426
dc.w $9c07,$fffe,$0180,$0527
dc.w $9d07,$fffe,$0180,$0527
dc.w $9e07,$fffe,$0180,$0628
dc.w $9f07,$fffe,$0180,$0639
dc.w $a007,$fffe,$0180,$0739
dc.w $a107,$fffe,$0180,$073a
dc.w $a207,$fffe,$0180,$083b
dc.w $a307,$fffe,$0180,$0a2a

dc.w $a407,$fffe,$0180,$0b2a
dc.w $a507,$fffe,$0180,$0c2a
dc.w $a607,$fffe,$0180,$0c29
dc.w $a707,$fffe,$0180,$0d28
dc.w $a807,$fffe,$0180,$0d27
dc.w $a907,$fffe,$0180,$0d36
dc.w $aa07,$fffe,$0180,$0e46
dc.w $ab07,$fffe,$0180,$0e55
dc.w $ac07,$fffe,$0180,$0e66
dc.w $ad07,$fffe,$0180,$0e86
dc.w $ae07,$fffe,$0180,$0e97
dc.w $af07,$fffe,$0180,$0eb8
dc.w $b007,$fffe,$0180,$0ec9
dc.w $b107,$fffe,$0180,$0fda
dc.w $b207,$fffe,$0180,$0feb
dc.w $b307,$fffe,$0180,$0fec
dc.w $b407,$fffe,$0180,$0ffd

;----------------- schach
dc.w $c109,$fffe
dc.w $0180,$0658

qs:dc.w $0108,$0022,$010a,$feb2   ;108 schach  10a 6plane
sw:dc.w $00e0,$0004,$00e2,$4000-44-[80*1] ; 1. bitplane
dc.w $00e4,$0007,$00e6,$0000
dc.w $00e8,$0007,$00ea,$0000
dc.w $00ec,$0007,$00ee,$0000
dc.w $00f0,$0007,$00f2,$0000
dc.w $00f4,$0004,$00f6,$3060+10 ;6plane


ss:dc.w $0102,$0000
dc.w $0100,$1200              
;---------------------
; Startadressen von diversen Bitplanes

schach:
blk.w [anz*6],0

dc.w $0100,$3200              
dc.w $0108,$0068,$010a,$0068

dc.w $ed07,$fffe,$0180,$022a
dc.w $0100,$0200
dc.w $ee07,$fffe,$0180,$0000,$0182,$0edf
dc.w $0184,$0dce,$0186,$0cad
dc.w $0188,$0b9c,$018a,$0a8b
dc.w $018c,$0a7a,$018e,$0969

dc.w $ef07,$fffe,$0100,$3200

ps1:dc.w $00e0,$0004,$00e2,$0000+[150*207] ; 1. bitplane
ps2:dc.w $00e4,$0004,$00e6,$0032+[150*207] ; 2. bitplane
ps3:dc.w $00e8,$0004,$00ea,$0064+[150*207] ; 3. bitplane

incopa:
dc.w $e807,$fffe,$0102,$0077
dc.w $e907,$fffe,$0102,$0077
dc.w $ea07,$fffe,$0102,$0077
dc.w $eb07,$fffe,$0102,$0077
dc.w $ec07,$fffe,$0102,$0077
dc.w $ed07,$fffe,$0102,$0077
dc.w $ee07,$fffe,$0102,$0077
dc.w $ef07,$fffe,$0102,$0077
dc.w $f007,$fffe,$0102,$0077
dc.w $f107,$fffe,$0102,$0077
dc.w $f207,$fffe,$0102,$0077
dc.w $f307,$fffe,$0102,$0077
dc.w $f407,$fffe,$0102,$0077
dc.w $f507,$fffe,$0102,$0077
dc.w $f607,$fffe,$0102,$0077
dc.w $f707,$fffe,$0102,$0077
dc.w $f807,$fffe,$0102,$0077
dc.w $f907,$fffe,$0102,$0077
dc.w $fa07,$fffe,$0102,$0077
dc.w $fb07,$fffe,$0102,$0077
dc.w $fc07,$fffe,$0102,$0077
dc.w $fd07,$fffe,$0102,$0077
dc.w $fe07,$fffe,$0102,$0077
dc.w $ff07,$fffe,$0102,$0077
dc.w $ffdf,$fffe,$0102,$0077
dc.w $0107,$fffe,$0102,$0077
dc.w $0207,$fffe,$0102,$0077
dc.w $0307,$fffe,$0102,$0077
dc.w $0407,$fffe,$0102,$0077
dc.w $0507,$fffe,$0102,$0077
dc.w $0607,$fffe,$0102,$0077
dc.w $0707,$fffe,$0102,$0077
dc.w $0807,$fffe,$0102,$0077
dc.w $0907,$fffe,$0102,$0077
dc.w $0a07,$fffe,$0102,$0077
dc.w $0b07,$fffe,$0102,$0077
dc.w $0c07,$fffe,$0102,$0077
dc.w $0d07,$fffe,$0102,$0077
dc.w $0e07,$fffe,$0102,$0077
dc.w $0f07,$fffe,$0102,$0077
dc.w $1007,$fffe,$0102,$0077
dc.w $1107,$fffe,$0102,$0077

dc.w $1207,$fffe,$0180,$0300
dc.w $1307,$fffe,$0180,$0500
dc.w $1407,$fffe,$0180,$0700
dc.w $1507,$fffe,$0180,$0914
dc.w $1607,$fffe,$0180,$0224
dc.w $1707,$fffe,$0180,$0225

pm1:dc.w $00e0,$0004,$00e2,$0000+$8e62
pm2:dc.w $00e4,$0004,$00e6,$0032+$8e62
pm3:dc.w $00e8,$0004,$00ea,$0064+$8e62

m:dc.w $0108,$ff3c,$010a,$ff3c
dc.w $0182,$0cbf            
dc.w $0184,$0bae,$0186,$0a8d
dc.w $0188,$097c,$018a,$086b
dc.w $018c,$085a,$018e,$0749

incop:
blk.w [26*8],0

dc.w $2607,$fffe,$0100,$0200
dc.w $ffff,$fffe
sup:dc.l 0
rndseed1:
dc.l    0
gfxbase:
dc.l 	0
zeisc:
dc.l sctex
oldcop:
dc.l 	0
gfxname:
dc.b 	"graphics.library",0
; vari
berg:
dc.b $2
encon:
dc.w $200
scont:
dc.b $15
bit:
dc.b 1
co1:
dc.w 0
sv:
dc.b $2
ston:
blk.b 1,0
even
vpos:
dc.l $0000b000
nnoe:
dc.b 20
even
anipoin:
dc.w $0001,$0002,$0004,$0009,$0003,$0006
anipoinn:
dc.w $000c,$0008,$0001,$0002,$0005,$0003

schachr:
dc.b 4
chpos:
dc.b 140
now:
dc.b $4
stop:
dc.b  $ff
noww:
dc.b $ff
vst:
dc.b $00
wow:
dc.b $00
runt:
dc.b $88
cc:
dc.w 0
c:
dc.w 0
ct:
dc.w 0
cct:
dc.w 0
xwer:
dc.l xtab
ywer:
dc.l ytab
co:
dc.w 00
asc:
dc.b "abcdefghijklmnopqrstuvwxyz1234567890!()?/{}[]%^=*-@:+#$~ "
sctexx:
dc.b "F      bye bye  SCL           ",0
sctex:
dc.b "  MU       Vbros    SR     QG  is back on trilogy/vf - party"
dc.b " with a new production !  made for the demo-competition"
dc.b " to catch a good rank @@@@ but we think that at this time" 
dc.b " its not enough for you ?!? $we are getting higher#J"
dc.b "      WP lets reach the stars * * *Y           OK"
dc.b " look  %left^X      Zand %right^D       Xand to the mem"
dc.b "berlistZ  :   bon (driver swapper)     Wdruid (soundwizard)K"
dc.b "      falcon (new graphic-pixeler)"
dc.b "      Pgilli (masterswapper)O      hawk (swapper hardware"
dc.b "-freak)      hotfreezer (cool introsound!)"
dc.b "       UknightV- rider (beerkiller!)      lord"
dc.b " mc crack {bootcopy}      ozone (logo)"
dc.b "    PWsage (dpainter)KO    splasher (spreader)      "
dc.b "U        tom   VSSSSL  G(coder)      bros finland (send "
dc.b "graphics and sounds)      "
dc.b "if you want to buy the latest stuff then write to"
dc.b " plk a 012371   6434 niederaula         "
dc.b "or want to swap or can paint good graphics then write"
dc.b " to plk 063838 a    6430 bad hersfeld 1"           
dc.b "        wanna have some greets ??? F   Chere they are "
dc.b "     {  a to z  }        N abyss - aces - the band"
dc.b " (norway) - beastie boys (hi kevin *cool wa ?*) - "
dc.b "black tech - cascade - cps - doc (hi tracer great "
dc.b "contact !) - deathstar - escape - frantic - freestyle "
dc.b "uk - freedom force (nice megademo) - {hcs 4220} - "
dc.b "hitech-ydex X- kefrens - megapower - northstar - powerslaves"
dc.b " - quadlite (tach zeronine) - Cred sector (your late "
dc.b "ninja sounds are a joke ?) - Jseven up crewD - savory "
dc.b "- the silents -X steel pulse (hi ralf thanx for the cool "
dc.b "game !) - Zthe link (we wait for your megademo) - the "
dc.b "law breakers (car repaired dirk ?) - Ftng fun factory "
dc.b "- Ntsk and acc (go on with your good work) - unicorn - W   "
dc.b "vision factory (hello arnd and christian) K- warfalcons "
dc.b "- Uworld Vof wonders (hi derek) - zigag -   *** @@@ *** "
dc.b "    text    SR                 QG  written by "
dc.b " - bon - gilli - and knight rider -      "
dc.b "thats all for this time !!!    - end of text -           "
dc.b "                       "
;dc.b "    Kfer effect alles wieder ko"
;dc.b
;dc.b "   tom  of   $$bros~~ SR           QG   -----{}{}"
;dc.b "abcdefghijkLlmnopqrstuvwFxyz12345678N90!()?/{}[]%^=*-@:+#$~ "
;dc.b "1232456789?/!+-    cdefghijklmnopqrstuvwxyz"
;dc.b "               aaaabbbbbbbcdgggggrrrrefgjjjjjhijklmnopqrsz"
;dc.b "abcjdjlksajlkdjsdlkjdkjsdefghijklmnopqrstuvwxyztom"
dc.b  $ff
even
wat:
dc.w $0055,$0077,$0077,$0077,$0066,$0044,$0033,$0011
dc.w $0000,$0000,$0000,$0022,$0044,$0055,$0077,$0077
dc.w $0077,$0066,$0044,$0033,$0011,$0000,$0000,$0000
dc.w $0022,$0044
dc.w $0055,$0077,$0077,$0077,$0066,$0044,$0033,$0011
dc.w $0000,$0000,$0000,$0022,$0044,$0055,$0077,$0077
dc.w $0077,$0066,$0044,$0033,$0011,$0000,$0000,$0000
dc.w $0022,$0044
sto:
dc.w $0066,$0077,$0066,$0077,$0066,$0077,$0066,$0077
dc.w $0066,$0077,$0066,$0077,$0066,$0077,$0066,$0077
dc.w $0066,$0077,$0066,$0077,$0066,$0077,$0066,$0077
dc.w $0066,$0077,$0066,$0077,$0066,$0077,$0066,$0077
dc.w $0066,$0077,$0066,$0077,$0066,$0077,$0066,$0077
dc.w $0066,$0077
end:

rl:
;----  1 ani
dc.w $0088,$0088,$0088,$0088,$0099,$0099,$0099,$0099
dc.w $0099,$0099,$0099,$0099,$0099,$0099,$0099,$0099
dc.w $0099,$0099,$0099,$0099,$0099,$0099,$0099,$0099
dc.w $0099,$0099,$0099,$0099,$0088,$0088,$0088,$0088
;----  2 ani
dc.w $0088,$0099,$0099,$00aa,$00aa,$00bb,$00bb,$00bb
dc.w $00bb,$00cc,$00cc,$00cc,$00cc,$00cc,$00cc,$00cc
dc.w $00cc,$00cc,$00cc,$00cc,$00cc,$00cc,$00bb,$00bb
dc.w $00bb,$00bb,$00aa,$00aa,$00aa,$0099,$0099,$0088
;---- 3 ani
dc.w $0088,$0099,$00aa,$00bb,$00cc,$00dd,$00dd,$00dd
dc.w $00ee,$00ee,$00ee,$00ff,$00ff,$00ff,$00ff,$00ff
dc.w $00ff,$00ff,$00ff,$00ff,$00ff,$00ee,$00ee,$00ee
dc.w $00dd,$00dd,$00dd,$00cc,$00bb,$00aa,$0099,$0088
;---- 4 ani
dc.w $0088,$0099,$0099,$00aa,$00aa,$00bb,$00bb,$00bb
dc.w $00bb,$00cc,$00cc,$00cc,$00cc,$00cc,$00cc,$00cc
dc.w $00cc,$00cc,$00cc,$00cc,$00cc,$00cc,$00bb,$00bb
dc.w $00bb,$00bb,$00aa,$00aa,$00aa,$0099,$0099,$0088
;--- 5 ani
dc.w $0088,$0088,$0088,$0088,$0099,$0099,$0099,$0099
dc.w $0099,$0099,$0099,$0099,$0099,$0099,$0099,$0099
dc.w $0099,$0099,$0099,$0099,$0099,$0099,$0099,$0099
dc.w $0099,$0099,$0099,$0099,$0088,$0088,$0088,$0088
;--- 6 ani
dc.w $0077,$0077,$0077,$0077,$0066,$0066,$0066,$0066
dc.w $0066,$0066,$0066,$0066,$0066,$0066,$0066,$0066
dc.w $0066,$0066,$0066,$0066,$0066,$0066,$0066,$0066
dc.w $0066,$0066,$0066,$0066,$0077,$0077,$0077,$0077

;--- 7 ani
dc.w $0077,$0066,$0066,$0055,$0055,$0044,$0044,$0044
dc.w $0044,$0033,$0033,$0033,$0033,$0033,$0033,$0033
dc.w $0033,$0033,$0033,$0033,$0033,$0033,$0044,$0044
dc.w $0044,$0044,$0055,$0055,$0055,$0066,$0066,$0077
;--- 8 ani
dc.w $0077,$0066,$0066,$0044,$0044,$0033,$0033,$0022
dc.w $0022,$0022,$0011,$0011,$0011,$0011,$0011,$0011
dc.w $0011,$0011,$0011,$0011,$0011,$0022,$0022,$0022
dc.w $0033,$0033,$0033,$0044,$0055,$0055,$0066,$0077
;--- 9 ani
dc.w $0077,$0066,$0066,$0055,$0055,$0044,$0044,$0044
dc.w $0044,$0033,$0033,$0033,$0033,$0033,$0033,$0033
dc.w $0033,$0033,$0033,$0033,$0033,$0033,$0044,$0044
dc.w $0044,$0044,$0055,$0055,$0055,$0066,$0066,$0077
;--- 10 ani
dc.w $0077,$0077,$0077,$0077,$0066,$0066,$0066,$0066
dc.w $0066,$0066,$0066,$0066,$0066,$0066,$0066,$0066
dc.w $0066,$0066,$0066,$0066,$0066,$0066,$0066,$0066
dc.w $0066,$0066,$0066,$0066,$0077,$0077,$0077,$0077
;--- 11 ani end
;---------------------------------------------------
mwob:
dc.w $fe10,$fd7a,$fd7a,$fd7a,$fd7a,$fe10,$fea6,$ff3c
dc.w $ff3c,$ff3c,$ff3c,$fea6,$fe10,$fe10,$fd7a,$fd7a
dc.w $fd7a,$fd7a,$fe10,$fea6,$ff3c,$ff3c,$ff3c,$ff3c
dc.w $fea6,$fe10
dc.w $fe10,$fd7a,$fd7a,$fd7a,$fd7a,$fe10,$fea6,$ff3c
dc.w $ff3c,$ff3c,$ff3c,$fea6,$fe10,$fe10,$fd7a,$fd7a
dc.w $fd7a,$fd7a,$fe10,$fea6,$ff3c,$ff3c,$ff3c,$ff3c
dc.w $fea6,$fe10

eqcol:
dc.w $033,$055,$077,$099,$077,$055,$033


; schach
col:
dc.w $666,$666,$666,$666,$666,$666,$666,$666
dc.w $999,$999,$999,$999,$999,$999,$999,$999
dc.w $666,$666,$666,$666,$666,$666,$666,$666
dc.w $999,$999,$999,$999,$999,$999,$999,$999
dc.w $666,$666,$666,$666,$666,$666,$666,$666
dc.w $999,$999,$999,$999,$999,$999,$999,$999
dc.w $666,$666,$666,$666,$666,$666,$666,$666
dc.w $999,$999,$999,$999,$999,$999,$999,$999
dc.w $666,$666,$666,$666,$666,$666,$666,$666
dc.w $999,$999,$999,$999,$999,$999,$999,$999


abs:
dc.w 01,01,01,01,01,01,01,01,01,02,02
dc.w 02,02,02,02,02,02,02,02,02,02
dc.w 02,02,03,03,03,03,03,03,03
dc.w 03,03,04,04,04,04,04,04

spx:
dc.b $a6,$41,$82,$c7,$4c,$6f,$61,$de,$b8,$35,$92,$b3

ripos:
blk.l 12,0


stern:
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0100
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000

dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0100
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000


dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0000,$0100
dc.w $07C0,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000

dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0540,$0380
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000



dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0100,$0100
dc.w $0380,$0100
dc.w $1FF0,$0330
dc.w $0380,$0000
dc.w $0100,$0000
dc.w $0100,$0100
dc.w $0100,$0100
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000

dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0080,$0100
dc.w $09A0,$07C0
dc.w $0380,$0100
dc.w $0000,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000


dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0380,$0100
dc.w $0920,$0280
dc.w $3FF8,$0920
dc.w $0380,$0100
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000

dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0280,$0100
dc.w $07C0,$0100
dc.w $1BB0,$07C0
dc.w $0280,$0100
dc.w $0280,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000


dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0380,$0100
dc.w $0920,$0280
dc.w $3FF8,$0920
dc.w $0380,$0100
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000

dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0280,$0100
dc.w $07C0,$0100
dc.w $1BB0,$07C0
dc.w $0280,$0100
dc.w $0280,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000



dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0100,$0000
dc.w $07C0,$0100
dc.w $7FF8,$2528
dc.w $07E0,$0240
dc.w $0380,$0100
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000

dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0280,$0100
dc.w $0280,$0100
dc.w $13B0,$0FC0
dc.w $0F80,$0100
dc.w $0280,$0100
dc.w $0280,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000



dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0100,$0000
dc.w $07C0,$0100
dc.w $7FFC,$2554
dc.w $07B0,$0220
dc.w $07C0,$0100
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0100,$0000
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000

dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0280,$0100
dc.w $0280,$0100
dc.w $1398,$0FE0
dc.w $0FC0,$0100
dc.w $0280,$0100
dc.w $0280,$0100
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000


dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0100,$0000
dc.w $07C0,$0100
dc.w $1550,$0280
dc.w $FFFE,$5554
dc.w $17B0,$0220
dc.w $07C0,$0100
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0100,$0000
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000

dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0280,$0100
dc.w $0280,$0100
dc.w $0FE0,$0100
dc.w $3398,$0FE0
dc.w $0FC0,$0100
dc.w $0280,$0100
dc.w $0280,$0100
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000


dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0100,$0000
dc.w $07C0,$0100
dc.w $1550,$0280
dc.w $FFFE,$5554
dc.w $17B0,$0220
dc.w $07C0,$0100
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0100,$0000
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000

dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0280,$0100
dc.w $0280,$0100
dc.w $0FE0,$0100
dc.w $3398,$0FE0
dc.w $0FC0,$0100
dc.w $0280,$0100
dc.w $0280,$0100
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000


dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0100,$0000
dc.w $07C0,$0100
dc.w $7FFC,$2554
dc.w $07B0,$0220
dc.w $07C0,$0100
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0100,$0000
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000

dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0280,$0100
dc.w $0280,$0100
dc.w $1398,$0FE0
dc.w $0FC0,$0100
dc.w $0280,$0100
dc.w $0280,$0100
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000


dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0100,$0000
dc.w $07C0,$0100
dc.w $7FF8,$2528
dc.w $07E0,$0240
dc.w $0380,$0100
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000

dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0280,$0100
dc.w $0280,$0100
dc.w $13B0,$0FC0
dc.w $0F80,$0100
dc.w $0280,$0100
dc.w $0280,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000


dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0380,$0100
dc.w $0920,$0280
dc.w $3FF8,$0920
dc.w $0380,$0100
dc.w $0100,$0000
dc.w $0380,$0100
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000

dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0280,$0100
dc.w $07C0,$0100
dc.w $1BB0,$07C0
dc.w $0280,$0100
dc.w $0280,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000


dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0180,$0100
dc.w $0100,$0000
dc.w $0B20,$0080
dc.w $3FF8,$1B30
dc.w $0380,$0100
dc.w $0100,$0000
dc.w $0180,$0100
dc.w $0100,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000

dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0080,$0100
dc.w $07C0,$0100
dc.w $09A0,$07C0
dc.w $0080,$0100
dc.w $0080,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000



dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0100,$0100
dc.w $0380,$0100
dc.w $1FF0,$0330
dc.w $0380,$0000
dc.w $0100,$0000
dc.w $0100,$0100
dc.w $0100,$0100
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000

dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0080,$0100
dc.w $09A0,$07C0
dc.w $0380,$0100
dc.w $0000,$0100
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000


dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0000,$0100
dc.w $07C0,$0000
dc.w $0100,$0000
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000

dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0000
dc.w $0540,$0380
dc.w $0100,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000


dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0100
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000

dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0100,$0100
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000

boban:
dc.b $0,$1,$2,$3,$4,$5,$6,$7,$8,$9,$a,$b,$c,$d,$e,$f  ;16
dc.b $e,$d,$c,$b,$a,$9,$8,$7,$6,$5,$4,$3,$2,$1,$0,$1 
dc.b $2,$3,$4,$5,$6,$7,$8,$9,$a,$b,$c,$d,$e,$f,$e,$d  ;16