;LES Debugger v1.21 Test program;Testing copper disassembly;AGA colour split routine;Don't look at the code here - just compile and run it, then look around;the copper window in the debugger - lot easier to follow than the blitz;stuff here :);Some hardware register values for our use#bplmod1=$108#bplmod2=$10a#bplcon3=$106#color00=$180#color01=$182#color02=$184#color03=$186;Our copper listǂ 0,44,256,$10004,8,16,7*200 ; 7 instructions on 200 lines 0,320,256,4DŽ 0,0offset.w=44ad.l=.l( ǁ(0)+28) ; Get the custom area address;Top half of the display h.w=0  99 .w ad,((h+offset) | 8)+1 ; Wait! .w ad+2,$fffe ad+4 .w ad,#bplcon3 ; High nibbles .w ad+2,$0c00 ad+4 n.w=((h*2) B $f0) E 4 vl.w=n ; Colour values vl=(vl D 4)+n vl=(vl D 4)+n .w ad,#color00 .w ad+2,vl ad+4 .w ad,#color01 .w ad+2,(vl B $f00) ad+4 .w ad,#bplcon3 ; Low nibbles .w ad+2,$0e00 ad+4 n=((h*2) B $f) vl.w=n ; Colour values vl=(vl D 4)+n vl=(vl D 4)+n .w ad,#color00 .w ad+2,vl ad+4 .w ad,#color01 .w ad+2,(vl B $f00) ad+4 h;Bottom half of the display h.w=99  0  -1 .w ad,((offset+198-h) | 8)+1 ; Wait! .w ad+2,$fffe ad+4 .w ad,#bplcon3 ; High nibbles .w ad+2,$0c00 ad+4 n.w=((h*2) B $f0) E 4 vl.w=n ; Colour values vl=(vl D 4)+n vl=(vl D 4)+n .w ad,#color00 .w ad+2,vl ad+4 .w ad,#color01 .w ad+2,(vl B $f) ad+4 .w ad,#bplcon3 ; Low nibbles .w ad+2,$0e00 ad+4 n=((h*2) B $f) vl.w=n ; Colour values vl=(vl D 4)+n vl=(vl D 4)+n .w ad,#color00 .w ad+2,vl ad+4 .w ad,#color01 .w ad+2,(vl B $f) ad+4 h;Open the copper trace window at the custom area of copper list 0 ǁ(0),28;Stop the program to let you look at the window-;Step the following commands to create and view the nice display :)4ǃ 0;Draw some cute polygons 3,?coords,1 3,?coords2,1;Just wait for you to quit coords: %.w 0,0,319,0,159,99 ; Polygon coordinatescoords2:%.w 0,199,159,99,319,199