WELCOME TO XENTRIC"S FIRST PRODUCTION: "AAARGLE" !! THE NAME IS ACTUALLY THE SOUND THAT THE PASTA PROGRAMMER MADE WHEN HIS INTERNAL DRIVE MASHED HIS SOURCECODEDISK THE 7TH TIME THIS WEEK.  ON TO IT:  FIRST WE MUST APOLOGIZE FOR THE EXTREMELY LAME CODING. WE HAD TO PUT THE SHIT TOGETHER IN A COUPLE OF HOURS... XENTRIC IS QUITE A NEW GROUP. IT WAS FOUNDED ON THE RUINS OF FORMER "NOVA". AT THIS DATE WE ARE ONLY FIVE MEMBERS. THIS IS MUCH TO FEW IF WE ARE GOING TO MAKE SOME SERIOUS STUFF, SO WE"RE DESPERATELY LOOKING FOR MORE MEMBERS (NO LAMERS, THOUGH!!), SO IF YOU"VE GOT NO GROUP, THEN DON"T WAIT TO CONTACT! (THE NUMBERS TO CALL ARE ABOVE). WE SEND SPECIAL HELLOS TO CHUTULU (SPELT LIKE THAT?) AND TO ALT (OF ENIGMA?) (THANX FOR THE FONTS!) AT LAST I (TPP) HAVE GOT TO APOLOGIZE FOR ALL GRAMMATICAL AND SPELLING ERRORS IN THIS TEXT.  SEE YOU IN A LATER PRODUCTION!!                      (SCROLL WILL NOW RESTART)                            



fert+184,a0
	move.l	a0,BLTDPTR
	move.w	#$ba,BLTAMOD
	move.w	#$ba,BLTDMOD
	move.w	#$0cc1,BLTSIZE

	bsr	waitblit

	lea.l	buffert+186,a0
	move.l	a0,BLTAPTR
	lea.l	buffert+188,a0
	move.l	a0,BLTDPTR
	move.w	#$ba,BLTAMOD
	move.w	#$ba,BLTDMOD
	move.w	#$0cc1,BLTSIZE
	
	bsr	waitblit

	rts




;ญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญ
;ญ   NoisetrackerV1.0 replayroutine   ญ
;ญ Mahoney & Kaktus - HALLONSOFT 1989 ญ
;ญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญญ

mt_init:lea     mt_data,a0
        move.l  a0,a1
        add.l   #$3b8,a1
        moveq   #$7f,d0
        moveq   #0,d1
mt_loop:move.l  d1,d2
        subq.w  #1,d0
mt_lop2:move.b  (a1)+,d1
        cmp.b   d2,d1
        bgt.s   mt_loop
        dbf     d0,mt_lop2
        addq.b  #1,d2

        lea     mt_samplestarts(pc),a1
        asl.l   #8,d2
        asl.l   #2,d2
        add.l   #$43c,d2
        add.l   a0,d2
        move.l  d2,a2
        moveq   #$1e,d0
mt_lop3:clr.l   (a2)
        move.l  a2,(a1)+
        moveq   #0,d1
        move.w  42(a0),d1
        asl.l   #1,d1
        add.l   d1,a2
        add.l   #$1e,a0
        dbf     d0,mt_lop3

        or.b    #$2,$bfe001
        move.b  #$6,mt_speed
        clr.w   $dff0a8
        clr.w   $dff0b8
        clr.w   $dff0c8
        clr.w   $dff0d8
        clr.b   mt_songpos
        clr.b   mt_counter
        clr.w   mt_pattpos
        rts

mt_end: clr.w   $dff0a8
        clr.w   $dff0b8
        clr.w   $dff0c8
        clr.w   $dff0d8
        move.w  #$f,$dff096
        rts

mt_music:
        movem.l d0-d4/a0-a3/a5-a6,-(a7)
        lea     mt_data,a0
        addq.b  #$1,mt_counter
        move.b  mt_counter,D0
        cmp.b   mt_speed,D0
        blt.s   mt_nonew
        clr.b   mt_counter
        bra     mt_getnew

