ùúùú                                        



 		section	code,code_c	; he he he
Start:
		movem.l	d0-a6,-(a7)
		move.w	intenar+base,intBackup
		move	#%0111111111111111,intena+base
		move	#%0111111111111111,dmacon+base
		move.l	$6c,geminter
		move.l	#newint,$6c
		move	#%1100000000100000,intena+base
		move	#%1000011111000000,dmacon+base
	

		jsr	select_text
		Jsr	ScanIT

Loop:		cmpi.b	#$ff,$dff006
		bne.b	loop

		moveq	#$00,d0
		moveq	#$00,d1	
		move.w	way,d0		; way ?
		cmp	#0,d0		; 0 = add
		beq	.ad
		sub.w	#16,zoo		; no sub	
		cmp	#50,zoo		; zero ?
		bgt	.dom		; no greater!
		move.w	#0,way		; Yes zero, other way now
		
		Jsr	ClrGrab		; Clear Grab Buffer & cordS
		jsr	Select_text	; plot text
		Jsr	ScanIT		; new scan
		bra	.dom		; done move
			
.ad
		add.w	#16,zoo	
		cmp	#9000,zoo
		blt	.dom
		move.w	#1,way
.dom				; done move
	

		btst	#6,$bfe001
		bne.b	loop
 
		move.w	dmaBackup(pc),d0
		or.w	#$8000,d0
		move	d0,dmacon+base

		move	#%0111111111111111,intena+base
		move.l	geminter(pc),$6c
		move.w	intBackup(pc),d0
		or.w	#$8000,d0
		move	d0,intena+base

		movem.l	(a7)+,d0-a6
		move.w	save,d3
		rts
zoo:		dc.w	0
way		dc.w	0
***** INTERRUPT ***************************************************************
Newint:		movem.l	d0-a6,-(a7)
		move.w	intreqr+base,d0
		btst	#5,d0
		beq.b	slutpogr

		lea	copper,a0
		move.l	a0,cop2lch+base
		tst	copjmp2+base
			
		btst	#10,$dff016
		beq.b	.pau


		bsr.w	Zooming
		move.w	#$0301,$dff180
		bsr.w	DobbeltBuffer
.pau
SlutPogr:	movem.l	(a7)+,d0-a6
		move.w	#%0000000000100000,intreq+base
		rte
intbackup	dc.l	0
dmabackup	dc.l	0
geminter	dc.l	0

**** CLEAR GRAB BUFFER & CORDINATES ****
ClrGrab:
	Lea	Cords,a0
	move.w	#[320*3]-1,d7
.co	move.w	#$00,(a0)+
	dbf	d7,.co

	Lea	grab,a0
	move.w	#[40*30]-1,d7
.gr	move.b	#$00,(a0)+
	dbf	d7,.gr
	
	Rts

SCANIT:
	Lea	grab,a0
	Lea	Cords,a1
	Move.w	#[36*320]-1,d7		;
	MOVE.W	#$0,XSCAN
	MOVE.W	#$0,YSCAN
	
	moveq	#$00,d3
.Loop
		

		Lea	grab,a0
		moveq	#$00,d0
		moveq	#$00,d1	

		Move.w	Xscan,d0
		move.w 	d0,d1		
		lsr.w 	#3,d1		
		add 	d1,a0		
		lsl.w	#3,d1		
		sub 	d1,d0		
		move 	Yscan,d1		
		mulu 	#40,d1		
		add 	d1,a0		
		moveq 	#7,d1		
		sub 	d0,d1		 	
		btst	d1,(a0)	
		beq.b	.nope


		moveq	#$00,d4
		move.w	xscan,d4
		muls	#2,d4
		sub.w	#78,d4
		Move.w	d4,(a1)+
		move.w	d4,d5

		moveq	#$00,d4
		move.w	yscan,d4
		muls	#3,d4
		sub.w	#15,d4
		move.w	d4,(a1)+

		move.w	#300,(a1)+	; Z (not used

		add.w	#1,d3		; safety of WRITTEN plots
		
.nope
	Add.w	#1,xscan
	cmp	#320,xscan
	blt.b	.noendX
	move.w	#$00,Xscan
	Add.w	#1,yScan
.noendX
	move.w	d3,save
	
	cmp	#320,d3
	bgt.b	.gawn	

	dbf	d7,.loop
.gawn				
	Rts	
