From 73aa0b4c63d2b506c87e27e4f81b2da758571d22 Mon Sep 17 00:00:00 2001 From: pkali Date: Thu, 5 Dec 2024 02:20:45 -0500 Subject: [PATCH] music plays --- art/muzyka_stripped.rmt | Bin 1289 -> 1289 bytes art/rmt_feat.a65 | 11 +++--- art/rmtplayr.a65 | 4 +-- averybreakout.asm | 72 ++++++++++++++++++++++++++++++++++------ averybreakout.xex | Bin 10628 -> 10377 bytes 5 files changed, 70 insertions(+), 17 deletions(-) mode change 100644 => 100755 art/rmt_feat.a65 mode change 100644 => 100755 art/rmtplayr.a65 diff --git a/art/muzyka_stripped.rmt b/art/muzyka_stripped.rmt index ef84c44d9cf8ac1604dacf1ac405991a2bd45f52..e5a40fb807c1b5c447716b97bcc762a1adee2ef6 100644 GIT binary patch delta 98 zcmeC=>g00$&!E7p8sr;d;=sztD4?LEV5qP`#X%ukp+#Yh!gU1>MF~Yi#bCwEW@b(E v>Ee#*r8D=x%IZ>7R00BJ2vAYk=-SP~s51E?i#D$c7dHg00$&yc{J8sr;d;=sztD3G9(V3@EW#UUX(p(SBW!u14>M2SSh#NfotW@b(E v>Ee#*r8D=x%IZo?Oag*r2uMlU=-SP~m@@eyi#Bfx7dH compile RMTplayer for 4 tracks mono +;* STEREOMODE equ 0..3 ;0 => compile RMTplayer for 4 tracks mono ;* ;1 => compile RMTplayer for 8 tracks stereo ;* ;2 => compile RMTplayer for 4 tracks stereo L1 R2 R3 L4 ;* ;3 => compile RMTplayer for 4 tracks stereo L1 L2 R3 R4 @@ -27,7 +27,7 @@ TRACKS equ 8 TRACKS equ 4 EIF ;* -;PLAYER equ $3400 +PLAYER equ *+$400 ;equ $4400 ;* ;* RMT FEATures definitions file ;* For optimizations of RMT player routine to concrete RMT modul only! diff --git a/averybreakout.asm b/averybreakout.asm index 19cd6a2..88af044 100644 --- a/averybreakout.asm +++ b/averybreakout.asm @@ -19,6 +19,7 @@ lda #:1 jsr RMTSongSelect .endm + ;--------------------------------------------------- icl 'lib/ATARISYS.ASM' icl 'lib/MACRO.ASM' @@ -59,7 +60,12 @@ maxBrickLines = 14 ; maximum number of lines of bricks to be eradicated RMT_zpvars = AutoPlay+1 ; POZOR!!! RMT vars go here ;--------------------------------------------------- org $2000 -;--------------------------------------------------- +MODUL + ins 'art/muzyka_stripped.rmt',+5 + .align $100 + icl 'art/rmtplayr.a65' + ;--------------------------------------------------- + .align $400 font ins 'art/Mild West.fnt' dl @@ -223,6 +229,8 @@ JNotFire mva #0 dliCount ; mva #13 VSCROL ; FOX gfx mode only + +/* bit RMT_blocked bmi SkipRMTVBL ; ------- RMT ------- @@ -241,6 +249,40 @@ lab2 jsr RASTERMUSICTRACKER+3 ;1 play ; ------- RMT ------- SkipRMTVBL + +*/ + ;sfx + lda sfx_effect + bmi lab2 + asl @ ; * 2 + tay ;Y = 2,4,..,16 instrument number * 2 (0,2,4,..,126) + ldx #3 ;X = 3 channel (0..3 or 0..7 for stereo module) + lda #12 ;A = 12 note (0..60) + jsr RASTERMUSICTRACKER+15 ;RMT_SFX start tone (It works only if FEAT_SFX is enabled !!!) +; + lda #$ff + sta sfx_effect ;reinit value +; +lab2 + /* + lda ticksPerSecond + cmp #60 + bne PALMusic + ; it is NTSC HERE -- slow down the sound + lda ticks + and #%00000111 + beq skipSoundFrame +PALMusic + lda slowMusic + beq playNow + lda ticks + and #%00000011 + beq skipSoundFrame +playNow + */ + jsr RASTERMUSICTRACKER+3 +skipSoundFrame + jmp XITVBV .endp ;-------------------------------------------------- @@ -1236,9 +1278,23 @@ brickcolorTab sta sfx_effect ; pokeys init - lda #3 ; stereo (pseudo) - sta POKEY+$0f ; stereo - sta POKEY+$1f ; stereo + lda #3 + sta skctl ; put Pokey into Init + sta skctl+$10 + ldx #8 + lda #0 +@ + sta $D200,x ; clear all voices, set AUDCTL to 00 + sta $D210,x ; clear all voices, set AUDCTL to 00 + dex + bpl @- + + ;RMT INIT + ldx #MODUL ;hi byte of RMT module to Y reg + lda #0 ;starting song line 0-255 to A reg + jsr RASTERMUSICTRACKER ;Init + lda dmactls and #$fc @@ -1740,7 +1796,7 @@ ballDisp marginLine :40 .byte 0 .ds $400 ; buffer for RMT player .align $100 -PLAYER +;PLAYER ;-------------------------------- ; names of RMT instruments (sfx) ;-------------------------------- @@ -1753,9 +1809,5 @@ song_main_menu = $00 song_ingame = $07 song_game_over = $12 - icl 'art/rmtplayr_modified.asm' - org $6000 -MODUL - ins 'art/muzyka.rmt',+6 -MODULEND + RUN main diff --git a/averybreakout.xex b/averybreakout.xex index 258ec01e0777ea1e7a8454840bed89b6993ed0c0..1b83c4180c255fd9fe9883c72b1e6936280d35c6 100644 GIT binary patch delta 3434 zcmc&#eQXrR72o^t`FuXx7YEGRNnlORJNK1xBo1DTKh_QyVl8RFPTI{~b5|sixKSje zwCP{;4&w!5d(FX~!6aRBxv<3RWDOUp6e_kce*|$>O}7?lL|YQ40@u*=w2E9o5W#(W zCSO(5{u3#qyP5Z!dGp?zH@|t?)3Ik$+x$F6SZX$J?5w2=OePnxoLEU5chki4L=W*6 z@d074#;aFWcT{)nw0P?dE@^r87l+=x_Org~>gCYxUubUkiO1djR+C%!o5x?{b`(2H zO5uOI{D!+5?L%=aPQ+UJY4*HWm;Vojh`B|T!5lg7Si~hcm%p2L; z#~&EUye>|Y8A-fM%9uDy$|ms>QjUulnw_?47o|7wE-Uv&;+~li=C?j!X>~G|0YKOwbNb(-X4^)ktgo}MLd&ypFLJLYZ9HtMCv9~N~IT(^6F1;+Abzffs^<{12> zV_sdHBd0CeZ@}b9AHM-HPx-UW`aQ5Rt`|9cJ_v=e8S#Sv#zB^j#ez=bK*fGz;=C_A zuNN5#dB8mDgLF&;Z=S|b@CNaMpZSp=qL2+gnb$-s;*@hR+7UOFGG`Rgh0a00DBlN= z*nmA1Iaz9?(bO4M5BCRkVr)IfbiwyS)gu;!Tu0{F4)c~Tdn&9v%j$F7pN9uQvs06~d z-;3bf3ES{h7o-pTZ_^8;3={iPK-EcnYX;vQMA^nfA<$+mlAA{|Z{pi;ks^&If)?gq z{xmi?6M&y=il*ij8jY<*JT^6Gno?TO*gC|Urv@!kN-G*`L%elruwY7g1dXjnylrZ* zaB9Fl6~%(r*JF2@3mQgI*e@T-Wh!-xi8|r1_M7p#7OZyLoz@nhT7*@^wry?CQG#Oo z?5M z0)uI@+RTa#?1bw&v!x!wf{6x}x=M%*)P!qJ78abm=~%u9)(X@bO8hA-Twm~BCw%N! zUSwpzP^*PlnAo}Iqy6eTVa>uk)udL0xwzUC=60yhgt=~YFwE^#UkY)%)x#mKS3Miz z_NciK*Qa(y@GeufP%{JNIwPYh72y(UbA;Qcwne!8>c$8s9O=*OAI&5s!bz5V6ow3d#dpHY`;Ee*&bHW>8;|x# zJG>^XGLz&6;4MB6`=tS|o{hufe!r19(~w`#@7uDlP?ojl7o?rpRS82w>UC|D`dse! zdJ`^6#;)w)_CVjq^)Xu;4ZNG%4Sg@y3mD(p>&h$bj(u(RzjuMPnlCl~m%0Dz(wz!A zlx3RNs#}OlO-cu=S*1?u^0%W!{Nj*?s+K%kiTkkLh>i9chDK1uor5$2Z zSn3v^2}?W0!LZ_(auv$+;^B~107{2LFd@Da0x_2t&xVfnAL*BN>`O>H_wD~S3({`T zmwLs+BoF?yoKz z?ko;>=Ex-P+*lN(g)53mK#QZhzS8|VF`{YPuHmD@-%6@O2BTt`{oF1h*>rZ;bupUr zQHqbsR%vTx7w@BTUP|#A@L_;nD(9gTj{!-59x8_@1sQM&Kt$z8N+Ats2S`%68Y(Kg z(pIqsp3KdtvY48zp%M>iL8XG4B&oy-jZ~IUlc=u2t7j8;l$zLZv+G+#n1#We4v6$i~1(}NB=T57i1><;Ih0h5D**R?E` zw!<63rbO2iJp444BA}*WK4pd3d#lLIuYfn3fBpPQbLzSDYI%GBGY^`~eCY+^RI_a7 zsfhd&zBwWjd|O0*n%@{nV>sMJmq%P3fj8cTiF5>qcMcQlBkolJ8(;3*X5?c?93GM{J6PF0XDL^1~y-PHwAx~udCvtMxm8&a7lSRHr>r=y2aCbj0Wfxu z`Lsn|4B{gT;$J{q#~n;z10C!@C!0Aia{&At%$DeL*;n+(vJSmHU3BS5R<}*KZZMy> zmUgf|=wzW*a7m?;<%Sk;zF))QQu2ik7BV9Zz0k=*a`3(doUr6NS>|TTz~-+!tkfOZ z2ccMg-gw^Hhfp^PvBKgTW!&q1Jo`NF^Ywe5_j#Y}-h2D*H_Xpt_?3p^877@xLmbb_9n@N?ny`wVTaUYjXyUAR zPmg;O!M$VtGT-`*#!2)Tn%=D9nkwwvO#WvTt9X}Ar1)l?sOMXCBF4Ar=m#%F&0;3M zRwrInwGG^r0(ZbFR{1e@pH*O6Z5kl(So|dWtVdvNc`CQXBVx?!6+CGX-XQZ$u_z{D z6~7~OcwW0W&%A-_+UX6Km{-LhyF`%|eQYwZrjOY&MR?VT*Hz=Uk+{YV48(}wtLns3 zHk-iTs1q^vE(-s^fd^PS-bsoWeytw=$}VQA@4KsO)=^}(>i)PLXYKUcwhP&Wluabe zDFcpFSu9Wu*VN%3+9gxcmdh3^(sIS7O$|wACAEjXYEyI0GZ9GhbxuepzR8kW(aJis z0H9mTp3`!bg+F_2A)x`X(am;Wgy`FM>LWVTw{IN3&Eb>oqEZE<0e3s_O%8yrqV6Pp zq6R`owX%caYpH4THTo%ao3KzzHD1B_JBexY7b2HV$3+Xv3qhA5R}y>&D6TEwsN()o zSe~WUMm4M8$_fdtx~L+c)Qt_wF-qVW_HS6n%N}>X=b;)sg2nqhufHt zJlV$Vm1o+R0om=b_%(@41$M@}J>#<7!-QprhuJSTdYA+98V|$0H5flI9uG52YfQe6 zVut1WTA2}nv1!KR!>gZY+dpg(f}ML9?n2RO?YbH+r`VeF5e-#%oT2SOAjA@0iJMr_dYQg=nxU8XT zMWcv)wujjRG{l7Ht`(NfklFmhMOEI*>;*c&41f`bmy}rl*Y|8FoOb=5>7ym3fzN8C zW=hdra8nnWDPVKlAkk0N3VjKU;(lviYVEB97d5a|A;=qPVJA=0!Y|Vh`L6P0OyMd{Otb@*g_C7Fq)&A=nxl+x6|4LFt1~dQ*J(R^ffX zEmYbk!0C?le{1{Q^Yujy{i9=}|F<^|sf`hcA7J|N*K0o{tdu-dK!)J1VNBm_ADpyN(Tf_UFJd@V zKpr}y1=WOwluAezXfer_kWvxJ7L!sT$rh2)Vv;Q+r2>*&Ouk$|`f{~;gVB_I>xGFp zhnFo6NOfA51CJsUb}JvPR41evF@~6K}9~k4Uo)k66Gqdc=F! zHJ&JDfn)F!e61hI@V3WM1w>k0kOq;==kq;`8=crd9uwnM^X|=C4LF#OtK_3S4T;8s%QkUj+(2b z()03O(vzNq{IAr}C|+fT#Rg_1;>Sk!56=!O+Sw6dBta>9VK`B%`~&}jz$XbZ2mcd6 z>Ot^Lg;Lj{px>LX>9`hh5d?b$f*qtUImAq0S1z!B0QL^%U<4a#riR=UH@~FB*FvQX z)8^~+=k>YGRIOXR_{^~6rkIfhd4XDl;jU&1svwMXxhW`wWne)L>*m}P{ZGe`i;BN8 z`wE~wm~f;_iF%l0pVwb-QQVHDcRlW+%!Y+6_4VOueQRJPBh5jj*DLR*E8U<>K;p9_ zN(O*9I~+C%!|9BW4jROl-YorBM|8fQk75xYjAmHv2T#jo}5Ui3Z+VnICU#HND5 zU<8|TPGOpiMVMxOUZcU_TThdIr5Q{MpL~W)W0ol+J0~~KoL{iGa1r*v2M=)N8E144 z4nEAC$+vJfGp^d(=@~EmrI%jcPNRqE$GrVw-*`);SHup@-yc$LMD%fyIdKlidt6~= zd7u+Ii8Ur8x}m&e#CQlxhRioajW3GzpB#wA4<~LOT@j1_p2tvJ;PnW8>Wv6)dNvY+ zJdQ5U=#@`|!xq1uIUHUx8>3IOr}QG0`ddUBKRkXeewc~%AC6+Flfrw9*jjBbLG*MUut}S=J~07*!h|iw7or)R zazc2Qd5?V&(a4)vlUf3bsZ^H9ZU<KY-sx)1X_>F1i z`82%~MT}tKQia$l7V#}8VuA%)t(p_T)=YdO;+I0SfW$w7V4Bw;F`M_M!z1Lw(Zd&B zL`webN#W$#6EIIsw9^3e+C$<4%sWw?OrX@im~k1C*pxCt zu0|xULJ%9Oleer8#ZF-lGI8OEEjMzv? zdSSnc@YI-!p5Fe@r!I8*5j2$(cE}r%**bdBixi{mLjYRQ-Si?Aj0C`#iPK&LdqqfI zj~cINpfGYHGF#+Alv*5tQA;mE ziPhmuXt!-hToa4GZRuT#_#QM3pF{Ir>3Nj%0?PRf%K0rC?>{DOLgq4Q8?xo47E3+I z()A2tw?M11JJ3Lueq8da>g@~aXF=VC*sZGiIZy|*yy$B#AhU>t%x@yrRNZznG}xk#-tDPb#>l%H(KS)&}huga;L+2 z)a7(O?d)^DtJX94u*ia{HkVu0A!;)U+0!taS^I%N2JI>NPGd zsju#JnHIq%hyR-e*IoK%fAc-vn>)HX@vYsPpTstFZ1q2lJFp&q7q+%z>sEZ@mhD|w z&-N{y__prNomh*1MN7vvyt}7!Gq(QgReU90jqmVp*wV4B`)iBGpXuJ(xe?+(&>l7N KjP~zZ#`a&9xcTw`