mt_nonew:
        lea     mt_voice1(pc),a6
        lea     $dff0a0,a5
        bsr     mt_checkcom
        lea     mt_voice2(pc),a6
        lea     $dff0b0,a5
        bsr     mt_checkcom
        lea     mt_voice3(pc),a6
        lea     $dff0c0,a5
        bsr     mt_checkcom
        lea     mt_voice4(pc),a6
        lea     $dff0d0,a5
        bsr     mt_checkcom
        bra     mt_endr

mt_arpeggio:
        moveq   #0,d0
        move.b  mt_counter,d0
        divs    #$3,d0
        swap    d0
        cmp.w   #$0,d0
        beq.s   mt_arp2
        cmp.w   #$2,d0
        beq.s   mt_arp1

        moveq   #0,d0
        move.b  $3(a6),d0
        lsr.b   #4,d0
        bra.s   mt_arp3
mt_arp1:moveq   #0,d0
        move.b  $3(a6),d0
        and.b   #$f,d0
        bra.s   mt_arp3
mt_arp2:move.w  $10(a6),d2
        bra.s   mt_arp4
mt_arp3:asl.w   #1,d0
        moveq   #0,d1
        move.w  $10(a6),d1
        lea     mt_periods(pc),a0
        moveq   #$24,d7
mt_arploop:
        move.w  (a0,d0.w),d2
        cmp.w   (a0),d1
        bge.s   mt_arp4
        addq.l  #2,a0
        dbf     d7,mt_arploop
        rts
mt_arp4:move.w  d2,$6(a5)
        rts

mt_getnew:
        lea     mt_data,a0
        move.l  a0,a3
        move.l  a0,a2
        add.l   #$c,a3
        add.l   #$3b8,a2
        add.l   #$43c,a0

        moveq   #0,d0
        move.l  d0,d1
        move.b  mt_songpos,d0
        move.b  (a2,d0.w),d1
        asl.l   #8,d1
        asl.l   #2,d1
        add.w   mt_pattpos,d1
        clr.w   mt_dmacon

        lea     $dff0a0,a5
        lea     mt_voice1(pc),a6
        bsr.s   mt_playvoice
        lea     $dff0b0,a5
        lea     mt_voice2(pc),a6
        bsr.s   mt_playvoice
        lea     $dff0c0,a5
        lea     mt_voice3(pc),a6
        bsr.s   mt_playvoice
        lea     $dff0d0,a5
        lea     mt_voice4(pc),a6
        bsr.s   mt_playvoice
        bra     mt_setdma

mt_playvoice:
        move.l  (a0,d1.l),(a6)
        addq.l  #4,d1
        moveq   #0,d2
        move.b  $2(a6),d2
        and.b   #$f0,d2
        lsr.b   #4,d2
        move.b  (a6),d0
        and.b   #$f0,d0
        or.b    d0,d2
        tst.b   d2
        beq.w   mt_setregs
        moveq   #0,d3
;       move.l  #$FFFFFF        ,d6     
        lea     mt_samplestarts(pc),a1
        move.l  d2,d4
        subq.l  #$1,d2
        asl.l   #2,d2
        mulu    #$1e,d4
        move.l  (a1,d2.l),$4(a6)
        move.w  (a3,d4.l),$8(a6)
        move.w  $2(a3,d4.l),$12(a6)
	move.w  $4(a3,d4.l),d3
	tst.w   d3
	beq.s   mt_noloop
	move.l  $4(a6),d2
	asl.w   #1,d3
	add.l   d3,d2
	move.l  d2,$a(a6)
	move.w  $4(a3,d4.l),d0
	add.w   $6(a3,d4.l),d0
	move.w  d0,8(a6)
	move.w  $6(a3,d4.l),$e(a6)
	move.w  $12(a6),$8(a5)
	bra.s   mt_setregs
mt_noloop:
        move.l  $4(a6),d2
        add.l   d3,d2
        move.l  d2,$a(a6)
        move.w  $6(a3,d4.l),$e(a6)
        move.w  $12(a6),$8(a5)
mt_setregs:
        move.w  (a6),d0
        and.w   #$fff,d0
;       move.l  #$FF    ,d6
        beq     mt_checkcom2
;       move.l  #$ff    ,d6
        move.b  $2(a6),d0
        and.b   #$F,d0
        cmp.b   #$3,d0
        bne.s   mt_setperiod
        bsr     mt_setmyport
        bra     mt_checkcom2