Xscan:	dc.w	0
Yscan	dc.w	0
save	dc.w	0


***** DOBBELTBUFFERING ********************************************************

DobbeltBuffer:


	Move.l	Showscr,d0
	Move.l	workscr1,Showscr
	Move.l	Workscr2,workscr1
	Move.l	Workscr3,workscr2
	move.l	d0,workscr3
	
	Move.l	Showscr,d0
	move	d0,bplptr1+6
	swap	d0
	move	d0,bplptr1+2

	Move.l	workscr2,d0
	move	d0,bplptr2+6
	swap	d0
	move	d0,bplptr2+2

	Move.l	workscr3,d0
	move	d0,bplptr3+6
	swap	d0
	move	d0,bplptr3+2



		rts

WorkScr1:	dc.l	Screen1			; The REAL workscreen
Workscr2:	dc.l	Screen2
Workscr3:	dc.l	Screen3
ShowScr:	dc.l	Screen4

*******************************************************************************

Zooming:	
; Clear workscreen
		lea	base,a0
		move.l	workscr1(pc),a1
		move.l	a1,bltdpth(a0)
		move.w	#0,bltdmod(a0)
		move.w	#$0900,bltcon0(a0)
		move.w	#0,bltcon1(a0)
		move.w	#256<<6+20,bltsize(a0)

		bsr.b	Magni
		bsr.w	Drawdot
		
		rts

***** ROTATE ******************************************************************
Magni:	

		lea	cosinus(pc),a0
		lea	sinus(pc),a1
		lea	Cords(pc),a2
		lea	CordsR(pc),a3

TRANS:		move	(a2)+,d1
		move	(a2)+,d2
		move	(a2)+,d3

		cmp	#$1111,d1	;Test if end
		beq.b	stoprot
		

		move.w	zoo,d3			; zoom & perspectiv

		muls	d3,d1
		muls	d3,d2
		divs	#2790,d1
		divs	#2790,d2
		add.w	#160,d1
		add	#145,d2
		move	d1,(a3)+
		move	d2,(a3)+
		bra.w	Trans
Stoprot:	rts

***** DOTDRAW *****************************************************************
Drawdot:	lea	cordsR(pc),a0
nextdot:	
		move.l	workscr1,a1		

		Move.w	(a0)+,d0
		cmp	#$1111,d0
		beq.b	enddots

		cmp	#310,d0
		bgt	.faraway
		cmp	#0,d0
		blt	.faraway

;		add.l	#2,a0



		move.w 	d0,d1		
		lsr 	#3,d1		
		add 	d1,a1		
		lsl	#3,d1		
		sub 	d1,d0		
		move 	(a0),d1		

		cmp	#255,d1
		bgt.b	.farAway
;		add.l	#2,a0

		mulu 	#40,d1		
		add 	d1,a1		
		moveq 	#7,d1		
		sub 	d0,d1		 	
		bset	d1,(a1)	
		********/****
;;		add.w	#[1*40],a1
;		bset	d1,(a1)
.farAway
		add.l	#2,a0
		bra.b	nextdot
enddots:	rts
********************** WRITER 4 ZOOMER *********************************
SELECT_TEXT:
	Lea	Tunetext(PC),a2
	Lea	grab,a1		; Destination
	ADD.w	TEXTPTR,A2
	Move.w	#9,d6
TEXTLOOP:
	Lea	font,a0			; Font
	Moveq	#$00,D3
	Move.b 	(a2)+,d3			; D3=CHAR
	CMP	#0,D3
	BEQ.B	.FINISHED

	CMP	#255,D3
	BEQ.B	.NOTEND
	SUB.W	#32,D3
	ADD.W	D3,A0

.DrwIt	
* DRAW CHAR *
	Move.W	#9,D7

	
.REP	Move.B	(A0),(A1)
	ADD.W	#64,A0
	ADD.W	#40,A1
	DBF	D7,.REP
	ADD.W	#1,A0
	SUB.W	#400-1,A1
.NOTEND
	
.GOON
	CMP.b	#255,D3
	BNE.B	.GOON2
	ADD.W	#[9*40],A1
.GOON2
	dbf	d6,Textloop
.FINISHED
	ADD.W	#10,TEXTPTR
	CMP	#70,TEXTPTR		; strings|
	BLT	.NORESET
	MOVE.W	#$00,TEXTPTR
.NORESET
	rts


;NOTE Æ=91  Ø=92   Å=93

TUNETEXT
        ;       '----------'
	dc.b	'   IRIS   '
	dc.b	' PRESENTS '
	dc.b	'  THEIR   '
	DC.B	'MUSICDISK '
	DC.B	' ENTITLED '
	DC.B	'ALIENLIKE?'
	DC.B	'$$$$$$$$$$'
	even
	blk.w	100,32
 	even
TEXTPTR	DC.W	$0

*/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\*




