From 7653b91d600e66a2be47b96a00c4e4530f8d4c70 Mon Sep 17 00:00:00 2001
From: alpine9000 <alex.g.brown@gmail.com>
Date: Sat, 16 Apr 2016 12:24:51 +1000
Subject: [PATCH] scoreboard panel

---
 028.game2/Makefile                     |  16 +++----
 028.game2/assets/foregroundTilemap.png | Bin 0 -> 5008 bytes
 028.game2/assets/panel.png             | Bin 0 -> 915 bytes
 028.game2/game1.s                      |  58 +++++++++++++++++++++----
 028.game2/image.s                      |  18 ++++++++
 028.game2/init.s                       |  10 ++---
 028.game2/tilemap-copper-list.s        |  25 +++++++++++
 7 files changed, 105 insertions(+), 22 deletions(-)
 create mode 100644 028.game2/assets/foregroundTilemap.png
 create mode 100644 028.game2/assets/panel.png
 create mode 100644 028.game2/tilemap-copper-list.s

diff --git a/028.game2/Makefile b/028.game2/Makefile
index f5e1fa6..6b49486 100644
--- a/028.game2/Makefile
+++ b/028.game2/Makefile
@@ -11,12 +11,8 @@ NUM_COLORS=8
 BOOTBLOCK_ASM=alpine_bootblock.s
 OBJS=out/init.o out/utils.o out/image.o out/blit.o out/joystick.o
 
-#IMAGES=gigi_full.png
-#IMAGEDATA=$(addprefix out/, $(IMAGES:.png=.bin))
-#SIZEDIMAGEDATA=$(addprefix out/, $(IMAGES:.png=.sized.png))
-
-TILEMAPS=foreground.png background.png
-TILEMAPDATA=$(addprefix out/, $(TILEMAPS:.png=.bin))
+IMAGES=foreground.png background.png panel.png
+IMAGEDATA=$(addprefix out/, $(IMAGES:.png=.bin))
 
 VASM_EXTRA_ARGS=-DNUM_COLORS=$(NUM_COLORS)
 
@@ -39,7 +35,11 @@ out/background.bin: assets/tilemap.png
 	$(IMAGECON) --use-palette=assets/background.pal --input $< $(IMAGECON_ARGS) --colors $(NUM_COLORS) --output-bitplanes  --output-palette --full-color-palette-file --output-palette-asm --output-grey-palette --output-palette --output-png --output out/background
 
 out/tilemap-palette.s: assets/tilemap.png
-	$(IMAGECON) --use-palette=assets/palette.pal --full-color-palette-file --input=assets/tilemap.png --output-palette-asm --output=out/tilemap
+	$(IMAGECON) --use-palette=assets/palette.pal --full-color-palette-file --input=assets/tilemap.png --output-palette-asm --output=out/tilemap --output-copperlist
+
+out/panel.bin: assets/panel.png
+	$(IMAGECON) --input $< $(IMAGECON_ARGS) --colors 16 --output-bitplanes  --output-palette --full-color-palette-file --output-palette-asm --output-palette --output-png --output-copperlist --output out/panel
+
 
 out/foreground-map.s: foreground.tmx
 	../tools/mapgen/out/mapgen --depth=3 --input=foreground.tmx
@@ -50,5 +50,5 @@ out/background-map.s: background.tmx
 	mv background-map.s out
 
 out/blit.o: constants.i macros.i
-out/main.o: out/background-map.s out/foreground-map.s $(TILEMAPDATA) $(IMAGEDATA) constants.i macros.i Makefile link.script.x assets/palette.pal out/tilemap-palette.s
+out/main.o: out/background-map.s out/foreground-map.s $(IMAGEDATA) constants.i macros.i Makefile link.script.x assets/palette.pal out/tilemap-palette.s 
 out/init.o: constants.i Makefile