mt_setperiod:
        move.w  (a6),$10(a6)
        and.w   #$fff,$10(a6)
        move.w  $14(a6),d0
        move.w  d0,$dff096
        clr.b   $1b(a6)

        move.l  $4(a6),(a5)
        move.w  $8(a6),$4(a5)
        move.w  $10(a6),d0
        and.w   #$fff,d0
        move.w  d0,$6(a5)
        move.w  $14(a6),d0
        or.w    d0,mt_dmacon
	bra	mt_fuckon


mt_setdma:
        move.w  #$12c,d0
mt_wait:dbf     d0,mt_wait
        move.w  mt_dmacon,d0
        or.w    #$8000,d0
        move.w  d0,$dff096
        move.w  #$12c,d0
mt_wai2:dbf     d0,mt_wai2
        lea     $dff000,a5
        lea     mt_voice4(pc),a6
        move.l  $a(a6),$d0(a5)
        move.w  $e(a6),$d4(a5)
        lea     mt_voice3(pc),a6
        move.l  $a(a6),$c0(a5)
        move.w  $e(a6),$c4(a5)
        lea     mt_voice2(pc),a6
        move.l  $a(a6),$b0(a5)
        move.w  $e(a6),$b4(a5)
        lea     mt_voice1(pc),a6
        move.l  $a(a6),$a0(a5)
        move.w  $e(a6),$a4(a5)

        add.w   #$10,mt_pattpos
        cmp.w   #$400,mt_pattpos
        bne.s   mt_endr
mt_nex: clr.w   mt_pattpos
        clr.b   mt_break
        addq.b  #1,mt_songpos
        and.b   #$7f,mt_songpos
        move.b  mt_songpos,d1
        cmp.b   mt_data+$3b6,d1
        bne.s   mt_endr
        clr.b   mt_songpos
mt_endr:tst.b   mt_break
        bne.s   mt_nex
        movem.l (a7)+,d0-d4/a0-a3/a5-a6
        rts

mt_setmyport:
        move.w  (a6),d2
        and.w   #$fff,d2
        move.w  d2,$18(a6)
        move.w  $10(a6),d0
        clr.b   $16(a6)
        cmp.w   d0,d2
        beq.s   mt_clrport
        bge.s   mt_rt
        move.b  #$1,$16(a6)
        rts
mt_clrport:
        clr.w   $18(a6)
mt_rt:  rts

mt_myport:
        move.b  $3(a6),d0
        beq.s   mt_myslide
        move.b  d0,$17(a6)
        clr.b   $3(a6)
mt_myslide:
        tst.w   $18(a6)
        beq.s   mt_rt
        moveq   #0,d0
        move.b  $17(a6),d0
        tst.b   $16(a6)
        bne.s   mt_mysub
        add.w   d0,$10(a6)
        move.w  $18(a6),d0
        cmp.w   $10(a6),d0
        bgt.s   mt_myok
        move.w  $18(a6),$10(a6)
        clr.w   $18(a6)
mt_myok:move.w  $10(a6),$6(a5)
        rts
mt_mysub:
        sub.w   d0,$10(a6)
        move.w  $18(a6),d0
        cmp.w   $10(a6),d0
        blt.s   mt_myok
        move.w  $18(a6),$10(a6)
        clr.w   $18(a6)
        move.w  $10(a6),$6(a5)
        rts

mt_vib: move.b  $3(a6),d0
        beq.s   mt_vi
        move.b  d0,$1a(a6)

mt_vi:  move.b  $1b(a6),d0
        lea     mt_sin(pc),a4
        lsr.w   #$2,d0
        and.w   #$1f,d0
        moveq   #0,d2
        move.b  (a4,d0.w),d2
        move.b  $1a(a6),d0
        and.w   #$f,d0
        mulu    d0,d2
        lsr.w   #$6,d2
        move.w  $10(a6),d0
        tst.b   $1b(a6)
        bmi.s   mt_vibmin
        add.w   d2,d0
        bra.s   mt_vib2
mt_vibmin:
        sub.w   d2,d0
mt_vib2:move.w  d0,$6(a5)
        move.b  $1a(a6),d0
        lsr.w   #$2,d0
        and.w   #$3c,d0
        add.b   d0,$1b(a6)
        rts

mt_nop: move.w  $10(a6),$6(a5)
        rts