;------------------------------------------------------------------------------

Lowx:		dc.w	0
Lowy:		dc.w	0
Highy:		dc.w	0
Highx:		dc.w	0
***** TABELLER ****************************************************************

CoSinus:	* 512 

	dc.w	1024,1024,1024,1023,1023,1022,1021,1020
	dc.w	1019,1018,1016,1015,1013,1011,1009,1007
	dc.w	1004,1002,999,996,993,990,987,983
	dc.w	980,976,972,968,964,960,955,951
	dc.w	946,941,936,931,926,920,915,909
	dc.w	903,897,891,885,878,872,865,858
	dc.w	851,844,837,830,822,815,807,799
	dc.w	792,784,775,767,759,750,742,733
	dc.w	724,715,706,697,688,678,669,659
	dc.w	650,640,630,620,610,600,590,579
	dc.w	569,558,548,537,526,516,505,494
	dc.w	483,472,460,449,438,426,415,403
	dc.w	392,380,369,357,345,333,321,309
	dc.w	297,285,273,261,249,237,224,212
	dc.w	200,187,175,163,150,138,125,113
	dc.w	100,88,75,63,50,38,25,13
	dc.w	0,-12,-24,-37,-49,-62,-74,-87
	dc.w	-99,-112,-124,-137,-149,-162,-174,-186
	dc.w	-199,-211,-223,-236,-248,-260,-272,-284
	dc.w	-296,-308,-320,-332,-344,-356,-368,-379
	dc.w	-391,-402,-414,-425,-437,-448,-459,-471
	dc.w	-482,-493,-504,-515,-525,-536,-547,-557
	dc.w	-568,-578,-589,-599,-609,-619,-629,-639
	dc.w	-649,-658,-668,-677,-687,-696,-705,-714
	dc.w	-723,-732,-741,-749,-758,-766,-774,-783
	dc.w	-791,-798,-806,-814,-821,-829,-836,-843
	dc.w	-850,-857,-864,-871,-877,-884,-890,-896
	dc.w	-902,-908,-914,-919,-925,-930,-935,-940
	dc.w	-945,-950,-954,-959,-963,-967,-971,-975
	dc.w	-979,-982,-986,-989,-992,-995,-998,-1001
	dc.w	-1003,-1006,-1008,-1010,-1012,-1014,-1015,-1017
	dc.w	-1018,-1019,-1020,-1021,-1022,-1022,-1023,-1023
	dc.w	-1023,-1023,-1023,-1022,-1022,-1021,-1020,-1019
	dc.w	-1018,-1017,-1015,-1014,-1012,-1010,-1008,-1006
	dc.w	-1003,-1001,-998,-995,-992,-989,-986,-982
	dc.w	-979,-975,-971,-967,-963,-959,-954,-950
	dc.w	-945,-940,-935,-930,-925,-919,-914,-908
	dc.w	-902,-896,-890,-884,-877,-871,-864,-857
	dc.w	-850,-843,-836,-829,-821,-814,-806,-798
	dc.w	-791,-783,-774,-766,-758,-749,-741,-732
	dc.w	-723,-714,-705,-696,-687,-677,-668,-658
	dc.w	-649,-639,-629,-619,-609,-599,-589,-578
	dc.w	-568,-557,-547,-536,-525,-515,-504,-493
	dc.w	-482,-471,-459,-448,-437,-425,-414,-402
	dc.w	-391,-379,-368,-356,-344,-332,-320,-308
	dc.w	-296,-284,-272,-260,-248,-236,-223,-211
	dc.w	-199,-186,-174,-162,-149,-137,-124,-112
	dc.w	-99,-87,-74,-62,-49,-37,-24,-12
	dc.w	0,13,25,38,50,63,75,88
	dc.w	100,113,125,138,150,163,175,187
	dc.w	200,212,224,237,249,261,273,285
	dc.w	297,309,321,333,345,357,369,380
	dc.w	392,403,415,426,438,449,460,472
	dc.w	483,494,505,516,526,537,548,558
	dc.w	569,579,590,600,610,620,630,640
	dc.w	650,659,669,678,688,697,706,715
	dc.w	724,733,742,750,759,767,775,784
	dc.w	792,799,807,815,822,830,837,844
	dc.w	851,858,865,872,878,885,891,897
	dc.w	903,909,915,920,926,931,936,941
	dc.w	946,951,955,960,964,968,972,976
	dc.w	980,983,987,990,993,996,999,1002
	dc.w	1004,1007,1009,1011,1013,1015,1016,1018
	dc.w	1019,1020,1021,1022,1023,1023,1024,1024


