From 11d9e99b5c7e6aad9368463c320f88ae1955495d Mon Sep 17 00:00:00 2001 From: Pecusx Date: Mon, 8 May 2023 20:28:24 +0200 Subject: [PATCH] New set hires proc --- C64/gr_basics.asm | 32 ++++++++++++++++++++++++++++++-- scorchC64.prg | Bin 39370 -> 39386 bytes 2 files changed, 30 insertions(+), 2 deletions(-) diff --git a/C64/gr_basics.asm b/C64/gr_basics.asm index 3cbf842..0bf04e1 100644 --- a/C64/gr_basics.asm +++ b/C64/gr_basics.asm @@ -222,9 +222,37 @@ ClearPlot .endp ;-------------------------------------------------- .proc SetMainScreen - SwitchVICBank(0) - SetScreenMemory($2000) + lda #0 ; Black background and border + sta $d020 + sta $d021 +; lda #$3b ; Bitmap mode on +; sta $d011 +; lda #$18 ; Multicolor on +; sta $d016 + + lda $dd00 ; Set video bank to start at 0 + and #252 + ora #3 + sta $dd00 + lda #$18 + sta $d018 + +; SwitchVICBank(0) +; SetScreenMemory($2000) SetHiresBitmapMode ; Hires mode on + lda #$00 + sta 53281 + ; clear color RAM + lda #0 + tax +@ sta $d800,x + sta $d900,x + sta $da00,x + sta $db00,x + inx + bne @- + + rts .endp diff --git a/scorchC64.prg b/scorchC64.prg index d49a934a7dc6ca832f3783a12a8fdc3de193dce3..bcbf2c0a645a4405fccd638a60f7a26e1ab185dc 100644 GIT binary patch delta 2495 zcmZuy4Ny~87S2rqN>Bug3MzO(Scza2bv2^a@FD|CAG%YEe?@tswji@a5CRFmK_35! zk%Ne=p+$H!PobdEskDZ*x<#H;o9&2OZIM}Q9o%&=Zrh>ms_ad4wcXkKX72g>?m73J zd(ORAt>W8OaraRgeFTm4Qq%+k^n%SE#oSE?Vt5gI8~bLpr`w)VLa@VEzz&%ZZuiGq zs_5KA9O0Uk)x603lnS}&eSsOvrtsTFJiO=52@3b?+tOVgwq|m@jzH{yxP%|j&#-2L z5&di(*ia)816a4d)iz0CX)%{kJ)JG)B5L%zPW!`-Xl2it7IwIUQuch@VvwmiRLY(U zErvK{$9iSYK#M^`b;Kxp?67=$Fw()6?TIMB+PU3Zij>ygov~u11@~PsNNc5cmARt; z_{)2jkr|Gp_D>f#vuA9%&8&6QIcM3#%~o|7-fowOMq_EV^wLeKTr*#NZes$#sgX^J$TXnHhRxjuQb@+b|Z3DrhumufHRzR)SOlr~PgL%V0LHeH*g)oOLR z5?#6Oj_$lpr8%F^@RM0HJ^-sT0+1fIWz3bPXmAy1GXh>qDkVAf;=R}|{JDX5W6g9K z@EM`f&keW?zRI9c63kPFZ0t7>n5WaudlIO=ps(9*Acr!-wKybrg^}R{*)Cp6qKxG# zIOcvZ%XEwTcD>N}aZK8JmNAL%z0g3NIt-1$r|JOzv0Q!zYi2lx&ENmc$Em_E&^}mhNI(9l#7eqt3!5rOYr$B-kogbCf%hMj0BTb zA{-*5twiV`BwsIICwMs$g=s|4l?d*HOw|jM2DP? zuP)}q@@c{}ho^#^g|56{83CL%UygN(-{krKQtZl` zrFeEZ)^<5oINR-9NA3z2kVoWP5X)n~eZ=UOCM9a2`&ST1(E1}ayr&IZsx~_A+Gp?+ z2_mIIq~zU6zKDR72BgGWx4GQ132YPLxhBEiB%$lzW37(#z*60QWP?`SC{jReellu> z2l?Ts82kz%(J6>8Smaq-#*Nq|I69k7hSGvWKUq2X*^!V2ZwcMWa=msZaq{r6V8P@w ztPtvO3W0^oQ3Y%&+=^B}M_~fl=D!LTkvXiW6ve=)qBS1HMq8PRU^jxJsE~9*Mse8e zi{-X-70cN6tJq!K0Gq;n!R{u}da)9^i=(6$%jt_SR=gag!Tgei=%RH)Nfc77FybqJ zU~H*MHq#av&1Rj>{N2RiOa@;v;<+ZQHZkq##z@r(QF(g#&IgeyN3iV#3sA6 zPL=vYa%r?@E&;L@ydj-;>ZlpctBy34*=C^xUpwYy>>2)j5FcD0FkVB4*Sx5`Nfu|_ z#Szgip`8ZUeQ*)t;PAn<_-+j^Aq8-PoH~AzN_L0yw&4W^T2%AG+1Nn~N!rn}21m-} zAwL*>549cIYciU?H7z{+t+8{?4MA#pEO>SQB!6b!bHWkNd&7l(WfA}GI+X+ z=S3v5u52F00zl>BdBgRBd$$|ufN_d(`c|8Mjrm*U;@AHVX3tAMA4u^)J=aRwlWQYg zi-+NjD$A75S`6RC?mb|*7u$0Q{#g|#9je2LV6P5@q-rmpH|rGK;C(lCuy2q&13APp zwI)zz^5`4v%W-(qmC#x(mri}YBEn~=&W{^RBj|gt&#_MFC-R`Q~_!ib1ROjb8q&(^Nv@hI=jz(`qyVtPw${L>*>GK!Un{u14eE&rHo8PBujvPDl+1Edc>yP|*z=4J^ zXln3=j)rOQNyF4xe?0zjm|u-%>rg|K7{!C%vB;^=5;5n-5;3=h6?Xz`K9>C-7g1Sx delta 2477 zcmZuy3s6&68qP@qN_+q+3i9wkQHY>C)HNcm@kR&My{O|X6>yacJ~3S&2nmT0o|kt* zm+lYHb}|#XX5m-R|tUGv|MO=l{?B z|MQ=7)6O5V^KA!7a0GRc$)E*YCS%@zu4Qhx0mbs@n{YA^kw<#nwBeqEhCYvb_=k}k8Uo^Y7VCM|LAj@9+JXO+~^ZKg+i2&v;^vrZ)Ikx3mr zW?j0pXSLMPZ`LV^o;6a(=V)c56<65G2|Mwx;nx0rJgT0}AY9UcE1v zg8shi0??rYyDv?9VxoJUyN=NId!D((`NU)|Dp)0~vhr_4BSa^iPs`GsKb56Z8Oki>R^@JGq4K1X zRpzTe`GoRhWwJ6z9j1;__iD~*V%5oNi8@35C-r7^zPdoYM^mg(YQEH1CTkWcE&C{T zB5i`(&>suKfdUm2h6y(+p&B(8hEFGJaSo@lQ|Z(2QyuF=o5)h+D4Z+&R0m7Z?Lrce zD4{5NeV-1)CVA}aBn(wl4BA{eT!h<<*)4$c^b{LGpJs(P%7{wBP-9UvW#bR#z10LW zRKaSRGVt%d)u8U8STKSv7lnt6sMsLdL@^YtV)E#6CZ8^2w$VzcK%jUo=tD8Z40sP+ zEzX^_u@WOsyPkPMxqf5=@jm)=qy)(nJD052cwz|O#IP=t1sCu|A}`>SMAjk(t{D<% zifl}1N|8AU*%;46$jDJNqF4$-(ae%Xf$KH9PYwm#{&JZNFHRJYy(p(-5st1eN%92I zX>m9cI|m1z=;c;;ed7dJ$OCA!BpUc4;a)rV0rl-2n40KGme0}caP#{V>_hdX60iU{ zOEd92y(|GRNLCh!7wjlY2Z`uZ*-oIa2Px-**lRT>d|FW$@z@~<_V9%Hhrxpqv9)m#rI@*43< zZmK(z^T)!TYR(svSJm7EOiopEk(e+wTs$UZ4L28)mKyH&m>jGjLQ&VLc6ZwL~L-w?qCBFr1EjgJ!KBBUu7 zhdtL~CngEDjd@K13>+CH5=Ssa=gXr+7;x5fA4gtAHrH)9>)w{oU1+lL)cv2lt%KGAbVF5^W zKnk<6y>96Y`Vi)sLtKbKK-Qv*Y7OoILQ@Q^$ga5uV$nzYasfgw_r-xC6kCx54x^lk z1(Pc3ncFS_TvbZ0M;#TJ!7ph1v$vx=0|carW(Hgy;^EQjikOMrG&k4n5f)Z11}e0z zG7HQ@=PEPsHbvS6c$R2u!4lN3P4z3%JL_c_yRxII5;uajDt5N5!6}!~l(Sey=P{S* zeC7(h4F?;5iRkmH6rrtww4w2;#UL9ks-6#Q_N~<^Kr&AcFaCvc?v~ODXVNOVLL-X+sOtJB} z%RBKU6}=@<1RM9mFnm$FC&F|uS50@~t!$y%l4S5IO0Inme2e;PLr_ues!6*rkhZ{e za@M0Gf;=}J?kSVgLU1!&kbOb-vPaOgy4B%7w34B%Z;##ti|5!$u!wW$F`&J53%~(n zu3G`WYGnnu{@u9f@a1m2J6N6#XX!|H%UfsTbrzhokLz0i{lOONkbIqM?sBCffi*nZW1|+@MSxUF~CN2s&OHBfNnL0 z2RV$?o)S%MOUI$^X|to^l2eGaa5D05%ASC+xd!quDr$}Q-AUWA zS9dqf(Tn&k>B6fWa1HvdB?5iWGBt2{hlCj(^Pz_ahw&>=hArW(5h8=%;P7CXJAf=l z_7<`5)qd}a_`s_j!OU<0M&EshjtLYY33CklIEJ5w9_&99Jy6zS*5meumDp7NwdIeq~gi zS^!)Nf7{Q{j0RP%NBBT{l#y6D|E-eseFu#2>i*m|JH!JIc;wU)qW`tFx6KZ1`qhdb z6mJ+F_6YInCi@p{EB&g*p8O&V3|^iquV`xTv^cJP{oFTbWm>kX0Ui6>KfZNO7pJU~ zw=m9sz6?oNohLusbN1$#AT%jcU0K)GWje}ya`DmAfAa$47pHFA@xfl5wQuPDi?Ha} z_{1gIbqD*ue$1afCsnpf|Jm?^r!%ElJL%@`Gnei>F&d2r-V9XJDMp`k`lG(iKs3}j odFDs&hUwj~KkQ85gA^3|VbYX3bA0IaL_V{L=3DE~&JRof1KiADW&i*H