!À8( @W.BAT@W.BATC.I   cE q0 \C)CC8`DCeECiD` RP Àh1$E ȍ @y b Y)hܭ]L]` q  DMD   u jÀ)`0  ,p0i2 &28jJ1f02 9 g iJf0i1)xԍӭ232002,>=."/R////0B0r000121b1111"2R22223B3r333424b4444455L5d555556:6\6t66667@7l7r777777"8(8^88888899$9c999:/:B:{:::::;);r;;;;<7<_<852/-*(%#! yspfaZURKHC?<9730-*(%$! xrke_ZUPKGC?<852/*(%#! ^-...@     %'%'+-3333;      !%'%'.28;      #$  ),/1 1#)   (**+045673<!1Qaa!BBaaaaaadaddda!BBaaaaaadaddd $DTtPר#  C  :a?@Ggwʫ A  -!23 :^Pj ¦  P ! P-L##VW ]@ ܤ@a!BBaaaa aadaddd B Psa ϥ@ _,.)Ƽ,D 4EF;CFBFGCBCFBFGCBFCFIKˑIK ̕ CFGFBFCFGCFBFCFCFGFBFCFGCFBFCFD ḰEIOCFGFBFCFGCFBFCFCFGFBFCFGCFBFCB M DNPNKRKRKRKRKRKRK RKRK N "$'NO΁N ONṔNCFGFBFCFGCFBFCFB F C B F B F B DKRKRKRKRKRKRKNMET$U'T)U)˗)_ TUTUTUTUTUTUT UTUTUTUTUTUTUTUT$UTUB%C B%C B%C B%D͐F WO΁WṔWOWṔWT$'KVKVKVK VKD   T)U)˗)WKVKVKV KVKWO΁WOWOWXXY ̀M WB Z F Z F Z F Z F Z F Z F G F Z F G F Z F G F Z F G Z F G F Z F G F Z F G F Z F G T)U)TUT),U,T,)U)T.U.T)',U,T U T "U"TU)'T')U)TUTUTUTUTUTUT UTUTUTUTUTUTUTGUT$UT$U'T)U)TUT).U.T.U.,T.U.T)',U,T U T "')U)T)'U'T"U"T U B%%%L΀%͍%B%L΀%%M%DB%L΁%͆%B%]̀΂̀̓̀΂̀̓W CMĆVC͇̓ VC MĆVC͇̓VC WD́CMĆVC͇̓ VC MĆVC͇̓V́B%WCFGFBFCFGCFBFCFCFGFBFC%F%B%L%B%L%B%L%EIIˁRIRIRIRIˁRIRIRIRI"O"I$"PIIPIOIPIOIIÓI"Ṕ"I P I" O I!I"O"I " ""P"I " PID      M%B%F%B%F%B%F%B%C%B%C%F%%%%DTUTUTUTUTUTUT UTUTUTUTUTUTUTUT$UTUIˁRIRIRIR̓IȁRIRIRIRǃ ""P"I " PID      M%B%F%B%F%B%F%B%C%B%C%F%%%%DTUTUTUTUTUTUT UTUTUxþ$W+L$, *L*w&`++Jΰ+L$++L*0 LG$+p+ȄL$ΰ+U鍰+ސ+D+ ȹ0++ &+Ș+++`+I iF+)iG+澢+++L%=%(}|+ ǽ(8}+f+թҍ?)}+)d+M)e+d+ҍ?e+ҍ?f+ҍ?g+ҍ?H\+)\+)8\+h\+++ҍ?]+ҍ?^+ҍ?_+ҍ? +ҍ?`t+x+\+L% B8`+,&)\+ȱ썷+Ȕ)<(&(&+J ( L%+ި+ +\+)\+#+i%)+}l+|+ (d++ޠ+L$X+g&L (L-(LC(L](Lm(L(L(L(`++ȱ+`腾А )鍰+ )I`+ɀ)?+@Ȍ+)+ t+ȹx+L&++}p+l++B:+7+8) +t+x+ ++`ct+x+J )+)pJJX+ȱ H)?+h)h+ȱ+++++l+|+ (d++`+Ȍ+`3n+*+*$++) .++$+`+) 8( (`+)JJ++}d+d+L$+L$d+8+d+8++L$++}d+d++}++L$|+8+|+ (LM(8++d+8+LM(|+}+Ld( (L( (}|+ (L$++0Ȉ+ݔ++I++`)?h+`()@ }d+d+`}l+|+ (dCu+`d+( d+d+ ++`- ҝd+`38jjFAn0R"ȠzU4ؽw`N8'øxpjd^ yy~~**+{&&)****L&{&&&&&i@$$莋$$i((** Yw&`X+` *{& 腾+w&`ii+$+`$0]J))`+++`**+{&&)****L&{&&&&&i@$$莋$$i((** sP[L)) y5|}? ! UFI3 >; "*,p6;>.GJQTD^c0or?y|8!"0# sR2Ú5rÎ!? ~ z ).Ͽ>3>WBG8aM?0 z:|Ͼ0p!H\  E<?`YDp+pU+ ?` U; ]@?# @""4(@U0# pf` 0"`I@"@0;<8"0oO 4 D_$F -_Uhh,*?0Zʇ@nҔ_)PH _# C`Ɗ(z/#/0ނ[:F//1 xW{/5w H/?"^#_0? @?a?0HG'$C_$B_ ?@K+?cb `_DhB/ь__x52`lE#/@"_'Y%h/ !(oo7%% 3#I8?//7["X+og_QXOˊPX/_G_Ur5L//0[pkh_U&z! &//_C*N<%_TofRV]CZv/@":z>CUTm0wq]} =Ko}  8?U?X US'Nj ~|ï0@ ___o^stEgA Sꣅv_ Q nm#m = S SA[==uPXAw̕JZºu VkTN@?̾l0%TX`TH&U0`0R¢h2VL P( ta28`HH@J@0@ ) :Z8``0( <; c! `0K@H1  Ȕ @`@80 p`<0À) px xx<1= ABx_a0`*1= ABx_a0`*\_66lBffff>`<|fl0fF68of;0GHLPpTdpf<~~`|f<<`|ff<~ ><0 0 ~~`0 0` ,S^:.v>^\:.~>~|:>~|:>~:~rv~>{~>~ww<~~~<|`x`~<~~< ..R0~0 ~ <~~<<>f>`|fff|fff>ff>|`|Vfq8<f<``lxlf8u<fkc|ffff>|f```<`<|0|006f>fff<ck>6f<<~ 0~<~~<|x|lF /R8xx8~~<<>f>`|fff|fff>ff>|`|Vfq8<f<``lxlf8u<fkc|ffff>|f```<`<|0|006f>fff<ck>6f<<~ 0~<~~<|x|lF  `a  $$))--1155::>>DDJ JQ Q[ [r r| | 1   55??FFLLQQVV[[__ccg gl lp pt tx x}} 2  55??FFLLQQVV[[__ccg gl lp pt tx x}}  åbwd/ 'cT0d1/d nc c/d1d6d0 c b1d Kb"/L%b`ꝟb`pbisbqbtb!pbi(pbqbsbi(sbtbLob` Lb O聂 c Xbcc b 'c/d/d cbLb`cũi(4gĐŠ Ac``lc9 )ilcmc\II )k UdVdTd``$i(` Lc@Lc`Lc2d ` )(QPyx5cȰA@A@ih᱙'С`7%,#/-%)./.,9484-/$%$%-/pppruB"ATd`$i(` Lc@Lc`Lc2d ` )(QPyxGdf e0O1 f Df Df e|eee `a e e e eTe eee ~e|e|e|e}e Ue}eLLd ~e LdTe*Ld4 eLd  eLd e<LdLdTeLd` eX A8XLpeXYY77``@XY`Xi(XYƑLeXeXY`XiXi(XY``Oei*eLe` f f f fi H f0f f1fh0f1f8` f Sf ofΟf` A*` OOpppB@#A L`i(`T) M҅ȱ҅׈ LHMhL&*`i*`Oi*`OO@A@AEHEA@@EILJEAAEJLJEAAEHEA@A@Y``&@_C B B 3B 'B B 3@ 0O1 3@LL0@ @  @ @ @ )A @ @ @ @ @ @ @ @ @ @ @ )A @ @ @ @ @ @ @ @`@ HA A B B BΤ@ @ ``0` `` @` @` @`@XY`Xi(XY` B :AXY B B B B @` 2A`Hh A`@Yi'XYXqXqXi)?Ai@恥ɿ` @ @@YXA8XY恥Yɿ`  !Ù "/ 01 L L׭ !/L("/Lm`8`(pppBpN .$<..A 5t42by.' stshalki escfeff5 L L׭ !/L("/Lm`8`(pppBpN .$5'TAKU-ARDO by tqd !>007F 66'NAPISZ TU ($7f) ZERO,jezeli nie masz stereo>0058 00 20RUN F420LOA MSXLOA PL.COMLOA LOGLOA FNTLOA KOLO'$6200LOA SC.COMLOA BOB3D.COMLOA DLLOA TTLOA FF'$8600LOA FIRE2.COMLOA FIRECOL.FNTLOA MAPLOA BUMP.COM'8C)*-=** Player MPT 2.4 ** Jaskier/Taquart **N-* opt %100101 org $2400buf equ $3fa0*--- strona 0pozptr equ $bepozsng equ $bfadrtrl equ $e0adrtrh equ $e4maxptr equ $e8tempo equ $e9addr equ $ec ,$edword e,?Gqu $ee ,$efaudzer equ $f0 ,$f1 ,$f2 ,$f3licslp equ $f4 ,$f5 ,$f6 ,$f7lensmp equ $f8lsbmsb equ $f9adrs1 equ $fa ,$fbadrs2 equ $fc ,$fdadrsmp equ $fe ,$ffpom equ $9eglos equ $bdmuz equ $2c00 jmp play lda #0 sta glos ldy muz j,@@sr init lda #2 ldx #0 jmp initplay lda czygrc bne *+3 rts lda #0 sta oraaud inc licz lda pozptr cmp maxptr bcc r1 dec zegar beq p1 jmp r5p1 ldx #0 stx pozptrp2 lda #0 sta ptrwsk,x sta licspc,x lda adrtrl,x sta addr lda adrtrh,x ,Asta addr+1 ldy pozsngp3 lda (addr),y iny cmp #$ff beq p5 cmp #$fe bne p6p4 jmp inic2p5 lda (addr),y bmi p4 asl @ tay sty pozsng jmp p3p6 sta numptr,x lda (addr),y sta poddzw,xp7 inx cpx #4 bne p2 iny sty pozsng jmp r5r1 dec zegar,Be bpl r5 lda tempo sta zegar ldx #3r2 dec licspc,x bpl r4 lda numptr,x asl @ tayaptrlz lda $if,y sta addr inyaptrhz lda $f,y sta addr+1 ora addr beq r4 lda ptrwsk,x sta licptr jsr newdzw ldy licptr iny tya sta ptrwsk,x lda il,Cespc,x sta licspc,x cpx #2 bne r4 lda adcvol,x eor #$f asl @ asl @ asl @ asl @ adc volstb adc #0 sta volsmp+2r4 dex bpl r2 inc pozptrr5 ldx #1 lda typsmp cmp #2 beq r6 ldx #3r6 lda typsmp cmp #2 bne r7,D cpx kansmp beq r8r7 jmp dzwiekr8 lda audzer,x and filtry,x beq r9 ldy #$28 lda (addr),y clc adc numdzw,x jsr czest sec adc p1pom,x sta freq+2,xr9 dex bpl r6 lda #3 sta $d20f sta buf+$22 lda audzer+1 and #$10 beq w1 ldy numdzw+1 l,Eda bsfrql,y sta freq lda bsfrqh,y sta freq+1w1 lda freq sta $d200 sta buf+0 lda freq+1 sta $d202 sta buf+2 lda freq+2 sta $d204 sta buf+4 lda freq+3 sta $d206 sta buf+6 txa pha ldx #0_s2 lda volume,x and #$f0 sta pom lda volume,x,F and #$f sec sbc glos bpl _s1 lda #0_s1 ora pom sta volume,x inx cpx #4 bne _s2 pla tax lda volume ldx #$ff ldy typsmp cpy #1 bne w2 ldx kansmp beq w3w2 sta $d201 sta buf+1w3 lda volume+1 cpx #1 beq w4 sta $d203 sta buf+3w4 cp,Gy #2 beq w6 lda volume+2 cpx #2 beq w5 sta $d205 sta buf+5w5 lda volume+3 cpx #3 beq w6 sta $d207 sta buf+7w6 lda audzer ora audzer+1 ora audzer+2 ora audzer+3 ora oraaud sta $d208 sta buf+8 rtsfiltry dta b(4),b(2),b(0),b(0)dzwiek ,HGlda adrinl,x sta addr lda adrinh,x sta addr+1 ora addr bne d0 sta volume,x sta audzer,x jmp r9d0 ldy licslp,x cpy #$20 beq d3 lda (addr),y sec sbc adcvol,x bit sprvol beq d1 and #$f0d1 sta volume,x iny lda (addr),y sta przech iny ,IIûsty licslp,x and #7 beq d4 tay lda akcadl-1,y sta akjmpz+1 lda akcadh-1,y sta akjmpz+2 lda przech lsr @ lsr @ lsr @ lsr @ lsr @ ora #$28 tay lda (addr),y clcakjmpz jsr $fd2 lda #0 sta audzer,x jmp r9d3 lda p3max,x beq d4 dec p,J3lic,x bne d4 sta p3lic,x lda volume,x and #15 beq d4 dec volume,xd4 ldy #$23 lda (addr),y sta audzer,x lda trnlic,x clc adc #$25 tay and #3 sta trnlic,x dey lda (addr),y adc adcdzw,x sta numdzw,x jsr czest+2 sta freq,x lda p2lic,x,KǛ beq d5 dec p2lic,x jmp r8d5 lda branch,x sta p1jmpz+1p1jmpz bpl * jmp typ0dz brk jmp typ1dz brk jmp typ2dz brk jmp typ3dzczygrc dta b(0) jmp typ4dzzapisx dta b(0) jmp typ5dzzapisy dta b(0) jmp typ6dzsprvol dta b($10) jmp typ7dzne,Lwdzw lda #0 sta adcvol,x ldy licptr deynew iny lda (addr),y cmp #$fe bne q0 sty licptr rtsq0 cmp #$e0 bcc q1 lda maxptr sta pozptr bne newq1 cmp #$d0 bcc q2 and #15 sta tempo sta zegar bpl newq2 cmp #$c0 bcc q3 and #15 eor #15 s,Mßta adcvol,x bpl newq3 cmp #$80 bcc q4 and #$3f sta ilespc,x bpl newq4 cmp #$40 bcc q5 iny sty licptr and #$1f sta numsmp,x asl @ tayainslz lda $f,y sta adrinl,x inyainshz lda $f,y sta adrinh,x jmp newdzwq5 sty licptr sta prz,Nech clc adc poddzw,x sta adcdzw,x lda typsmp beq n9 cmp #2 beq n8 lda numsmp,x cmp #$1f bne n9 lda przech sec sbc #1n6 and #15 tay lda (adrsmp),y sta adrs2+1 tya ora #$10 tay lda (adrsmp),y sta lensmp ldy #1 ora adrs2+1 bne n7 ,Oldy #0n7 sty czysmp lda #0 sta adrs2 sta adrinl,x sta adrinh,x txa asl @ sta wsksmp stx kansmp rtsn8 cpx #2 bcs nbn9 lda adrinl,x sta word lda adrinh,x sta word+1 ora word beq na-1 ldy #$20 lda (word),y and #15 sta p1lsb,x lda (wo,Prd),y and #$70 lsr @ lsr @ sta branch,x iny lda (word),y asl @ asl @ pha and #$3f sta p2lic,x pla and #$c0 sta frqwsk,x iny lda (word),y sta p3max,x sta p3lic,x lda #0 sta licslp,x sta trnlic,x sta p1lic,x sta p1pom,x lda adcdzw,,QGx sta numdzw,x jsr czest sta freq,x cpx kansmp beq na rtsna ldy #$ff sty kansmp iny sty czysmp rtsnb cpx #2 bne nd ldy adcdzw+2 lda frsmpl,y sta smpl1z+1 lda frsmph,y sta smpl2z+1 lda #0 sta lsbmsb sta adrs1 lda numsmp+2 and #15 ,RRtay lda (adrsmp),y sta adrs1+1 tya ora #$10 tay lda (adrsmp),y sta smpl3z+1 ora adrs1+1 bne nc sta smpl1z+1 sta smpl2z+1nc rtsnd lda numsmp+3 and #15 tay lda (adrsmp),y sta adrs2+1 tya ora #$10 tay lda (adrsmp),y ora adrs2+1 beq n,Se lda (adrsmp),y sec sbc adrs2+1 sta lensmp lda #0 sta adrs2 lda #$8d bne nfne lda #$adnf sta drum2z sta drum1z lda #$18 sta $d207 rtsdrum2z dta b(0)drum1z dta b(0)typ0dz lda licz and #7 lsr @ lsr @ bcc t2 bne typ1dz lda p1lsb,x,TǛt1 clc sta p1pom,x adc freq,x sta freq,x jmp r8t2 lda #0 sta p1pom,x jmp r8typ1dz lda freq,x sec sbc p1lsb,x sta freq,x sec lda #0 sbc p1lsb,x sta p1pom,x jmp r8typ2dz lda p1lic,x clc sta p1pom,x adc freq,xt3 sta freq,x clc lda p,U1lic,x adc p1lsb,x sta p1lic,x jmp r8typ3dz lda numdzw,x sec sbc p1lic,xt4 sta numdzw,x jsr czest jmp t3typ4dz lda #0 sec sbc p1lic,x sta p1pom,x lda freq,x sec sbc p1lic,x jmp t3typ5dz lda numdzw,x clc adc p1lic,x jmp t4typ6dz jsr,V t5 jmp t1typ7dz jsr t5 clc adc numdzw,x jsr a3 jmp r8t5 ldy p1lic,x lda p1lsb,x bmi t6 iny inyt6 dey tya sta p1lic,x cmp p1lsb,x bne t7 lda p1lsb,x eor #$ff sta p1lsb,xt7 lda p1lic,x rtsczest and #$3f ora frqwsk,x tayt1frqz lda,W $f,y rtsakcadl dta l(a1),l(a0),l(a2) dta l(a4),l(a5),l(a6),l(a8)akcadh dta h(a1),h(a0),h(a2) dta h(a4),h(a5),h(a6),h(a8)audora dta b($40),b(0),b($20),b(0)a0 adc freq,xa1 sta freq,x rtsa2 adc adcdzw,xa3 sta numdzw,x jsr czest sta freq,,Xx rtsa4 sta freq,x lda audora,x bpl a7a5 sta freq,x lda #$80 bne a7a6 sta freq,x lda #1a7 ora oraaud sta oraaud rtsa8 and $d20a sta freq,xa9 rtsbsfrql equ *-1 dta b($f2),b($33),b($96) dta b($e2),b($38),b($8c),b(0) dta b($6a),b($e8),b,Y($6a),b($ef) dta b($80),b(8),b($ae),b($46) dta b($e6),b($95),b($41),b($f6) dta b($b0),b($6e),b($30),b($f6) dta b($bb),b($84),b($52),b($22) dta b($f4),b($c8),b($a0),b($7a) dta b($55),b($34),b($14),b($f5) dta b($d8),b($bd),b($a4),b($8d) dta b($77),ZC,b($60),b($4e),b($38) dta b($27),b($15),b(6),b($f7) dta b($e8),b($db),b($cf),b($c3) dta b($b8),b($ac),b($a2),b($9a) dta b($90),b($88),b($7f),b($78) dta b($70),b($6a),b($64),b($5e)bsfrqh equ *-1 dta c' ' dta c'' dt,[[a c'' dta c'-='volstb dta d'M8X' dta d'66\7\a8ae9:' dta d'556667788899:::;' dta d'455667788899::;;' dta d'44556677899::;;<' dta d'34456677899::;<<' dta d'33455677899:;;<=' dta d'23445677899:;<<=',\Ǜ dta d'2334566789::;<==' dta d'2234566789::;<=>' dta d'1234566789::;<=>' dta d'1234556789:;;<=>' dta d'1234456789:;<<=>' dta d'1233456789:;<==>' dta d'1223456789:;<=>>' dta d'0123456789:;<=>?'frsmpl equ *frsmph equ *iniadl dta l(inic0),l(in,]éic2) dta l(inic4)iniadh dta h(inic0),h(inic2) dta h(inic4)init stx zapisx sty zapisy and #7 tay lda iniadl,y sta inic1+1 lda iniadh,y sta inic1+2inic1 jmp $finic0 lda zapisy ldx zapisx sta ainslz+1 sta ainshz+1 stx ainslz+2 stx ai,^nshz+2 clc adc #$40 sta aptrlz+1 sta aptrhz+1 bcc i2 inxi2 stx aptrlz+2 stx aptrhz+2 clc adc #$80 sta t1frqz+1 bcc i4 inxi4 stx t1frqz+2 inx sta j4+1 stx j4+2 ldx #9j4 lda $f,x sta adrtrl,x dex bpl j4 dec tempoinic2 lda #0 s,_ta czygrc ldx dl sta $231m lda #$ff sta 764q ldy 764 iny beq q dey lda a sta $fe lda a+1 sta $ff cpy #6 bne q2 jsr zm jmp mq2 cpy #7 bne 4kq3 jsr zw jmp mq3 cpy #28 bne q lda size cmp #32 beq s40 lda #32 sta size lda #33 sta 559 jmp ms40 lda #40 sta size lda #34 sta 559 jmp mzw clc lda a adc size sta a bcc *+5 inc a+1 rtszm sec lda a sbc size sta a bcs *+54lZ dec a+1 rtssize dta b(40)dl dta d'ppp',b($42),a(t),d'p',b($4e)a dta a($2000) dta c'.' dta c'.' dta b($41),a(dl)t dta d'UtT3R by NG :). sts4mhalki+esc...fe/ff Z')dl dta d'ppp',b($42),a(t),d'p',b($4e)a dta a($2000) dta c'.' dta c'.' dta b($41),a(dl)t dta d'UtT3R by NG :). sts4 opt %100101 org $6200lit equ $80 we0 equ $82 ; 2*16a0 equ $c2 wv1 equ $c4 wekr equ $b000+36ekk equ $b000ekr2 equ ekk+160ekr3 equ ekk+320fnt equ $5c00kolo equ $6000 lda #0 sta 559 sta 710 jsr cz lda #$e08o sta 756 lda
dl; Esta $231J Qlda #0V csta nr_bituh pjsr clru jsr mkeklop lda #0 sta nr_bitu ldx nr lda txt,x bmi end sta lit ldy #0 jsr znak jsr scr 8p inc nr jsr za_nop 'lda #34, 4sta 5599 fjmp lopend rtsza_nop ldx #0odd lda #$eak wsta mod+1,x| inx cpx #7 bne odd rtscl_lin ldx #0 lda ekk sta md+2 sta md2+2 8qlda #0md sta $fmd2 sta $"fݛ inx cpx #16 bcs ecl clc lda md+1 adc #40 sta md+1 bcc *+6 inc md+2 clc lda md2+1 adc #40 sta md2+1 bcc *+5 inc md2+2 lda #0 jmp mdecl rtsscr lda (lit),ymod asl @ nop nop nop 8rCnop nop nop nop$ .bcs point3 Ejmp zwpoint tyaJ Pasl @U [asl @` etaxj slda #$4fx sta (e0,x) inx inx sta (e0,x)zw iny cpy #8 bne scr jsr przes jsr cl_lin dec fire bn8sse nie lda #2 sta fire% ekk sta v1+1 lda <8tekk clc adc #40 &sta v1+ 3bcc *+48 Binc v1+1G ^ldy #0spa lda (v1),yc kbeq nicp ycmp #$41~ bcc _0 sbc #1 bne tuu_0 lda #0tuu sta (v1),ynic iny bne spa inc v1+1 dec ll bne spa 8urtsll dta b(0)fire dta b(4)key lda #$ff sta 764k ldy 764 iny beq k rtscz lda 20 cmp 20 beq *-2 dec i bpl xi lda $d20a and #7 adc #4 sta i dec i+1 bne xi2 lda #$5c sta 756xi2 lda 709 eor #15 sta 709 lda 710 eor #15 sta 7108v sta 712 lda $d20a and #7 asl @ asl @ asl @ asl @ sta dl+1 sta dl+2 sta dlxi rtsi dta b(4),b(17)clr ldy #0 tyacl sta $b000,y sta $b100,y sta $b200,y sta $b300,y iny bne cl rtsmkek lda ekr sta e0+18w ldx #0_m1 lda e0+1,x# .sta e0+3,x3 dl sta $231 lda #13 sta il jsr mktb jsr mktb ; mk_bobs<~ (robi sobie bobsiki,hle,he!)# Cjsr mkz l mk_"z"main ldx nnrH Qldy nr,xV alda tabz,yf lsta zq utyaz asl @ tay lda kolo,y sbc #2 sta x lda kolo+$100,y sbc #2 sta y jsr seta ; wybiera bobsa/wed<lug z jsr s_ekr &jsr dodpoz+ 5jsr show: Clda ogggH Lbne PfQV ]inc nrb kinc nr+1p yinc nr+2}f jsr cz inc nnr lda nnr cmp #3 bcc main lda #0 sta nnr dec ogien bne nie jsr spal< lda #3 sta ogiennie lda $bf cmp #$12 bcs knn cmp #$10 bcs kn jmp mainkn jsr cz lda $be cmp #$20 bcs kk jmp mainkk lda #1 sta oggg lda $be cmp #$2a bcs di jmp maindi cmp #$34 bcs kk2 lda #0 sta kk+1 jmp mainkk2 lda $bob sta $81_set ldy z beq no_a clc lda $80 adc #42 sta $80 bcc *+4 inc $81< dec z 0jmp _setno_a rtsmkz ldy #05 9tya> Hlda >tabzM Vsta m2+2[ elda muz j@sr init lda #2 ldx #0 jmp initplay lda czygrc bne *+3 rts lda #0 sta oraaud inc licz lda pozptr cmp maxptr bcc r1 dec zegar beq p1 jmp r5p1 ldx #0 stx pozptrp2 lda #0 sta ptrwsk,x sta licspc,x lda adrtrl,x sta addr lda adrtrh,x @sta addr+1 ldy pozsngp3 lda (addr),y iny cmp #$ff beq p5 cmp #$fe bne p6p4 jmp inic2p5 lda (addr),y bmi p4 asl @ tay sty pozsng jmp p3p6 sta numptr,x lda (addr),y sta poddzw,xp7 inx cpx #4 bne p2 iny sty pozsng jmp r5r1 dec zegar@Ce bpl r5 lda tempo sta zegar ldx #3r2 dec licspc,x bpl r4 lda numptr,x asl @ tayaptrlz lda $if,y sta addr inyaptrhz lda $f,y sta addr+1 ora addr beq r4 lda ptrwsk,x sta licptr jsr newdzw ldy licptr iny tya sta ptrwsk,x lda il@espc,x sta licspc,x cpx #2 bne r4 lda adcvol,x eor #$f asl @ asl @ asl @ asl @ adc volstb adc #0 sta volsmp+2r4 dex bpl r2 inc pozptrr5 ldx #1 lda typsmp cmp #2 beq r6 ldx #3r6 lda typsmp cmp #2 bne r7@ cpx kansmp beq r8r7 jmp dzwiekr8 lda audzer,x and filtry,x beq r9 ldy #$28 lda (addr),y clc adc numdzw,x jsr czest sec adc p1pom,x sta freq+2,xr9 dex bpl r6 lda #3 sta $d20f sta buf+$22 lda audzer+1 and #$10 beq w1 ldy numdzw+1 l@da bsfrql,y sta freq lda bsfrqh,y sta freq+1w1 lda freq sta $d200 sta buf+0 lda freq+1 sta $d202 sta buf+2 lda freq+2 sta $d204 sta buf+4 lda freq+3 sta $d206 sta buf+6 txa pha ldx #0_s2 lda volume,x and #$f0 sta pom lda volume,x@ and #$f sec sbc glos bpl _s1 lda #0_s1 ora pom sta volume,x inx cpx #4 bne _s2 pla tax lda volume ldx #$ff ldy typsmp cpy #1 bne w2 ldx kansmp beq w3w2 sta $d201 sta buf+1w3 lda volume+1 cpx #1 beq w4 sta $d203 sta buf+3w4 cp@y #2 beq w6 lda volume+2 cpx #2 beq w5 sta $d205 sta buf+5w5 lda volume+3 cpx #3 beq w6 sta $d207 sta buf+7w6 lda audzer ora audzer+1 ora audzer+2 ora audzer+3 ora oraaud sta $d208 sta buf+8 rtsfiltry dta b(4),b(2),b(0),b(0)dzwiek @lda adrinl,x sta addr lda adrinh,x sta addr+1 ora addr bne d0 sta volume,x sta audzer,x jmp r9d0 ldy licslp,x cpy #$20 beq d3 lda (addr),y sec sbc adcvol,x bit sprvol beq d1 and #$f0d1 sta volume,x iny lda (addr),y sta przech iny @ûsty licslp,x and #7 beq d4 tay lda akcadl-1,y sta akjmpz+1 lda akcadh-1,y sta akjmpz+2 lda przech lsr @ lsr @ lsr @ lsr @ lsr @ ora #$28 tay lda (addr),y clcakjmpz jsr $fd2 lda #0 sta audzer,x jmp r9d3 lda p3max,x beq d4 dec p@3lic,x bne d4 sta p3lic,x lda volume,x and #15 beq d4 dec volume,xd4 ldy #$23 lda (addr),y sta audzer,x lda trnlic,x clc adc #$25 tay and #3 sta trnlic,x dey lda (addr),y adc adcdzw,x sta numdzw,x jsr czest+2 sta freq,x lda p2lic,x@G beq d5 dec p2lic,x jmp r8d5 lda branch,x sta p1jmpz+1p1jmpz bpl * jmp typ0dz brk jmp typ1dz brk jmp typ2dz brk jmp typ3dzczygrc dta b(0) jmp typ4dzzapisx dta b(0) jmp typ5dzzapisy dta b(0) jmp typ6dzsprvol dta b($10) jmp typ7dzne@wdzw lda #0 sta adcvol,x ldy licptr deynew iny lda (addr),y cmp #$fe bne q0 sty licptr rtsq0 cmp #$e0 bcc q1 lda maxptr sta pozptr bne newq1 cmp #$d0 bcc q2 and #15 sta tempo sta zegar bpl newq2 cmp #$c0 bcc q3 and #15 eor #15 s@ßta adcvol,x bpl newq3 cmp #$80 bcc q4 and #$3f sta ilespc,x bpl newq4 cmp #$40 bcc q5 iny sty licptr and #$1f sta numsmp,x asl @ tayainslz lda $f,y sta adrinl,x inyainshz lda $f,y sta adrinh,x jmp newdzwq5 sty licptr sta prz@ech clc adc poddzw,x sta adcdzw,x lda typsmp beq n9 cmp #2 beq n8 lda numsmp,x cmp #$1f bne n9 lda przech sec sbc #1n6 and #15 tay lda (adrsmp),y sta adrs2+1 tya ora #$10 tay lda (adrsmp),y sta lensmp ldy #1 ora adrs2+1 bne n7 @ldy #0n7 sty czysmp lda #0 sta adrs2 sta adrinl,x sta adrinh,x txa asl @ sta wsksmp stx kansmp rtsn8 cpx #2 bcs nbn9 lda adrinl,x sta word lda adrinh,x sta word+1 ora word beq na-1 ldy #$20 lda (word),y and #15 sta p1lsb,x lda (wo@rd),y and #$70 lsr @ lsr @ sta branch,x iny lda (word),y asl @ asl @ pha and #$3f sta p2lic,x pla and #$c0 sta frqwsk,x iny lda (word),y sta p3max,x sta p3lic,x lda #0 sta licslp,x sta trnlic,x sta p1lic,x sta p1pom,x lda adcdzw,@x sta numdzw,x jsr czest sta freq,x cpx kansmp beq na rtsna ldy #$ff sty kansmp iny sty czysmp rtsnb cpx #2 bne nd ldy adcdzw+2 lda frsmpl,y sta smpl1z+1 lda frsmph,y sta smpl2z+1 lda #0 sta lsbmsb sta adrs1 lda numsmp+2 and #15 @tay lda (adrsmp),y sta adrs1+1 tya ora #$10 tay lda (adrsmp),y sta smpl3z+1 ora adrs1+1 bne nc sta smpl1z+1 sta smpl2z+1nc rtsnd lda numsmp+3 and #15 tay lda (adrsmp),y sta adrs2+1 tya ora #$10 tay lda (adrsmp),y ora adrs2+1 beq n@e lda (adrsmp),y sec sbc adrs2+1 sta lensmp lda #0 sta adrs2 lda #$8d bne nfne lda #$adnf sta drum2z sta drum1z lda #$18 sta $d207 rtsdrum2z dta b(0)drum1z dta b(0)typ0dz lda licz and #7 lsr @ lsr @ bcc t2 bne typ1dz lda p1lsb,x@Gt1 clc sta p1pom,x adc freq,x sta freq,x jmp r8t2 lda #0 sta p1pom,x jmp r8typ1dz lda freq,x sec sbc p1lsb,x sta freq,x sec lda #0 sbc p1lsb,x sta p1pom,x jmp r8typ2dz lda p1lic,x clc sta p1pom,x adc freq,xt3 sta freq,x clc lda p@1lic,x adc p1lsb,x sta p1lic,x jmp r8typ3dz lda numdzw,x sec sbc p1lic,xt4 sta numdzw,x jsr czest jmp t3typ4dz lda #0 sec sbc p1lic,x sta p1pom,x lda freq,x sec sbc p1lic,x jmp t3typ5dz lda numdzw,x clc adc p1lic,x jmp t4typ6dz jsr@ t5 jmp t1typ7dz jsr t5 clc adc numdzw,x jsr a3 jmp r8t5 ldy p1lic,x lda p1lsb,x bmi t6 iny inyt6 dey tya sta p1lic,x cmp p1lsb,x bne t7 lda p1lsb,x eor #$ff sta p1lsb,xt7 lda p1lic,x rtsczest and #$3f ora frqwsk,x tayt1frqz lda@ $f,y rtsakcadl dta l(a1),l(a0),l(a2) dta l(a4),l(a5),l(a6),l(a8)akcadh dta h(a1),h(a0),h(a2) dta h(a4),h(a5),h(a6),h(a8)audora dta b($40),b(0),b($20),b(0)a0 adc freq,xa1 sta freq,x rtsa2 adc adcdzw,xa3 sta numdzw,x jsr czest sta freq,@x rtsa4 sta freq,x lda audora,x bpl a7a5 sta freq,x lda #$80 bne a7a6 sta freq,x lda #1a7 ora oraaud sta oraaud rtsa8 and $d20a sta freq,xa9 rtsbsfrql equ *-1 dta b($f2),b($33),b($96) dta b($e2),b($38),b($8c),b(0) dta b($6a),b($e8),b@($6a),b($ef) dta b($80),b(8),b($ae),b($46) dta b($e6),b($95),b($41),b($f6) dta b($b0),b($6e),b($30),b($f6) dta b($bb),b($84),b($52),b($22) dta b($f4),b($c8),b($a0),b($7a) dta b($55),b($34),b($14),b($f5) dta b($d8),b($bd),b($a4),b($8d) dta b($77)@,b($60),b($4e),b($38) dta b($27),b($15),b(6),b($f7) dta b($e8),b($db),b($cf),b($c3) dta b($b8),b($ac),b($a2),b($9a) dta b($90),b($88),b($7f),b($78) dta b($70),b($6a),b($64),b($5e)bsfrqh equ *-1 dta c' ' dta c'' dt@a c'' dta c'-='volstb dta d'M8X' dta d'66\7\a8ae9:' dta d'556667788899:::;' dta d'455667788899::;;' dta d'44556677899::;;<' dta d'34456677899::;<<' dta d'33455677899:;;<=' dta d'23445677899:;<<='@Ǜ dta d'2334566789::;<==' dta d'2234566789::;<=>' dta d'1234566789::;<=>' dta d'1234556789:;;<=>' dta d'1234456789:;<<=>' dta d'1233456789:;<==>' dta d'1223456789:;<=>>' dta d'0123456789:;<=>?'frsmpl equ *frsmph equ *iniadl dta l(inic0),l(in@Cic2) dta l(inic4)iniadh dta h(inic0),h(inic2) dta h(inic4)init stx zapisx sty zapisy and #7 tay lda iniadl,y sta inic1+1 lda iniadh,y sta inic1+2inic1 jmp $finic0 lda zapisy ldx zapisx sta ainslz+1 sta ainshz+1 stx ainslz+2 stx ai@nshz+2 clc adc #$40 sta aptrlz+1 sta aptrhz+1 bcc i2 inxi2 stx aptrlz+2 stx aptrhz+2 clc adc #$80 sta t1frqz+1 bcc i4 inxi4 stx t1frqz+2 inx sta j4+1 stx j4+2 ldx #9j4 lda $f,x sta adrtrl,x dex bpl j4 dec tempoinic2 lda #0 s@ta czygrc ldx dl sta $231m lda #$ff sta 764q ldy 764 iny beq q dey lda a sta $fe lda a+1 sta $ff cpy #6 bne q2 jsr zm jmp mq2 cpy #7 bne Hq3 jsr zw jmp mq3 cpy #28 bne q lda size cmp #32 beq s40 lda #32 sta size lda #33 sta 559 jmp ms40 lda #40 sta size lda #34 sta 559 jmp mzw clc lda a adc size sta a bcc *+5 inc a+1 rtszm sec lda a sbc size sta a bcs *+5HZ dec a+1 rtssize dta b(40)dl dta d'ppp',b($42),a(t),d'p',b($4e)a dta a($2000) dta c'.' dta c'.' dta b($41),a(dl)t dta d'UtT3R by NG :). stsHhalki+esc...fe/ff Z')dl dta d'ppp',b($42),a(t),d'p',b($4e)a dta a($2000) dta c'.' dta c'.' dta b($41),a(dl)t dta d'UtT3R by NG :). stsH opt %100101 org $6200lit equ $80 we0 equ $82 ; 2*16a0 equ $c2 wv1 equ $c4 wekr equ $b000+36ekk equ $b000ekr2 equ ekk+160ekr3 equ ekk+320fnt equ $5c00kolo equ $6000 lda #0 sta 559 sta 710 jsr cz lda #$e0LC sta 756 lda
dl; Esta $231J Qlda #0V csta nr_bituh pjsr clru jsr mkeklop lda #0 sta nr_bitu ldx nr lda txt,x bmi end sta lit ldy #0 jsr znak jsr scr L inc nr jsr za_nop 'lda #34, 4sta 5599 fjmp lopend rtsza_nop ldx #0odd lda #$eak wsta mod+1,x| inx cpx #7 bne odd rtscl_lin ldx #0 lda ekk sta md+2 sta md2+2 Llda #0md sta $fmd2 sta $"fݛ inx cpx #16 bcs ecl clc lda md+1 adc #40 sta md+1 bcc *+6 inc md+2 clc lda md2+1 adc #40 sta md2+1 bcc *+5 inc md2+2 lda #0 jmp mdecl rtsscr lda (lit),ymod asl @ nop nop nop Lnop nop nop nop$ .bcs point3 Ejmp zwpoint tyaJ Pasl @U [asl @` etaxj slda #$4fx sta (e0,x) inx inx sta (e0,x)zw iny cpy #8 bne scr jsr przes jsr cl_lin dec fire bnLe nie lda #2 sta fire% ekk sta v1+1 lda ekr sta e0+1L ldx #0_m1 lda e0+1,x# .sta e0+3,x3 dl sta $231 lda #13 sta il jsr mktb jsr mktb ; mk_bobs jsr mkz P l mk_"z"main ldx nnr &ldy nr,x+ 6lda tabz,y; Asta zF JtyaO Uasl @Z ^tayc nlda kolo,ys zsbc #2 sta x lda kolo+$100,y sbc #2 sta y jsr seta ; wybiara bobsa/wedlug z jsr s_ekr jsr dodpoz P jsr show lda oggg !bne %f&+ 2inc nr7 @inc nr+1E Ninc nr+2RfZ jsr cz_ ginc nnrl tlda nnry cmp #3 bcc main lda #0 sta nnr dec ogien bne nie jsr spal lda #3 sta ogiennie lda $bf cPmp #$12 bcs knn cmp #$10 bcs kn jmp mainkn jsr cz lda $be cmp #$20 bcs kk jmp mainkk lda #1 sta oggg lda $be cmp #$2a bcs di jmp maindi cmp #$34 bcs kk2 lda #0 sta kk+1 jmp mainkk2 lda $be cmp #10 bcc di2 lda #1 sta kk+1 jmpPC maindi2 lda #0 sta kk+1 lda $be cmp #$3c bcs kk3 jmp mainkk3 jmp mainknn lda #0 sta oggg lda $bf cmp #$14 bcs kee jmp mainkee rtsoggg dta b(0)spal ldy #0 jsr s_ekrsp0 lda (88),y cmp #32 beq om2 cmp #$41 bcPc _00 sec sbc #1 +sta (88),y0 Ejmp om2_00 lda #0J _sta (88),yom2 inyd lbne sp0q xinc 89} lda 89 cmp #$c0 bcc sp0 rtsnnr dta b(0)ogien dta b(3)cz lda 20 cmp 20 beq *-2 rtss_ekr lda #$40 sPta 88 lda #$bc sta 89% 7rtsdodpoz ldy y< Cbeq _oH LclcQ Xlda 88] eadc #40j qsta 88v ~bcc *+4 inc 89 dec y jmp dodpoz_o clc lda 88 adc x sta 88 bcc *+4 inc 89 rtsshow ldxPE#! #6vv ldy #0v0 lda ($80),y& /beq nie04 Hsta (88),ynie0 inyM Tcpy #7Y `bne v0e iclcn vlda $80{ adc #7 sta $80 bcc *+4 inc $81 clc lda 88 adc #40 sta 88 bcc *+4 inc 89 dex P bne vv Grtsnr dta b(0),b(96),b(96+96)z dta b(0)seta lda bobg zsta $81_set ldy z beq no_a clc lda $80 adc #42 sta $80 bcc *+4 inc $81 dec z jmp _setno_a rtsmkz ldPy #0 tya lda >tabz" +sta m2+20 :lda bob sta $81 lda $81 sta $83 clc lda $80 adc #42 sta $82 bcc *+4 inc $83 rtsil dta b(0)tabz equ $bb00 org $4fa0bob dta d'  ' dta d' ' dta d' ' dta d' ' dta d'  ' dta d'  ' lda bob sta $81 lda $81 sta $83 clc lda $80 adc #42 sta $82 bcc *+4 inc $83 rtsil dta b(0)tabz equ $bb00 org $4fa0bob dta d'  ' dta d' ' dta d' ' dta d' =wCgh[[`chjpryy€ǀ쀀T T ij &(--@FJLPVhnrtx~Ā΀怀쀀T  Tkl '(/266:syÀۀ߀T49<AFJJNZT!mn3388RRXhy{ˀπ؀T "(,3EFJPT[nnssT'*op䀀TC %066;;UUYYT03qr\djlqtz|ƀ̀T %)+/7=?EGMMvvT9beq _00C ^adc #64_00 sta ($80),yc kinc $80p xbne *+4} inc $81 lda $81 cmp #$bf bne s2 rtsspal jsr sea jsr zw2 lda #$40 sta $80 lda 89 0C sta $81s lda (88),y %beq _o* 3cmp #$418 ?bcc _0D HsecM Tsbc #1Y esta ($80),yj ~bne _o_0 lda #0 sta (88),y_o iny bne s inc 89 inc $81 lda 89 cmp #$bf bne s rtstb dta c'0û' dta c'' dta c' ' dta c' ' dta c' ' dta c' ' dta c' 'czz ldx #3 jsr cz dex bne czz+2 rtsad2 dta b($67),b($69),b($6b),b($6d) dta b($6f),b($71),b($73),b($75),b($77) dta b($79),b($7b),b0é($7d)n2 dta b(0)chng lda #0 tay sta $80 lda #$67 sta $81 ldx #24cho1 lda ($80),y bpl okk lda #$4f sta ($80),yokk iny bne cho1 inc $81 dex bne cho1 rtspart1 lda #12 sta 709 jsr bob3d jsr kold rtspart0 lda #12 sta 712 sta 7100 lda #12 sta 709 lda dl1 sta $231z lda so cmp #4 bcc z jsr koldb lda so cmp #$6 bcc b jsr chanbb lda pa cmp #$12 bcc bb jsr scrol lda #0 sta 712 sta 710 lda #12 sta 709v lda pa cmp #$1c bcc v jsr koldvv ld0a so cmp #$a bcc vv rtschan jsr cz lda 712 and #$f beq ekd jsr cz inc 709 dec 712 dec 710 bpl chankold jsr cz lda 709 and #$f beq ekd jsr cz dec 709 bpl koldekd rtscz lda 20 cmp 20 beq *-2 rtsset jsr muz+3 lda #0 sta $bd ;0cglos lda timer sta 553 lda #1 sta 538 lda >fnt sta 756 rtsdl1 dta d'lp' dta b($4f),a(log) dta c'/' dta c'/' dta b($41),a(dl1)timer inc 5380Ǜtr jsr muz lda 0 cmp $7f beq et ldx #0rt lda buf+18,x sta $d210,x lda buf+9,x sta buf+18,x lda buf,x sta buf+9,x inx cpx #9 bne rt lda buf+$24 sta $d21f lda buf+$23 sta buf+$24 lda buf+$22 sta buf+$23et rtsbuf equ $3fa0r inc 5380 lda #$40 sta $80 )lda #$bc. Dsta $81s2 lda $81I Qsta 89V ]ldy #0b jlda $80o wadc #39| sta 88 bcc *+5 inc 89 clc lda (88),y iny adc (88),y iny adc (88),ymod adc #2 and D#63 taxmod2 dey "dey' 0lda tb,x5 >beq _00C ^adc #64_00 sta ($80),yc kinc $80p xbne *+4} inc $81 lda $81 cmp #$bf bne s2 rtsspal jsr sea jsr zw2 lda #$40 sta $80 lda 89 DC sta $81s lda (88),y %beq _o* 3cmp #$418 ?bcc _0D HsecM Tsbc #1Y esta ($80),yj ~bne _o_0 lda #0 sta (88),y_o iny bne s inc 89 inc $81 lda 89 cmp #$bf bne s rtstb dta c'Dû' dta c'' dta c' ' dta c' ' dta c' ' dta c' ' dta c' 'czz ldx #3 jsr cz dex bne czz+2 rtsad2 dta b($67),b($69),b($6b),b($6d) dta b($6f),b($71),b($73),b($75),b($77) dta b($79),b($7b),bDé($7d)n2 dta b(0)chng lda #0 tay sta $80 lda #$67 sta $81 ldx #24cho1 lda ($80),y bpl okk lda #$4f sta ($80),yokk iny bne cho1 inc $81 dex bne cho1 rtspart1 lda #12 sta 709 jsr bob3d jsr kold rtspart0 lda #12 sta 712 sta 71D0 lda #12 sta 709 lda dl1 sta $231z lda so cmp #4 bcc z jsr koldb lda so cmp #$6 bcc b jsr chanbb lda pa cmp #$12 bcc bb jsr scrol lda #0 sta 712 sta 710 lda #12 sta 709v lda pa cmp #$1c bcc v jsr koldvv ldDa so cmp #$a bcc vv rtschan jsr cz lda 712 and #$f beq ekd jsr cz inc 709 dec 712 dec 710 bpl chankold jsr cz lda 709 and #$f beq ekd jsr cz dec 709 bpl koldekd rtscz lda 20 cmp 20 beq *-2 rtsset jsr muz+3 lda #0 sta $bd ;Ecglos lda timer sta 553 lda #1 sta 538 lda >fnt sta 756 rtsdl1 dta d'lp' dta b($4f),a(log) dta c'/' dta c'/' dta b($41),a(dl1)timer inc 538EǛtr jsr muz lda 0 cmp $7f beq et ldx #0rt lda buf+18,x sta $d210,x lda buf+9,x sta buf+18,x lda buf,x sta buf+9,x inx cpx #9 bne rt lda buf+$24 sta $d21f lda buf+$23 sta buf+$24 lda buf+$22 sta buf+$23et rtsbuf equ $3fa0r inc 538D opt %100101 !org $8600& .lda 7093 ;and #$f@ DclcI Radc #$f0W `sta 709e nlda #$07s {ldy vb jsr $e45c lda #$30 sta 712 lda #$8c sta 756 lda #64 sta 623 lda
dl #sta $231( 1jsr cls6 ?lda #$ffD Ysta 764sol lda $bf^ gcmp #$20l tbcc soly lda #0 sta 20 jmp mainvb lda jaro eor #1 sta jaro bne t2 lda
dl YC sta $231 lda #64 #sta 623( >jmp tet2 lda dl2_ hsta $231m ulda $bfz cmp #$22 bcs te lda #0 sta 623te jmp $e462vb2 jmp $e462jaro dta b(0)cz lda 20 cmp 20 beq *-2 rtsfaf dtYa b(0),b(0)main lda $bf (cmp #$22- 5bcc fak: Blda fafG Obne fakT ]lda #$83b lsta adi+1q inc faffak lda $bf cmp #$26 bcc fak2 lda faf+1 bne fak2 lda #$07 ldy vb2 jsr $e45c Y lda dl) 2sta $2317 ?lda #64D Lsta 623Q iinc faf+1fak2 lda $bfn wcmp #$28| bcc fff rtsfff ldx #0f lda $d20a and #3 asl @ asl @ adc #2 cmp #13 bne _aa lda #0 Y 'beq tu_aa adc #$40tu ldy 764, 5cpy #$ff: Bbeq _zG KtxaP TphaY `ldx nre nlda tb,xs zbeq _i dec tb,x_i inc nr lda nr cmp #45+16 bne _zz lda #0 sta nr_zz pla tax lda #0_z staY fire,x inx cpx #40# )bcc f. 7jsr spal< Hjsr spal2M Wldx mod+1\ flda tab,xk vsta mod+1{ lda 20 bmi zm lda dey sta mod2 jmp mainzm lda #$ea sta mod2 jmp maindey deynr dta b(0)spal2Y ldy #0 lda #0 "sta $80' 0lda #$b05 Ksta $81s2 lda $81P Xsta 89] dldy #0i qlda $80v ~adc #39 sta 88 bcc *+5 inc 89 clc lda (88),y iny adc (88),y iny adc (88),ymod adc #2 Y and #63 taxmod2 dey$ )dey. 7lda tb,x< Ebeq _00J eadc #64_00 sta ($80),yj rinc $80w bne *+4 inc $81 lda $81 cmp #$b4 bne s2 rtsspal ldy #0 lda #40 sta 88 lda #$b0 sta 89Y  lda #0 sta $80 &lda 89+ 6sta $81s: Elda (88),yJ Qbeq _oV _cmp #$41d kbcc _0p tsecy sbc #1 sta ($80),y bne _o_0 lda #0 sta (88),y_o iny bne s inc 89 inc $81 lda 89 cmp Y #$b4 bne s rtscls ldy #0 tya_c sta $b000,y sta $b100,y sta $b200,y sta $b300,y iny bne _c rtstab dta b(0),b(0),b(3),b(2)col dta b($a4),b($a4) dta b($a4),b($a4),b($a6),b($a6),b($a8),b($aa) dta b($ac),b($ae),b($af)tb dY Cta c' }' dta c'' dta c' ' dta c' ' dta c' ' dta c' ' dta c' ' org $8b80dl dta d'ppp',b($0),b($42),a($b000) dta c'"' dta b($41),a(dl)dl2 dta d'p',b($0),Yb($42)adi dta a($8000) dta c'1"E' dta b($41),a(dl)J }org $b000+400+400+160fire equ * dta c' ' org $8b80dl dta d'ppp',b($0),b($42),a($b000) dta c'"' dta b($41),a(dl)dl2 dta d'p',b($0),Xl opt %100101 !org $8600& .lda 7093 ;and #$f@ DclcI Radc #$f0W `sta 709e nlda #$07s {ldy vb jsr $e45c lda #$30 sta 712 lda #$8c sta 756 lda #64 sta 623 lda
dl #sta $231( 1jsr cls6 ?lda #$ffD Ysta 764sol lda $bf^ gcmp #$20l tbcc soly lda #0 sta 20 jmp mainvb lda jaro eor #1 sta jaro bne t2 lda
dl ] sta $231 lda #64 #sta 623( >jmp tet2 lda dl2_ hsta $231m ulda $bfz cmp #$22 bcs te lda #0 sta 623te jmp $e462vb2 jmp $e462jaro dta b(0)cz lda 20 cmp 20 beq *-2 rtsfaf dt]a b(0),b(0)main lda $bf (cmp #$22- 5bcc fak: Blda fafG Obne fakT ]lda #$83b lsta adi+1q inc faffak lda $bf cmp #$26 bcc fak2 lda faf+1 bne fak2 lda #$07 ldy vb2 jsr $e45c ] lda dl) 2sta $2317 ?lda #64D Lsta 623Q iinc faf+1fak2 lda $bfn wcmp #$28| bcc fff rtsfff ldx #0f lda $d20a and #3 asl @ asl @ adc #2 cmp #13 bne _aa lda #0 ] 'beq tu_aa adc #$40tu ldy 764, 5cpy #$ff: Bbeq _zG KtxaP TphaY `ldx nre nlda tb,xs zbeq _i dec tb,x_i inc nr lda nr cmp #45+16 bne _zz lda #0 sta nr_zz pla tax lda #0_z sta] fire,x inx cpx #40# )bcc f. 7jsr spal< Hjsr spal2M Wldx mod+1\ flda tab,xk vsta mod+1{ lda 20 bmi zm lda dey sta mod2 jmp mainzm lda #$ea sta mod2 jmp maindey deynr dta b(0)spal2]C ldy #0 lda #0 "sta $80' 0lda #$b05 Ksta $81s2 lda $81P Xsta 89] dldy #0i qlda $80v ~adc #39 sta 88 bcc *+5 inc 89 clc lda (88),y iny adc (88),y iny adc (88),ymod adc #2 ] and #63 taxmod2 dey$ )dey. 7lda tb,x< Ebeq _00J eadc #64_00 sta ($80),yj rinc $80w bne *+4 inc $81 lda $81 cmp #$b4 bne s2 rtsspal ldy #0 lda #40 sta 88 lda #$b0 sta 89] lda #0 sta $80 &lda 89+ 6sta $81s: Elda (88),yJ Qbeq _oV _cmp #$41d kbcc _0p tsecy sbc #1 sta ($80),y bne _o_0 lda #0 sta (88),y_o iny bne s inc 89 inc $81 lda 89 cmp ]#$b4 bne s rtscls ldy #0 tya_c sta $b000,y sta $b100,y sta $b200,y sta $b300,y iny bne _c rtstab dta b(0),b(0),b(3),b(2)col dta b($a4),b($a4) dta b($a4),b($a4),b($a6),b($a6),b($a8),b($aa) dta b($ac),b($ae),b($af)tb d]ta c' }' dta c'' dta c' ' dta c' ' dta c' ' dta c' ' dta c' ' org $8b80dl dta d'ppp',b($0),b($42),a($b000) dta c'"' dta b($41),a(dl)dl2 dta d'p',b($0),]b($42)adi dta a($8000) dta c'1"E' dta b($41),a(dl)J }org $b000+400+400+160fire equ * dta c' ' org $8b80dl dta d'ppp',b($0),b($42),a($b000) dta c'"' dta b($41),a(dl)dl2 dta d'p',b($0),\l B`gikmoqsuwy{}gO`  d B`  Ѝ0B1 B B b  B ` B) B B) B`` $((C)\`pOP/!4/AB $+?ҽ???? ?ҭ????`b  B ` B) B B) B`` $((C)\`pOP/ o)iB \0@o01  LyIy01@oLs01"oLbLb`" & v \䩀01@o(` ) i i@ H,‡‡,,=aC,h( m -QQ0 +ULULYi'XYXqXqXi)?‡i@恥ɴ`(XYYXA8XY恥Yɴ``Ĥ˦  a  pppB."1A8p<BN"AXqXqXi)?‡i@恥ɴ`(XYYXA8XY恥Yɴ``Ĥ˦  `Q$$88vb jsr $e45c lda #0 sta 623 jsr mkcl lda scr2 sta mkcl+8 lda cls2 sta mkcl+10 jsr mkcl lda #0 sta 710 lda #15 sta 709 jsr clr lda #$71 sta kol jsr mktb jsr set jmp mainvb jmp $e462setmp lda #$77 ldy #0cs sta map,y sta map+$100,y sta map+$200,y sta map+$300,y iny bne cs rtsclr m0lda przel bne cl2 lda #0 jmp cls2cl2 lda #0 jmp clsset lda
dl sta 561 lda #%100010 sta 559 lda #$5c sta 756 rtsmktb lda scr1 sta v1+1 ldx #0ml lda v1 sta tbl1,x clc adc #40 sta v1 lda v1+1 sm1Gta tbh1,x adc #0 sta v1+1 inx cpx #32 bcc ml lda scr2 sta v1+1 ldx #0ml_ lda v1 sta tbl2,x clc adc #40 sta v1 lda v1+1 sta tbh2,x adc #0 sta v1+1 inx cpx #32 bcc ml_ lda #0 taxml1 txa lsr @ lsr @ lsr @ lsm22r @ sta tab,x inx bne ml1 lda map sta tmh sta v2+1 ldx #1ml4 lda v2 clc adc #64 sta v2 sta tml,x lda v2+1 adc #0 sta tmh,x sta v2+1 inx cpx #32 bne ml4 rtsmain lda #20 sta dx lda #5 sta dyl2 ldy dm3y lda ty,y lsr @ tax_ml1 lda tbl1,x clc ldy dx adc tx,y ldy dy sta v1_mh1 lda tbh1,x adc #0 sta v1+1 lda tml,x clc ldy dx adc tx,y ldy dy sta v2 lda tmh,x adc #0 sta v2+1 lda v1 sec sbc #88 sta v1 bcs *+4 dec v1+1 lda m4v2 sec sbc #136 sta v2 bcs *+4 dec v2+1 lda #0 sta lyl0 lda ly tay lda tal,y sta cy lda yp,y sec sbc #7 sta cx lda qd,y sta lx lda yp,y tayl1 lda (v2),y sta zm and #15 clc adc cx cmp #16 bcs pkon adc cy tax lda bum2,x bm5eq _q clc asl @ adc #64pk0n sta (v1),y_q iny inc cx dec lx bne l1 lda v1 clc adc #40 sta v1 bcc *+4 inc v1+1 lda v2 clc adc #64 sta v2 bcc *+4 inc v2+1 inc ly lda ly cmp #15 bcc l0_ala lda $d40b cmp #$60 bcc _ala lda $bfm6w cmp #$34 bne solo rtssolo jsr prz inc dy inc dx inc dx inc dx inc dy jsr clr jmp l2pkon lda #0 jmp pk0n{prz lda przel beq _2 lda scr1 sta adres+1 lda tbl2 m7 sta _ml1+2 lda tbh2; Gsta _mh1+2K Rlda #0V `sta przeld trts_2 lda #4x sta przel lda scr2 sta adres+1 lda tbl1 sta _ml1+2 ldm8a tbh1) 4sta _mh1+28 ;rts@Kbump dta c'PPWW[i' dta c'p' dta c'' dta c'' dta c'' dta c'' dta c'' dta c'm9' dta c'!N' dta c'' dta c'Sf' dta c'm' dta c'' dta c'' dta c'' dta c''qp dta b(5),b($13),b($22),b($32),b($4m:C\1),b($51),b($61),b($71) dta b($81),b($91),b($a1),b($b2),b($c2),b($d3),b($e5)qd dta c' cv 'yp dta c'}'dl dta c'p',b(64+2)adres dta a(scr1) dta d'"' dta b(65),a(dl)przel dta b(4)tal dta b($90),b(m;;u$a0),b($b0),b($c0),b($d0),b($e0),b($f0),b(0) dta b($10),b($20),b($30),b($40),b($50),b($60),b($70)bum2 dta c'z' dta c'' dta c'' dta c'' dta c'' dta c''m< dta c' !' dta c'1:' dta c'??FFJX' dta c'_q' dta c'x' dta c'' dta c'' dta c'' dta c'' dta c''m=qtbl1 org *+32tbh1 org *+32tbl2 org *+32tbh2 org *+32tml org *+32tmh org *+32tab org *+256' dta c'x' dta c'' dta c'' dta c'' dta c'' dta c''la'TAKU-ARDO by tqd !>007F 66'NAPISZ TU ($7f) ZERO,jezeli nie masz stereo>0058 00 20RUN F420LOA MSXLOA PL.COMLOA LOGLOA FNTLOA KOLO'$6200LOA SC.COMLOA BOB3D.COMLOA DLLOA TTLOA FF'$8600LOA FIRE2.COMLOA FIRECOL.FNTLOA MAPLOA BUMP.COM'8CqoB \o   Yq } hLLbw``LLB01"/\`pi(i i(Мi J0𜩠i@𜥇i u@`aJpy`iy`i8XƁ8鈅Ƈa38$3)eTep i@Ƃޥi(恥i@惥 `4` ș YLL{`$HI Ѝ``uA!`HIp `&&--46=?CFMV]gluB $7"2AQaq >F MQVpYBlAB 0@P`puCC $'.7>HMhmtD/w/FFJwMUUUowowwwUwwwwDDwww"UwәwDDwwwwDwDDwyE ww"Uw%wwwDDwwwD,w2DDIMwD"UTwrwwDDwwwDwwwwDDwD"UwwDDwwDDwwwwD"UwDDwwDDwwwyF wD"UwwDDw-DDwwDDww5w5LXwD"UwwDD]wmDDwwDDwwuwuwD"UwwwDDwDwwDDwwwDDwwD"UwwwwDDwDwwDDwwwwDDyGwD"UwwwwwDD$w8wDDwwwwDDOXwD"Uww\w_DDdwxwDDwwwwDDwD"UwwwDDwwDDwwwwDDwD"UwwwDDwwwwDDwwwwDDyHwD"Uww"w.DDwwwwD4w;DDwR[ww"UwwcwiDw{w{wwwUwwDwwDDDwyIL '(L m擠8 Ν歞mΚд` ``wwwDDDwx$$88PL= FASMBdMM XASMBjCUT] gASMBnSCm ASMB}BOB3D ASMB&PL BAKBM (BAKBCUT- 7BAKBSC= WBAKB BOB3D BAKBTT` B FIRE2 ASMB FIRE2 BAKBFIRE2 COMB!FF (B'MAP0 9B-BUMP= FASMB>WM YBAKB?BUMP] hCOMBDMAPm wBAKBJFF} BAKCBPTT &BAKBrFIRECOL FNTBxS- 6ASMB~S= HCOMBDETM XCOMBDOS] `SYSqCn{nr66lBffff>`<|fl0fF68of;0GHLPpTdpf<~~`|f<<`|ff<~ ><0 0 ~~`0 0`sSf>`|fff|fff>ff>|`|Vfq8<f<``lxlf8u<fkc|ffff>|f```<`<|0|006f>fff<ck>6f<<~ 0~<~~<|x|lFvR8xx8~~<<>f>`|fff|fff>ff>|`|Vfq8<f<``lxlf8u<fkc|ffff>|f```<`<|0|006f>fff<ck>6f<<~ 0~<~~<|x|lF' dta d'  ' dta d'  ' lda bob sta $81 lda $81 sta $83 clc lda $80 adc #42 sta $82 bcc *+4 inc $83 rtsil dta b(0)tabz equ $bb00 org $4fa0bob dta d'  ' dta d' ' dta d' ' dta d' <$ opt %100101 !org $A000& -lda #02 :sta 710? Gsta 712L Tsta 709Y alda dl sta $231f jsr cz jsr cz jsr cz jsr cz inc 709 lda 709 cmp #$f bcc faa jmp aacz ly&da 20 cmp 20 beq *-2 rtsdl dta c'5 U' dta b($42),a(txt) dta c'i"' dta b($41),a(dl)txt dta d' ' dta d' SEND GREETZ: ' dta d' zC '# Adta d'VENUS TAQUART BIT TEAME SMAD BUSTERS 'W ]dta d' ' dta d'CCSL SHPODENDRON HIFF N.E.C. ' dta d' ' dta d' OL{{&D GENERATION 4D ZLIHT VESK0 '* 0dta d'X Z'^ dta d'GNG ANGELTRONIC BEWEHARD AND REST ' dta d' ' dta d'4 EXAMPLE WCHALPZ :-))) ' dta| d'+ -'1 7dta d'_ a'e kdta d' ' dta d' ŠԺ ' dta d' '} dta d'2 7'd'_ a'e kdta d' ' dta d' ŠԺ ' dta d' '5;-501 . . . .L+`J MB^a"hA53%.$'2%%4:6%.534!15!24")44%!--!$"534%23/Q##3,3(0/$%.$2/.()&&.%#/,$'%.%2!4)/.$:,)(46%3+'.'!.'%,42/.)#"%7%(!2$!.$2%34":%8!-0,%7#(!,0: ր݀ր݀=C5xԩҍҢҮ Ү 0,` clcH Rstx $1fffW drts bmi exti rlda #$01w bit $d< TTLOA FF'$8600LOA FIRE2.COMLOA FIRECOL.FNTLOA MAPLOA BUMP.COM'8C00LOA SM.007F 66'NAPISZ TU ($7f) ZERO,jezeli nie masz stereo>0058 00 20RUN F420LOA MSXLOA PL.COMLOA LOGLOA FNTLOA KOLO'$6200LOA SC.COMLOA BOB3D.COMLOA DLLOA TTLOA FF'$8600LOA FIRE2.COMLOA FIRECOL.FNTLOA MAPLOA BUMP.COM'8C(pǎXԦ`  *'  } *(L `(  L l pL[,L] C i0  p  gފދLh ( LD 0  P%C  C  \i +$+0'; $(%)  b L[C `D P^߰")(݃   $DDG@НL]S")M T H0 G$Ș݃ b 8$}$%8(() T `$E0(0)8`$GE` P Li 8GD }L[ PH >iJ ;  yyB ' |L[ "E( % H$ H#`L]B  0 G LO<  ( d lH۪!A3 A jA !džB EIC Y$E0 F  < 7 JN8Ndâ!,P h0ʠJd,6 ' r/ $ ɛ ` '  L[  l }-        L[L  }  '  L[   p  ` g  l }) g ' L[) ̠,L]T-0 |LM N݃:ː6UV LM N L(TU N,)MLL[IL3GDIɛ ɜ DI  , JȊGм  G I) GȦ=*GG ȄI1200820I H1E 1h0hIGI2ȢI`FE 0ɛ rɛ$ l '蚦TTUVD`M L$:;Pyȱ$` r  iȱ$/:ȱ$VWyA**⩀ / `$***? mL]-+ȱ$ɛ m* ? g. $0f.?'@ wAsTt/` 0: gL G `$0`j`& CpCi s L0JCܢj? I#𴽎F ގМގ& & 0 C4 08L`0   | 레L] EGȽGȽG | DžE` 8,  }EG)݀G)ȱGȱG`"!L] l!i栠$8  (IƭIp  h,g+j? 8 ii(Lq)! S S0$} ) E9K`H)N,L]8GH Lq`gNgfjO*8jHi h`  2J  &e2i`"%?&;^$IM ! ! <u hh`$Ev옝^! 1ÍEHFHjm GHm H`u$Ev`L=? +`!,pFE ȄD8 q D&E`I0` i`+DOS SYSMOC.I   J ٍ = ) F)8`Ll T!U<; ǩLn <JM -18     HH =D 1 :  /1[F:M #.!  `>C #   #`>   eL'>/b;\I\o@ @LK~ L  % /e  LL HH0S0N:;=91D,1ɛK$ɛ`:;ʾ  ,ɛ`XYȄ #`DTDRLUFFFCICLRSJ==CIYEEONSMDLNOOUAOOOARPLNCL!#PANVBNFR*),-PQOR}a/%<) j ө  RES L%-, # 3 0 %   4(H 4(`Ո( 3  #  ZOiۨ L4RE 3 =F S Z +8 0+  FF % 4 4& 4(X)Y    # 4 ʤ Ȅ LF F LH hL4`ǥ*J 0 B B 0a   8    Lkl  );<  : ` 0 } T T 7̀΀LIl <;`<LA 3   #/Ct ! R( 7 7   7 89i L7 ,(&   L480  ` Ln  x  `   HJ h) ii0 ``0  ,BLV[J  B Vso Fhh`ã GH ,H hɐɀɡ)HDCȱCɛeCD먥D hN MSп` ED` OIH`hhXhh  nL Free Fil-DBreakI/O-Error 138Disk fullWrite protectedFile MismatchBad FilenameDOS ICI+/D - Version 6.4 RUN:(c) '87 by S.D.Br`čLLockedDevice doneDIR fullNot foundLoad?Bad DOSHex?AbortFromToHD) S)Eh` ɛLn ;LD1:+DOS SYSMOC.I   J ٍEE