mt_checkcom:
        move.w  $2(a6),d0
;       move.l  #$1     ,d6
        and.w   #$fff,d0
        beq.s   mt_nop
        move.b  $2(a6),d0
        and.b   #$f,d0
        tst.b   d0
        beq     mt_arpeggio
        cmp.b   #$1,d0
        beq.w   mt_portup
        cmp.b   #$2,d0
        beq     mt_portdown
        cmp.b   #$3,d0
        beq     mt_myport
        cmp.b   #$4,d0
        beq     mt_vib
        move.w  $10(a6),$6(a5)
        cmp.b   #$a,d0
        beq.s   mt_volslide
        rts

mt_volslide:
        moveq   #0,d0
        move.b  $3(a6),d0
        lsr.b   #4,d0
        tst.b   d0
        beq.s   mt_voldown
        add.w   d0,$12(a6)
        cmp.w   #$40,$12(a6)
        bmi.s   mt_vol2
        move.w  #$40,$12(a6)
mt_vol2:move.w  $12(a6),$8(a5)
        rts

mt_voldown:
        moveq   #0,d0
        move.b  $3(a6),d0
        and.b   #$f,d0
        sub.w   d0,$12(a6)
        bpl.s   mt_vol3
        clr.w   $12(a6)
mt_vol3:move.w  $12(a6),$8(a5)
        rts

mt_portup:
        moveq   #0,d0
        move.b  $3(a6),d0
        sub.w   d0,$10(a6)
        move.w  $10(a6),d0
        and.w   #$fff,d0
        cmp.w   #$71,d0
        bpl.s   mt_por2
        and.w   #$f000,$10(a6)
        or.w    #$71,$10(a6)
mt_por2:move.w  $10(a6),d0
        and.w   #$fff,d0
        move.w  d0,$6(a5)
        rts

mt_portdown:
        clr.w   d0
        move.b  $3(a6),d0
        add.w   d0,$10(a6)
        move.w  $10(a6),d0
        and.w   #$fff,d0
        cmp.w   #$358,d0
        bmi.s   mt_por3
        and.w   #$f000,$10(a6)
        or.w    #$358,$10(a6)
mt_por3:move.w  $10(a6),d0
        and.w   #$fff,d0
        move.w  d0,$6(a5)
        rts

mt_checkcom2:
;       move.l  #$2348  ,d6
        move.b  $2(a6),d0
        and.b   #$f,d0
        cmp.b   #$e,d0
        beq.s   mt_setfilt
        cmp.b   #$d,d0
        beq.s   mt_pattbreak
        cmp.b   #$b,d0
        beq.s   mt_posjmp
        cmp.b   #$c,d0
        beq.s   mt_setvol
        cmp.b   #$f,d0
        beq.s   mt_setspeed
        rts

mt_setfilt:
        move.b  $3(a6),d0
        and.b   #$1,d0
        asl.b   #$1,d0
        and.b   #$fd,$bfe001
        or.b    d0,$bfe001
        rts
mt_pattbreak:
        not.b   mt_break
        rts
mt_posjmp:
        move.b  $3(a6),d0
        subq.b  #$1,d0
        move.b  d0,mt_songpos
        not.b   mt_break
        rts
mt_setvol:
        cmp.b   #$40,$3(a6)
        ble.s   mt_vol4
        move.b  #$40,$3(a6)
mt_vol4:move.b  $3(a6),$8(a5)
        rts
mt_setspeed:
        move.b  $3(a6),d0
        and.w   #$1f,d0
        beq.s   mt_rts2
        clr.b   mt_counter
        move.b  d0,mt_speed
mt_rts2:rts


mt_sin:
	dc.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
	dc.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18

mt_periods:
	dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
	dc.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
	dc.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
	dc.w $007f,$0078,$0071,$0000,$0000

mt_speed:       dc.b    $6
mt_songpos:     dc.b    $0
mt_pattpos:     dc.w    $0
mt_counter:     dc.b    $0

mt_break:       dc.b    $0
mt_dmacon:      dc.w    $0
mt_samplestarts:blk.l   $1f,0
mt_voice1:      blk.w   10,0
                dc.w    $1
                blk.w   3,0
mt_voice2:      blk.w   10,0
                dc.w    $2
                blk.w   3,0
mt_voice3:      blk.w   10,0
                dc.w    $4
                blk.w   3,0