Sinus:	* 512 *
	dc.w	0,13,25,38,50,63,75,88
	dc.w	100,113,125,138,150,163,175,187
	dc.w	200,212,224,237,249,261,273,285
	dc.w	297,309,321,333,345,357,369,380
	dc.w	392,403,415,426,438,449,460,472
	dc.w	483,494,505,516,526,537,548,558
	dc.w	569,579,590,600,610,620,630,640
	dc.w	650,659,669,678,688,697,706,715
	dc.w	724,733,742,750,759,767,775,784
	dc.w	792,799,807,815,822,830,837,844
	dc.w	851,858,865,872,878,885,891,897
	dc.w	903,909,915,920,926,931,936,941
	dc.w	946,951,955,960,964,968,972,976
	dc.w	980,983,987,990,993,996,999,1002
	dc.w	1004,1007,1009,1011,1013,1015,1016,1018
	dc.w	1019,1020,1021,1022,1023,1023,1024,1024
	dc.w	1024,1024,1024,1023,1023,1022,1021,1020
	dc.w	1019,1018,1016,1015,1013,1011,1009,1007
	dc.w	1004,1002,999,996,993,990,987,983
	dc.w	980,976,972,968,964,960,955,951
	dc.w	946,941,936,931,926,920,915,909
	dc.w	903,897,891,885,878,872,865,858
	dc.w	851,844,837,830,822,815,807,799
	dc.w	792,784,775,767,759,750,742,733
	dc.w	724,715,706,697,688,678,669,659
	dc.w	650,640,630,620,610,600,590,579
	dc.w	569,558,548,537,526,516,505,494
	dc.w	483,472,460,449,438,426,415,403
	dc.w	392,380,369,357,345,333,321,309
	dc.w	297,285,273,261,249,237,224,212
	dc.w	200,187,175,163,150,138,125,113
	dc.w	100,88,75,63,50,38,25,13
	dc.w	0,-12,-24,-37,-49,-62,-74,-87
	dc.w	-99,-112,-124,-137,-149,-162,-174,-186
	dc.w	-199,-211,-223,-236,-248,-260,-272,-284
	dc.w	-296,-308,-320,-332,-344,-356,-368,-379
	dc.w	-391,-402,-414,-425,-437,-448,-459,-471
	dc.w	-482,-493,-504,-515,-525,-536,-547,-557
	dc.w	-568,-578,-589,-599,-609,-619,-629,-639
	dc.w	-649,-658,-668,-677,-687,-696,-705,-714
	dc.w	-723,-732,-741,-749,-758,-766,-774,-783
	dc.w	-791,-798,-806,-814,-821,-829,-836,-843
	dc.w	-850,-857,-864,-871,-877,-884,-890,-896
	dc.w	-902,-908,-914,-919,-925,-930,-935,-940
	dc.w	-945,-950,-954,-959,-963,-967,-971,-975
	dc.w	-979,-982,-986,-989,-992,-995,-998,-1001
	dc.w	-1003,-1006,-1008,-1010,-1012,-1014,-1015,-1017
	dc.w	-1018,-1019,-1020,-1021,-1022,-1022,-1023,-1023
	dc.w	-1023,-1023,-1023,-1022,-1022,-1021,-1020,-1019
	dc.w	-1018,-1017,-1015,-1014,-1012,-1010,-1008,-1006
	dc.w	-1003,-1001,-998,-995,-992,-989,-986,-982
	dc.w	-979,-975,-971,-967,-963,-959,-954,-950
	dc.w	-945,-940,-935,-930,-925,-919,-914,-908
	dc.w	-902,-896,-890,-884,-877,-871,-864,-857
	dc.w	-850,-843,-836,-829,-821,-814,-806,-798
	dc.w	-791,-783,-774,-766,-758,-749,-741,-732
	dc.w	-723,-714,-705,-696,-687,-677,-668,-658
	dc.w	-649,-639,-629,-619,-609,-599,-589,-578
	dc.w	-568,-557,-547,-536,-525,-515,-504,-493
	dc.w	-482,-471,-459,-448,-437,-425,-414,-402
	dc.w	-391,-379,-368,-356,-344,-332,-320,-308
	dc.w	-296,-284,-272,-260,-248,-236,-223,-211
	dc.w	-199,-186,-174,-162,-149,-137,-124,-112
	dc.w	-99,-87,-74,-62,-49,-37,-24,-12