\ No newline at end of file
diff --git a/028.game2/assets/foregroundTilemap.png b/028.game2/assets/foregroundTilemap.png
new file mode 100644
index 0000000000000000000000000000000000000000..798d77b5349a463687313bda0d7f1c5414e2c64f
GIT binary patch
literal 5008
zcmeHL`9GBJ*PodNGYFNnETbZ2jUr4;krI(K$Tm}o$i8J8GZQ{2ON%92Xdxkr#y&H&
zD6*9;V~ZGOn#MYqF+6wA^L+n`@8^f>bziS@o!7a~d7t-rU-#=yzG!oHr|@235D2u>
z@|^i45D1I{76>K?SlT{UeFA}?JH5@!E?SzIAua|7czXNZ0D(@VrlQ?$%A+MsnnJt|
z9PGCDJ(dvq(sZZF&PNW%ifbG3V`KXMS(f@E`{%B6{&YY7(tSd&iC=7c=3>lIMxNvc
zN*w{Awkl3DsnyODRvGC>sF~ER$6cJeSHjFO*30p3d^3LIPt0-w`$_bl1~0b2T*E7;
ztOt@{>D<?vGP+YCiRnov)$hkA7Rd+}JK8CzyOmi(^le3MzjK)|Ym3JG7#Q0stgN$8
zkU|70U8|XWDUy^9UMNL(hJ&NH50p$9&WfCCb9F~iAGD+De|ikP4>5^N_4fRwG4(x3
z0B!G+lr53|_2asQDDP<XAg1Vo5A)UB%+qUmVPi#a0@+u$3jJDdCM^5CFYU=GG>K<l
zb>*oaSE2v3`(X9zVWGt)Z0eRDjwC-x%gTGO%T)0G=y+~b$u73JYXwc{6}j+v<-5De
zvGjQTWsND#q#gr$hkfgC`Kw1C^IO9|)E#$TS~7-GlN()f7u$n*e)dn6=rfGtxt-CG
z=9}E+$a5TAaG@b<K4xw?K1)+*^F?+>oYaT7Bz&>ODGq&V>&@tSi5+r2duJ^1S`VLz
zxoA(j`IXG|Sc%FQ^eb6OGr7b|Mcd{z_ksykR|L!LQc`V4G#ePq4ZDxsGBJfQ3Hs$k
zJb7mgTtMxyPGXDj1*aXmuB)L0C!~jOmc@w)>Pl8h%H72jd&=yiQ;|zXwK-j_<hG2h
z&z~`I8};3_N3JKD+>w5}cQdU*`umN=@&s3pJ*Kf51`tzKImGTCaXs$3mYfGcy5Rkh
zcaax3kL2I(xz6SepZ7iEjx-qLH>c=bD#<%DW?0))gx%IVV(n@_RG}e8`sYCBVV;0n
z%jPG{8`pUa13S``TtTB__XcKzxv9%h-}HGtiT~xeSQp&x{I%(=_50txP9e9^d;J8b
zr5E~gJ|=%uSPokJ<tT0uoAo7!UbW(eyb_=#W>JwX!1dX1kh4iOuULs&NvzdqIfPT=
ze`@K%b>O;i-MCga$OGfff@$(ktw5y^%qNb|@?PhOXz57VI<NVxTNUS(5BN$cN(Z;;
z|FpZRyL3nt=5g9?n3z?`<VhE5KRKx&=AkrO%5x=aIe?RSZy+ldw$SLy^MM(M6&wOC
zoFJdtlXB4PdP;`=<+Xap<>LLBwlkN!CG3su_msWqKP8@6Qxaa}2jOih43zo5y~OzD
zF^+>=`EKOT+}R~{+v?k+YkRBok7VUC=8|5@{`1*7?WTR=h@bO50rvPx`bwT|llUGN
zt+V+&Q7YMV@i$LvDy<fjB~Ku>AMls$=@1$hII$c*@|M=B@ZemG$YlT8Zw`g48xhOz
zpCA1YQbE@wyfZK^piHns2Tf4h<sh$AJh-SZ27M8`6#xQ>n^>Bkx*P#!jhU9q)1`za
zA83fGKK?N5r0RAAo=^|>hn&Kpv?S^KWG|K2m7*k*jE}$m_A+?i*)yW^39YF?&#=mP
zB34fB5NwZ*><n4Gr|<XZ59699y|wP&ky^vNKi!46o{&LGb5k_?*C@YS+oY1SzOkVc
zTif1;UTs?q;26cu3*qr=nP;*W);j`ZPHx}JW@|)ksZt858^P;m*W6tSUNA`;!<Et6
ztTo>>RTP1m0@ccBaBbq&N0A=7Q22A>H93RICuW-K+~7AbhBiM$=&JY6V5JBulie+=
zOMT}TzKr;xPhK&MalpCo-;S^={iQF4?M76~6Vae7LKA0xno+}e;ZgS@!^Ls?wq#l-
zj7rXYo;e-tp6_`c>+`=}>ZW=ArBC9Q_aIP{8c+vtgtRSkjqY1@&^CHzoe`H<v!BcD
zn5mo%nSZ}V8o@IPC=vA8e%qg$B9cxxk!EV7_O%WbbK0rKq~yGV#Dfrsj^(pVO9C|r
z96(IZOW}O>ruZrPP1%?uk_n*E-noW^AyQ$hpW3a3_a1n`$dSU<E|%Ws)`f5+ns_RJ
zn1=^{lP_dgpOgbbpcc}ywGa)8VhA&lBD_HxTOOdZ(~<Xf*&5Vk(vn^nN`WB<L_~$D
zOZh769X)h5zNv9l8v=!CxM2f9HVQEg{#N+IIi|!JxF}aNF!DyuQ6MN+K(GpAP~fx8
zY;91asnV3w*-gPFOicgyT2xHBBH1|piwV?7AgvO_w8DgqaRuwY_r?J+FJt`#>gRI_
zVX`(?rb*jYWOm2Z4(I$l5b*}g9AqNW&~ECgz}@f*3r*G-+Tm)U*YyxYWI^|XI?=_Q
zJ&X}TB~8UmygER|d#2u}2EPjtcrfs{9%=}>(uhDI?x89`HIm5MZqE5{9YHVi`7n*M
zlf%M+hW3Tq)>cWRxX`T{eKSZT6pDS~UY-FWW)bSBn)i>gqiD#Il8{}p7!=4~N6LL4
z7HK_6fC{z<_-_fE3yDFAomWO7im63XlMi1D-JHo<Kv!Ic7z+ca1^W-}7_}R|3Wa@j
z_=^|rBuc&R2id|ph1x0%0JeZFca#M~$^^9XqnTdOU?i6>6s^FX<U_l;QL(%(^3uI2
z9>geCo9G1In&vzjNN)7cOXtsXvZGHH$H65KIx@s{(Q4P7v#Yo9_HMkDxOX%L$J8;T
z(k$>*@&tuD<xm>CJbv4S72pLltybWgfYWQC^^rJA)oY>Q=1Ot3>@Q1Z1Q5||cajtq
zUN2PG929zzs+~TTb!R(fI@O1Po|LV|savYIAI&I;qh1BtkVW{*XYpsQXbFJN4Jhd3
za$?F|RJ2OupnAKb64Eu)LkqV){*)fDlz3R85Ul7K>E(ik_l4ho!b(9JgCQ5d;NgB9
zRTLr<z;_RcS23Y)>y&H1=L8H4t}jmYQgFv$8k(<qc1En<yX~*#@zgWN8N1*zIg242
zYcE@sv?WlV{v}vvReOKy+E5~;oZPs)s3Bs?%%o}9S>FW_ZHTR4r!=ir$Jp7uvE^Sj
zWB^VI3j0bC>;(%mY1FhIsUTt>R1hzCVnokq7jWpgzj{Ep`c^m3-L|@M?aYw(cO(Z8
z7-@HAK|;^Oik?X5YY_9EV(8c)CjPpGJy1lVa-gq3#Ec^bJ&-z-{u;i{WUv_11AYyv
zScQM=Gx=5fvPnj(+WvHRL;r*u0Qg1%gAN3hUy3nH+#|m`j)Ob-!7j0`;?>`K{xaVQ
zVE#HMHQVt;sN254!$UiMyI49KYON3WFn|$tasdz0!!J;s+cbeUYgCgU$X}=HDl1za
z)&`F{^lm|CwR;;N`P;SGN8j&$%0jq(`r7pnB?bmRe%ABqAgaiW>M|*o@kVip6sciJ
zSJp`dWMcA2vpzNAF%=9KjTIT)6uCdUPSD6WO+e`qTh*yAT*Z4kG=Hc&H9$EMvhsu(
zLs#)Yaqq<42pwZ$B_yze33hJi`t$DUX{eYxcEO7vq+N`HK)=EBjbE*MH@=dx21s=P
ztd7#&0a%57SLG&^)mt3-p`4kqimj78!(0SW1?~jaDs!1VPoTbpKmsq@96Er)T0$Vz
zeU(enHCv^z^&6y`TeOn)jzyN=ss}4%sHbn7f}@yp11L<xVAL#+4UOt8WHt1n+z=QY
z&T5<(r;vfgjHxVTBk{`{G+q-xmOl`g-0e4iVsmdO{SbX@^jsg^KR!;zq}?(Zln*eX
z_qMMx8ZHN|nqe_S5%+V<c$~65$-vBy#vdy5Yl@C~SCHKTUx7!6#N4@P{JSw+v-q-*
zeG7glcIHh~v_dY6=hlAwJ?U0cJ4|BOjf%OmiFHi;_9x@J(iI`rO3yDj*e{7{$k#qE
z^ln72GFD)iIHe4M2E&}dvvV~^;1Y8Z5(EV`#r-HmA_4Rtx9afYkC_AM9@$L;cn@S~
z@1|;4c7O&OgFE_!(G@-MF=DQ01Am&_DOEzD@XjL#M20BIi@mMS64{?#%V<yh-P>+0
zsfF`<l(at$1Fi6eI$-V`i>u-vGrLnQ7sHxPgkIHKA88kdw|OqSOIO+*-!*wl$@CyB
zuXV^I_MC)%TotYv;d`&%7K;RKnf97cRR~mCHE`?s0H*9k0MD|V5*#zZdE|hfStqj&
zRc>`G;%K(c{LE<{sj!x--oEB%>b>fi#-_P*7R?A$e~1I2slgDK%^g6!LcQiH5{T+N
z>IPZckV{&_ed()fVOyn<SvXAaiXWTz@L53gM7BJR#v}ilqmf-`3TFtYUDc2kBS6P1
zsUs5*1Iogj%SKr8@&9`&Ol-D23z!)Si&+*)Cud@Y7Q3{OT!&b<_WyVM>+rs#%IdQR
z^plj62sOx-<qL&LJgx&YX!%e2k6j3zVge{%VyF!M*9gkLjsKbkBEkirlkxR77YNj5
zVAss^2#3O~)exXVAHsYf&{@su@RQU?+pzH(CQpI<h-6SVfY!&0FFa?t(Q@f?G<P;L
z3*|s8J)6Mu5|4X!A5PKrAJ-;z@mMStZ*^<+Xp?UMr-r#c8}3oX|629;K5wM-^w?1=
z6x^#u8SPA3R4IqU4XT5}^2tD^r2%A4ii(8QIa1u)@v?yE77TCQ=w_mS)mn%Z;t`Pb
zsk*wI<>AAbyGQ6Zvj^&0S|~iIE-XT%*(;lg^-jFRkH9r~NAu>He8x0sY<zqI2Z8E~
z)XTPc=2epVThU?+;i|u7gel;^aX6&e=bcC{$zaVu_5KAE$dg$g1($#US;n;iobm-e
zL|objtOzJz7K?O%&g20M9t>LDjgSD2)I?ztpH&f{nlRTEC@h`;5)}rt;4K_R^;K}x
u21Aq)pnt>si_O2h`F9xp8--#4f6Q!phX6@u9{AG+vOHsB{`xfb&i?=$GNvK`

literal 0
HcmV?d00001

diff --git a/028.game2/assets/panel.png b/028.game2/assets/panel.png
new file mode 100644
index 0000000000000000000000000000000000000000..128306b37b7c671600aa7ba353d63618be4ac7ab
GIT binary patch
literal 915
zcmV;E18n?>P)<h;3K|Lk000e1NJLTq00BS%001xu0ssI2@250~000A8Nkl<Zc-rlq
zJ$AA{7)D<b8_G#(No&cs1Y80xAufTGmT?JwOK_GTO9)$_O((4#DKN;7C?jCRb8n@S
zIX4W4XI^H)3D$nM5fkQ7V$^@<D*X8I59FVSh;khf5q0r5C5eb6QGDv(f>M9{`0@Ac
ze-Qu}Ed&^V00RI41^@yKK!5>&00RI41^@yKK!5>&00RI41|YxyK!5>&00TfftnGeZ
z{O%`j#jjfJIY$8FsKCecI;lA6**pWlLoq3(H_PqX`fWP4*Xyva)FT|dPLhs>#bRA)
z*=~bp9V|R;fJ^BOQW25Z5`8Jdqedt3DW4nv)V|bQ6ELzh@afJuOK-6P|7N(j9yYB=
z*8HQ=lI}h)wBMmF6$7l7I`!5I|4T3R4dpi*#nmIfI@mTIiZC?ZLZ8x`SKwNPyU=uL
z-VoaE_{u3}SVXq^pCy6u{8x+R<uo=8w#fs~I>32oV{4FFU${n#*Kt$(-7>u02G-*I
z>bK3TWR$(8!J2vi&IPzqa)+tC*8Ibof26z5ruI8$xKfIH;cD%@|6t)Md8tM>|DgN4
ze|}{2Qu`a<-}v<%=`Ob$R8+WEfc3cySJJEdzncI2Dj%Zu5^1<6$0xD;|8HlqT4>Sl
z<p;L9ZA9m{j!o^Y6PR>NZ?*+}I?ga?zY%S^i{A1iG<n#9hKp<9yxvysnfv(5=tFHm
z=L_I$a8?-fJE#$z1bC7Pd@RBZ>8+Gs0C>0nmttIuFzE$&+yEQCUUY5v`oqBR^@{lM
z<2PFad#!tiH%$`w@#7!JKk-c7U+P8i+VK6Q`0?W(&d-1302na@7~nYqeBn8PULGO9
zj~{>E{ukxBNo4RuVc;sG{`m3ZAI|@}TD{xKPNLYJDmfg)wwtDhB#M>m%w~={Bw_Sz
zPu0~GcHpX+GsTY||3LnUNO^zkTs6<81m!wePfuihO`Xjp#|?D+`0)?pe_gHKMI@Uf
z4&O;V_u0f?&zyYnu$^f(Ni_8jT(z3ouIC=&Z`+yT$B%y?zm=w6#p$7b|D8_^RZ$p)
z=N=phT;+Ri-bej@#*ZI=@BVUtZ`fK3qx!17_|wt=@Z-ndtAEmQZ@lC2;m41^i=PKM
p07eV}1|Yxy@E3I5!~%dn<Okt=G$39wr)U5G002ovPDHLkV1f#wz{UUo

literal 0
HcmV?d00001

diff --git a/028.game2/game1.s b/028.game2/game1.s
index b28e652..4f2c334 100644
--- a/028.game2/game1.s
+++ b/028.game2/game1.s
@@ -22,9 +22,9 @@ Entry:
 	move	#$7ff,DMACON(a6)	; disable all dma
 	move	#$7fff,INTENA(a6) 	; disable all interrupts		
 	
-	jsr	InstallPalette
+	;; jsr	InstallPalette
 	;; 	move.w	#$09e,COLOR00(a6)	
-	move.w	#$09e,COLOR08(a6)
+	;; 	move.w	#$09e,COLOR08(a6)
 	
 	lea	Level3InterruptHandler,a3
  	move.l	a3,LVL3_INT_VECTOR			
@@ -38,6 +38,9 @@ Entry:
 	move.w	#(INTF_SETCLR|INTF_VERTB|INTF_INTEN),INTENA(a6)	
  	move.w	#(DMAF_BLITTER|DMAF_SETCLR!DMAF_MASTER),DMACON(a6) 		
 
+	lea	panelCopperListBpl1Ptr,a0
+	lea	panel,a1
+	jsr	PokePanelBitplanePointers
 	jsr	Init		  ; enable the playfield		
 
 	
@@ -67,8 +70,8 @@ MainLoop:
 	move.w	#1,moving
 .s1:
 	
-	move.w	#$000,COLOR00(a6)	
-	move.w	#$000,COLOR08(a6)	
+	;; 	move.w	#$000,COLOR00(a6)	
+	;; 	move.w	#$000,COLOR08(a6)	
 	
 
 	bsr 	Update
@@ -76,8 +79,8 @@ MainLoop:
 	bsr	RenderNextForegroundFrame	
 	bsr 	RenderNextBackgroundFrame		
 
-	move.w	#$09e,COLOR00(a6)	
-	move.w	#$09e,COLOR08(a6)	
+	;; 	move.w	#$09e,COLOR00(a6)	
+	;; 	move.w	#$09e,COLOR08(a6)	
 	
 	bra	MainLoop
 
@@ -138,7 +141,8 @@ HoriScrollPlayfield:
 	lsl.w	#4,d5
 	or.w	d5,d0	
 
-	move.w  d0,BPLCON1(a6)	
+	move.w	d0,copperListScrollPtr
+	;; move.w  d0,BPLCON1(a6)	
 	
 	;; movem.l (sp)+,d0-d6
 	rts
@@ -213,7 +217,7 @@ RenderForegroundTile:
 	add.l	d0,a0
 	lea 	tilemap,a1	
 	add.w	(a2),a1 	; source tile	
-	add.l	#(BITPLANE_WIDTH_BYTES*SCREEN_BIT_DEPTH*SCREEN_HEIGHT/4)+BITPLANE_WIDTH_BYTES-8,a0
+	add.l	#(BITPLANE_WIDTH_BYTES*SCREEN_BIT_DEPTH*(256-(16*4))/4)+BITPLANE_WIDTH_BYTES-8,a0
 	lea 	animIndex,a4
 	move.l	d2,d1
 	lsl.l	#2,d1
@@ -319,6 +323,32 @@ Level3InterruptHandler:
 
 
 copperList:
+
+panelCopperListBpl1Ptr:	
+	dc.w	BPL1PTL,0
+	dc.w	BPL1PTH,0
+	dc.w	BPL2PTL,0
+	dc.w	BPL2PTH,0
+	dc.w	BPL3PTL,0
+	dc.w	BPL3PTH,0
+	dc.w	BPL4PTL,0
+	dc.w	BPL4PTH,0		
+	dc.w    BPLCON1,0
+	dc.w	DDFSTRT,(RASTER_X_START/2-SCREEN_RES)
+	dc.w	DDFSTOP,(RASTER_X_START/2-SCREEN_RES)+(8*((SCREEN_WIDTH/16)-1))
+	dc.w	BPLCON0,(4<<12)|COLOR_ON ; 4 bit planes
+	dc.w	BPL1MOD,SCREEN_WIDTH_BYTES*4-SCREEN_WIDTH_BYTES
+	dc.w	BPL2MOD,SCREEN_WIDTH_BYTES*4-SCREEN_WIDTH_BYTES
+	include "out/panel-copper-list.s"
+	DC.W    $5bd1,$fffe
+
+
+	dc.w	BPL1MOD,BITPLANE_WIDTH_BYTES*SCREEN_BIT_DEPTH-SCREEN_WIDTH_BYTES-2
+	dc.w	BPL2MOD,BITPLANE_WIDTH_BYTES*SCREEN_BIT_DEPTH-SCREEN_WIDTH_BYTES-2	
+	
+	dc.w    BPLCON1
+copperListScrollPtr:	
+	dc.w	0
 copperListBpl1Ptr:
 	;; this is where bitplanes are assigned to playfields
 	;; http://amigadev.elowar.com/read/ADCD_2.1/Hardware_Manual_guide/node0079.html
@@ -329,6 +359,7 @@ copperListBpl1Ptr:
 	dc.w	BPL3PTH,0
 	dc.w	BPL5PTL,0
 	dc.w	BPL5PTH,0
+
 copperListBpl2Ptr:
 	;; 3 bitplanes per playfield, playfield2 gets bitplanes 2,4,6
 	dc.w	BPL2PTL,0
@@ -337,6 +368,13 @@ copperListBpl2Ptr:
 	dc.w	BPL4PTH,0
 	dc.w	BPL6PTL,0
 	dc.w	BPL6PTH,0
+
+	dc.w	DDFSTRT,(RASTER_X_START/2-SCREEN_RES)-8 ; -8 for extra scrolling word
+	dc.w	DDFSTOP,(RASTER_X_START/2-SCREEN_RES)+(8*((SCREEN_WIDTH/16)-1))	
+	dc.w	BPLCON0,(SCREEN_BIT_DEPTH*2<<12)|COLOR_ON|DBLPF	
+	
+	include "tilemap-copper-list.s"
+
 	dc.l	$fffffffe	
 
 	
@@ -355,7 +393,9 @@ backgroundOffscreen:
 tilemap:
 	incbin "out/foreground.bin"
 backgroundTilemap:
-	incbin "out/background.bin"	
+	incbin "out/background.bin"
+panel:
+	incbin "out/panel.bin"
 map:
 	include "out/foreground-map.s"
 	dc.w	$FFFF
diff --git a/028.game2/image.s b/028.game2/image.s
index 1e308a1..5760918 100644
--- a/028.game2/image.s
+++ b/028.game2/image.s
@@ -1,6 +1,7 @@
 	include "includes.i"
 
 	xdef SwitchBuffers
+	xdef PokePanelBitplanePointers
 	
 SwitchBuffers:
 	;; offscreen - bitplane address
@@ -44,5 +45,22 @@ PokeBitplanePointers:
 	rts
 
 	
+PokePanelBitplanePointers:
+	; a0 = BPLP copper list address
+	; a1 = bitplanes pointer
+	moveq	#4-1,d0
+.bitplaneloop:
+	move.l 	a1,d1
+	move.w	d1,2(a0)
+	swap	d1
+	move.w  d1,6(a0)
+	lea	SCREEN_WIDTH_BYTES(a1),a1
+	addq	#8,a0
+	dbra	d0,.bitplaneloop
+	rts
+
+	
+
+	
 
 	
diff --git a/028.game2/init.s b/028.game2/init.s
index 5b146ec..aa59ac5 100644
--- a/028.game2/init.s
+++ b/028.game2/init.s
@@ -15,13 +15,13 @@ Init:
 	move.w  #(RASTER_Y_START<<8)|RASTER_X_START,DIWSTRT(a6)
 	move.w	#((RASTER_Y_STOP-256)<<8)|(RASTER_X_STOP-256),DIWSTOP(a6)
 
-	move.w	#(RASTER_X_START/2-SCREEN_RES)-8,DDFSTRT(a6) ; -8 for extra scrolling word
-	move.w	#(RASTER_X_START/2-SCREEN_RES)+(8*((SCREEN_WIDTH/16)-1)),DDFSTOP(a6)
+	;; 	move.w	#(RASTER_X_START/2-SCREEN_RES)-8,DDFSTRT(a6) ; -8 for extra scrolling word
+	;; 	move.w	#(RASTER_X_START/2-SCREEN_RES)+(8*((SCREEN_WIDTH/16)-1)),DDFSTOP(a6)
 
 	;; enabled 2x the bitplanes as 2x playfields	
-	move.w	#(SCREEN_BIT_DEPTH*2<<12)|COLOR_ON|DBLPF,BPLCON0(a6)
-	move.w	#BITPLANE_WIDTH_BYTES*SCREEN_BIT_DEPTH-SCREEN_WIDTH_BYTES-2,BPL1MOD(a6) ; -2 for extra scrolling word
-	move.w	#BITPLANE_WIDTH_BYTES*SCREEN_BIT_DEPTH-SCREEN_WIDTH_BYTES-2,BPL2MOD(a6)
+	;; move.w	#(SCREEN_BIT_DEPTH*2<<12)|COLOR_ON|DBLPF,BPLCON0(a6)
+	;; move.w	#BITPLANE_WIDTH_BYTES*SCREEN_BIT_DEPTH-SCREEN_WIDTH_BYTES-2,BPL1MOD(a6) ; -2 for extra scrolling word
+	;; move.w	#BITPLANE_WIDTH_BYTES*SCREEN_BIT_DEPTH-SCREEN_WIDTH_BYTES-2,BPL2MOD(a6)
 
 	;; install copper list, then enable dma and selected interrupts
 	lea	copperList,a0
diff --git a/028.game2/tilemap-copper-list.s b/028.game2/tilemap-copper-list.s
new file mode 100644
index 0000000..4c019b0
--- /dev/null
+++ b/028.game2/tilemap-copper-list.s
@@ -0,0 +1,25 @@
+	dc.w COLOR00,$09e
+	dc.w $182,$500
+	dc.w $184,$801
+	dc.w $186,$d30
+	dc.w $188,$d72
+	dc.w $18a,$fa1
+	dc.w $18c,$ed6
+	dc.w $18e,$18e
+	dc.w $190,$0f0
+	dc.w $192,$1cf
+	dc.w $194,$7ef
+	dc.w $196,$4ac
+	dc.w $198,$ddd
+	dc.w $19a,$d02
+	dc.w $19c,$999
+	dc.w $19e,$00f
+	dc.w $1a0,$ea6
+	dc.w $1a2,$f76
+	dc.w $1a4,$a31
+	dc.w $1a6,$37
+	dc.w $1a8,$19a
+	dc.w $1aa,$1ef
+	dc.w $1ac,$f70
+	dc.w $1ae,$ff0
+	dc.w $1b0,$fff