mt_voice4:      blk.w   10,0
                dc.w    $8
                blk.w   3,0


; -__--__--__--__--__ Let's take some data and put it into our own routine!!
mt_fuckon:


; 	---------------- VOICE 1 ---------------

	cmp.l	#mt_voice1,a6
	bne	mt_fuckduck2

	clr.l	d7

	move.l	$4(a6),sndcount		;samplestarts
	move.w	$8(a6),d7
	lsl.l	#1,d7
	move.l	d7,sndstop
	move.l	sndcount,d7
	add.l	d7,sndstop		;samplestart+length = samplestop
        move.w  $10(a6),d7
        and.l   #$fff,d7
	cmp.w	#$0,d7
	beq	mt_fuckoff
	move.l	#50000,d6
	divu	d7,d6
	andi.l	#$ffff,d6
        move.l  d6,sndfreq		;period
        bra     mt_checkcom2

; ------------------- VOICE 2 ---------------------

mt_fuckduck2:

	cmp.l	#mt_voice2,a6
	bne	mt_fuckduck3

	clr.l	d7

	move.l	$4(a6),sndcount2	;samplestarts
	move.w	$8(a6),d7
	lsl.l	#1,d7
	move.l	d7,sndstop2
	move.l	sndcount2,d7
	add.l	d7,sndstop2		;samplestart+length = samplestop
        move.w  $10(a6),d7
        and.l   #$fff,d7
	cmp.w	#$0,d7
	beq	mt_fuckoff
	move.l	#50000,d6
	divu	d7,d6
	andi.l	#$ffff,d6
        move.l  d6,sndfreq2		;period
        bra     mt_checkcom2

; ------------------ VOICE 3 -----------------
mt_fuckduck3:

	cmp.l	#mt_voice3,a6
	bne	mt_fuckduck4

	clr.l	d7

	move.l	$4(a6),sndcount3		;samplestarts
	move.w	$8(a6),d7
	lsl.l	#1,d7
	move.l	d7,sndstop3
	move.l	sndcount3,d7
	add.l	d7,sndstop3		;samplestart+length = samplestop
        move.w  $10(a6),d7
        and.l   #$fff,d7
	cmp.w	#$0,d7
	beq	mt_fuckoff
	move.l	#50000,d6
	divu	d7,d6
	andi.l	#$ffff,d6
        move.l  d6,sndfreq3		;period
        bra     mt_checkcom2


;	------------------ VOICE 4 --------------

mt_fuckduck4:

	clr.l	d7

	move.l	$4(a6),sndcount4		;samplestarts
	move.w	$8(a6),d7
	lsl.l	#1,d7
	move.l	d7,sndstop4
	move.l	sndcount4,d7
	add.l	d7,sndstop4		;samplestart+length = samplestop
        move.w  $10(a6),d7
        and.l   #$fff,d7
	cmp.w	#$0,d7
	beq	mt_fuckoff
	move.l	#50000,d6
	divu	d7,d6
	andi.l	#$ffff,d6
        move.l  d6,sndfreq4		;period
        
mt_fuckoff:
	bra	mt_checkcom2

reset

	clr.l	start
	clr.l	start+4
	clr.l	ruincode

destroy1:
	btst	#14,$dff002
	bne	destroy1

	lea.l	mt_data,a0
	move.l	a0,BLTDPTR
	move.w	#%0000000100000000,BLTCON0	; USED,LF7
	move.w	#$0,BLTCON1
	move.w	#$0,BLTADAT
	move.w	#$0,BLTDMOD
	move.w	#$0000,BLTSIZE

destroy2:
	btst	#14,$dff002
	bne	destroy2

	rts

;*****************************
;*			     *
;*      COPPER1 PROGRAM      *
;*			     *
;*****************************

	;section	Copper,DATA_C

COPLIST:
	DC.W	$0100,$0000	; Bit-Plane control reg.
	DC.W	$0102,$0000	; Hor-Scroll
	DC.W	$0104,$0010	; Sprite/Gfx priority
	DC.W	$0108,$0000	; Modolu (odd)
	DC.W	$010A,$0000	; Modolu (even)
	DC.W	$008E,$2C81	; Screen Size
	DC.W	$0090,$2CC1	; Screen Size
	DC.W	$0092,$0038	; H-start
	DC.W	$0094,$00D0	; H-stop

	dc.w	$0100,$4200

