; Format of copperlist:

COPSCRNBUFF:
 dc.l 0

;104*80 lots of $1fe0000 initially.

;$106,$c42
;$80
;pch: 0
;$82
;pcl: 0
;
;$88,$0
;
;Length= (104*80*4)+16

INITCOPPERSCRN:
; Get Screen memory

; move.l #2,d1
; move.l #(104*80*4)+16,d0
; move.l 4.w,a6
; jsr -198(a6)
; move.l d0,COPSCRN1
 
; move.l #2,d1
; move.l #(104*80*4)+16,d0
; move.l 4.w,a6
; jsr -198(a6)
; move.l d0,COPSCRN2

; move.l #1,d1
; move.l #(104*80*4)+16,d0
; move.l 4.w,a6
; jsr -198(a6)
; move.l d0,COPSCRNBUFF
 
; move.l COPSCRN1,a1
; move.l COPSCRN2,a2
 
; move.w #(104*80)-1,d0
; move.l #$1fe0000,d1
;clrcop:
; move.l d1,(a1)+
; move.l d1,(a2)+
; dbra d0,clrcop
 
; add.l #104*4*80,a1
; add.l #104*4*80,a2
; move.l #$1060c42,(a1)+
; move.l #$1060c42,(a2)+
; move.w #$80,(a1)+
; move.w #$80,(a2)+
;
; move.l #PanelCop,d0
; swap d0
; move.w d0,(a1)+
; move.w d0,(a2)+
; move.w #$82,(a1)+
; move.w #$82,(a2)+
; swap d0
; move.w d0,(a1)+
; move.w d0,(a2)+
; move.l #$880000,(a1)+
; move.l #$880000,(a2)+
; clr.b BIGsmall
; jsr putinsmallscr
 rts