>EXTERN "ARBRE1.LO3",ECRAN1
>EXTERN "ARBRE2.LO3",ECRAN2
>EXTERN "ARBRE3.LO3",ECRAN3
>EXTERN "ARBRE1.LO3",ECRAN4

ORG $25000
LOAD $25000

BEGIN:
JMP START
;=====================================================================
EXECBASE=4
OPENLIBRARY=-408
CLOSELIBRARY=-414
SUPERSTATE=-150
USERSTATE=-156	
FORBID=-132
PERMIT=-138
ADDINTSERVER=-168
REMINTSERVER=-174
Open=-30
Close=-36
Read=-42

;=====================================================================
BLTCON0=$DFF040
BLTCON1=$DFF042
BLTAFWM=$DFF044
BLTALWM=$DFF046
BLTCPTH=$DFF048
BLTCPTL=$DFF04A
BLTBPTH=$DFF04C
BLTBPTL=$DFF04E
BLTAPTH=$DFF050
BLTAPTL=$DFF052
BLTDPTH=$DFF054
BLTDPTL=$DFF056
BLTSIZE=$DFF058
BLTCMOD=$DFF060
BLTBMOD=$DFF062
BLTAMOD=$DFF064
BLTDMOD=$DFF066
BLTCDAT=$DFF070
BLTBDAT=$DFF072
BLTADAT=$DFF074
DMACONR=$DFF002
;=====================================================================
ECRAN1=$30000
ECRAN2=ECRAN1+[40*256*3]
ECRAN3=ECRAN2+[40*256*3]
ECRAN4=ECRAN3+[40*256*3]

BIG=ECRAN4+[40*256*3]

FINBIG=BIG+[40*256*3*4]
;==================

START:    
MOVEM.L D0-D7/A0-A6,-(A7)
MOVE.L EXECBASE,A6
JSR FORBID(A6)    
BSR.L OPENLIB  

BSR CONVERT

BSR.L SETCOPPER

WAIT:

BTST	#6,$BFE001
BNE.S	WAIT
 
END: 
BSR.L CLRCOPPER       
BSR.L CLOSELIB        
MOVE.L EXECBASE,A6
JSR PERMIT(A6)      
MOVE.L EXECBASE,A6	                             
MOVEM.L (A7)+,D0-D7/A0-A6
RTS
;========================
OPENLIB:  
move.l execbase,a6      
lea gfxname,a1
move.l #$0,d0           
jsr openlibrary(a6)
tst d0
beq.L error
move.l d0,gfxbase       
add.l #$32,d0
move.l d0,coppertr      
rts
even
gfxname: dc.b 'graphics.library',0
even
gfxbase: dc.l 0
coppertr: dc.l 0
;====================
CLOSELIB: 
move.l execbase,a6      
move.l gfxbase,a1
jsr closelibrary(a6)
rts
;====================
ERROR:
illegal
rts
;====================
SETCOPPER:
move.l coppertr,a0
move.l (a0),oldcopper
move.l #newcopper,(a0)
move.w #$81c0+%0000010000000000,$dff096
rts		
oldcopper: dc.l 0
;====================
CLRCOPPER:
move.l coppertr,a0
move.l oldcopper,(a0)
move.w #$80a0,$dff096
rts
;====================
CONVERT:
LEA ECRAN1,A1
LEA ECRAN2,A2
LEA ECRAN3,A3
LEA ECRAN4,A4

LEA BIG,A0

MOVE.W #[256*3]-1,D1
CP2:
MOVE.W #20-1,D0
CP1:
MOVE.W (A1),00(A0)
MOVE.W (A2),40(A0)
MOVE.W (A3),80(A0)
MOVE.W (A4),120(A0)

ADD.W #2,A1
ADD.W #2,A2
ADD.W #2,A3
ADD.W #2,A4

add.w #2,a0
DBF D0,CP1

add.L #3*40,a0

DBF D1,CP2

RTS
;============
EVEN
NEWCOPPER:   
DC.W $008E,$2881,$0090,$28C1
DC.W $0092,$0038
DC.W $0094,$00D0
DC.W $100,0
DC.W $104,0
DC.W $102,0

DC.W	$120,0,$122,0

dc.w	$0180,$0678 ,$0182,$0462 ,$0184,$0351 ,$0186,$0240
dc.w	$0188,$0130 ,$018a,$0553 ,$018c,$0442 ,$018e,$0331

DC.W $102,0
DC.W $2901,$FFFE,$100,$3200
 
DC.W $108,40*3,$10A,40*3

dc.w $102
delay: dc.w 0

DC.W $00E0,BIG+[40*4*256*0]/65536	
DC.W $00E2,BIG+[40*4*256*0] & 65535 
DC.W $00E4,BIG+[40*4*256*1]/65536	
DC.W $00E6,BIG+[40*4*256*1] & 65535
DC.W $00E8,BIG+[40*4*256*2]/65536	
DC.W $00EA,BIG+[40*4*256*2] & 65535

DC.W $2901+[$100*199],$FFFE,$100,0

dc.w $ffDF,$fffe

DC.L $FFFFFFFE 
even