logopl1	dc.w	$00e0,$0000
	dc.w	$00e2,$0000
logopl2	dc.w	$00e4,$0000
	dc.w	$00e6,$0000
logopl3	dc.w	$00e8,$0000
	dc.w	$00ea,$0000
logopl4	dc.w	$00ec,$0000
	dc.w	$00ee,$0000

	dc.w	$0180,$0000
	dc.w	$0182,$0eca
	dc.w	$0184,$0e00
	dc.w	$0186,$0a00
	dc.w	$0188,$0d80
	dc.w	$018a,$0fe0
	dc.w	$018c,$08f0
	dc.w	$018e,$0ddc
	dc.w	$0190,$087a
	dc.w	$0192,$0444
	dc.w	$0194,$0333
	dc.w	$0196,$0555
	dc.w	$0198,$0666
	dc.w	$019a,$0777
	dc.w	$019c,$0aaa
	dc.w	$019e,$0ccc

;	dc.w	$2a01,$ff00	dc.w	$0100,$1000

	dc.w	$1001,$7f00
	dc.w	$0058,$0001

	dc.w	$0001,$7f00
	dc.w	$0058,$0001
	
	dc.w	$0001,$7f00
	dc.w	$0058,$fe01

;	dc.w	$0001,$7f00
;	dc.w	$0058,$8701

	dc.w	$6501,$fffe
	dc.w	$0100,$1000

	dc.w	$0182,$0000
msgwin	dc.w	$00e0,$0000
	dc.w	$00e2,$0000

	dc.w	$662d,$fffe
plasma	blk.l	46,$01820000

;  ***********************************************
;		67-6f	
;  ***********************************************

	dc.w	$672d,$fffe
	blk.l	46,$01820000
	dc.w	$682d,$fffe
	blk.l	46,$01820000
	dc.w	$692d,$fffe
	blk.l	46,$01820000
	dc.w	$6a2d,$fffe
	blk.l	46,$01820000
	dc.w	$6b2d,$fffe
	blk.l	46,$01820000
	dc.w	$6c2d,$fffe
	blk.l	46,$01820000
	dc.w	$6d2d,$fffe
	blk.l	46,$01820000
	dc.w	$6e2d,$fffe
	blk.l	46,$01820000
	dc.w	$6f2d,$fffe
	blk.l	46,$01820000

; ***********************************************
;		70-7f
;  ***********************************************

	dc.w	$702d,$fffe
	blk.l	46,$01820000
	dc.w	$712d,$fffe
	blk.l	46,$01820000
	dc.w	$722d,$fffe
	blk.l	46,$01820000
	dc.w	$732d,$fffe
	blk.l	46,$01820000
	dc.w	$742d,$fffe
	blk.l	46,$01820000
	dc.w	$752d,$fffe
	blk.l	46,$01820000
	dc.w	$762d,$fffe
	blk.l	46,$01820000
	dc.w	$772d,$fffe
	blk.l	46,$01820000
	dc.w	$782d,$fffe
	blk.l	46,$01820000
	dc.w	$792d,$fffe
	blk.l	46,$01820000
	dc.w	$7a2d,$fffe
	blk.l	46,$01820000
	dc.w	$7b2d,$fffe
	blk.l	46,$01820000
	dc.w	$7c2d,$fffe
	blk.l	46,$01820000
	dc.w	$7d2d,$fffe
	blk.l	46,$01820000
	dc.w	$7e2d,$fffe
	blk.l	46,$01820000
	dc.w	$7f2d,$fffe
	blk.l	46,$01820000

; ***********************************************
;		80-8f
;  ***********************************************

	dc.w	$802d,$fffe
	blk.l	46,$01820000
	dc.w	$812d,$fffe
	blk.l	46,$01820000
	dc.w	$822d,$fffe
	blk.l	46,$01820000
	dc.w	$832d,$fffe
	blk.l	46,$01820000
	dc.w	$842d,$fffe
	blk.l	46,$01820000
	dc.w	$852d,$fffe
	blk.l	46,$01820000
	dc.w	$862d,$fffe
	blk.l	46,$01820000
	dc.w	$872d,$fffe
	blk.l	46,$01820000
	dc.w	$882d,$fffe
	blk.l	46,$01820000
	dc.w	$892d,$fffe
	blk.l	46,$01820000
	dc.w	$8a2d,$fffe
	blk.l	46,$01820000
	dc.w	$8b2d,$fffe
	blk.l	46,$01820000
	dc.w	$8c2d,$fffe
	blk.l	46,$01820000
	dc.w	$8d2d,$fffe
	blk.l	46,$01820000
	dc.w	$8e2d,$fffe
	blk.l	46,$01820000
	dc.w	$8f2d,$fffe
	blk.l	46,$01820000