Cords:

		ds.w	320*3			; 320 plots 


		dc.w	$1111			; No more Plots

	
CordsR:		blk.b	[[cordsR-cords-2]*2/3]
		even
		dc.w	$1111


***** COPPER ******************************************************************
	even

		section	data,data_C

Copper:
		dc.w	$0180,$0000
		dc.w	$0182,$0fff		;1	!
		dc.w	$0184,$0fff		;2	!
		dc.w	$0188,$0fff		;3	!	
		dc.w	$0186,$0fff		;1+2
		dc.w	$018a,$0fff		;3+1
		dc.w	$018c,$0fff		;3+2
		dc.w	$018e,$0fff		;3+2+1


		dc.w	$0100,$3200
		dc.w	$0102,$00000
		dc.w	$0104,$0000
BplPtr1:	dc.w	$00e0,0,$00e2,0
BplPtr2:	dc.w	$00e4,0,$00e6,0
BplPtr3:	dc.w	$00e8,0,$00ea,0

		dc.w	$008e,$2c81,$0090,$24c1
		dc.w	$0092,$0038,$0094,$00d0
		dc.w	$00108,$0,$010a,$0
		dc.w	-2

FONT:		Incbin	net:Progs/Iris/IrisRAW/zoom!512x10.raw	; FONT
Screen1:	blk.b	40*256,$0000
Screen2:	blk.b	40*256,$0000
Screen3:	blk.b	40*256,$0000
Screen4:	blk.b	40*256,$0000
GRAB		ds.b	40*40
*****************
*CUSTOM OFFSETS *
*****************
BLTDDAT = $000
DMACONR = $002
VPOSR   = $004
VHPOSR  = $006
DSKDATR = $008
JOY0DAT = $00A
JOY1DAT = $00C
CLXDAT  = $00E
ADKCONR = $010
POT0DAT = $012
POT1DAT = $014
POTGOR  = $016
POTINP  = $016
SERDATR = $018
DSKBYTR = $01A
INTENAR = $01C
INTREQR = $01E
DSKPTH  = $020
DSKPTL  = $022
DSKLEN  = $024
DSKDAT  = $026
REFPTR  = $028
VPOSW   = $02A
VHPOSW  = $02C
COPCON  = $02E
SERDAT  = $030
SERPER  = $032
POTGO   = $034
JOYTEST = $036
STREQU  = $038
STRVBL  = $03A
STRHOR  = $03C
STRLONG = $03E
BLTCON0 = $040
BLTCON1 = $042
BLTAFWM = $044
BLTALWM = $046
BLTCPTH = $048
BLTCPTL = $04A
BLTBPTH = $04C
BLTBPTL = $04E
BLTAPTH = $050
BLTAPTL = $052
BLTDPTH = $054
BLTDPTL = $056
BLTSIZE = $058
BLTCMOD = $060
BLTBMOD = $062
BLTAMOD = $064
BLTDMOD = $066
BLTCDAT = $070
BLTBDAT = $072
BLTADAT = $074
DSKSYNC = $07E
COP1LCH = $080
COP1LCL = $082
COP2LCH = $084
COP2LCL = $086
COPJMP1 = $088
COPJMP2 = $08A
COPINS  = $08C
DIWSTRT = $08E
DIWSTOP = $090
DDFSTRT = $092
DDFSTOP = $094
DMACON  = $096
CLXCON  = $98
INTENA  = $09A
INTREQ  = $09C
ADKCON  = $09E
AUD0DAT = $0AA
AUD1DAT = $0BA
AUD2DAT = $0CA
AUD3DAT = $0DA
AUD0LCH = $0A0
AUD1LCH = $0B0
AUD2LCH = $0C0
AUD3LCH = $0D0
AUD0LEN = $0A4
AUD1LEN = $0B4
AUD2LEN = $0C4
AUD3LEN = $0D4
AUD0PER = $0A6
AUD1PER = $0B6
AUD2PER = $0C6
AUD3PER = $0D6
AUD0VOL = $0A8
AUD1VOL = $0B8
AUD2VOL = $0C8
AUD3VOL = $0D8
AUD0LCL = $0A2
AUD1LCL = $0B2
AUD2LCL = $0C2
AUD3LCL = $0D2
BPL1PTH = $0E0
BPL1PTL = $0E2
BPL2PTH = $0E4
BPL2PTL = $0E6
BPL3PTH = $0E8
BPL3PTL = $0EA
BPL4PTH = $0EC
BPL4PTL = $0EE
BPL5PTH = $0F0
BPL5PTL = $0F2
BPL6PTH = $0F4
BPL6PTL = $0F6
BPLCON0 = $100
BPLCON1 = $102
BPLCON2 = $104
BPL1MOD = $108
BPL2MOD = $10A
BPL1DAT = $110
BPL2DAT = $112
BPL3DAT = $114
BPL4DAT = $116
BPL5DAT = $118
BPL6DAT = $11A
SPR0PTH = $120
SPR0PTL = $122
SPR1PTH = $124
SPR1PTL = $126
SPR2PTH = $128
SPR2PTL = $12A
SPR3PTH = $12C
SPR3PTL = $12E
SPR4PTH = $130
SPR4PTL = $132
SPR5PTH = $134
SPR5PTL = $136
SPR6PTH = $138
SPR6PTL = $13A
SPR7PTH = $13C
SPR7PTL = $13E
SPR0POS = $140
SPR0CTL = $142
SPR0DATA= $144
SPR0DATB= $146
SPR1POS = $148
SPR1CTL = $14A
SPR1DATA= $14C
SPR1DATB= $14E
SPR2POS = $150
SPR2CTL = $152
SPR2DATA= $154
SPR2DATB= $156
SPR3POS = $158
SPR3CTL = $15A
SPR3DATA= $15C
SPR3DATB= $15E
SPR4POS = $160
SPR4CTL = $162
SPR4DATA= $164
SPR4DATB= $166
SPR5POS = $168
SPR5CTL = $16A
SPR5DATA= $16C
SPR5DATB= $16E
SPR6POS = $170
SPR6CTL = $172
SPR6DATA= $174
SPR6DATB= $176
SPR7POS = $178
SPR7CTL = $17A
SPR7DATA= $17C
SPR7DATB= $17E
COLOR00 = $180
COLOR01 = $182
COLOR02 = $184
COLOR03 = $186
COLOR04 = $188
COLOR05 = $18A
COLOR06 = $18C
COLOR07 = $18E
COLOR08 = $190
COLOR09 = $192
COLOR10 = $194
COLOR11 = $196
COLOR12 = $198
COLOR13 = $19A
COLOR14 = $19C
COLOR15 = $19E
COLOR16 = $1A0
COLOR17 = $1A2
COLOR18 = $1A4
COLOR19 = $1A6
COLOR20 = $1A8
COLOR21 = $1AA
COLOR22 = $1AC
COLOR23 = $1AE
COLOR24 = $1B0
COLOR25 = $1B2
COLOR26 = $1B4
COLOR27 = $1B6
COLOR28 = $1B8
COLOR29 = $1BA
COLOR30 = $1BC
COLOR31 = $1BE

IrqBase0= 24*4	;uberettiget interrupt
IrqBase1= 25*4
IrqBase2= 26*4
IrqBase3= 27*4
IrqBase4= 28*4
IrqBase5= 29*4
IrqBase6= 30*4
IrqBase7= 31*4
Trap0   = 32*4
Trap1   = 33*4
Trap2   = 34*4
Trap3   = 35*4
Trap4   = 36*4
Trap5   = 37*4
Trap6   = 38*4
Trap7   = 39*4
Trap8   = 40*4
Trap9   = 41*4
Trap10  = 42*4
Trap11  = 43*4
Trap12  = 44*4
Trap13  = 45*4
Trap14  = 46*4
Trap15  = 47*4

Base=$DFF000

*******************************************************************************
* END *




*******************************************************************************
