From 24a251ffa21b9ba7da39fa55ab4421f8aaf64357 Mon Sep 17 00:00:00 2001 From: Bobbi Webber-Manners Date: Thu, 12 Jan 2023 19:16:40 -0500 Subject: [PATCH] Fixed bug in VDU5 bit shifting --- applecorn.po | Bin 819200 -> 819200 bytes mainmem.shr.s | 4 ++++ 2 files changed, 4 insertions(+) diff --git a/applecorn.po b/applecorn.po index 000fd32b02e834c300091c30a9357000e13a234b..e7c130ca6008e4eda8ee8dfe884da01fde693a99 100644 GIT binary patch delta 5243 zcmZWN3wRS{w)05abf%B+XbF|dj|euFLV0*^>K15Gxq;jJ@QMhvy5lEa11n8BY0{En zGhT_851AU)#{ecZW+`?mQ`2>|i<)hahfOFDL;zl=g@NJR*Abee`&kC$Hx5PEd-0of)dDc!>_ zF>j`&A7~k*15Zd~fXS0S*v@2=w@82SGZUq+wlfvv$|OAhRmMcNCgASZUS)owNt5J# zjcG|gjD^=Eh41q-jpV^@5dKk{eg;phPE2%vA~SDOx=Z{!ggDHdNS>1IZW(JjAV)K>Q26|(|JAY^`lsbBt+sG2>P!ChM zve4GiHfa3je7idNx$`>*tNTMGHd7RSd^2quW5Z^Uiw`&toR57Y(qSh8v_Ycyyu3*RCoMCW-guKAY4+CjMBZpsq^#V2Yit>m?n3^ zEXtSadzqQzOX>w0joCZYvrKqj0hX_MlqN34aKe1}E-xK9#^|Ni2$Pd@wN@rYf|e^pl12vU zy$Ew>d2*TWYw=3&Tade6^e(@)c7kX`do4i+`lHp8sd$%1s92pqD3!3&<;X3eC^Okm z&8tl4VSd{pdZ1Uhu(^^3KGeEAI3L|%4bE14%f(7scpFvJB`k3PATJiq;o(uC9}k3Z z%mkxZ=pzW&$0#ob@CFE*_y->SsXn+AwgkjKT_e7OH@4?(Ud|9lczLf#+5iua@ByY} zgbx+hO5^sz2~asVxbq zRX>wjjs;Hhom;Q~tQ0-Sd(tCSs$Qs6j`HFcyz((Gp2a#2p5lWg!fCx$CQQodWCZOX z*IH~>`cmjD55~j#6waJGKM>0M`#7!QF+of zaMLxzuk9@ptn5T9e8sQyF|+l>b~V4>lt>|aaGV(&5=)Z_U$L~Lk0~@<;{DX_UV7Uw zzfpG?tIkk1^(a!b8>^2M>uScvL8T+Q&FEQVh!v zF(tob*m8)O{+l>2Uc!qU{RiJ3{3ig8Tm+!RsQkze4)fxVyz&!2c$pV};+3oX;1yoH z%EMIlPki=O>2HUaJOArjEPd!3zRFdd@(vKdR3HSX7!@EkU*b(?2~~@=T;zrHq>^~B zNZY79ABL|tGpr2rFB8gT{$*0RBGn#dR%iI@(R($>FMWO(tW2a-DxWx*h*0V{Ia}=H z<=g<_Cs1ciFdc<~zn%+dLSg#l(x~oAqEw`XN0_N|N9u!mC|2Zp*p#YSyE&Ey{4&Ww zm7{!naE45{%h&GVJ7kZ0{@M?vmya-2E~qwleS}n5&n-|>lw4Ugrv^OyGlPP~ond;{ z9vZz-6FiGR)hVp1tmbA_+N5AZDN7)g?xN z2VKW`v8@K?2T$)D2n}`uJwmr{ijf_{|Dm)mIPRf$j%Jj3(<9Dj2fM`G`W>#4w~5t!QlGoISL- zpZ0!8dk@gwy|niuS|M$b3InYb`)CF}ML{Z4o83nPs$|+sYZR?C<|s3J1$bc|_H;72 zF7gmyuo)r@)+&%jQQCWuz8(sh>`b$r&0bA#k$Y8bICQFU=prpH3yV2n z$eSm0()OcF!Ms!tRMR05a^>tLi(^&jc6-3-w+I?Y2)f0~Z%*|1q!l>8(!fz>>dI>k z+iq^`d_D}{z$5tN7-$)yjWh0luxk8Xa0_mw5cSwpd2yr)o005#hf?{ixE_rNu}x^1 zHTZ>+RTmjm)6g<$)yK@jsn8TALpzXX2KCM`0j)uJ6g>Pl?BT!TLOF2ZTA%;?V7Q(rqH)Q8H{I>A^9fJP;6R`Z1=Y4CJ(W-0#yptXv@!C0q5B zpT#mb)@;Hp_x*Zk@1Cy{{X3rM><0M(;j7eMa2qRtr92vF_F0I0IGBO?hZCFbK6H$E znxhq1CN#C7dZa1!KShcQ)AkJ;G69WUiz58sj3vJ6$(-S)utg-|M z;#=E0_WmzR(FF5{rSXB@Z!K+>{kGT-2W--BPBN3oH>4FOnbV|Ox~rclhT*Y(=G-Lj zlggCG4Qhmdx)jaA*hocej)h53RL95kp8mz+nvto|` zRalB{m!3Sr7Q28cf>|+>4wwp(Oye-qZZxwNO|zhfYtiCbJttQfxlX4=9UBcfEsnR~Ax++>U|*(P@!qiA@&YdJFXT%+Ny0*JOzbf9ETfNh)0ivbM(jP}oE3PP2%&LQ#Y1V#a zA|Fdrrdidm;R+VaRi;~2j6y0Ou?ks%GQS07*LiZ#pcOOq#NjHa=aS9i+qe-rbY~fM zqApYh?vJHML5tv`qr!PCrUkK^1kOXOe$D+WW+UfMczzOi9zx2XH>}$VcnH8>H&2Aa z2g7>`v)QqWfl+-+mQ;U?ojdPLowlt!Mje=c zpuEVV_Y+;^hFr0lZ-=FNn z4~*~|umpi$8xt=ra6x`Gu|(fji6Q!aVmNp#F?=+{Lnht$bk91@E+vi6JKR+0C5M~l z@YK8|kJ|7^*x^HH8>>wpY_#`=^J0{r*m`DzUDW~Z+h|9E)OCWLK>DP}3HH{44fZn| z?P_5=5*%HW$(oyz@NJODlkE7K^Nu*zzbRAGF{7jbT}OaBw87rqMH$pBRGiaV3yh(S z_NyE0I$FOv&riVhp@Um8YFwSy!NG)YgT1xJQIvXrs*anAtc7TiRCkh{L@ttAPJ&N| z8@!hr0yLV^5M&IwhlU$s^w8yosBUOzxIwwx00dQo-wh8B|AGt6#9Z)#PYlhn$Hoqo z+GE*6v+XhM&>TCgG1q>0S7U6goF?vS4A3FYp{9M#IfRu+X~eqjZ#U$|?C2v`WAI;4 ze#2IS8e56SyLGyPC8GuSE@YBNeXAV8c=(Y?pV`s+l%v(^Xl-=h!!*C4I>GMa9A;m= z!->9ajOw<7qE(Jk7BTBQ>FC~d=)HAO-5?}=enaxR71)L2sH;KvI1M->qcK-@>v~7E zA6~#<1t%xdzD5VvKLDRU>(QcyP4Ng_O5rk9jxJN_s{eCVam^+SYs^(~r@6}BoSbNF zs(R)c7;38OY5v^oP(cpmuQPI>sU6+14hn}dxL_k3+$bs8?xvxDq&rWs<6KFG&{GcR z45T^{Zea$_uj!)BSRLwIKiNg0H`k3=9h^TcNt^7aZqU+`w6T8rI&CE3Dri`sQHWhg zdX8)Pv`PPTy#w6UjxIK)%nCI+qz_K91-IongP>Il>FCeuqMQiuiJU*Pi)shwVPWxHIb=F*tU%>YrZkIP{=1I6=_gObTWI(L)Ke z@}SeV9!wc+)N@3DmW9@h_SVhPLtnBh$fy+jlFf6SZi2|%7SN!$GqA(2MG0JhY>hix zIY(4?nL}UT83JbT-x^>Bbp89!lCg{kTo*-Olc|08rS*6NN1A}g3|LdUjFOnMTCPY! zphdV2g|9;{e-acbO$Lps@xz<6p9~0iAp_mMdwXK_ruF~=iWBPzU_$~G&T2e_{Te*@ z6V~ApdijaFi2mxE?QsHjlRZ%K*G+Q9xfA2jm4@Hx*M8d6!4XP%xb#QPgg%pwf5lFD z_iOe(4IHZ4S7uR2(#@iD-Sz?YS#sxJ+40lGXZJymBlgJ}{6mNWhT!K5aiUFb77Oqn z2Ne^fTSwSwYcDjT92YoJHU=`#g=Tp?pd4DDPQu)kx7avSbvt^d*@=3Z z&0Ift`PS=R{!878Ps@HdqW@P-+AXay3dMl@xmdvlL0Z)B%lHbk%3NU8O=VcR>fZMWTZ+=8w@q47 z+Pr;Q$B*%9kUy`*wq_Z{zK&PJ_*hmoYZSz$wD1s|PzB0RS7uwD3U#YWzjG5R>hjCW zJ?GqW?m73Id(J&Cg0NT+76*T&Gi9!$7Tl#zr-VxsBEU11y5CglXm}WSSa=AY0FNG? zM0gDFB!wz<+==JYFX4`5jEa=(E^z=Os_U%_QsGYSIrB~|&k=WFd1rt!qqC37f{l(8slP>My^5}=-@X{AK8@)RQhhBP-`--LW zq^6g+di_x%ydf_9LqAtV9}a==mj?a2WTGTC5jrh%2N}~aK17Kl_z*2#!G{=83rYLA zqoyf$xVCHEkp$mp6C2^1bddvE;~k;0Ft>n7nOojGw|uZ$9o_dyONP|m#ob2FmHN84 znQJr3+gpdN9}Tr>v!5HkTE-OEhh;%Wlf?!ic^ zI>g)hi~2oPftb78((hj4CTG~PJY#m=&|hS*ld1n9d#;R4g~s0G?q(Br;&2@+?h4&= zlsii6cjCHSW!LU*4&4qB06Ij;<@?VpAI%4-@EfZ&JsSRcP`IYV8Ko7#X==dY|KTh{ zFhTBsS(GYObaQu2nOh;SXwu=4uGPY83b1^DQKIyxZtjI;4|zsTuIABj4Zo-3*Ae&@ zqB$E;XDLc@5a3!V>MNBg@fBh~5X<@E0RsJz9GEvduyo=SXO>!`Tx#mIQkfPhR?ZV? z7R`}fjdJsI#KY4XTk) z4>#NL2-djpqqy-tcCcIcbXz_Pe5hqja4DMY4CW}!Ys7q3IEbueF-yDv$PWk?$?$~G zPXr^qXn8-$XB9Rd=D!?6#<&v9Wka$}!F|A9jQa$&Pa4 zwt<^&7=B}KNnm9MDs0Z&-OJ^eGhN!$ep~Daxq_4J;1D%IrkXRQmA%|d%P{sco!xBX z2;O4)0_2YmVINy?y%4lAzPU;lE51&))AO42d@pBB?Zt3vPJo9*6{8I4-CoXOnbIZvef&fx-Y(S&z^0Hy*Vz^F`s+BS@B1C(YUT86Nok1H7qW*MrK z-$vluloU}$@GeTZf_Kr1CY2uNN)j6?(5uC$K{|gNtc)G0iSxw6M3m7c%PHbMET;u1 zKZQDqgL)JJ{t7;z3rE;p**&Iz#!^LEeuB%qd$b~GhGa$FpW7yK)@4@{fM2G0$a0kG z3NDbTy4;POxLx+uE#3I4wCe;{;Dv0fsff~=(RVB46eH&sEG`BQf5)KUogEQ&{~IiN zxi~n0K-K$1)enllt;!I$PNt&|!74xDMTizfqQyY8lzp(FU@C!Hi-DM;Vr``r;9>6x zEVdTI{IH6}eZ^*_n*|$z*v+;pQ5Nh3dX#P3s?u9}o?G_pa@fOtVE_GQC{ZZG6=Vx? zi+M;_n)pgD{vOxw#oJnO!I28^4pcud;){5`LI%U>@;t75iNy#j9$}TQu(16>`=yKZzg_0(n?MLNi2vsOh2)fSV{DovIqS%8IKaVrm4= z&3c2h=Oj1%o{1W$>ER%x$tf!zPz%ruR{;ARf({M@TfY-;i`DqJ6(qpY;7KlX?Tv!% zvR8HdHUi(km3m*Pi!IZ<`7E($f>T0I^K(v6E5wCiE6X#p;J`okvt*F2m zyrAgHqT^ZuDv;K_!!6H*qA(lEfqYlc?1@lN8iXgn!~Y;2{)8mT(aSgL{P}mdsf&U8 z?l{NI7zF1iU*l++I!n2ZMarj)W0Cfem@qyFh&1mMx9|rbXE2j`ulE_{JRvJys^@$s zmcewpjg;Jj6;R%NAI9qUSgf*J>%A?N8O^h1W`dKf~SrU>8MQY;;kBgWcUn%GFO>*P!zCdzYheD>Yb}c!DD@SIKg)eU*GNnI zxjSJf>E|xa*!e4E&XX1`N^0u8P}+c+H|%w6X)PiKY$up7t+kkFZoD}K*bcy?%3kB*3Gr8YjXzF%xui9> zuBdfc9aJ$2y&OvFGtOi34sBFuHo8Q;cYuX_4sTRg)_OUoU14CzMrSu7V`==WP^?x2 zcf&fuzes%?sKP2VLvoxj-suIVHwY_XG6B={IMZap)QRSmqL~i#XenA&YUbrUE8l?~ zT6#|yJEDuU#GV0Ky(+Nv*uk4Oz-NHoFwy8@WjSL>Yo9({#146pSng=9a6q+B3NL4x z%N;$!=X?h!%Qdk22(2Y`jx(T=5%lsy z=r^U^-NO5PbV*Pj&Gtc8VCHSxT1)p+YI}4^Mvz!`1;atD%6p{lueg{e@^QEGX zoP?=s47x-!AFnGPk6EF3cjOR{n!-5{3sv6(S_CiKBMcES1BiV~U&fnYw6x_I*!iQQlgn! zQgpeNFeqF$^HzR;4xE9;#g6Vc8wXr~#iE?!_|EJ^GkSBDqR5^#DCy(cRN=Op6+DAn z6Kq-hmi8q?k6|K??~4iz>2R+ zd>Jd-yTmrEywD}eSlQ7fwv+25@)9gTk(bK&D@|ATj@S~t@5hFogR$Y*vDonT#~2RN z&CiY}mZu*yF}KoEB$?4k_A|z5KYhks$Aq`J>sX%fEy!Q<6d5TOd?-Uzk?nQC)g8%D z89&u0p2XQP?g)ho$+LudAldeI`Q^XG=_FbC(jsXc{jVx2`+7B8}J=qY|gZa zC7L(8VnS^o33B~glXUHWMjyJz;^2b0l{XQP4R3a}9bhclc4mw>IHy~~g6r$eE)#1m z$?#Lqh_v%7$E_t9?L17t(k-jqSutCT@G4d`X3KKUL`$SiXN@!HCDQJ*5P*@&rYn^J z7EP-Ra+b8dkxG>vxl-9<8W|a>RIXG4LDP}f%;O{9<3jTY7yMU1jojf<(?_ygYRZVk zr5Z-&yI_qwUB~xUsT<`4ac@rV<{if@7H}6k~(`Ngbn>2l#mhNZ2pXFP z9!v4?er^KX_kmIWSTKRV4i1b(j_4B~BrV`Q*^|#zxK+5j8q75n?!E^-!CM6Lw@JZ7 zAo>`ARUY&-SAczARGE1yz{*04;A(kR`o-Ujh2A%xUr1e)tDnCMeyQgdQ5ORj{Tw=7 z4bi(TphKT|0(;--=Fw(YNjK02Z@ne#|@%6ozkX0^|(R zDxWfM?5l3)DJ3_O{UvWh$E6FGjB|E8zTB|;W8=jdwD5i383gOP5T+Z8y+R&z24+_=V`F?QrtZ$tCr`oMcxc1IW0TvkS z%=E%A#y1d09jt}4HK3Yy*b$+ P8Pk$4hrUWp)|LG~Jw`Rd diff --git a/mainmem.shr.s b/mainmem.shr.s index c3e27c4..2ad85ff 100644 --- a/mainmem.shr.s +++ b/mainmem.shr.s @@ -292,6 +292,8 @@ SHRVDU5CH >>> ENTMAIN :L0 PHX LDY #$00 + STZ :PIXBUF+2 ; Clear bytes 3,4 of shift buf + STZ :PIXBUF+4 ; Clear bytes 5,6 of shift buf :LOOP LDAL $E10000,X ; Read a word of exploded font STA :PIXBUF,Y ; Store word to shift buffer INX @@ -305,6 +307,7 @@ SHRVDU5CH >>> ENTMAIN LDY A2L ; Index into row of pixels STZ :COLCTR LDX #$00 + INC :BYTES :L1 LDA :PIXBUF,X ; Read word of exploded font PHX SEP #$30 ; 8 bit M & X @@ -319,6 +322,7 @@ SHRVDU5CH >>> ENTMAIN LDA :COLCTR CMP :BYTES ; Bytes per row BNE :L1 + DEC :BYTES PLA ; Restore saved X -> A CLC ; Add bytes per row