; ***********************************************
;		90-9f
;  ***********************************************

	dc.w	$902d,$fffe
	blk.l	46,$01820000
	dc.w	$912d,$fffe
	blk.l	46,$01820000
	dc.w	$922d,$fffe
	blk.l	46,$01820000
	dc.w	$932d,$fffe
	blk.l	46,$01820000
	dc.w	$942d,$fffe
	blk.l	46,$01820000
	dc.w	$952d,$fffe
	blk.l	46,$01820000
	dc.w	$962d,$fffe
	blk.l	46,$01820000
	dc.w	$972d,$fffe
	blk.l	46,$01820000
	dc.w	$982d,$fffe
	blk.l	46,$01820000
	dc.w	$992d,$fffe
	blk.l	46,$01820000
	dc.w	$9a2d,$fffe
	blk.l	46,$01820000
	dc.w	$9b2d,$fffe
	blk.l	46,$01820000
	dc.w	$9c2d,$fffe
	blk.l	46,$01820000
	dc.w	$9d2d,$fffe
	blk.l	46,$01820000
	dc.w	$9e2d,$fffe
	blk.l	46,$01820000
	dc.w	$9f2d,$fffe
	blk.l	46,$01820000

; ***********************************************
;		a0-af
;  ***********************************************

	dc.w	$a02d,$fffe
	blk.l	46,$01820000
	dc.w	$a12d,$fffe
	blk.l	46,$01820000
	dc.w	$a22d,$fffe
	blk.l	46,$01820000
	dc.w	$a32d,$fffe
	blk.l	46,$01820000
	dc.w	$a42d,$fffe
	blk.l	46,$01820000
	dc.w	$a52d,$fffe
	blk.l	46,$01820000
	dc.w	$a62d,$fffe
	blk.l	46,$01820000
	dc.w	$a72d,$fffe
	blk.l	46,$01820000
	dc.w	$a82d,$fffe
	blk.l	46,$01820000
	dc.w	$a92d,$fffe
	blk.l	46,$01820000
	dc.w	$aa2d,$fffe
	blk.l	46,$01820000
	dc.w	$ab2d,$fffe
	blk.l	46,$01820000
	dc.w	$ac2d,$fffe
	blk.l	46,$01820000
	dc.w	$ad2d,$fffe
	blk.l	46,$01820000
	dc.w	$ae2d,$fffe
	blk.l	46,$01820000
	dc.w	$af2d,$fffe
	blk.l	46,$01820000

; ***********************************************
;		b0-bf
;  ***********************************************

	dc.w	$b02d,$fffe
	blk.l	46,$01820000
	dc.w	$b12d,$fffe
	blk.l	46,$01820000
	dc.w	$b22d,$fffe
	blk.l	46,$01820000
	dc.w	$b32d,$fffe
	blk.l	46,$01820000
	dc.w	$b42d,$fffe
	blk.l	46,$01820000
	dc.w	$b52d,$fffe
	blk.l	46,$01820000
	dc.w	$b62d,$fffe
	blk.l	46,$01820000
	dc.w	$b72d,$fffe
	blk.l	46,$01820000
	dc.w	$b82d,$fffe
	blk.l	46,$01820000
	dc.w	$b92d,$fffe
	blk.l	46,$01820000
	dc.w	$ba2d,$fffe
	blk.l	46,$01820000
	dc.w	$bb2d,$fffe
	blk.l	46,$01820000
	dc.w	$bc2d,$fffe
	blk.l	46,$01820000

; ***********************************************
;		$c0-$c8
;  ***********************************************

	dc.w	$0100,$0000
	dc.w	$0180,$0000
;****************************************************

	dc.w	$bd01,$ff00
	dc.w	$0180,$0001

	dc.w	$be01,$ff00
	dc.w	$0180,$0002
	
	dc.w	$bf01,$ff00
	dc.w	$0180,$0003

	dc.w	$c001,$ff00
	dc.w	$0180,$0004

	dc.w	$c101,$ff00
	dc.w	$0180,$005

	dc.w	$c201,$ff00
	dc.w	$0180,$006

	dc.w	$c301,$ff00
	dc.w	$0180,$0007

	dc.w	$c401,$ff00
	dc.w	$0180,$0009

	dc.w	$c501,$ff00
	dc.w	$0180,$000a

	dc.w	$c601,$ff00
	dc.w	$0180,$000b

	dc.w	$c701,$ff00
	dc.w	$0180,$000c

	dc.w	$c801,$ff00
	dc.w	$0180,$000d

	dc.w	$c901,$ff00
	dc.w	$0180,$000e

	dc.w	$ca01,$ff00
	dc.w	$0180,$000f

	dc.w	$cb01,$ff00
	dc.w	$0180,$000e

	dc.w	$cc01,$ff00
	dc.w	$0180,$000d

	dc.w	$cd01,$ff00
	dc.w	$0180,$000c

	dc.w	$ce01,$ff00
	dc.w	$0180,$000b

	dc.w	$cf01,$ff00
	dc.w	$0180,$000a

	dc.w	$d001,$ff00
	dc.w	$0180,$0009

	dc.w	$d101,$ff00
	dc.w	$0180,$0007

	dc.w	$d201,$ff00
	dc.w	$0180,$0006

	dc.w	$d301,$ff00
	dc.w	$0180,$0005

	dc.w	$d401,$ff00
	dc.w	$0180,$0004

	dc.w	$d501,$ff00
	dc.w	$0180,$0003

	dc.w	$d601,$ff00
	dc.w	$0180,$0002

	dc.w	$d701,$ff00
	dc.w	$0180,$0001
	
	dc.w	$d801,$ff00
	dc.w	$0180,$0000
	
	dc.w	$d901,$ff00
	dc.w	$0180,$000
	
	dc.w	$da01,$ff00
	dc.w	$0180,$000
	
	dc.w	$db01,$ff00
	dc.w	$0180,$000



	dc.w	$dc01,$ff00
	dc.w	$0100,$2000
	dc.w	$0180,$0000
	dc.w	$0182,$0f00
	dc.w	$0184,$0fff
	dc.w	$0186,$0fff
scrptr	dc.w	$00e0,$0000
	dc.w	$00e2,$0000

scrptr2	dc.w	$00e4,$0000
	dc.w	$00e6,$0000

	DC.W	$0180,$0000	; Color #0 = 000
	DC.W	$0182,$0fff	; Color #1 = 000

	dc.w	$0108,$0002
	dc.w	$010a,$0002


	dc.w	$dd01,$ff00
	dc.w	$0182,$0457

	dc.w	$de01,$ff00
	dc.w	$0182,$0568
	
	dc.w	$df01,$ff00
	dc.w	$0182,$0679

	dc.w	$e001,$ff00
	dc.w	$0182,$0689

	dc.w	$e101,$ff00
	dc.w	$0182,$0789

	dc.w	$e201,$ff00
	dc.w	$0182,$089a

	dc.w	$e301,$ff00
	dc.w	$0182,$09ab

	dc.w	$e401,$ff00
	dc.w	$0182,$0abc

	dc.w	$e501,$ff00
	dc.w	$0182,$0bcd

	dc.w	$e601,$ff00
	dc.w	$0182,$0cde

	dc.w	$e701,$ff00
	dc.w	$0182,$0def

	dc.w	$e801,$ff00
	dc.w	$0182,$0eff

	dc.w	$e901,$ff00
	dc.w	$0182,$0fff

	dc.w	$ea01,$ff00
	dc.w	$0182,$0fff

	dc.w	$eb01,$ff00
	dc.w	$0182,$0422

	dc.w	$ec01,$ff00
	dc.w	$0182,$0422

	dc.w	$ed01,$ff00
	dc.w	$0182,$0533

	dc.w	$ee01,$ff00
	dc.w	$0182,$0644
	
	dc.w	$ef01,$ff00
	dc.w	$0182,$0755

	dc.w	$f001,$ff