O`NNNNNN\@p &<C@E$g: <1AY&B&f"8*A$ $<!*!&2Q!adNu"x." "4V"GBIZ2۷mG"&AB@4<[Q4/</<?BK*U,M/ ?<NNJ@k:`IG:ܹm*N2<0<4]Q:/</<?B/?< NNJ@kD f0B?<"NNTм/Hz /<NN 8LN'` @$%@5`79;= P o ׀ ٠  @```  #a79;=?A!CAEaGIKMOQ!SAUaWY]_a!cAeagikmoq!sAuawy{}Aa!Aa!A10@  !"!B!b!!!!!"!""#B"%b"*/#3B#5b#7#E##G $C$Y%Q"%SB%Ub%%%[%fhm'o'q"'sB'ub''{'}')(((B)o)))` @$%@5`79;= P o ׀ ٠  @```  #a79;=?A!CAEaGIKMOQ!SAUaWY]_a!cAeagikmoq!sAuawy{}Aa!Aa!A10@  !"!B!b!!!!!"!""#B"%b"*/#3B#5b#7#E##G $C$Y%Q"%SB%Ub%%%[%fhm'o'q"'sB'ub''{'}')(((B)o)))DESKTOP INF IDAS SPR <`APA PC1 nOP S ;` OMPRESSLIB i`MPRES LIB P`ONT FNT J`&REDITOSPC1 `*ENGUA PC1 `KASCODE EXE W`D OUND2 AVR Q`J ENU PC1 aA4LINI1 FNT :`v'OMPAS SPR L`e<3OUND1 AVR N`OMP SPR T`DATOS )INE LIB ` ECORA_1PC1 &`k'LAYER1 SPR  ,>ESKTOP INF  LAYER2 SPR Y&,>ALTO1 SPR E` BJETOS SPR $POP PRG 0$KUIS1 SPR `<HEAP SPR d`ALTO2 SPR i` X_Y_PUNSPR Q`RON SPR `OMPLET PC1 .PLAUSOSAVR 3`:1ROGRAM PC1 `LELICOP SPR g`1OP PC1 Y_TMP__ ZIP q`#a000000 #b000000 #c???000?000<000?00;;400;0;;;4440??0;;?0?;0;;;0??03111103 #d #E 58 11 #W 00 00 0E 06 13 0A 08 A:\*.*@ #W 00 00 02 0B 26 09 00 @ #W 00 00 0A 0F 1A 09 00 @ #W 00 00 0E 01 1A 09 00 @ #M 00 00 00 FF A DISCO@ @ #M 00 01 00 FF B DISCO@ @ #T 00 03 02 FF PAPELERA@ @ #F FF 04 @ *.*@ #D FF 01 @ *.*@ #G 03 FF *.APP@ @ #G 03 FF *.PRG@ @ #P 03 FF *.TTP@ @ #F 03 04 *.TOS@ @ d2,(a0)+ move.w d1,d2 andi.w #%0000000011110000,d2 lsr.w #4,d2 move.w d2,(a0)+ move.w d1,d2 andi.w #%0000000000001111,d2 move.w d2,(a0)+ dbra d0,flhalla lea fbuffer,a0 ;muevo a buffer lea ffuente,a1 move.l #47,d0 floop_1 move.w (a1)+,(a0)+ dbf d0,floop_1 move.b #7,fppila floop_2 move.l #47,d1 lea fbuffer,a0 floop_3 clr.l d2 move.w (a0),d2 cmpi.w #0,d2 beq fcero subi.w #1,d2 fcero move.w d2,(a0)+ dbf d1,floop_3 fpush move.l #15,d3 cmp.b #255,con_barrido bne sin_2barr move.l #colordentro,a4 bra sinn2barr sin_2barr movea.l #mezcla,a4 sinn2barr lea fbuffer,a2 flpush clr.l d4 clr.l d5 clr.l d6 move.w (a2)+,d4 move.w (a2)+,d5 move.w (a2)+,d6 mulu.w #$100,d4 mulu.w #$10,d5 add.w d4,d5 add.w d5,d6 move.w d6,(a4)+ dbf d3,flpush fwait move.l fvelo,d7 ;espera x pulsos de barrido flwait movem.l d0-d3/a0-a3,-(sp) jsr vsync clr.b b_vsync movem.l (sp)+,d0-d3/a0-a3 dbf d7,flwait subq.b #1,fppila tst.b fppila bne floop_2 jsr fblakscr rts fblakscr move.l #15,d0 cmp.b #255,con_barrido bne sin_4barr move.l #colordentro,a0 bra fblaklop sin_4barr movea.l #mezcla,a0 fblaklop clr.w (a0)+ dbra d0,fblaklop rts fun_in lea fcolor2(pc),a0 lea ffuente2(pc),a1 move.l #47,d0 flhalla2 clr.l d1 clr.l d2 move.w (a1)+,d1 move.w d1,d2 andi.w #%0000111100000000,d2 lsr.w #8,d2 move.w d2,(a0)+ move.w d1,d2 andi.w #%0000000011110000,d2 lsr.w #4,d2 move.w d2,(a0)+ move.w d1,d2 andi.w #%0000000000001111,d2 move.w d2,(a0)+ dbra d0,flhalla2 clr.l d1 lea fbuffer2(pc),a1 move.l #47,d0 fcloop2 move.w d1,(a1)+ dbra d0,fcloop2 fsuma2 move.l #7,d0 floop2 move.l #47,d1 lea fbuffer2(pc),a0 lea fcolor2(pc),a1 fsloop2 move.w (a0),d2 move.w (a1),d3 cmp.w d2,d3 beq figual2 addq.w #1,(a0) figual2 addq.l #2,a0 addq.l #2,a1 dbra d1,fsloop2 lea fbuffer2(pc),a0 cmp.b #255,con_barrido bne sin_5barr lea colordentro,a5 bra sinn5barr sin_5barr lea mezcla,a5 sinn5barr move.l #15,d2 flpush2 move.w (a0)+,d4 mulu.w #256,d4 move.w (a0)+,d5 mulu.w #16,d5 move.w (a0)+,d6 add.w d4,d5 add.w d5,d6 move.w d6,(a5)+ dbra d2,flpush2 fwait2 clr.l ` u0`F POP! by Manuel Castrillo Bit culture 1993 with HiSoft DevPac II. NU# UNO\#pB?< NA\#t BNQ|f.Hyk?< NA\NQ/9t/< NAPBNAXNq?<NNT#xBg/</<?<NN A@CZLHNQN< 8gNJ |V"|@ LH3>N= <N<^NN=N;#*NR#`#d>#>NN=  @*gtR* 8>g4 8=g1 8<g 8;g 8*g`8<g <g`1@8<g`3SI1@`NR#>N<#paFf |W6"|@ LHN9 3>N=#* *gR* 89f` English version 1.0  ` `!Qp#p#pA3iB3B#lB#B N@dN@NAN;#B N@dN@#>NN |."|LHNR#>NN= |NwHNRMzKI### 9#Nt |NwHB9>By6MzKA #. 9#xl`& 2A(#hAD#l#pNTNRAN/r3 33:3a& p2<h4<NVp2<4<NVNr"|*NW |`"| N0XNW.N/N/N13>N= |NwHNRMzKI### 9#Nt |NwHB9>By6MzKA*#. 9#xl`$3A(#hAD#l#pNTNRAN/r3333a$p2<4<NVp2<4<MNVNr"|JNW |`"| N0XNW.N/N/N13>N= |NwHNRMzK I(### 9#Nt |NwHB9>By6MzK AJ#. 9#xl`#\4A(#hAT#l#pNTNRA8N/r3"333a#pp2<H4<MNVp2<4<NVp2<4<NVNr"|tNW |`"| N0XNW.N/N/N13>N= |NwHNRMzKIb### 9#Nt |NwHB9>By6MzKAt#. 9#xl`!# DOS\>#>N<3pr#pN1N1$NU$pN<^ |."|@ LH3>N=,|*|&9NU |"| NF,|*|&9NU |"|VNF!Qp!S >#>NN |."|LHNR#>N<>A.#hA2#l#pNTNUNR1AvN/r3~333aNr"|NW |`"| N0XNW.N/N/N13>N= |NwHNRMzK"I### 9#Nt |NwHB9>By6MzK"A#. 9#dl`D2A(#hAd#l#pNTNRAN/r3 333aXp2<~4<MNVp2<4<NVp2<u4<NVp2<4<NVNr"|NW |`"| N0XNW.N/N/N13>N= |NwHNRMzK(I### 9#Nt |NwHB9>By6MzK(A#. 9#l`3A(#hAd#l#pNTNRAN/r3333_ap2<P4<MNVp2<v4<qNVp2<4<NVp2<4<NVNr"|NW |`"| N0XNW.N/N/N13>N= |NwHNRMzK4I### 9#Nt |NwHB9>By6MzK4A#. 9#l`T4A(#hAT#l#pNTNRA N/r3333ahp 2<#4<MNVp2<4<{NVp2<4<NVNr"|&NW |`"| N0XNW.N/N/N13>N= |NwHNRMzK@I>### 9#Nt |NwHB9>By6MzK@A&#. 9#l`#TRES\>#>N<3pr#pN1N1$NU$pN<^ |."|@ LH3>N=,|*|&9NU |"| NF,|*|&9NU |"|VNF!Qp!S >#>NN |."|LHNR#>N<>1A.#hAj#l#pNTNUNRAVN/r33T33Tazp 2<+4<MNVp2<4<qNVp2<4<NVp2<4<NVNr"|ZNW |`"| N0XNW.N/N/N13>N= |NwHNRMzKNI### 9#Nt |NwHB9>By6MzKNAZ#. 9#l`2A(#hAD#l#pNTNRAN/r33&33&ap2<4<uNVp2<4<NVNr"|NW |`"| N0XNW.N/N/N13>N= |NwHNRMzKZI### 9#Nt |NwHB9>By6MzKZA#. 9#dl`3A(#hAd#l#pNTNRAN/r3R3*3R3*ap2<4<VNVp2< 4<~NVp2<d4<~NVp2<~4<NVNr"|NW |`"| N0XNW.N/N/N13>N= |NwHNRMzKdI### 9#Nt |NwHB9>By6MzKdA#. 9#}l`4A(#hA#l#pNTNRAN/r33@33<a2p2<4<lNVp2<4<lNVp2<4<lNVp2<4<NVp2<m4<NVp2<4<NVNr"|NW |`"| N0XNW.N/N/N13>N= |NwHNRMzKpI,### 9#Nt |NwHB9>By6MzKpA#. 9#l`#CUAR\>#>N<3pr#pN1N1$NU$pN<^ |."|@ LH3>N=,|*|&9NU |"| NF!Qp!S >#>NN |."|LHNR#>N<>1A.#hAj#l#pNTNUNRA@N/r3333a0p2<64<MNVp2<4<gNVp2<4<gNVp2<S4<NVN output pop.prg ; Sale como fichero exe. POP.PRG opt o+ ; Optimizacion encendida !!! opt w- ; No a los pesados WARNINGS! ; opt x+ ; Etiquetas en MONAST ;################################### ;## POP The game ! ## ;## ## ;## Codigo, Sonido y Graficos por ## ;## Manuel Castrillo ## ;## ## ;## Art/Bit Culture 1993 (c) ## ;################################### JUGADOR EQU 692 SKUISKIES EQU 916 bra POP_START dc.b ' POP! by Manuel Castrillo Bit culture 1993 ' dc.b ' with HiSoft DevPac II. ' POP_START jsr abre_carpeta move.b #3,vidas_1 move.b #3,vidas_2 move.l #' UNO',num_fase move.l #$70000,pantalla clr.l -(sp) move.w #32,-(sp) trap #1 addq.l #6,sp move.l d0,e_super dc.w $a00a clr.l d0 jsr res? cmp.w #2,d0 bne no_hi pea txt_hi move.w #9,-(sp) trap #1 addq.l #6,sp force jsr espera_spc move.l e_super,-(sp) move.l #32,-(sp) trap #1 addq.l #8,sp clr.l -(sp) trap #1 addq.l #4imp_sprite macro spr_calcxy lea.l spr_shift(pc),a5 lea.l spr_pantaxy(pc),a4 move.l spr_panta(pc),(a4) move.w spr_x(pc),d0 move.w spr_y(pc),d1 mulu.w #160,d1 add.l d1,(a4) ext.l d0 divu.w #16,d0 swap.w d0 move.w d0,(a5) swap.w d0 mulu.w #8,d0 add.l d0,(a4) rts spr_cground movea.l spr_pantaxy(pc),a0 movea.l spr_dirspr(pc),a1 movea.l spr_bground(pc),a2 lea spr_bbground(pc),a4 lea spr_bground(pc),a3 move.l (a3),(a4) clr.l d0 clr.l d1 move.w (a1),d0 addq.l #2,a1 move.w (a1),d1 move.w d0,(a2)+ move.w d1,(a2)+ spr_cloop2 move.l d0,d2 addq.l #1,d2 spr_cloop1 move.l (a0)+,(a2)+ move.l (a0)+,(a2)+ subq.l #1,d2 tst.l d2 bne spr_cloop1 adda.l #160,a0 move.l d0,d3 addi.l #1,d3 mulu.w #8,d3 suba.l d3,a0 dbra d1,spr_cloop2 rts spr_groundd movea.l spr_pantaxy(pc),a0 movea.l spr_bground(pc),a1 lea.l spr_bground(pc),a2 clr.l d0 clr.l d1 move.w (a1),d0 addq.l #2,a1 move.w (a1)+,d1 spr_dloop2 move.l d0,d2 addq.l #1,d2 spr_dloop1 move.l (a1)+,(a0)+ move.l (a1)+,(a0)+ subq.l #1,d2 tst.l d2 bne spr_dloop1 adda.l #160,a0 move.l d0,d3 addq.l #1,d3 mulu.w #8,d3 suba.l d3,a0 dbra d1,spr_dloop2 move.l a1,(a2) rts spr_imprime movea.l spr_pantaxy(pc),a0 movea.l spr_dirspr(pc),a1 move.l spr_shift(pc),d0 clr.w d0 swap.w d0 move.w (a1)+,d1 move.w (a1)+,d2 move.w d1,d6 spr_masc clr.l d7 move.w (a1)+,d7 or.w (a1)+,d7 or.w (a1)+,d7 or.w (a1)+,d7 swap.w d7 lsr.l d0,d7 not.l d7 swap.w d7 and.w d7,(a0)+ and.w d7,(a0)+ and.w d7,(a0)+ and.w d7,(a0)+ swap.w d7 and.w d7,(a0)+ and.w d7,(a0)+ and.w d7,(a0)+ and.w d7,(a0) subq.l #6,a0 subq.w #1,d1 tst.w d1 bne spr_masc move.w d6,d1 adda.l #160,a0 clr.l d7 move.w d6,d7 mulu.w #8,d7 suba.l d7,a0 subq.w #1,d2 tst.w d2 bne spr_masc spr_restaur movea.l spr_pantaxy(pc),a0 movea.l spr_dirspr(pc),a1 move.l spr_shift(pc),d0 clr.w d0 swap.w d0 move.w (a1)+,d1 move.w (a1)+,d2 move.w d1,d6 spr_impri clr.l d7 move.w (a1)+,d7 swap.w d7 lsr.l d0,d7 swap.w d7 or.w d7,(a0) addq.l #8,a0 swap.w d7 or.w d7,(a0) subq.l #6,a0 clr.l d7 move.w (a1)+,d7 swap.w d7 lsr.l d0,d7 swap.w d7 or.w d7,(a0) addq.l #8,a0 swap.w d7 or.w d7,(a0) subq.l #6,a0 clr.l d7 move.w (a1)+,d7 swap.w d7 lsr.l d0,d7 swap.w d7 or.w d7,(a0) addq.l #8,a0 swap.w d7 or.w d7,(a0) subq.l #6,a0 clr.l d7 move.w (a1)+,d7 swap.w d7 lsr.l d0,d7 swap.w d7 or.w d7,(a0) addq.l #8,a0 swap.w d7 or.w d7,(a0) subq.l #6,a0 subq.w #1,d1 tst.w d1 bne spr_impri move.w d6,d1 adda.l #160,a0 clr.l d7 move.w d6,d7 mulu.w #8,d7 suba.l d7,a0 subq.l #1,d2 tst.l d2 bne spr_impri rts spr_panta dc.l 0 spr_shift DC.w 0 spr_pantaxy DC.l 0 spr_x DC.w 0 spr_y DC.w 0 spr_dirspr DC.l 491520-32000 spr_bground DC.l 491520-32000-32000 spr_bbground DC.l 0 endm * Manuel Castrillo * * TXT 8x8 Impresor * * RUTINA PRINCIPAL * imp_font macro imp88 move.l txt_text(pc),d1 exg d1,a6 lea.l txt_x(pc),a1 lea.l txt_y(pc),a2 lea.l txt_carac(pc),a4 lea.l txt_carac1(pc),a5 move.b (a6)+,(a1) move.b (a6)+,(a2) txt_mloop movem.l a0-a5/d0-d7,-(a7) bsr txt_calc movem.l (a7)+,a0-a5/d0-d7 clr.l d0 move.b (a6)+,d0 tst.b d0 beq txt_exit99 movem.l a0-a5/d0-d7,-(a7) move.l (a5),d7 mulu.w #8,d0 add.l d0,d7 move.l d7,(a4) bsr txt_impri movem.l (a7)+,a0-a5/d0-d7 addq.b #1,(a1) brr"|NW |`"| N0XNW.N/N/N13>N= |NwHNRMzK|Ib### 9#Nt |NwHB9>By6MzK|A#. 9#l` >#>N<3pr#pN1N1$NU$pN<^ |."|@ LH3>N=,|*|&9NU |"|VNF>2A.#hAJ#l#pNTNUNRArN/r3\333a p2<\4<MNVp2<\4<NVNr"|,NW |`"| N0XNW.N/N/N13>N= |NwHNRMzKI### 9#Nt |NwHB9>By6MzKA,#. 9#l` >#>N<3pr#pN1N1$NU$pN<^ |."|@ LH3>N=,|*|&9NU |"|VNF>3A.#hAJ#l#pNTNUNRAN/r33;33;a $p2<4<gNVp2<4<gNVNr"|`NW |`"| N0XNW.N/N/N13>N= |NwHNRMzKI### 9#Nt |NwHB9>By6MzKA`#. 9#l` >4A.#hA*#l#pNTNUNRAN/r33&33&a Nr"|vNW |`"| N0XNW.N/N/N13>N= |NwHNRMzKI### 9#Nt |NwHB9>By6MzKAv#. 9#l`r>!S !Qp#>N<3pr#pN1N1$NTNU$pN<^ |."|@ LH3>N=,|*|&9NU |"|VNF,|*|&9 NU |"| NF,|*|&9NU |"|TNF,|*|&9NU |"|,NF>!S !Qp#>N<#p |TNK pN<^ |V"|@ LH3>N=pN<^ ESPAg#C#|C #pA3sB3xBNB <N<^N.Bp2N<^#C#|C #pA3qB3xBNB <N<^`#C#|C #pA3lB3xBNB <N<^N.Bp2N<^#C#|C #pA3fB3xBNB <N<^AV0<w01@1@1@1@1@ 1@ 1@1@1@1@1@1@1@1@1@ |V"|@ LH3>N=#>N<#p |,NK pN<^ |."|@ LH3>N=pN<^ ESPAgT#C#|C #pA3bB3xBNB <N<^N.Bp2N<^`P#C#|C #pA3\B3xBNB <N<^N.Bp2N<^#>N< ESPAgNT#3C#|C #pA3TB3BBNB |."|@ LH3>N=pN<^ <N<^#>NN= <N<^#>N<`NT#C#|C #pA3AB3BBNB |."|@ LH3>N=pN<^ <N<^#>NN= <N<^#>N<3FINTp2N<^#p | NK ESPAg:#_C#|C #pA3UB3BNB`6# C#|C #pA3QB3BNB |"|N0 |"|N0 | "|@ LH3>N=.3JZ3sJ^3J~3sJ3 J3.JNHH`HNQN1N1NQNQ |"|N0#A3JZB3J^B#VBN@dNANQN1N1NQNQ |"|N0#A3JZB3J^B#ZxBN@dNALNu``B |KpKBQNu###Nv^Nv3333X(y.#3pr3pn!Rp#pNX #pNOtNK6NMpN<^ |."|@ LH3>N=pdN<^#>N< UNO\f |,NK` | NK#pp2<4<NVNuCz Pg2`2Nu |"| <""""""""""""""""""""""""""""""""""""",sp nop no_hi bclr #0,$484.w move.w #3,-(sp) trap #14 addq.l #2,sp move.l d0,old_screen clr.w -(sp) move.l #$70000,-(sp) move.l #$70000,-(sp) move.w #5,-(sp) trap #14 add.l #12,sp lea $ffff8240,a0 lea color_gem+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) jsr ini_inter jsr fu_out cmp.b #1,$fffffc02 beq MENU jsr creditos move.l #scr_credits+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #3,fvelo2 jsr fun_in move.l #150,d0 jsr b_espera jsr s_efecto1 move.l #20,d0 jsr b_espera jsr s_efecto2 move.l #150,d0 jsr b_espera jsr fu_out move.l #50,d0 jsr b_espera jsr des_lengua move.l #scr_lengua+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in jsr hablas? MENU move.l #0,count_menu jsr ini_inter2 move.l #0,score1 move.l #0,score2 move.b #0,con_barrido move.b #3,vidas_1 move.b #3,vidas_2 move.l #2,fvelo jsr fu_out jsr des_menu move.l #25,d0 jsr b_espera cmp.l #'ESPA',lengua beq menu_spn move.l #mini_ilogo,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #80,spr_x move.w #160,spr_y jsr mini_print move.l #mini_iselec,mini_text move.w #120,spr_x move.w #85,spr_y jsr mini_print move.l #mini_if1,mini_text move.w #110,spr_x move.w #100,spr_y jsr mini_print move.l #mini_if2,mini_text move.w #110,spr_x move.w #110,spr_y jsr mini_print move.l #mini_if3,mini_text move.w #110,spr_x move.w #120,spr_y jsr mini_print move.l #mini_if4,mini_text move.w #110,spr_x move.w #130,spr_y jsr mini_print bra fin_menu menu_spn move.l #mini_elogo,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #75,spr_x move.w #160,spr_y jsr mini_print move.l #mini_eselec,mini_text move.w #105,spr_x move.w #85,spr_y jsr mini_print move.l #mini_ef1,mini_text move.w #95,spr_x move.w #100,spr_y jsr mini_print move.l #mini_ef2,mini_text move.w #95,spr_x move.w #110,spr_y jsr mini_print move.l #mini_ef3,mini_text move.w #95,spr_x move.w #120,spr_y jsr mini_print move.l #mini_ef4,mini_text move.w #95,spr_x move.w #130,spr_y jsr mini_print fin_menu move.l #scr_menu+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) jsr pops_inter jsr copia_back move.w #2,fvelo2 jsr fun_in MENU_OPT cmp.l #200000,count_menu beq muestra_pro addq.l #1,count_menu cmp.b #62,$fffffc02 beq DESKTOP cmp.b #61,$fffffc02 beq CREDITOS cmp.b #60,$fffffc02 beq EQUIPO cmp.b #59,$fffffc02 beq SOLO cmp.b #42,$fffffc02 beq interruptor bra MENU_OPT ; Modo truco pulsando SHIFT y P, O, P, y soltando SHIFT : interruptor move.b $fffffc02,d0 cmp.b #25,d0 beq shift_shift cmp.b #170,d0 beq MENU_OPT bra interruptor shift_shift move.w #$007,$ffff8240 move.b $fffffc02,d0 cmp.b #170,d0 beq trick_on bra shift_shift trick_on move.w #'SI',trick_mode move.w #005,$ffff8240 bra MENU_OPT ; Ciclo de muestra de 0@@V6"30w'pg?0 `9@x6 y0sMp9@ +  6(|=ɛ)$ sX\6`<E0s'7   X\6`'`?^cq~,>qm ߃k$s$@p |!8] >8YȀ# $@p 'o߇N; m{x~' x@p`b` <8ӅLP?< 01! x@p`b <ߟ?g~~| ` `@@1x۝P87V; Y`|070@ `@@1x'ysG?{ &8x06{ DHFGY,À? &8x06p'?o?߸f>g ?D0 G `L@-4?Јc,9XD0 G `L@-'0x/{|۹~ݐ Ar  0H0@"oO ma ݐ0  00@"o@' ~f3>D`,A#yl@p (/"1h-' ~p (/'D}?ϟC|f@ub  0``ys 88H f@& 0``yp'wO?w'!#u 88b@x0 <a> `p'!#8@x0 <a8'`oO=p#qy y`0800 3 fN ΀ss p p`0800 '0M?5wϷ3sy$|8b00x$" ?c` RNJ.c0,ws G000x$" ?b' x83i_ǿ yq<?? @/?C?C s | !  @/?C< c^~6;xHp} <P`f߂OK{}_?&sCWvq'Xh1`W> 6z3xCP6 `h@Xh1`'|yw@dDO'v0p @~L! mM<0p 'Ma?\?~g`>,|_'Nr,C0 "`@ a@8; #>hb  d0@ C0 "@'OQPqp0MHprD 0 `` q0ls@ rs4 yG@P D 0 ``l'I88\g (0P0MN~>8 ` 10 @V w 1 ?F @~ `  ' 8<7ߏ|=0 ''>@ hpπ9!'P'@p'L=w9 >@ hpP'a8-sߟ 0` ρ' @ `a@ 0`0~a@ 93ف9`? @ `a@0~'5AxwpA} 'P|A߇b((} >u?z&A} @a txt_mloop txt_exit99 rts * Calcula X e Y * txt_calc clr.l d0 ;d0.b->x clr.l d1 ;d1.b->y move.b txt_x(pc),d0 move.b txt_y(pc),d1 move.l txt_pos1(pc),d3 lea.l txt_pos(pc),a0 txt_cax cmp.b #1,d0 bmi txt_cay btst #0,d0 beq txt_par txt_impar subq.b #1,d0 asl.b #2,d0 bra txt_cay txt_par asl.b #2,d0 subq.b #7,d0 txt_cay mulu #8,d1 mulu #160,d1 add.l d1,d3 add.l d0,d3 move.l d3,(a0) rts * Imprime * txt_impri move.l txt_carac(pc),a0 move.l txt_pos(pc),a1 moveq.b #8,d0 txt_loop move.b (a0),d1 move.b d1,(a1) subq.b #1,d0 beq txt_exit1 add.l #160,a1 addq.l #1,a0 bra txt_loop txt_exit1 rts txt_x dc.b 4 txt_y dc.b 4 txt_text dc.l 0 txt_carac dc.l 320000 txt_pos dc.l $f8000 txt_carac1 dc.l 320000 txt_pos1 dc.l $f8000 endm imp_minfnt macro movea.l mini_carac,a6 movea.l mini_text,a0 mini_sigui clr.l d0 move.b (a0)+,d0 tst.b d0 beq mini_fin move.l a0,-(sp) clr.l d1 move.b d0,d1 mulu.w #68,d1 lea spr_dirspr(pc),a1 add.l a6,d1 move.l d1,(a1) move.l d0,-(sp) bsr spr_calcxy bsr spr_imprime move.l (sp)+,d0 lea mini_tamano(pc),a0 adda.l d0,a0 clr.l d1 move.b (a0),d1 lea spr_x(pc),a1 add.w d1,(a1) movea.l (sp)+,a0 bra mini_sigui mini_fin rts mini_carac DC.l 0 mini_tamano DC.b 0,5,5,5,5,5,5,5,4,5,5,5,5,5,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5 DC.b 5,5,5,2,3,5,5,5,5,5,4,5,3,5,3,3,5,3,5,5,5,5,5,5,5,5,5,5,5 DC.b 4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5 DC.b 5,5,5,5,5,5,4,5,5,4,5,5,5,5,5,5,5,5,3,5,5,3,6,5,5,5,5,4,5 DC.b 4,5,5,6,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5 EVEN mini_text DC.l 0 endm txt_cay txt_par asl.b #2,d0 subq.b #7,d0 txt_cay mulu #8,d1 mulu #160,d1 add.l d1,d3 add.l d0,d3 move.l d3,(a0) rts * Imprime * txt_impri move.l txt_carac(pc),a0 move.l txt_pos(pc),a1 moveq.b #7,d0 txt_loop move.b (a0),d1 or.b d1,(a1) subq.b #1,d0 beq txt_exi"""QNu |"| <""""""""""""""""""""""""""""""""""""""""QNu <""""""""""""""""""""""""""""""""""""""""QNu <""""""""""""""""""""""""""""""""""""""""QNu < | `BQNu <$ | ``#pA3JZB3J^B#B#B N@dN@Nu#pA3JZB3J^B#B#B N@dN@NuNuNuHN12#pN2NQN1N1NN k>!R$%B$48MF900 @```@ ? >0~00 0`&ccc2  ?>c6f~`~c>0`~cc> >cc?< <<`0`>cc"IUN 6cccc~cc~cc~3```3|fcccf|``~````~```0`gc3cccccc? ?c>cflx|ng000000?cwkccccs{ogc>ccccc>~ccc~``>cccof=~ccg|ngc>? cccccc>cccw>ccckwccw>>wc333 8p`0 `````'4C{g>{?h@`|x?' =C( 0 x?t ?#Ǔ 9 `nx0 | a ( 0 ' {_=`a":.ٵ'>? `0`?": |8-F8n<| a.u ? 0`? '|on{f|8?ܴ'y}0p ?8? ;!.{,&|ty 0 ? '!ϟg4A<'0`Q 8x ?<@ 0 4X&A| 0` 8 ?'1ow#q}`߾ 'A`0<3 ?? t0@?t d0`03 _m?vs_O 'py\B?ap` 0@p Byi<&}w@m_|3'y`K|3B_'?  @?q~'0`D , @H?0?'0n~?1Q`3 0ɞ^@`p``>'f_0 aaX3 0`p`'P`tz1'p7  <z?`<1'Cf P7  <`1't¿73?N 0)'{`|xG¿03?<9'Àp=@?0L0`x@0)1, nGa{ 2 ('~   0x> s?C 29   0x'3{n| gX`=yG3Ώx'| `G>8[@ gO 3 }'~~~~ n7q<7pg0'~3 ?? ?9PB C 0] 0'1>=o~h3p ;<# '~€#? >? '6Z \ #? '1#?l?~~H>? '>1!H ' .r`0!? '`% þm |?0 >? ':D0@=0A@ ?O'PzxN0@0A@ ? 'wy΀ 9gy 'x> Y  gg'  &F3    '^0#<>ma8˄?\~C07 wfUD3"wwfUD3"   ?? ?? ?' <?x >< g3303 >???w` 33 0 88p08? ;p?1 wp? ?p???x<p|8|p|>?o`>o?g??y  g gg3?33?p3p?`??~??~? ~ p `px?36w> c?n? ?3> c?`>? @p 3 633pw 31n0  3 03w 300`30  @| 3 638s3 03n30  3 033 00`30 L̀| ? ?3;v3k n>>  ?  33k `>> H̀|| 3 ?3;:?c n60  3 3?c `60 LH>| 3 3?3;3c 373`w30 3 0 33c 30p30 L >>x 33c37c3?  3 3c`3? ̀ @38?8?>?|8>?|>?x>?|8 |?p ?g8 ;?g>|3v^!] | |3@!\q`gdy DS;d DP?~gǼ DWǀ DP8 x ??7^ DO@\8@ D@@@+ ?0>G{ } ?p??F?yv  Gy@p ? !?(|]?s@p ? s̄m<{w  a{yτ D?<`  @0{lK\$  D` !x~}B> { 8~B>{@@|r`8 . ?@HL9| Yc . ;?@O@3 }eA ? @  ;' ?#~lI4@K'80A \l@|@O @ɢ|lIp?0@\@ '$xp10ɓ7O3@KBq' d$!ɓ@ O?@ONB3>N= 89gɦ`?<"NNTO @A |! ! p!*!n!. !A:C`LH/f |` |@M>pC>p/BB24BJ04BJ04B0QA?@C>p/0Q@`r/A?@B4 BgB0Qv 9>f (|`(|@E?@BBB8:<DE8Q.9>HNQB9(LQS9@`J9@`ftN=Nup 9>f |` |@BXQNuACp/BB24BJ04BJ04B0QBCtp/2Qpr/AdCz46BgRPTTQAH 9>f K`K@t8:<DE:QB89>HNQB9(LQQNuKI(0:2:ӔHH@:H@єNu zl"zp$zpIpGh(BB0T244$R$$SJf&QNu z "z(E$BB0T2$R SJf&RQ$Nu z"z :B@H@24<B>YYYHGFHGXXXXHGXXXP]SAJAf2B>SBJBf z"z :B@H@24<B>HGHGPPHGP]B>HGHGPPHGP]B>HGHGPPHGP]B>HGHGPPHGP]SAJAf2B>SJfNu":ÎCEIKHa,L?BJgH.ހ(aLL?R`NuBB:Z:W&:dAX<kg S`_ցր Nu z$"z$pSg R`Nu,yC yCBJg4/BDCҎ"/aba ABCQ _`NuIBMBBR<g<dR.RR<gS``8<@BRSJfR<fKJ~,M2T(2T(2T(2TTQ.:IRRffNuHah ICE!fZa\KaV.(I,I&N%aT,Kazd8><apdpar>|8#zD@DADBDCQQHQLNurQNua*d"ra$dCv !a"H@@Vҩ%QnNuf%Nurf%AQNuCtaTxr1 Hka1 Ag"CvtaTr1 HaBq jD`rptadpt?aBC@!!Q`R   HAJbCJdEJpGJIJKJf0202A40j0D@20D@4:AJnCJEJ~GJpIJbKJhMJd02A00J@j0D@80D@0:0PdBV` BT0260AJjCJdEJlGJb04AJvCJ~EJxGJIJrKJp0804AJtCJpEJnGJz02A002A6AJn>AJZCJ^EJvGJx02 yFIg yHIga`N-j`a AJz0J@kBAJvCJhEJxGJfIJzKJt02@002@402@8`>AJvCJlEJxGJjIJzKJr02@002@402@8Q*LNudAT"yp"NCNuAr"yp"NCNuA$"yp"NCNuA "yp"NCNuAW4"yp"NCNu"yp"NCNu/"|"NC _Nu#pB#pB#B#B INGLf#|BNBXBXB#|BNB#pB#pB#BNBTBTB#BNBTBTB#BNB#pB#pBXBXB#BNBTBTB#BNBNu#BNBXBXB#BNB#pB#pB#BNBTBTB#BNBTBTB#BNB#pB#pBXBXB#BNBTBTB#BNBNu 9` ||NO$ 9d |NO$ 9h`d #`hdd #dh |NO$#pB#pB#B#B#tBNB#}BNB#BNBTBTB#tBNB#}BNB#BNBTBTB#tBNB#}BNB#BNBTBTB#tBNB#}BNB#BNBNu 9l |NOV#pB#pB#B#B#BNBTBTB#BNBTBTB#BNBTBTB#BNBNu,H"t 6HA0B2Q]p 0f  QNu,H"t 6HA0B2QNu#pB#pB#B#B INGLg#BNB#BNB#BNBTBTB#BNB#BNB#BNBTBTB#BNB#BNB#BNBTBTB#BNB#BNB#BNBTBTBNu#BNB#BNB#BNBTBTB#BNB#BNB#BNBTBTB#BNB#BNB#BNBTBTB#BNB#BNB#BNBTBTBNu?<NNTNuB?<?<NAXOH@<9fNuH 8Df08 @1 (LNsJ9(gNu#p # a !!S !Qp!1AY&&#*#n#.!T>*!T>n!T>.Nu!S !QpNu?<"NNTO @A##| o NnbNu8 8!S 88!SpB8!NuNS32By4!RpNuHMA2 g0|dPP PRLNS!SPp2`HMA2 gF|dy2y2 y2SLNSLNSNR`H8 8 f |C@p2QLNsHB8! 8!f |fC@p2QLNQ <@ |BQNu <@ |BQNu! p!*!n!.NT Bx@1wB#B#B#B#B 9ESPAg(#BNB# BNBNU#*BNB#IBNB`Nq`ABp0wQNuApBXQNu#B#B#B#B INGLg$#BNB#;BNBNu#bBNB#BNBNu/<?<;NA\OJ@fNuHy?< NA\O`! pHBg/?<=NA<POJ@j`,/ /??<?NA J@j`??<>NAXOLNu??<>NAXONTNVH 89g`NTNU$L`#B#B#B#B INGLg4#BNB#BNB#BNBNu#BNB#8BNB#ZBNBNuH3B3B#A#wBN@dNALAQNu0|fg~ 9 g@A3B3B#XB#AN@dNA 9 f4A3B3B#ЄB#AN@dNA#pNuBB02\B6Ex6Eu#A3B3B#B/ N@dNA"_` yNOg 8ag' 8`f 3NORp pfBpSlJlg 9 g8pRr |fJy6fBP y 6e0Nq 9 g*pFr |fJy6fBP y 6e0 9 y hf PHQ`&@ ySIg 9 gz 9 y"| hgL24XABBd<24AXBBe,2(4)B Bd2(4)A BeNw\PHQ 9 gn 9 y"| hgL24XABBd<24AXBBe,2(4)B Bd2(4)A BeNx:PHQ y6f By6`Ry6a 9 g JyzfJyfJyfTJygFJyfTy: Pf 3:`3``\`J `@By3 3:`VTy: yg3 `83`,Np: yd` yeTJygL yeYy 9gR9Np:`Ry yfNq yg$333Byz`09z |2|g3Tyz`fNp: y d` yeTJygL ydXy 9gR9Np:`Ry yfNq yg$333By`09 |2|g3Ty`3~v`Jy~fJyfJyfZJygFJyfz'Hc~'p!g㷥@~~M 'ǂ%1?O@@??'^9}/ ]o"2ȿ'PҢa'`X @?'|z_-]uhx} ߿ d_'Xw0O ."?O'= wI^/Ϫ;g~3{GedX*?'B < 8D|8O!'Cujmw#Q{?>'?O?!~>_'#w'ߡ;_>G]}=ܟ vE'??(?0?'ur{ʯ#yq.̾wROWԻ2'@ǃr<~p~~'s9}=Wˑ<rz~g'_'CyG,@?@|>?'y;Aӿ̿1/~'#)<B'! 'gsoX}>~Ϸ'` ~!x 'G)Y;?߼?{}{'(0!?<?CC'[U{~qޏq.K' ?G?pW!~1'ѯgy=?gsO;~'H#H9??#c@'ܼsz}nK/[s' 1p1 r?~'_k[j_Ok}>r\i}%߭s'Sq8'_H9?'?Nu.u>X[s֤ 'I `8E?$`O~F 'ZRCOԓ:۟3RL'P0 #4> #'jE[5zs['jI_m}}'u?'~ya9F_O1I:sA?' gﵤί>PLn{֓: :|?< ?0L? H$ C#C _ 7ɷZoG f}kI?y > &e$sLO{` ! i{jbۭi {>n O c?'Ҿaw9$ &BhX't_-]uQ}= }iִ }Zo'X0G @M A?gu14A 0 B0,Ǟ<?p!A$`?燛 oa ;_OU ^{` "06y[kza0x 0x@d = J C0 r{//N/L=X 0<0?` ` HahNqNqNqNqNqE %@A%P%h%haNqNqAva" *aBadaQaNqNq,j,ܪPAFaJ*fNqNqaa9g9`NqNqE NqNqNqNqNqNqLNuNsnNNqNqAaQNqNqNsGO*3p83p NsGO4pNs |hh h h h h hNu |jj j j j j jNu@NqNq#4FNuHz *`Hz &?<?<NNPNu"||@AH00@H@Nu || || | Nu |||||||||||||||||| || |Nu@NqNqQKt(|G"~FNu@NqNqPKr(|~FNu                                                                                                                                                                                                                                                                                                                                                   ) BNE TMB9 PEA.L ISBACKR(PC) BRA CONT2 TMB9 CMP.W #6,MODE(A0) BNE TM10 PEA.L ISBACKB(PC) BRA CONT2 TM10 PEA.L ISBACKS(PC) CONT2 MOVE.W D0,-(A7) SWAP D0 MOVE.W D0,-(A7) MOVE.W #0,-(A7) MOVE.W #XBTIMER,-(A7) TRAP #14 ADDA.L #12,SPC ǃx|?{y a!!矘 9}=!'K 0 mwkg? C<>@/^4 ?03 a i `F7m,1 ? )y dI {]Kl3C}p `o?  @AA = < H2 $ ?Qz( `2K   ``g / ~y P_Yu!Pa `w? 00S@ O L < ? v~߰` `! \~?+  @? ' qP` wg@;?_k` `c}c.)+ H!S.`B 8 ?N0 ?(z` `B?׾?/?) 1aW1!IA !' u 1޶` `Gc{z< (4 W,?$A /zNR@ ^Wg{‡g{۾0 `űl{x? P<_/BP O0'p9 9`".0 "=0+?x P@c ! [`Bz^0 {&}{+*p O$1 ;= >`|`p {`=V}} = *>`*? @ qp >0x yy=οg0 6>  ^τp*o<*~ Pď UA?< nvO9.0 Osr 8/l}*=+*o~ ؈qb@t[qρ= 'w_Ok'0h'9O~>++*|**}' Eq@< =O**{* .}'E0 pW?~ a ' 'oԷv)ا*o y* '?Lp^HG0'g_/;{+OgS* s*o ʼ'LP`@&bU\ " ' / }z '3v)*j * *' &x4@1?= U||!'zی?S;* ʪ  ⨞'G<~@ `XB}'?{;{AbsN 모 ʨ  ꨽'@ c4^ a} B!x'C} :}އ  j  ꠹' 1< ?Nax!?B'Υr:P2BIT'X 4        !(1111.!Ӹy^`yQЀyE``. ?m7ʀumg ( I7€^`^(I7ʀ^^Q?( Wu.u^^Q뀀?(Wu!u^!`Q怀((Wu!^(g^7y7Ѐ.umQ.mQ򈀀!?1Ѐu(mu€^`Eg^EmgQ挀?mm?ـQmy?ـIWm7ـ7Q`7!1 yQII.!.WymQ^ Ѐ7E(my^`Ј ^uW?.ࣀu^!(^`EIДWI^E..¡gE^?1สE^1E..༸7Q .7((ʣ&p@F $'wǀǀǀǀ                                        {{p9'{'{{g{g{p{9p8=p{<{p|<pp9'{ '{| {g {g|  { p{9| p8=p { <{p| <pp9 '{ '{|  {g {g|  { p{9| p8=p { <{p| <pp9'{ '{|>{g{g|>{s{9|>s8=p{<{p|><pq9'{'{|>݆{g{g>燜>?|>>>>|>>?{o{n|>燜'{'{|>݆{<{d|><`q;{?s{8|>s8={O{N|>'{ '{|> { <{d|> <`p; {? p{8| p8= {O {N|  '{ '{|  { <{d| <`p; {? p{8| p8={O {N| '{ '{| {<{d|<`p;{?p{8|p8={O{N|'{'{{{d`p;{p{|p???????|D^=||D^=||D^=||D^=|AEQYAP@AEQYAP@AEQYAP@AEQYAP@y)^Mxy)^Mxy)^Mxy)^MxATSEQ@ATSEQ@ATSEQ@ATSEQ@|QJ)]7Jb@!x8! H'gJ}a܃{w; , <'@LOHAF}Bb 'ῳ7r~0G; |'&`$D ?_B@a~q'_A9c{} ς'0_  | 0?8@'p1{3'G #F@ '{@g0~9Zi炫?'B"1H@/@|@ 0'5?ΣvO? FSオ'!` 7ā?A 'S;~%֟ biZ炯󂿀'!|@@x7 C A'oWs8읿O>`8s4-<炿'| 8 <|`E? @'祣k;pvN۫-o :^>>}?'>I:P >i0@_|pi'sկ@ݖϿ0K[?>.߂zp' > ?@$}@ 0``'`g0 l~}ퟟo}x~*'@& | Ex? @00H'|~`nw}0<C?>߿Ϸ**' _0A> <{` $':Zxwz`h(şojg+*7x*'äDAo Dd_@~tHN']-<[ !'gYl~ϋ}*``*p'xȾ2 |}۾i@j6 @*  }+ *z'8p? nw.uF?$@@ @+  * d**'7w  7;E?Cppv > @x @ 2@]* '83|_U`8;~z++ <H( j *ʠ '>> QQp ??j @/@$  A@ R*( 'D,@D Çt l*` @ J  @ * '.w~C@a pTV5xж@/`p * R@* '; ;}?A8`8PW`w>/g_   ʬx(   'Ap<0T;@û`/@ X^` <  'oux ?@wc?'0 @@0@ #   '7:Px<PS ?`}`'8   pB@x@ '%{=u<uMp0>? @8( ]']=px glw @@k*@'?8|7`a{vRP@@!@''|>?0; (`@@8( 2'p;gx}hB A@'8l? <>/a@@%    '6> na~8pgw?`   P @'{{ g??p3`P``(AK '==Yş| uYx (@@'sۜ߾?>Y@ P8PSH'9Áoomv?, (@()$'7w{o{q`@ @s'~`?q`}?}{ݿs  P 9';0 ``y<_pͽƀ9@ ($'| {^>o9vo{m}o @`@ BN) '~cw cݻ{Yް=۷' 8  P%'D?xϱǏ;߃??` P( @ H'<`gcw~|wn0 X@( IT@'~1;;` p0$*H @'?ٷ_\go߱&qyÏ, P @@P i'x371߀a@@!  @ <' ?;~#D @@ P'?|~;kv~{7﷿xa h  'y||>/\!}`ߌ0 4`@'(<͗~p݃~.|w`xD   'wfg~m>?;s,0,x" (hPV';{;a߃?`>?ߣ91x+@'À-Ù@~`ϗ 2@ @Z<@'>{ =?xohh P @", 'x=`}w}< ~~   @@'ϼp`f;~?}cX@ P`x@'8??q߾  P0, @@B'o?}yx8oz Ph` )'iϿ|<}N7Eldp@  H'<ǃ߿z}>p>o~"8 0X*'n߃O8ppw{ t@,'7qgqۀw?|=~8;  @:`HP';>>? 0$@ (BD'~?}pwt} `@@* '?>nx;?p|p?p>|@  AP  '?ߏw< ps>8 ?|<[ `P@(`ʀr'm81>_-@0( @0m1@' ~o   @!6' ?xo~~c@L H0 T P'sy77xۡ?:pE1 P&@`HP*M('xcp~;<9x<h1׃ 8!(@ @B( &'8`w?`< qϛ{x. P>P@@ET'Gw`n:==|wq@(  r'?ÿ0 |7qzN; Kĉ @Tp@w9'߀owt{pw7%  "@ ;'` > |ߛ} @P π'` 7p`>qo pt p@  '0?ώ~n807:@;(TGAsh''loo? |p0*#B@8' 677sp<oNb  @PDZ'l`p|18|o7 <`p@1 j VA-'  7k >}8psX@A@+T '~{1 w?>8$ AZZ['? ocv;pH j%PdU@-'`w7>`Ϩ @8|!:2A *(@'; ?߰} >@`@IP   `';`g~>xU@ $ H'} n ~?C~Av?g``<~i ϔ*'@ $@ F4 /_,=ø|'u0e@${t R6d''|`>.0(`@ @X p  @]'p0;gopǁ` 8nhJ P , '8`?g?07x@@%l  @A?R' _|3>+@@O H)'{ gXoA y`P{`@ ]4#= |6p` (ΰ@! * w 'sۜٞ>w~1oYOP@`x;'9oѿqֿ|xP/,'Ө@@ s'7w@``@   8"~`?q`wq|px@0 g\";0 yÁw>x8|<e$ v"`?px @`>@  AK"~cw }0xv?8x< 8  @"D?x1Ǐ;߃龹<#g|?< P P@u_e"<`xc|> X@( (@@k|/"~1h>p?sg/? 0J }"?__0|5 P @@ Rݾ#x  8p:@X!  (je#? >ns8?gD, @Adp@#?|~;kv h 8@ w#y||>/\!s߯Yޟ 4@ P+#/H"}ǟ<29|G' c'xw"~+g~,\7}7BJo#Cx8 |L'y $@1'1{;aߓؿgb/[AyΡ%}#!< bW{M}^+wI_$`C$?8]'x/d}^Aw>^?y\~H&$0C! G'𛇁|`p@x? '[ϼs^Shey~mw$uW'y!' ~0G8p <'9?V?P{Ϻ׏;:'I<`?#<.c?'o?}Tky_?fcotIgU' Hp0@ @AqAp?>Ox?Ǔ3'isϿC}/?nʾlw'C$8| @ 8#8'Ȅ<す'ǻ߿#z}>ط{_{]~fT'#>  |@AhBR'P'oߓOu_L[ٮ3Mw'Ȏ> $}9Cy9'?'7qg^uۺv/-rgŻ' `O 'B|tE<ļG <ɠ<';C6_}[vols]'0'#>0b# d>I?'~}rwtxi/'=ծ'H 1@Ox|'|?_>ny;t￴_~Nb'E pGGH$% @@>K'[?߯wǿ޷' <"0 1!b~?O0'#Κ}㜾oʛe{cR'xD@>?1Hg`G'cFMo>_y{eM'<&")?| xIC$O30|=$C!O#'kr~<ѫ[9Ms|SogY'? NW>rcY!' x@@'iuw?]h٭}=>V󷿿,u'Gq߿91A `< '4zG$Lwo~}\yߖz8' 8 Dp0DC?']|_\}G|'Og;qWϻ~N>]׼?'qA?L`G"8|"c? >q'~.#Pǫ'}ynv move.l a4,limite_skuis move.l son1_skuis,d0 move.l d0,son_skuis jsr strt_skuis move.l #SOUNDninsku,a0 jsr YAMAHA clr.b con_barrido clr.w count_time lea ini_skuis1,a6 lea ini_tipo1sk,a5 lea map_1_1,a0 move.l a0,map move.l son1_skuis,d0 move.l #120,tiempo bra comienzafase ; N I V E L # 2 A : PASAFASE1 move.b #'2',txt_stage+2 lea SALTOFASE2(pc),a0 move.l a0,saltofase lea PASAFASE2(pc),a0 move.l a0,pasafase move.l #$70000,pantalla jsr cls jsr ini_barrido SALTOFASE2 lea pantalla2a,a0 jsr put_skuisdat move.w #10,ini_player1 move.w #139,ini_player1+2 move.w #58,ini_player2 move.w #139,ini_player2+2 bsr ponelafaselo move.l #8,d0 move.w #104,d1 move.w #148,d2 jsr pon_suelo move.l #5,d0 move.w #24,d1 move.w #116+14,d2 jsr pon_suelo jsr print_lives move.l #map_1_2,a1 jsr pon_objetos move.l #$78000+2400,a0 move.l #$70000-32000+4640,a1 jsr copy_back jsr imprime_ini jsr copy_from jsr copy_to jsr clear_70 move.w #2,fvelo2 jsr fun_in move.l #SOUND_insku,a0 jsr YAMAHA jsr SND_inskuis lea ini_skuis1,a6 lea ini_tipo2sk,a5 lea limite2skuis,a4 move.l a6,datos_skuisP move.l a5,datos_skuisT move.l a4,limite_skuis move.l son2_skuis,d0 move.l d0,son_skuis jsr strt_skuis move.l #SOUNDninsku,a0 jsr YAMAHA clr.b con_barrido clr.w count_time lea ini_skuis1,a6 lea ini_tipo2sk,a5 lea map_1_2,a0 move.l a0,map move.l son2_skuis,d0 move.l #120,tiempo bra comienzafase ; N I V E L # 3 A : PASAFASE2 move.b #'3',txt_stage+2 lea SALTOFASE3(pc),a0 move.l a0,saltofase lea PASAFASE3(pc),a0 move.l a0,pasafase move.l #$70000,pantalla jsr cls jsr ini_barrido SALTOFASE3 lea pantalla3a,a0 jsr put_skuisdat move.w #226,ini_player1 move.w #139,ini_player1+2 move.w #259,ini_player2 move.w #139,ini_player2+2 bsr ponelafaselo move.l #15,d0 move.w #0,d1 move.w #130,d2 jsr pon_suelo move.l #15,d0 move.w #0,d1 move.w #77,d2 jsr pon_suelo jsr print_lives move.l #map_1_3,a1 jsr pon_objetos move.l #$78000+2400,a0 move.l #$70000-32000+4640,a1 jsr copy_back jsr imprime_ini jsr copy_from jsr copy_to jsr clear_70 move.w #2,fvelo2 jsr fun_in move.l #SOUND_insku,a0 jsr YAMAHA jsr SND_inskuis lea ini_skuis1,a6 lea ini_tipo3sk,a5 lea limite3skuis,a4 move.l a6,datos_skuisP move.l a5,datos_skuisT move.l a4,limite_skuis move.l son3_skuis,d0 move.l d0,son_skuis jsr strt_skuis move.l #SOUNDninsku,a0 jsr YAMAHA clr.b con_barrido clr.w count_time lea ini_skuis1,a6 lea ini_tipo3sk,a5 lea map_1_3,a0 move.l a0,map move.l son3_skuis,d0 move.l #120,tiempo bra comienzafase ; N I V E L # 4 A : PASAFASE3 move.b #'4',txt_stage+2 lea SALTOFASE4(pc),a0 move.l a0,saltofase lea LOADFASE2(pc),a0 move.l a0,pasafase move.l #$70000,pantalla jsr cls jsr ini_barrido SALTOFASE4 lea pantalla4a,a0 jsr put_skuisdat move.w #34,ini_player1 move.w #139,ini_player1+2 move.w #251,ini_player2 move.w #139,ini_player2+2 bsr ponelafa[||||||??????ppp888x8x8x8ppp<<<ppp 888```ppp000000888888000000ppp```````````` ``` ``` ``` ``` ``` ``` ``` ppp000111999888000```000pppppp 888```pxpxpx888888ppp||||||[???|||<<<pppxxx<<<888000pppppp8`8`8`ppp 0 0 0000888888000000ppp```pppppp000888888xxx>>>ppp<<<|||???[>>>xxxxxx<<<|||888ppp```p`p`p`8p8p8p888    aaaqqq888111000888000000000ppp ``` `````` `````` `````````````````````````````````````````````````````````ppp000000000000888 p p p000888   À888ppp``````pppxxx888<<<<<<xxxxxx>>>`P``(AK '==Yş| uYx (@@'sۜ߾?>Y@ P8PSselo move.l #8,d0 move.w #72,d1 move.w #77,d2 jsr pon_suelo move.l #5,d0 move.w #0,d1 move.w #130,d2 jsr pon_suelo move.l #5,d0 move.w #201,d1 move.w #130,d2 jsr pon_suelo jsr print_lives move.l #map_1_4,a1 jsr pon_objetos move.l #$78000+2400,a0 move.l #$70000-32000+4640,a1 jsr copy_back jsr imprime_ini jsr copy_from jsr copy_to jsr clear_70 move.w #2,fvelo2 jsr fun_in move.l #SOUND_insku,a0 jsr YAMAHA jsr SND_inskuis lea ini_skuis1,a6 lea ini_tipo4sk,a5 lea limite4skuis,a4 move.l a6,datos_skuisP move.l a5,datos_skuisT move.l a4,limite_skuis move.l son4_skuis,d0 move.l d0,son_skuis jsr strt_skuis move.l #SOUNDninsku,a0 jsr YAMAHA clr.b con_barrido clr.w count_time lea ini_skuis1,a6 lea ini_tipo4sk,a5 lea map_1_4,a0 move.l a0,map move.l son4_skuis,d0 move.l #120,tiempo bra comienzafase ; Carga la 2da. fase : LOADFASE2 move.l #' DOS',num_fase move.b #255,con_barrido move.l #3,fvelo jsr fu_out move.w #$70,pantaIfisi move.l #$70000,pantalla jsr put_st jsr clear_70v jsr imp_loading move.l #2,d0 jsr b_espera move.l #a_fase1+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in move.l #nom1,a6 move.l #$70000-32000,a5 move.l long1,d3 jsr load move.l #$70000-32000,a0 move.l #segundofondo,a1 jsr ICE move.l #nom2,a6 move.l #$70000-32000,a5 move.l long2,d3 jsr load move.l #$70000-32000,a0 move.l #spr_robot,a1 jsr ICE ; Vuela, vuela helicoptero hacia la segunda fase.... : move.l #new_vsync,$70.w move.l #no_120,$120.w move.b #0,con_barrido move.l #2,fvelo jsr fu_out jsr cls jsr back_cls jsr des_mapa move.w #183,d0 move.w #143,d1 jsr pon_X move.l #font_8x8,txt_carac move.l #font_8x8,txt_carac1 move.l #$70000,txt_pos move.l #$70000,txt_pos1 cmp.l #'INGL',lengua beq heli_ing2 move.l #mapa1b_txt,a0 jsr imp88_15 move.l #$70000,txt_pos move.l #$70000,txt_pos1 move.l #mapa2b_txt,a0 jsr imp88_15 bra esp_heli2 heli_ing2 move.l #map1b_txt,a0 jsr imp88_15 move.l #$70000,txt_pos move.l #$70000,txt_pos1 move.l #map2b_txt,a0 jsr imp88_15 esp_heli2 move.l #50,d0 jsr b_espera move.l #scr_mapa+2,a0 move.l #$ffff8240+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.b #0,counter move.w #206,dr_plotx move.w #154,dr_ploty move.w #206,dr_x1 move.w #154,dr_y1 move.w #75,dr_x2 move.w #111,dr_y2 jsr copia_back len5 move.l #20,d0 .no_aniheli jsr ani_helicop dbra d0,.no_aniheli move.w #'HI',direc_heli bsr LINE len6 move.l #35,d0 .no_aniheli jsr ani_helicop dbra d0,.no_aniheli move.l #2,fvelo jsr fu_out jsr cls jsr put_st move.b #0,con_barrido move.l #a_fase1+2,a0 move.l #colorfuera+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) jsr ini_barrido move.l #2,fvelo jsr fu_out ; N I V E L # 1 B : PASAFASE5 move.b #255,con_barrido lea SALTOFASE5(pc),a0 move.l a0,saltofase lea PASAFASE6(pc),a0 move.l a0,pasafase move.l #$70000,pantalla jsr cls jsr color0dentro jsr ini_barrido SALTOFASE5 move.b #'1',txt_stage+2 lea pantalla5a,a0 jsr put_skuisdat move.w #126,ini_player1 move.w #30,ini_player1+2 move.w #161,ini_player2 move.w #30,ini_player2+2 bsr ponelafaselo jsr print_lives move.l #map_2_1,a1 jsr pon_objetos move.l #$78000+2400,a0 move.l #$70000-32000+4640,a1 jsr copy_back jsr imprime_ini jsr copy_from jsr copy_to jsr clear_70 move.w #2,fvelo2 jsr fun_in move.l #SOUND_insku,a0 jsr YAMAHA jsr SND_inskuis lea ini_skuis1,a6 lea ini_tipo5sk,a5 lea limite5skuis,a4 move.l a6,datos_skuisP move.l a5,datos_skuisT move.l a4,limite_skuis move.l son5_skuis,d0 move.l d0,son_skuis jsr strt_skuis move.l #SOUNDninsku,a0 jsr YAMAHA clr.b con_barrido clr.w count_time lea ini_skuis1,a6 lea ini_tipo5sk,a5 lea map_2_1,a0 move.l a0,map move.l son5_skuis,d0 move.l #100,tiempo bra comienzafase ; N I V E L # 2 B : PASAFASE6 move.b #'2',txt_stage+2 lea SALTOFASE6(pc),a0 m0000xxxx000000000000000000000000xxxx0000xxxxxxxx xxxxxxxx xxxx0000HHHHxxxxxxxxHHHH0000xxxxxxxxxxxxxxxxxxxxxxxxpppphhhhXXXXPPPP 0000XXXXhhhhXXXX00000000pppp````````@@@@````@@@@((((((((((((((((((((hhhhhhhhhhhhPPPPPPPPPPPPPPPPPPPPXXXXXXXXXXXX0000HHHHHHHHXXXX000000000000000000000000@@@@````0000000000000000HHHHHHHH00000000@@@@000000000000@@@@0000HHHHXXXX0000xxxx0000HHHH0000HHHHXXXX00000000HHHH0000000000008888HHHHHHHH0000````@@@@````@@@@xxxx00000000 ```` ````00000000xxxx((((0000xxxx0000xxxx00008888@@@@0000pppp hhhhpppp 8888XXXX 00000000 hhhhPPPP((((0000@@@@ @@@@HHHH0000xxxxxxxx0000HHHH00000000xxxx00000000 @@@@0000@@@@ @@@@@@@@0000HHHHxxxxHHHHHHHH000000000000HHHH @@@@xxxxxxxxHHHH00000000PPPPxxxxxxxx@@@@ppppHHHH00000000@@@@ppppHHHHHHHH0000xxxx 0000HHHH0000HHHHHHHH00000000HHHH8888HHHH000000000000000000000000000000000000  @@@@ 00000000````````0000HHHH 0000HHHHXXXXXXXX@@@@00000000HHHHxxxxHHHHHHHHHHHHppppHHHHppppHHHHHHHHpppp0000HHHH@@@@@@@@HHHH0000ppppHHHHHHHHHHHHHHHHppppxxxx@@@@````@@@@@@@@xxxxxxxx@@@@````@@@@@@@@@@@@0000HHHH@@@@XXXXHHHH0000HHHHHHHHxxxxHHHHHHHHHHHHpppp pppp8888PPPP HHHHPPPP````PPPPHHHHHHHH@@@@@@@@@@@@@@@@@@@@xxxxHHHHxxxxHHHHHHHHHHHHHHHHHHHHhhhhXXXXHHHHHHHHHHHH0000HHHHHHHHHHHHHHHH0000ppppHHHHHHHHpppp@@@@@@@@0000HHHHHHHHHHHHXXXX8888ppppHHHHHHHHppppHHHHHHHH0000@@@@0000HHHH0000pppp HHHHHHHHHHHHHHHHHHHH8888HHHHHHHHHHHHHHHHHHHH0000PPPPHHHHHHHH00000000HHHHHHHHHHHHHHHH8888HHHH0000xxxx @@@@xxxx@@@@@@@@ ```` ````0000HHHHxxxx@@@@ 0000HHHH8888HHHH8888@@@@@@@@ppppHHHHHHHHpppp0000HHHH@@@@HHHH00008888HHHHHHHH88880000HHHHpppp@@@@8888 pppp 8888HHHHHHHH88880000@@@@ppppHHHHHHHHHHHHHHHH@@@@@@@@@@@@@@@@@@@@PPPP HHHHPPPP````PPPPHHHH@@@@@@@@@@@@@@@@@@@@@@@@xxxxTTTTTTTTTTTTTTTTppppHHHHHHHHHHHHHHHH0000HHHHHHHHHHHH0000ppppHHHHHHHHpppp@@@@@@@@8888HHHHHHHH8888PPPP````@@@@@@@@@@@@8888@@@@0000pppp pppp HHHHHHHHHHHHHHHH8888HHHHHHHHHHHHHHHH0000DDDDDDDDDDDDTTTT((((HHHHHHHH0000HHHHHHHHHHHHHHHHHHHH88880000xxxx xxxx @@@@  @@@@((((PPPP0000HHHHxxxx````@@@@````@@@@xxxx````@@@@ ````ove.l a0,saltofase lea PASAFASE7(pc),a0 move.l a0,pasafase move.l #$70000,pantalla jsr cls jsr ini_barrido SALTOFASE6 lea pantalla6a,a0 jsr put_skuisdat move.w #32,ini_player1 move.w #139,ini_player1+2 move.w #252,ini_player2 move.w #139,ini_player2+2 bsr ponelafaselo move.l #4,d0 move.w #126,d1 move.w #77,d2 jsr pon_suelo move.l #3,d0 move.w #28,d1 move.w #130,d2 jsr pon_suelo move.l #3,d0 move.w #117,d1 move.w #130,d2 jsr pon_suelo move.l #3,d0 move.w #206,d1 move.w #130,d2 jsr pon_suelo jsr print_lives move.l #map_2_2,a1 jsr pon_objetos move.l #$78000+2400,a0 move.l #$70000-32000+4640,a1 jsr copy_back jsr imprime_ini jsr copy_from jsr copy_to jsr clear_70 move.w #2,fvelo2 jsr fun_in move.l #SOUND_insku,a0 jsr YAMAHA jsr SND_inskuis lea ini_skuis1,a6 lea ini_tipo6sk,a5 lea limite6skuis,a4 move.l a6,datos_skuisP move.l a5,datos_skuisT move.l a4,limite_skuis move.l son6_skuis,d0 move.l d0,son_skuis jsr strt_skuis move.l #SOUNDninsku,a0 jsr YAMAHA clr.b con_barrido clr.w count_time lea ini_skuis1,a6 lea ini_tipo6sk,a5 lea map_2_2,a0 move.l a0,map move.l son6_skuis,d0 move.l #135,tiempo bra comienzafase ; N I V E L # 3 B : PASAFASE7 move.b #'3',txt_stage+2 lea SALTOFASE7(pc),a0 move.l a0,saltofase lea PASAFASE8(pc),a0 move.l a0,pasafase move.l #$70000,pantalla jsr cls jsr ini_barrido SALTOFASE7 lea pantalla7a,a0 jsr put_skuisdat move.w #25,ini_player1 move.w #139,ini_player1+2 move.w #5,ini_player2 move.w #95,ini_player2+2 bsr ponelafaselo move.l #6,d0 move.w #80,d1 move.w #77,d2 jsr pon_suelo move.l #6,d0 move.w #118,d1 move.w #113,d2 jsr pon_suelo move.l #4,d0 move.w #30,d1 move.w #130,d2 jsr pon_suelo move.l #4,d0 move.w #204,d1 move.w #159,d2 jsr pon_suelo jsr print_lives move.l #map_2_3,a1 jsr pon_objetos move.l #$78000+2400,a0 move.l #$70000-32000+4640,a1 jsr copy_back jsr imprime_ini jsr copy_from jsr copy_to jsr clear_70 move.w #2,fvelo2 jsr fun_in move.l #SOUND_insku,a0 jsr YAMAHA jsr SND_inskuis lea ini_skuis1,a6 lea ini_tipo7sk,a5 lea limite7skuis,a4 move.l a6,datos_skuisP move.l a5,datos_skuisT move.l a4,limite_skuis move.l son7_skuis,d0 move.l d0,son_skuis jsr strt_skuis move.l #SOUNDninsku,a0 jsr YAMAHA clr.b con_barrido clr.w count_time lea ini_skuis1,a6 lea ini_tipo7sk,a5 lea map_2_3,a0 move.l a0,map move.l son7_skuis,d0 move.l #140,tiempo bra comienzafase ; N I V E L # 4 B : PASAFASE8 move.b #'4',txt_stage+2 lea SALTOFASE8(pc),a0 move.l a0,saltofase lea LOADFASE3(pc),a0 move.l a0,pasafase move.l #$70000,pantalla jsr cls jsr ini_barrido SALTOFASE8 lea pantalla8a,a0 jsr put_skuisdat move.w #135,ini_player1 move.w #139,ini_player1+2 move.w #203,ini_player2 move.w #139,ini_player2+2 bsr ponelafaselo move.l #11,d0 move.w #35,d1 move.w #77,d2 jsr pon_suelo move.l #4,d0 move.w #0,d1 move.w #123,d2 jsr pon_suelo move.l #5,d0 move.w #180,d1 move.w #130,d2 jsr pon_suelo jsr print_lives move.l #map_2_4,a1 jsr pon_objetos move.l #$78000+2400,a0 move.l #$70000-32000+4640,a1 jsr copy_back jsr imprime_ini jsr copy_from jsr copy_to jsr clear_70 move.w #2,fvelo2 jsr fun_in move.l #SOUND_insku,a0 jsr YAMAHA jsr SND_inskuis lea ini_skuis1,a6 lea ini_tipo8sk,a5 lea limite8skuis,a4 move.l a6,datos_skuisP move.l a5,datos_skuisT move.l a4,limite_skuis move.l son8_skuis,d0 move.l d0,son_skuis jsr strt_skuis move.l #SOUNDninsku,a0 jsr YAMAHA clr.b con_barrido clr.w count_time lea ini_skuis1,a6 lea ini_tipo8sk,a5 lea map_2_4,a0 move.l a0,map move.l son8_skuis,d0 move.l #140,tiempo bra comienzafase ; Carga la 3a. fase : LOADFASE3 move.l #'TRES',num_fase move.b #255,con_barrido move.l #3,fvelo jsr fu_out move.w #$70,pantaIfisi move.l #$70000,pantalla jsr put_st jsr clear_70v jsr imp_loading move.l #2,d0 jsr b_espera move.l #a_fase1+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in move.l #nom3,a6 move.l #$70000-32000,a5 move.l long3,d3 jsr load move.l #$70000-32000,a0 move.l #segundofondo,a1 jsr ICE move.l #nom4,a6 move.l #$70000-32000,a5 move.l long4,d3 jsr load move.l #$70000-32000,a0 move.l #spr_robot,a1 jsr ICE ; Vuela, vuela helicoptero hacia la tercera fase.... : move.l #new_vsync,$70.w move.l #no_120,$120.w move.b #0,con_barrido move.l #2,fvelo jsr fu_out jsr cls jsr back_cls jsr des_mapa move.w #183,d0 move.w #143,d1 jsr pon_X move.w #48,d0 move.w #100,d1 jsr pon_X move.l #font_8x8,txt_carac move.l #font_8x8,txt_carac1 move.l #$70000,txt_pos move.l #$70000,txt_pos1 cmp.l #'INGL',lengua beq held_ing2 move.l #mapa1c_txt,a0 jsr imp88_15 move.l #$70000,txt_pos move.l #$70000,txt_pos1 move.l #mapa2c_txt,a0 jsr imp88_15 bra esp_held2 held_ing2 move.l #map1c_txt,a0 jsr imp88_15 move.l #$70000,txt_pos move.l #$70000,txt_pos1 move.l #map2c_txt,a0 jsr imp88_15 esp_held2 move.l #50,d0 jsr b_espera move.l #scr_mapa+2,a0 move.l #$ffff8240+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.b #0,counter move.w #77,dr_plotx move.w #104,dr_ploty move.w #77,dr_x1 move.w #104,dr_y1 move.w #219,dr_x2 move.w #33,dr_y2 jsr copia_back len7 move.l #20,d0 .no_aniheld jsr and_helicop dbra d0,.no_aniheld move.w #'DE',direc_heli bsr LINE len8 move.l #35,d0 .no_aniheld jsr and_helicop dbra d0,.no_aniheld move.l #2,fvelo jsr fu_out jsr cls jsr put_st move.b #0,con_barrido move.l #a_fase1+2,a0 move.l #colorfuera+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) jsr ini_barrido move.l #2,fvelo jsr fu_out ; N I V E L # 1 C : PASAFASE9 move.b #255,con_barrido move.b #'1',txt_stage+2 lea SALTOFASE9(pc),a0 move.l a0,saltofase lea PASAFASE10(pc),a0 move.l a0,pasafase move.l #$70000,pantalla jsr cls jsr color0dentro jsr ini_barrido SALTOFASE9 lea pantalla9a,a0 jsr put_skuisdat move.w #153,ini_player1 move.w #84,ini_player1+2 move.w #153,ini_player2 move.w #84,ini_player2+2 bsr ponelafaselo move.l #9,d0 move.w #43,d1 move.w #77,d2 jsr pon_suelo move.l #5,d0 move.w #2,d1 move.w #113,d2 jsr pon_suelo move.l #5,d0 move.w #198,d1 move.w #130,d2 jsr pon_suelo move.l #7,d0 move.w #27,d1 move.w #161,d2 jsr pon_suelo jsr print_lives move.l #map_3_1,a1 jsr pon_objetos move.l #$78000+2400,a0 move.l #$70000-32000+4640,a1 jsr copy_back jsr imprime_ini jsr copy_from jsr copy_to jsr clear_70 move.w #2,fvelo2 jsr fun_in move.l #SOUND_insku,a0 jsr YAMAHA jsr SND_inskuis lea ini_skuis1,a6 lea ini_tipo9sk,a5 lea limite9skuis,a4 move.l a6,datos_skuisP move.l a5,datos_skuisT move.l a4,limite_skuis move.l son9_skuis,d0 move.l d0,son_skuis jsr strt_skuis move.l #SOUNDninsku,a0 jsr YAMAHA clr.b con_barrido clr.w count_time lea ini_skuis1,a6 lea ini_tipo9sk,a5 lea map_3_1,a0 move.l a0,map move.l son9_skuis,d0 move.l #135,tiempo bra comienzafase ; N I V E L # 2 C : PASAFASE10 move.b #'2',txt_stage+2 lea SALTOFASE10(pc),a0 move.l a0,saltofase lea PASAFASE11(pc),a0 move.l a0,pasafase move.l #$70000,pantalla jsr cls jsr ini_barrido SALTOFASE10 lea pantalla10a,a0 jsr put_skuisdat move.w #148,ini_player1 move.w #38,ini_player1+2 move.w #182,ini_player2 move.w #38,ini_player2+2 bsr ponelafaselo move.l #8,d0 move.w #141,d1 move.w #117,d2 jsr pon_suelo move.l #8,d0 move.w #0,d1 move.w #144,d2 jsr pon_suelo jsr print_lives move.l #map_3_2,a1 jsr pon_objetos move.l #$78000+2400,a0 move.l #$70000-32000+4640,a1 jsr copy_back jsr imprime_ini jsr copy_from jsr copy_to jsr clear_70 move.w #2,fvelo2 jsr fun_in move.l #SOUND_insku,a0 jsr YAMAHA jsr SND_inskuis lea ini_skuis1,a6 lea ini_tipo10sk,a5 lea limite10skuis,a4 move.l a6,datos_skuisP move.l a5,datos_skuisT move.l a4,limite_skuis move.l son10_skuis,d0 move.l d0,son_skuis jsr strt_skuis move.l #SOUNDninsku,a0 jsr YAMAHA clr.b con_barrido clr.w count_time lea ini_skuis1,a6 lea ini_tipo10sk,a5 lea map_3_2,a0 move.l a0,map move.l son10_skuis,d0 move.l #100,tiempo bra comienzafase ; N I V E L # 3 C : PASAFASE11 move.b #'3',txt_stage+2 lea SALTOFASE11(pc),a0 move.l a0,saltofase lea PASAFASE12(pc),a0 move.l a0,pasafase move.l #$70000,pantalla jsr cls jsr ini_barrido SALTOFASE11 lea pantalla11a,a0 jsr put_skuisdat move.w #82,ini_player1 move.w #42,ini_player1+2 move.w #82,ini_player2 move.w #42,ini_player2+2 bsr ponelafaselo move.l #5,d0 move.w #0,d1 move.w #86,d2 jsr pon_suelo move.l #3,d0 move.w #12,d1 move.w #126,d2 jsr pon_suelo move.l #5,d0 move.w #100,d1 move.w #126,d2 jsr pon_suelo move.l #5,d0 move.w #126,d1 move.w #155,d2 jsr pon_suelo jsr print_lives move.l #map_3_3,a1 jsr pon_objetos move.l #$78000+2400,a0 move.l #$70000-32000+4640,a1 jsr copy_back jsr imprime_ini jsr copy_from jsr copy_to jsr clear_70 move.w #2,fvelo2 jsr fun_in move.l #SOUND_insku,a0 jsr YAMAHA jsr SND_inskuis lea ini_skuis1,a6 lea ini_tipo11sk,a5 lea limite11skuis,a4 move.l a6,datos_skuisP move.l a5,datos_skuisT move.l a4,limite_skuis move.l son11_skuis,d0 move.l d0,son_skuis jsr strt_skuis move.l #SOUNDninsku,a0 jsr YAMAHA clr.b con_barrido clr.w count_time lea ini_skuis1,a6 lea ini_tipo11sk,a5 lea map_3_3,a0 move.l a0,map move.l son11_skuis,d0 move.l #125,tiempo bra comienzafase ; N I V E L # 4 C : PASAFASE12 move.b #'4',txt_stage+2 lea SALTOFASE12(pc),a0 move.l a0,saltofase lea LOADFASE4(pc),a0 move.l a0,pasafase move.l #$70000,pantalla jsr cls jsr ini_barrido SALTOFASE12 lea pantalla12a,a0 jsr put_skuisdat move.w #137,ini_player1 move.w #64,ini_player1+2 move.w #137,ini_player2 move.w #60,ini_player2+2 bsr ponelafaselo move.l #5,d0 move.w #4,d1 move.w #108,d2 jsr pon_suelo move.l #1,d0 move.w #136,d1 move.w #108,d2 jsr pon_suelo move.l #5,d0 move.w #184,d1 move.w #108,d2 jsr pon_suelo move.l #3,d0 move.w #20,d1 move.w #146,d2 jsr pon_suelo move.l #4,d0 move.w #109,d1 move.w #146,d2 jsr pon_suelo move.l #3,d0 move.w #217,d1 move.w #146,d2 jsr pon_suelo jsr print_lives move.l #map_3_4,a1 jsr pon_objetos move.l #$78000+2400,a0 move.l #$70000-32000+4640,a1 jsr copy_back jsr imprime_ini jsr copy_from jsr copy_to jsr clear_70 move.w #2,fvelo2 jsr fun_in move.l #SOUND_insku,a0 jsr YAMAHA jsr SND_inskuis lea ini_skuis1,a6 lea ini_tipo12sk,a5 lea limite12skuis,a4 move.l a6,datos_skuisP move.l a5,datos_skuisT move.l a4,limite_skuis move.l son12_skuis,d0 move.l d0,son_skuis jsr strt_skuis move.l #SOUNDninsku,a0 jsr YAMAHA clr.b con_barrido clr.w count_time lea ini_skuis1,a6 lea ini_tipo12sk,a5 lea map_3_4,a0 move.l a0,map move.l son12_skuis,d0 move.l #135,tiempo bra comienzafase ; Carga la 4a. fase : LOADFASE4 move.l #'CUAR',num_fase move.b #255,con_barrido move.l #3,fvelo jsr fu_out move.w #$70,pantaIfisi move.l #$70000,pantalla jsr put_st jsr clear_70v jsr imp_loading move.l #2,d0 jsr b_espera move.l #a_fase1+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in move.l #nom5,a6 move.l #$70000-32000,a5 move.l long5,d3 jsr load move.l #$70000-32000,a0 move.l #segundofondo,a1 jsr ICE ; Vuela, vuela helicoptero hacia la cuarta fase.... : move.l #new_vsync,$70.w move.l #no_120,$120.w move.b #0,con_barrido move.l #2,fvelo jsr fu_out jsr cls jsr back_cls jsr des_mapa move.w #183,d0 move.w #143,d1 jsr pon_X move.w #48,d0 move.w #100,d1 jsr pon_X move.w #210,d0 move.w #19,d1 jsr pon_X move.l #font_8x8,txt_carac move.l #font_8x8,txt_carac1 move.l #$70000,txt_pos move.l #$70000,txt_pos1 cmp.l #'INGL',lengua beq held_ing3 move.l #mapa1d_txt,a0 jsr imp88_15 move.l #$70000,txt_pos move.l #$70000,txt_pos1 move.l #mapa2d_txt,a0 jsr imp88_15 bra esp_held3 held_ing3 move.l #map1d_txt,a0 jsr imp88_15 move.l #$70000,txt_pos move.l #$70000,txt_pos1 move.l #map2d_txt,a0 jsr imp88_15 esp_held3 move.l #50,d0 jsr b_espera move.l #scr_mapa+2,a0 move.l #$ffff8240+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.b #0,counter move.w #219,dr_plotx move.w #33,dr_ploty move.w #219,dr_x1 move.w #33,dr_y1 move.w #242,dr_x2 move.w #42,dr_y2 jsr copia_back len9 move.l #20,d0 .no_aniheld jsr and_helicop dbra d0,.no_aniheld move.w #'DE',direc_heli bsr LINE len10 move.l #35,d0 .no_aniheld jsr and_helicop dbra d0,.no_aniheld move.l #2,fvelo jsr fu_out jsr cls jsr put_st move.b #0,con_barrido move.l #a_fase1+2,a0 move.l #colorfuera+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) jsr ini_barrido move.l #2,fvelo jsr fu_out ; N I V E L # 1 D : PASAFASE13 move.b #255,con_barrido move.b #'1',txt_stage+2 lea SALTOFASE13(pc),a0 move.l a0,saltofase lea PASAFASE14(pc),a0 move.l a0,pasafase move.l #$70000,pantalla jsr cls jsr color0dentro jsr ini_barrido SALTOFASE13 lea pantalla13a,a0 jsr put_skuisdat move.w #223,ini_player1 move.w #139,ini_player1+2 move.w #258,ini_player2 move.w #139,ini_player2+2 bsr ponelafaselo move.l #8,d0 move.w #54,d1 move.w #77,d2 jsr pon_suelo move.l #4,d0 move.w #3,d1 move.w #103,d2 jsr pon_suelo move.l #4,d0 move.w #200,d1 move.w #103,d2 jsr pon_suelo move.l #5,d0 move.w #83,d1 move.w #130,d2 jsr pon_suelo jsr print_lives move.l #map_4_1,a1 jsr pon_objetos move.l #$78000+2400,a0 move.l #$70000-32000+4640,a1 jsr copy_back jsr imprime_ini jsr copy_from jsr copy_to jsr clear_70 move.w #2,fvelo2 jsr fun_in move.l #SOUND_insku,a0 jsr YAMAHA jsr SND_inskuis lea ini_skuis1,a6 lea ini_tipo13sk,a5 lea limite13skuis,a4 move.l a6,datos_skuisP move.l a5,datos_skuisT move.l a4,limite_skuis move.l son13_skuis,d0 move.l d0,son_skuis jsr strt_skuis move.l #SOUNDninsku,a0 jsr YAMAHA clr.b con_barrido clr.w count_time lea ini_skuis1,a6 lea ini_tipo13sk,a5 lea map_4_1,a0 move.l a0,map move.l son13_skuis,d0 move.l #140,tiempo bra comienzafase ; Carga enemigo final (2) : PASAFASE14 move.b #255,con_barrido move.l #3,fvelo jsr fu_out move.w #$70,pantaIfisi move.l #$70000,pantalla jsr put_st jsr clear_70v jsr imp_loading move.l #2,d0 jsr b_espera move.l #a_fase1+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in move.l #nom2,a6 move.l #$70000-32000,a5 move.l long2,d3 jsr load move.l #$70000-32000,a0 move.l #spr_robot,a1 jsr ICE ; N I V E L # 2 D : move.b #255,con_barrido move.b #'2',txt_stage+2 lea SALTOFASE14(pc),a0 move.l a0,saltofase lea PASAFASE15(pc),a0 move.l a0,pasafase move.l #$70000,pantalla jsr cls jsr color0dentro jsr ini_barrido SALTOFASE14 lea pantalla14a,a0 jsr put_skuisdat move.w #92,ini_player1 move.w #139,ini_player1+2 move.w #193,ini_player2 move.w #139,ini_player2+2 bsr ponelafaselo move.l #6,d0 move.w #92,d1 move.w #77,d2 jsr pon_suelo move.l #6,d0 move.w #92,d1 move.w #130,d2 jsr pon_suelo jsr print_lives move.l #map_4_2,a1 jsr pon_objetos move.l #$78000+2400,a0 move.l #$70000-32000+4640,a1 jsr copy_back jsr imprime_ini jsr copy_from jsr copy_to jsr clear_70 move.w #2,fvelo2 jsr fun_in move.l #SOUND_insku,a0 jsr YAMAHA jsr SND_inskuis lea ini_skuis1,a6 lea ini_tipo14sk,a5 lea limite14skuis,a4 move.l a6,datos_skuisP move.l a5,datos_skuisT move.l a4,limite_skuis move.l son14_skuis,d0 move.l d0,son_skuis jsr strt_skuis move.l #SOUNDninsku,a0 jsr YAMAHA clr.b con_barrido clr.w count_time lea ini_skuis1,a6 lea ini_tipo14sk,a5 lea map_4_2,a0 move.l a0,map move.l son14_skuis,d0 move.l #150,tiempo bra comienzafase ; Carga enemigo final (1) : PASAFASE15 move.b #255,con_barrido move.l #3,fvelo jsr fu_out move.w #$70,pantaIfisi move.l #$70000,pantalla jsr put_st jsr clear_70v jsr imp_loading move.l #2,d0 jsr b_espera move.l #a_fase1+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in move.l #nom0,a6 move.l #$70000-32000,a5 move.l long0,d3 jsr load move.l #$70000-32000,a0 move.l #spr_robot,a1 jsr ICE ; N I V E L # 3 D : move.b #255,con_barrido move.b #'3',txt_stage+2 lea SALTOFASE15(pc),a0 move.l a0,saltofase lea PASAFASE16(pc),a0 move.l a0,pasafase move.l #$70000,pantalla jsr cls jsr color0dentro jsr ini_barrido SALTOFASE15 lea pantalla15a,a0 jsr put_skuisdat move.w #24,ini_player1 move.w #59,ini_player1+2 move.w #261,ini_player2 move.w #59,ini_player2+2 bsr ponelafaselo move.l #6,d0 move.w #3,d1 move.w #103,d2 jsr pon_suelo move.l #6,d0 move.w #180,d1 move.w #103,d2 jsr pon_suelo jsr print_lives move.l #map_4_3,a1 jsr pon_objetos move.l #$78000+2400,a0 move.l #$70000-32000+4640,a1 jsr copy_back jsr imprime_ini jsr copy_from jsr copy_to jsr clear_70 move.w #2,fvelo2 jsr fun_in move.l #SOUND_insku,a0 jsr YAMAHA jsr SND_inskuis lea ini_skuis1,a6 lea ini_tipo15sk,a5 lea limite15skuis,a4 move.l a6,datos_skuisP move.l a5,datos_skuisT move.l a4,limite_skuis move.l son15_skuis,d0 move.l d0,son_skuis jsr strt_skuis move.l #SOUNDninsku,a0 jsr YAMAHA clr.b con_barrido clr.w count_time lea ini_skuis1,a6 lea ini_tipo15sk,a5 lea map_4_3,a0 move.l a0,map move.l son15_skuis,d0 move.l #150,tiempo bra comienzafase ; N I V E L # 4 D : ( EL ULTIMO NIVEL !!!!!! ) PASAFASE16 move.b #255,con_barrido move.b #'4',txt_stage+2 lea SALTOFASE16(pc),a0 move.l a0,saltofase lea PASAGAME(pc),a0 move.l a0,pasafase move.l #$70000,pantalla jsr cls jsr color0dentro jsr ini_barrido SALTOFASE16 lea pantalla16a,a0 jsr put_skuisdat move.w #128,ini_player1 move.w #38,ini_player1+2 move.w #163,ini_player2 move.w #38,ini_player2+2 bsr ponelafaselo jsr print_lives move.l #map_4_4,a1 jsr pon_objetos move.l #$78000+2400,a0 move.l #$70000-32000+4640,a1 jsr copy_back jsr imprime_ini jsr copy_from jsr copy_to jsr clear_70 move.w #2,fvelo2 jsr fun_in move.l #SOUND_insku,a0 jsr YAMAHA jsr SND_inskuis lea ini_skuis1,a6 lea ini_tipo16sk,a5 lea limite16skuis,a4 move.l a6,datos_skuisP move.l a5,datos_skuisT move.l a4,limite_skuis move.l son16_skuis,d0 move.l d0,son_skuis jsr strt_skuis move.l #SOUNDninsku,a0 jsr YAMAHA clr.b con_barrido clr.w count_time lea ini_skuis1,a6 lea ini_tipo16sk,a5 lea map_4_4,a0 move.l a0,map move.l son16_skuis,d0 move.l #999,tiempo bra comienzafase ; ################################ ; ## ES EL FINAL DEL JUEGO !!!! ## ; ################################ PASAGAME move.b #0,con_barrido move.l #no_120,$120.w move.l #new_vsync,$70.w move.l #3,fvelo jsr fu_out move.w #$70,pantaIfisi move.l #$70000,pantalla jsr put_st jsr clear_70v jsr cls jsr imp_loading move.l #2,d0 jsr b_espera move.l #a_fase1+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in move.l #nom7,a6 move.l #$70000-32000,a5 move.l long7,d3 jsr load move.l #$70000-32000,a0 move.l #spr_robot,a1 jsr ICE move.l #nom6,a6 move.l #$70000-32000,a5 move.l long6,d3 jsr load move.l #$70000-32000,a0 move.l #segundofondo,a1 jsr ICE move.l #nom8,a6 move.l #$70000-32000,a5 move.l long8,d3 jsr load move.l #$70000-32000,a0 move.l #scr_credits,a1 jsr ICE move.l #nom9,a6 move.l #$70000-32000,a5 move.l long9,d3 jsr load move.l #$70000-32000,a0 move.l #a_fase1,a1 jsr ICE move.b #0,con_barrido move.l #no_120,$120.w move.l #new_vsync,$70.w move.l #3,fvelo jsr fu_out move.l #$70000,pantalla move.l #scr_credits,a0 jsr des_fin move.l #25,d0 jsr b_espera move.l #scr_credits+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in move.l #25,d0 jsr b_espera cmp.l #'ESPA',lengua beq fin1_espa move.l #ing_fin1,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #115,spr_x move.w #120,spr_y jsr mini_print move.l #150,d0 jsr b_espera jsr borra_letrap move.l #50,d0 jsr b_espera move.l #ing_fin2,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #113,spr_x move.w #120,spr_y jsr mini_print move.l #150,d0 jsr b_espera bra cont_fin1 fin1_espa move.l #esp_fin1,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #108,spr_x move.w #120,spr_y jsr mini_print move.l #150,d0 jsr b_espera jsr borra_letrap move.l #50,d0 jsr b_espera move.l #esp_fin2,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #102,spr_x move.w #120,spr_y jsr mini_print move.l #150,d0 jsr b_espera cont_fin1 lea scr_credits+2,a0 move.w #$777,d0 move.w d0,(a0) move.w d0,2(a0) move.w d0,4(a0) move.w d0,6(a0) move.w d0,8(a0) move.w d0,10(a0) move.w d0,12(a0) move.w d0,14(a0) move.w d0,16(a0) move.w d0,18(a0) move.w d0,20(a0) move.w d0,22(a0) move.w d0,24(a0) move.w d0,26(a0) move.w d0,28(a0) move.w d0,30(a0) move.l #scr_credits+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #3,fvelo2 jsr fun_in move.l #3,fvelo jsr fu_out move.l #$70000,pantalla move.l #a_fase1,a0 jsr des_fin move.l #25,d0 jsr b_espera move.l #a_fase1+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in move.l #25,d0 jsr b_espera cmp.l #'ESPA',lengua beq fin2_espa move.l #ing_fin3,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #98,spr_x move.w #120,spr_y jsr mini_print move.l #150,d0 jsr b_espera jsr borra_letrap move.l #50,d0 jsr b_espera bra cont_fin2 fin2_espa move.l #esp_fin3,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #92,spr_x move.w #120,spr_y jsr mini_print move.l #150,d0 jsr b_espera jsr borra_letrap move.l #50,d0 jsr b_espera cont_fin2 move.l #3,fvelo jsr fu_out cmp.l #'ESPA',lengua beq fin3_espa jsr cls move.l #ing_fin4,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #84,spr_x move.w #66,spr_y jsr mini_print move.l #a_fase1+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in move.l #25,d0 jsr b_espera move.l #150,d0 jsr b_espera move.l #3,fvelo jsr fu_out move.l #25,d0 jsr b_espera jsr cls move.l #ing_fin5,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #141,spr_x move.w #66,spr_y jsr mini_print move.l #a_fase1+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in move.l #150,d0 jsr b_espera move.l #3,fvelo jsr fu_out bra cont_2_heli fin3_espa jsr cls move.l #esp_fin4,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #65,spr_x move.w #66,spr_y jsr mini_print move.l #a_fase1+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in move.l #25,d0 jsr b_espera move.l #150,d0 jsr b_espera move.l #3,fvelo jsr fu_out move.l #25,d0 jsr b_espera jsr cls move.l #esp_fin5,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #140,spr_x move.w #66,spr_y jsr mini_print move.l #a_fase1+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in move.l #150,d0 jsr b_espera move.l #3,fvelo jsr fu_out cont_2_heli move.w #'FI',direc_heli jsr cls move.l #50,d0 jsr b_espera move.l #$70000-32000,pantalla move.l #segundofondo,a0 jsr des_fin cmp.l #'ESPA',lengua beq helifinespa move.l #ing_fin6,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #85,spr_x move.w #165,spr_y jsr mini_print bra finheli helifinespa move.l #esp_fin6,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #81,spr_x move.w #165,spr_y jsr mini_print finheli move.l #$70000-32000,a0 move.l #$70000,a1 jsr copiapanta move.l #$70000-32000,a0 move.l #$78000,a1 jsr copiapanta move.l #segundofondo+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in move.b #0,counter move.w #0,dr_plotx move.w #115,dr_ploty move.w #0,dr_x1 move.w #115,dr_y1 move.w #288,dr_x2 move.w #46,dr_y2 animfin_loop jsr LINE bra finanim_heli animfinheli movem.l d0-d7/a0-a6,-(sp) jsr vsync jsr put_st jsr put_st jsr vsync jsr vsync move.l #$70000-32000,a0 move.l #$78000,a1 jsr copiapanta move.l #$78000,spr_panta move.w dr_plotx,spr_x move.w dr_ploty,spr_y move.l #spr_robot,spr_dirspr jsr spr_calcxy jsr spr_imprime jsr vsync jsr put_back jsr put_back jsr vsync jsr vsync move.l #$70000-32000,a0 move.l #$70000,a1 jsr copiapanta move.l #$70000,spr_panta move.w dr_plotx,spr_x move.w dr_ploty,spr_y move.l #spr_robot+892,spr_dirspr jsr spr_calcxy jsr spr_imprime movem.l (sp)+,d0-d7/a0-a6 rts finanim_heli bra fin_del_POP ; ************************** fin_del_POP bra fin_del_POP ;*************************** ; Borra las letras del final del juego : borra_letrap clr.l d0 move.l #$70000+19200,a0 move.l #200-125,d0 mulu.w #8,d0 blploop clr.l (a0)+ dbra d0,blploop rts ; Calcula los parametros necesarios para comenzar el juego : comienzafase move.l a6,datos_skuisP move.l a5,datos_skuisT move.l d0,son_skuis jsr reset_skuis jsr reset_corre move.w #4,olddire_1up move.w #4,dire_1up move.w #3,dire_2up move.w #3,olddire_2up move.l map,a4 move.l a4,donde_obj move.w #$70,pantaIfisi move.w #$70,panta_fisi move.l #PUT_screen,$70.w move.l #0,segundos jmp JUEGO map dc.l 0 ; Imprime el numero de fase y el mensaje de PREPARADO : ponelafaselo move.l #$70000,pantalla jsr print_ready jsr print_logos jsr print_puntu move.l #2,d0 jsr b_espera move.l #a_fase1+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in move.l #100,d0 jsr b_espera move.l #3,fvelo jsr fu_out cmp.l #' UNO',num_fase bne no1backfase move.l #a_fase1,a0 jsr appear_bak bra back1fase no1backfase move.l #segundofondo,a0 jsr appear_bak back1fase move.l #$78000,pantalla move.l #15,d0 move.w #0,d1 move.w #182,d2 jsr pon_suelo rts ; Copia datos de los SKUISKIES para su uso : put_skuisdat lea ini_skuis1,a1 loop_psd cmp.w #999,(a0) beq fin_psd move.w (a0)+,(a1)+ bra loop_psd fin_psd move.w (a0),(a1) rts ; Copia fondo descomprimido para no borrar marcador : copy_from move.l #$78000+2560,a0 move.l #$70000+2560,a1 move.l #199-16,d0 fromloop rept 160/4 move.l (a0)+,(a1)+ endr dbra d0,fromloop rts ; Copia pantalla a BACK : copy_to move.l #$70000,a0 move.l #$78000,a1 move.l #199,d0 fromloop_to rept 160/4 move.l (a0)+,(a1)+ endr dbra d0,fromloop_to rts ; Copia el fondo de SPRITES (manipulacion general) : copy_back move.l #199-29,d0 backloop_cop rept 160/4 move.l (a0)+,(a1)+ endr dbra d0,backloop_cop rts ; Cpia toda la pantalla (32000 bytes): copiapanta move.l #199,d0 cploop_ rept 160/4 move.l (a0)+,(a1)+ endr dbra d0,cploop_ rts ; Borra contenido del area de juego en el banco 70 : clear_70 move.l #6680+160,d0 move.l #$70000+2400,a0 clear_70loop clr.l (a0)+ dbra d0,clear_70loop rts ; Borra contenido del area de juego en el banco 70, vidas incluidas : clear_70v move.l #6680+2560,d0 move.l #$70000+2400,a0 bra clear_70loop ; Coge fondo de helicoptero : get_bmapa move.l pantalla,spr_panta move.w dr_plotx,spr_x move.w dr_ploty,spr_y move.l #spr_helicop,spr_dirspr move.l #$70000-18000,spr_bground jsr spr_calcxy jsr spr_cground rts ; Deja fondo de helicoptero : deja_heli move.l pantalla,spr_panta move.w dr_plotx,spr_x move.w dr_ploty,spr_y move.l #spr_helicop,spr_dirspr move.l #$70000-18000,spr_bground jsr spr_calcxy jsr spr_groundd rts ; Pone como pantalla visible la pantalla principal : put_st move.b #$7,$ffff8201 move.b #$0,$ffff8203 rts ; Pone como pantalla visible la pantalla back : put_back move.b #$7,$ffff8201 move.b #$80,$ffff8203 rts ; Anima el helicoptero : ani_helicop movem.l d0-d7/a0-a6,-(sp) jsr get_bmapa ani_hloop move.l #$78000,pantalla jsr imp_helicopi jsr vsync jsr put_back jsr put_back jsr espera move.l #$70000,pantalla jsr deja_heli move.l #$70000,pantalla jsr imp_helicopi jsr vsync jsr put_st jsr put_st jsr espera move.l #$78000,pantalla jsr deja_heli movem.l (sp)+,d0-d7/a0-a6 rts and_helicop movem.l d0-d7/a0-a6,-(sp) jsr get_bmapa and_hloop move.l #$78000,pantalla jsr imp_helicopd jsr vsync jsr put_back jsr put_back jsr espera move.l #$70000,pantalla jsr deja_heli move.l #$70000,pantalla jsr imp_helicopd jsr vsync jsr put_st jsr put_st jsr espera move.l #$78000,pantalla jsr deja_heli movem.l (sp)+,d0-d7/a0-a6 rts ; Imprime helicoptero en 'dr_plotx' y 'dr_ploty' (direccion izquierda) : imp_helicopi movem.l d0-d7/a0-a6,-(sp) move.b counter,d0 cmp.b #0,d0 beq imp1helicop cmp.b #1,d0 beq imp2helicop cmp.b #2,d0 beq imp3helicop move.b #0,counter imp1helicop move.l pantalla,spr_panta move.w dr_plotx,spr_x move.w dr_ploty,spr_y move.l #spr_helicop,spr_dirspr jsr spr_calcxy jsr spr_imprime move.b #8,$ffff8800 move.b #15,$ffff8802 move.b #0,$ffff8800 move.b #50,$ffff8802 move.b #6,$ffff8800 move.b #15,$ffff8802 addq.b #1,counter movem.l (sp)+,d0-d7/a0-a6 rts imp2helicop move.l pantalla,spr_panta move.w dr_plotx,spr_x move.w dr_ploty,spr_y move.l #spr_helicop+124,spr_dirspr jsr spr_calcxy jsr spr_imprime move.b #8,$ffff8800 move.b #15,$ffff8802 move.b #0,$ffff8800 move.b #50,$ffff8802 move.b #6,$ffff8800 move.b #15,$ffff8802 movem.l (sp)+,d0-d7/a0-a6 addq.b #1,counter rts imp3helicop move.l pantalla,spr_panta move.w dr_plotx,spr_x move.w dr_ploty,spr_y move.l #spr_helicop+248,spr_dirspr jsr spr_calcxy jsr spr_imprime move.b #8,$ffff8800 move.b #0,$ffff8802 move.b #6,$ffff8800 move.b #15,$ffff8802 movem.l (sp)+,d0-d7/a0-a6 addq.b #1,counter rts ; Imprime helicoptero en 'dr_plotx' y 'dr_ploty' (direccion derecha) : imp_helicopd movem.l d0-d7/a0-a6,-(sp) move.b counter,d0 cmp.b #0,d0 beq imp1helicopd cmp.b #1,d0 beq imp2helicopd cmp.b #2,d0 beq imp3helicopd move.b #0,counter imp1helicopd move.l pantalla,spr_panta move.w dr_plotx,spr_x move.w dr_ploty,spr_y move.l #spr_helicop+372,spr_dirspr jsr spr_calcxy jsr spr_imprime move.b #8,$ffff8800 move.b #15,$ffff8802 move.b #0,$ffff8800 move.b #50,$ffff8802 move.b #6,$ffff8800 move.b #15,$ffff8802 addq.b #1,counter movem.l (sp)+,d0-d7/a0-a6 rts imp2helicopd move.l pantalla,spr_panta move.w dr_plotx,spr_x move.w dr_ploty,spr_y move.l #spr_helicop+496,spr_dirspr jsr spr_calcxy jsr spr_imprime move.b #8,$ffff8800 move.b #15,$ffff8802 move.b #0,$ffff8800 move.b #50,$ffff8802 move.b #6,$ffff8800 move.b #15,$ffff8802 movem.l (sp)+,d0-d7/a0-a6 addq.b #1,counter rts imp3helicopd move.l pantalla,spr_panta move.w dr_plotx,spr_x move.w dr_ploty,spr_y move.l #spr_helicop+620,spr_dirspr jsr spr_calcxy jsr spr_imprime move.b #8,$ffff8800 move.b #0,$ffff8802 move.b #6,$ffff8800 move.b #15,$ffff8802 movem.l (sp)+,d0-d7/a0-a6 addq.b #1,counter rts ; Pone la X en la fase terminada del mapa : pon_X move.w d0,spr_x move.w d1,spr_y move.l pantalla,spr_panta move.l #spr_helicop+744,spr_dirspr jsr spr_calcxy jsr spr_imprime rts ; Opcion VER CREDITOS : CREDITOS move.l #new_vsync,$70.w move.l #2,fvelo jsr fu_out jsr cls move.l #$70000,pantalla move.b #$7,$ffff8201 move.b #$0,$ffff8203 move.l #color_txt,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.l #25,d0 jsr b_espera move.l #font_8x8,txt_carac move.l #font_8x8,txt_carac1 move.l pantalla,txt_pos move.l pantalla,txt_pos1 cmp.l #'INGL',lengua beq cred_ing move.l #credito1txt,txt_text jsr imp88 move.l pantalla,d0 addq.l #2,d0 move.l d0,txt_pos move.l d0,txt_pos1 subq.l #2,txt_pos1 move.l #credito2txt,txt_text jsr imp88 addq.l #2,txt_pos1 move.l #credito3txt,txt_text jsr imp88 subq.l #2,txt_pos1 move.l #credito5txt,txt_text jsr imp88 addq.l #2,txt_pos1 move.l #credito6txt,txt_text jsr imp88 move.l #credito7txt,txt_text jsr imp88 move.l #credito8txt,txt_text jsr imp88 subq.l #2,txt_pos1 move.l #creditoatxt,txt_text jsr imp88 addq.l #2,txt_pos1 move.l #creditobtxt,txt_text jsr imp88 move.l #creditoctxt,txt_text jsr imp88 move.l #creditodtxt,txt_text jsr imp88 bra fin_cred cred_ing move.l #credit1txt,txt_text jsr imp88 move.l pantalla,d0 addq.l #2,d0 move.l d0,txt_pos move.l d0,txt_pos1 subq.l #2,txt_pos1 move.l #credit2txt,txt_text jsr imp88 addq.l #2,txt_pos1 move.l #credit3txt,txt_text jsr imp88 subq.l #2,txt_pos1 move.l #credit4txt,txt_text jsr imp88 addq.l #2,txt_pos1 move.l #credit5txt,txt_text jsr imp88 move.l #credit6txt,txt_text jsr imp88 move.l #credit7txt,txt_text jsr imp88 subq.l #2,txt_pos1 move.l #credit8txt,txt_text jsr imp88 addq.l #2,txt_pos1 move.l #credit9txt,txt_text jsr imp88 move.l #creditatxt,txt_text jsr imp88 move.l #creditbtxt,txt_text jsr imp88 fin_cred move.w #3,fvelo2 jsr fun_in fire_cred cmp.b #57,$fffffc02 beq MENU bra fire_cred ; Opcion regresar a DESKTOP : DESKTOP move.w #34,-(sp) trap #14 addq.w #2,sp move.l d0,a0 lea 24(a0),a0 move.l old_joy,(a0) move.l old_120,$120.w move.l old_vsync,$70.w move.l b_reset1,$42a.w move.l b_reset2,$46e.w move.l b_reset3,$42e.w move.b old09,$fffffa09.w move.b old07,$fffffa07.w move.b old13,$fffffa13.w move.b old1b,$fffffa1b.w move.b old21,$fffffa21.w lea color_gem,a0 lea $ffff8240+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.b #8,$fffffc02 move.l #-1,-(sp) move.l old_screen,-(sp) move.l old_screen,-(sp) move.w #5,-(sp) trap #14 lea 12(sp),sp move.l e_super,-(sp) move.w #32,-(sp) trap #1 addq.l #6,sp move.w #0,-(sp) trap #1 addq.l #2,sp rts ; Imprime caracteres 8x8 color 15: imp88_15 move.l a0,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l a0,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l a0,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l a0,txt_text jsr imp88 rts ; Rutina para copiar a banco BACK : copia_back move.l #1000,d0 move.l #$70000,a0 move.l #$78000,a1 copia_bloop rept 8 move.l (a0)+,(a1)+ endr dbra d0,copia_bloop rts ; Inicializa interrupciones para pompas en menu : pops_inter move.b #5,counter move.l #pops1inter,$70.w move.l pantalla,spr_panta move.w #105,spr_x move.w #6,spr_y move.l #spr_pompas,spr_dirspr move.l #$70000-18000,spr_bground jsr spr_calcxy jsr spr_cground rts ; Interrupcion POMPAS (menu 1er mov.) pops1inter move.b #$07,$ffff8201 move.b #$00,$ffff8203 cmp.b #1,counter bne no_inter22 move.l #$78000,pantalla move.l #$78000,spr_panta move.w #105,spr_x move.w #6,spr_y move.l #spr_pompas,spr_dirspr move.l #$70000-18000,spr_bground jsr spr_calcxy jsr spr_groundd jsr spr_imprime no_inter22 tst.b counter bne no_inter2 move.b #6,counter move.l #pops2inter,$70.w no_inter2 subq.b #1,counter jmp new_vsync ; Interrupcion POMPAS (menu 2do mov.) : pops2inter move.b #$07,$ffff8201 move.b #$80,$ffff8203 cmp.b #1,counter bne no_inter23 move.l #$70000,pantalla move.l #$70000,spr_panta move.w #105,spr_x move.w #6,spr_y move.l #spr_pompas+4372,spr_dirspr move.l #$70000-18000,spr_bground jsr spr_calcxy jsr spr_groundd jsr spr_imprime no_inter23 tst.b counter bne no_inter3 move.b #6,counter move.l #pops3inter,$70.w no_inter3 subq.b #1,counter jmp new_vsync ; Interrupcion POMPAS (menu 3er mov.) : pops3inter move.b #$07,$ffff8201 move.b #$00,$ffff8203 cmp.b #1,counter bne no_inter24 move.l #$78000,pantalla move.l #$78000,spr_panta move.w #105,spr_x move.w #6,spr_y move.l #spr_pompas,spr_dirspr move.l #$70000-18000,spr_bground jsr spr_calcxy jsr spr_groundd jsr spr_imprime no_inter24 tst.b counter bne no_inter4 move.b #6,counter move.l #pops4inter,$70.w no_inter4 subq.b #1,counter jmp new_vsync ; Interrupcion POMPAS (menu 4to mov.) : pops4inter move.b #$07,$ffff8201 move.b #$80,$ffff8203 cmp.b #1,counter bne no_inter25 move.l #$70000,pantalla move.l #$70000,spr_panta move.w #105,spr_x move.w #6,spr_y move.l #spr_pompas+8744,spr_dirspr move.l #$70000-18000,spr_bground jsr spr_calcxy jsr spr_groundd jsr spr_imprime no_inter25 tst.b counter bne no_inter5 move.b #6,counter move.l #pops1inter,$70.w no_inter5 subq.b #1,counter jmp new_vsync ; Que lengua hablas? : hablas? cmp.b #59,$fffffc02 beq ingles cmp.b #60,$fffffc02 beq espanol bra hablas? ingles jsr beep move.l #'INGL',lengua rts espanol jsr beep move.l #'ESPA',lengua rts ; Ejecuta sonido BEEP : beep move.l #snd_beep+128,play_sound+30 move.l #2484-128,play_sound+34 move.l #2,play_sound+38 jsr play_sound+28 rts ; Ejecuta sonido POMP : pomp_snd move.l #snd_pomp+128,play_sound+30 move.l #4256-128,play_sound+34 move.l #2,play_sound+38 jsr play_sound+28 rts ; Ejecuta sonido de aplausos : aplausos_snd move.l #snd_aplausos+128,play_sound+30 move.l #12602-128,play_sound+34 move.l #2,play_sound+38 jsr play_sound+28 rts ; Espera sin usar VSYNC : espera move.l #4000,d0 espera1 nop nop nop nop dbra d0,espera1 rts ; Espera un momento : b_espera jsr vsync clr.b b_vsync dbra d0,b_espera rts ; 1er fundido para efecto especial : s_efecto1 move.l #4,d5 s_lefecto13 lea $ffff8240,a0 move.l #15,d7 s_lefecto11 move.w (a0),d6 tst.w d6 beq s_lefecto12 sub.w #$111,(a0) s_lefecto12 addq.l #2,a0 dbra d7,s_lefecto11 move.l #5,d0 jsr b_espera dbra d5,s_lefecto13 rts ; 2do fundido para efecto especial : s_efecto2 move.l #7,d5 s_lefecto23 lea $ffff8242,a0 move.l #7,d7 s_lefecto21 move.w (a0),d6 cmp.w #$777,d6 beq s_lefecto22 add.w #$111,(a0) s_lefecto22 addq.l #2,a0 dbra d7,s_lefecto21 move.l #5,d0 jsr b_espera dbra d5,s_lefecto23 rts ; Libreria de Color : include color.lib ; Macro color : fundidor ; Libreria de impresores : include impres.lib ; Impresor de Sprites : imp_sprite ; Impresor texto 8x8 : imp_font ; Impresor mini-texto : mini_print imp_minfnt ; Libreria de descompresores : include compress.lib DEGAS_IFF UN_ICE ; Libreria LINEAL : include line.lib ; Descomprime pantalla de creditos : creditos lea scr_credits,a0 move.l pantalla,a1 add.l #34,a0 jsr PC1_BODY rts ; Descomprime pantalla de lenguaje : des_lengua lea scr_lengua,a0 move.l pantalla,a1 add.l #34,a0 jsr PC1_BODY rts ; Descomprime pantalla de mapa : des_mapa lea scr_mapa,a0 move.l pantalla,a1 add.l #34,a0 jsr PC1_BODY rts ; Descomprime pantalla de menu : des_menu lea scr_menu,a0 move.l pantalla,a1 add.l #34,a0 jsr PC1_BODY rts ; Descomprime pantalla de los programadores : des_program lea scr_program,a0 move.l pantalla,a1 add.l #34,a0 jsr PC1_BODY rts ; Descomprime la pantalla final : des_fin move.l pantalla,a1 add.l #34,a0 jsr PC1_BODY rts ; Descomprime pantalla de fondo : appear_bak move.l a0,-(sp) move.l #$78000,a1 add.l #34,a0 jsr PC1_BODY move.l (sp)+,a0 rts ; Imprime letreros del juego : print_logos move.l pantalla,txt_pos move.l pantalla,txt_pos1 move.l #font_8x8,txt_carac move.l #font_8x8,txt_carac cmp.l #'INGL',lengua bne spn_logos move.l #ing_logo1,txt_text jsr imp88 addq.l #4,txt_pos addq.l #4,txt_pos1 move.l #ing_logo1,txt_text jsr imp88 move.l pantalla,txt_pos move.l pantalla,txt_pos1 move.l #ing_logo2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #ing_logo2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #ing_logo2,txt_text jsr imp88 move.l pantalla,txt_pos move.l pantalla,txt_pos1 addq.l #4,txt_pos addq.l #4,txt_pos1 move.l #ing_logo3,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #ing_logo3,txt_text jsr imp88 rts spn_logos move.l #spn_logo1,txt_text jsr imp88 addq.l #4,txt_pos addq.l #4,txt_pos1 move.l #spn_logo1,txt_text jsr imp88 move.l pantalla,txt_pos move.l pantalla,txt_pos1 move.l #spn_logo2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #spn_logo2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #spn_logo2,txt_text jsr imp88 move.l pantalla,txt_pos move.l pantalla,txt_pos1 addq.l #4,txt_pos addq.l #4,txt_pos1 move.l #spn_logo3,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #spn_logo3,txt_text jsr imp88 rts ; Crea puntuacion e imprime puntuacion : ; Jugador # (puntuacion) : print_puntu move.l score1,d0 move.l #txt_score1+8,a0 jsr crea_punt move.l score2,d0 move.l #txt_score2+8,a0 jsr crea_punt move.l hscore,d0 cmp.l score1,d0 bcc no_supera move.l score1,hscore no_supera cmp.l score2,d0 bcc no_supera2 move.l score2,hscore no_supera2 move.l #txt_scoreh+8,a0 jsr crea_punt ; Imprime la puntuacion : move.l pantalla,txt_pos move.l pantalla,txt_pos1 move.l #font_8x8,txt_carac move.l #font_8x8,txt_carac1 move.l #txt_score1,txt_text jsr imp88 move.l #txt_score2,txt_text jsr imp88 move.l #txt_scoreh,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_score1,txt_text jsr imp88 move.l #txt_score2,txt_text jsr imp88 move.l #txt_scoreh,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_score1,txt_text jsr imp88 move.l #txt_score2,txt_text jsr imp88 move.l #txt_scoreh,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_score1,txt_text jsr imp88 move.l #txt_score2,txt_text jsr imp88 move.l #txt_scoreh,txt_text jsr imp88 rts ; Imprime tiempo : print_time move.l tiempo,d0 move.l #txt_tiempo+8-3,a0 jsr crea_time move.l pantalla,txt_pos move.l pantalla,txt_pos1 move.l #font_8x8,txt_carac move.l #font_8x8,txt_carac1 move.l #txt_tiempo,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_tiempo,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_tiempo,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_tiempo,txt_text jsr imp88 rts ; Crea puntuacion y la pasa a cadena ASCII : crea_punt move.l a0,a6 move.l d0,d1 move.l #5,d2 creapuntloop divu.w #10,d1 move.w d1,d3 swap d1 add.b #'0',d1 move.b d1,-(a6) clr.l d1 move.w d3,d1 dbra d2,creapuntloop ; Quita los ceros de la izquierda en la puntuacion : fuera_ceros sub.l #6,a0 move.l #3,d0 fue_ce cmp.b #'0',(a0) bne z_ move.b #' ',(a0)+ dbra d0,fue_ce z_ rts ; Crea tiempo : crea_time move.l a0,a6 move.l d0,d1 move.l #2,d2 creatimeloop divu.w #10,d1 move.w d1,d3 swap d1 add.b #'0',d1 move.b d1,-(a6) clr.l d1 move.w d3,d1 dbra d2,creapuntloop rts ; Imprime mensaje de preparado : print_ready move.l pantalla,txt_pos move.l pantalla,txt_pos1 move.l #font_8x8,txt_carac move.l #font_8x8,txt_carac1 cmp.l #'INGL',lengua beq p_ready move.l #txt_listo1,txt_text jsr imp88 move.l #txt_stage,txt_text jsr imp88 move.l #txt_listo2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_listo1,txt_text jsr imp88 move.l #txt_stage,txt_text jsr imp88 move.l #txt_listo2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_listo1,txt_text jsr imp88 move.l #txt_stage,txt_text jsr imp88 move.l #txt_listo2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_listo1,txt_text jsr imp88 move.l #txt_stage,txt_text jsr imp88 move.l #ByTy09y yXf3` 3` yXf3` 3` y PgJXf 09@PeXPd29hd|A UPeTH33 yg0@3UyJy\g`09\A`Ty\ Pf 3\`3``\`J `@By3 3\`Ty\ yXg3 `3`Np yd` yeTJygL yeYy 9gR9Np`JRy yf0Nq yXg$33X3By~`09~ |2|g3Ty~`Np y d` yeTJygL ydXy 9gR9Np`Ry yfjNq yXg$33X3By`:09 |2|g3Ty`3~z` 9 y"y$yJQgb2X Pdjd` P g P g,Re`Re YP `YPTXQ`вjdYP `2X Pdjd`\ P g P g,Re|`0Re YP `YPTXQN`pjdYP `YWPPTXQ.`PYVPPHTXQ`>YUPPTXQ `,YTPPHTXQ`0`0`0`0`09 |d Ry `By y 9 hdTX2|dRA|g$0XHQ`HRA|g0XHQ`2BPXHQ`&0XHQ`Sh hg PHQ` h g1|PHQx`1|PHQh`29~JAgB 94969 |"y$y&y*|,|I`aT29JAgB 94969 |"y$y&y*|X,|IdaaNu8: i g i gvJZgܸidhDie\ Uf`QE<F EeFF Ed<<JFg"|g,SP3|x3| `3|<G9'3p@xC!'H,* 8<E??3p@xC!>'?33QobOq@4X'123 Qp@POq@7G?P']:Dy@&s?\P8ZDy@' n@ c`\Z'7 36@_?.Cc3 3>@!gC χn}$ a @s !gc '/ϡfyznk0XF~yڀ 0ˇ FN80X'"qdHo?P "~8 |x`'?C 8P 8 `''<pg?ŰT?Gg'X<`l<2x~@?-`MX`<2x'y|xw׏0|Θg~??''|('01g~??`9fǀ!@o(@01g`'o?p<Ѡ% s/8n?'.?xX8o @g2'o .xX?v1 /j@`o k^@ o0pi_ QG'} ?@`QG~' ` @DYH`@`'|80G͟C tA8f'8?2`A8f'`8 DA`Ǚ`!2`'> A~? 8c/'?`c>?! 8B8 8cX'`l.P@>GpNǜ '`` 8B8X' 8vz!h0|'<' ?`?` !h0>'@`ocb>< ` 'ه#??ɟ8{߂A?ߟ'0'<`0'7CA?`<''w#`?' 0 L%y 'g c`H@r wm?[h? |@d@h?~?<<_1fp'";a @  L 8G0 ,L |?@ 4 '8>s` ? &0 , '7~s?w8nx@'a ၀8n~' };pt ?p A'lcwmZ0 8@A ?  x ~ _s<08Z    A1fx|@ņ@o@Hr  c? 7 '0ߠ5Gc ^ߠp``@1 3?Gd ?  _|54Xc p``@1 3?d  vﱆ?0@~ {wp@@C``Ͽp~t f3汆0@{v@C``ϿpA?w~o"r&9`s@~@t?`~C?`" Ca`sf@t?`Ay?oɷ1|@:6H $ A<x~Cd9 &? 6H $A<A'g~d>ha~@'?@09F0x~ 8X{fpd"NFh'0}@09F0A M{/n{f~ -    G3 xCx?-HxfA -p   G3 xC |Q??^盵  `t@> d '8G0c8n8^s@ `t@> d ' ?ÇÐǽ' A`<`es`f@ 7 A`<`9'ppo## 0,P0@cᙇ9'GH F0N!fHp'p8p# 0,P0@cᙇ9' `os|s' `?~ 2  '`0?6A}3ps ~ 2 '߀yߏ (A#߀yH0>@  p '1 ?YB2r|.s ;ÏA yH0>@  P Oٻ yG Ìo_'''à 0 ' a<x|c3u9y0'L<6a ` 0 >'#`M>?ϴq'~a6#A  X'P8mB17tm'>6La6 A  X'?@> ~x=#  pÊ<'ĀD0?" Z | 0Bs u#  p '??ʀa oqp'>ˀ`p"6 <'4` Udh|$q,tp"6 'G7x؎g;?}}'a8``oN8'p<`( @(b@, ||@a``oN8'GDssw' rÀ  a ' x<b4X3d@   a 'Go?'Fox=' <,. 0 F8 Ig8`8o@g@ ,. 0 F8'Cɽo_oyg '6B`iE`b@3? `dp 9 ? @6@`iE`b@3 '{dߑwO8b/{A'6w@"   d 30f" ` @" @'=pۇw2S;'!'a$x`(3H'8 `ǩ^7B#g6   a$x`(3H'`|p?#ϟ9?'0 `?\01@   s)[Oao9ua  `?\01@'|d0!1<7 ' p8@p??' d01M` |4`C 8@p ?tdG~yߟǀ@?'@Gt0p ` ?d } 0`hG`+ه @0p `@A/t,"|:Z``yŅ8: S*: f,& p@`yŅ8'C>}8g|w7xop '`` a5` 1 Gl\:f'B> ds@` a` 1 'Ͽ (xws7'0@K8dp?d 4 x?ӖC 0@dpd 4=|x̏kC| ?` x@0߄t00D?p1ݹM,DF/`@t00D =  {ϟǁH; @0`H?!!Ɂ a @8 @0`HF}; ?o~? B)? LD?GX1kb`2a:@ @( LDF0??7C`,MonG/0h !~00>xg ~Fn@0h !'D8?@`1o?' `>pw27^#8 #?8gh~ň@;i @ p`27'G?^2?#?';2B ߺ:\c{ 0x!^9 ? Ӏi@8B %:\c'@x_{?1/'@01|x?p0p#,pL [ha?8@@00xp0?'!z|? ??= '`3zap? `x?'2p\/6?f `  `ap  ` '緌0:>Og7|?h' Hs0:?g@0'db9r  Hg @0'_#>~~sy?'`0<# px A'A``©لM/|0< x A'_G}'? 8p0 @ '`?0S 8O0 @ ?'0?[v~1 gG<ÿ'?w<<',Q?Y|0>[D+ <<'0<>~@B3`~@C00 0'$,zA 3` 00 0'[2|^ 3?'{10!^8aA@<'g L X2|8 10 8aA@'3y ???'1%  @`|'cQMd  !v1  @`'?30o ?pa8p0 x?'o c=- ~ bpp`8?p0 'ywx31o??gbwp?'~x3@?0'1o `> @?` ?0'?p3~ӿ~?ss?'5p3,@ ? g' wO*g@?S0@ ? g' ??~ya۔~#'"e 8$c' Jqa@xY"` $c'?>'` |<>Q?;p'` p ?  ?'?s'3vb@g.!F0l 0@`.'>p`ݿx~w<"P@>"p@l! Do nf1P@p@l'ϝz9x}}?o|>"bX'zdP ` /&XdP `?'='?R8}?p??0[/R?X! &8.<8q8[X p'?Ӎ'a??oH??'? /a( x' p70@9f8:` ( x'7B}ؙoG#?#8p'0(0>0#Ǐ`s0@,!0(0$0͋<_?g >~ ͏?? ?Xp :`2p8 Ď/'~  2X ' ϟ7 x @A 00`p|>>x @A`?'a2z9 ?! ``<@`A?a`q B$O`<@` 0?'53vE߯9'7`P@p ug gf<  P@'4>&XEoq$|_$~C8x? t&vxG ~@p8'pq zp$x~~@> 9 |x@6c> '܆1 |` @#~>0 ?d8 2aa@  'Ovng; ?|1 >AOvGp c??@ @$"u?g@  g l0'>"σ_0`C0@3p|g2LOÇ1Hx'xrOb?`cqg  #C߄ &3 Lxdog/ G z '` B|7?zg[ ' #8_=,@@ g@`#  c ?wz?> #9"?x@  `& c #^{|?7dG>?  >s d@@'?_;f|~xߌ.?A3 O?_y~# p @ @'@˿?pOA: )I 4@C1Ͽ=~ |0Ù @ >>@ 4@C1 : '@G鸏x|?߀;॰&BG GpB |ɸH:@@ Gp@  @' A<}>p??1{@ZAA<X{~?{A ,|>$ @<@@BA '!<ݧ~??!8GM: Y"Xz? ` X`&E<!o!Y"@@8A:> @'@ }5^ 8? p!pAkp|?? @ |1F0 ' ?/0?ƲN X ?8>p?v'28c0}?? X |F '>ϟ?ߢ<~:h 0`a>x8?<~pp8>N8 } 0``x|<~:@'d~?DG( `1( 7|@0``0(8GP'ဇ^ `6 |x `,9@qogƸ`o ,@ h#w&1p? ?8<a#1`W`G@>?Θ`G8< `@p Dy 0 #@?  `cm0 0w`cx?π`G  `0 @ D`C9|3 |@Ol|8~o| p@s_al,L`O`O| Hnt7@ko u?Xwp_  O@ H<7dl? ???pg Og d= x= 󑛏 o _p_P @0????< @0?8x0 H??xxH?8 0 ``p?̗`?93?3` ṗ93$(?˞8?  0(? ? ???>? ?? ?x|? Š: (==@Y|@ uYxYs@ Pۜ8߾?PS>ۀH,9 Á(o@o()mv?$`@2BITSOUND1'X  SAMPLES CREATED BY MASTERSOUND2 * COPYRIGHTS (C) 1990 F.RAWASI *  _gx'_`$ʸFwzI 5_l@/Zd9 ̼+OsmJ$3UorY:2MboqjX@$7O_hf]K4:N\b^Q="1IYa_S@$ 'CVaaVD,7IRSK:$ ):EIE:*,473*#'&  !&($"%"       #'&  #"    $#                    8;  ;>0$@>(?BD~?}pwt `@@*}?@>nx; ?p |pAP? p>[?ߏ w< ps`P>8 @(?|`<ʀr-m@810( @>0_m1@[000ppp000???????????????888 ??????????0 @A7x?P> _+@@|O3 H)gW{g{GgZ'o 0E?_-]{y!?5&~γH·= cNL-|tGjx/CwY?sOQ$cۜ1ί&aٞ[Dw~5x<?g'ztɬ'ө` 9 g 9 f`a yprf Nhd`Ni 9 g 9 f yprfNk.NX NlNX NQB9( <NqQ"|` | a#pNMNN3xn#A 9 g:p09#B3B3BN@dNA:<xNu&|Nu0JyvgvA}B09~|g`TRy~0929~ yg @A`Y@A3B09@3B#BN@dNA 9 g& 9 g#N13xrNuNQB9( <NqQ"| ` | at#pNMNN3pn#A 9 gDp09#B#B 3B3BN@dNA:<pNu&|Nu0JyvgvA}B09~|g`TRy~0929~ yg @A`Y@A3B09@3B#BN@dNA 9 g& 9 g#N13prNu#Nu3xn#Ap09Є#B3B3BN@dNAJyzgvA}B09|g`TRy0929 yXg @A`Y@A3B09@3B#BN@dNA3xrN1Nu3pn#Ap09Є#B#|B 3B3BN@dNAJyzgvA}B09|g`TRy0929 yXg @A`Y@A3B09@3B#BN@dNA3prN1NuJ9og,J9f>ooo`6o`oJ9p g,J9f>p p p`6p`pJyofBoBoJypfBpBpa3a83aXavNu09oByoCop Qg UIS@J@fNu09pBypCpp Qg UIS@J@fNu`8gNu9gNu | gNua 89fNu INGLg8#MC#|C #pA3<B3<BNBNu#zC#|C #pA3<B3<BNBNuH"|pB@Up rt1 gRBTA|g*`3pCp"#|3` 3p"|oB@(Uort1 gRBTA|g,`3oCo"#|3LNu3oLNu  B09|g| y Pgf Xf,H :(E+69Ef` yg: yg. yg"69C:EeXH:Ed NNu3Nu Pg Xg~` N`vB09|g| y Pgf Xf,H :(E+69Ef` yg: yg. yg"69C:EeXH:Ed NNu3Nu Pg Xg~` N`v9~9vA 9vePW9vWPA@~Jyfa yf3` 3`*33v3~`9~9zA 9zePW9zWPA@~Jyfa yXf3` 3`33z3`|#pB#pB#B#B#BNBTBTB#BNBTBTB#BNBTBTB#BNB ySIf23B3B#yB#pAN@dNA 9 g`B2<4<9SH#pA3B3B#BN@dNALQ 9 fNuB2<04<9SH#pA3B3B#BN@dNALQNu:<xNu####`# `#NNuH | 9png"|`N0X`"| `N0XLNuH|pf#A` #AJDf |(` 4 |V#B3B3BN@dNALNu.9 y"y02468|gNtQNuACJPg00@ IaWyJyf3Aa 9 |:"|$yJYg P$d43B3B#B#AHN@dNALJhe63B3B#~B#AHN@dNAL3B3BJZf#LB` #xB#AHN@dNALPQ8NuTPQ.Nu.9 y\BXQ.9 y"|$|BZ Pg Pg XfNu2`2`.9 yX Pf0XQNu0XQNuA|||||||| | |Nu fNu؈؈`AaAf1|R 1|FBa.<P.Qaa.ATy09 PgJ3 yprf Nhd`Ni 9 f yprd4 move.w fvelo2,d4 fwloop2 movem.l d0-d7/a0-a6,-(sp) jsr vsync clr.b b_vsync movem.l (sp)+,d0-d7/a0-a6 dbra d4,fwloop2 dbra d0,floop2 rts con_barrido dc.b 0 fvelo2 dc.l 0 fcolor2 dc.w 2 fvelo dc.l 3 fcopia ds.w 16 ffuente ds.w 48 fbuffer ds.w 48 fbuffer2 ds.w 48 ffuente2 ds.w 48 fppila dc.l 0 endm  2  '`0?6A}3ps ~ 2 '߀yߏ (A#߀yH0>@  p '1 ?YB2r|.s ;ÏA yH0>@  P Oٻ yG Ìo_'''à 0 ' a<x|c3u9y0'L<6a ` 0 >'#`M>?ϴq'~a6#A  X'P8mB17tf Nk.`Nl`ASJg>#>N<3prN1N1$ yhNAaAf1|R 1|FB$a.<P.QaaNA(Ty$09$ PgX3 yprf Nhd`Ni 9 g 9 f yprf Nk.`Nl`|ASJgx>#>N<3prN1N1$ yhNNNAf1|R 1|F#pB#pB#B#B#BNB#BNB#BNBTBTB#BNB#BNB#BNBTBTB#BNB#BNB#BNBTBTB#BNB#BNB#BNBpdN<^ 9 gASJgP 9 gASJg>#>N<3prN1N1$ yhN>#>N<3pr#pN1N1$a$pN<^ |."|@ LH3>N=pdN<^#>N#>N<3pr#pN1N1$axpN<^ |."|@ LH3>N=pdN<^#>N#>NN1#p ylNH z"z :":&:$:$H&I J"K ( QSJg"` :ȰgAR :eA NQB9(`LNu` ` HahNqNqNqNqNqE %@A%P%h%haNqNqAva" *aBadaQaNqNq,j,ܪPAFaJ*fNqNqaa9g9`NqNqE NqNqNqNqNqNqLNuNsnNNqNqAaQNqNqNsGO*3p83p NsGO4pNs |hh h h h h hNu |jj j j j j jNu@NqNq#4FNuHz *`Hz &?<?<NNPNu"||@AH00@H@Nu || || | Nu |||||||||||||||||| || |Nu@NqNqQKt(|G"~FNu@NqNqPKr(|~FNu                                                                                                                         001 BIN &`2<002 BIN 3`9000 BIN &`A003 BIN `O004 BIN "`W005 BIN R`n!006 BIN +`007 BIN 7`o008 BIN 8`X009 BIN H`   &&8>p߶!mƓ3~3~?ee`}8p8HH8x``p                                                                                                                                                                                                                           )INGL Este programa es 100% codigo maquina !!! This program is 100% machine code !!! POP! FROM BIT CULTURE 1993 PLEASE TURN OFF FOR NO VIRUS! POP! POR BIT CULTURE 1993 APAGA LA MAQUINA PARA NO VIRUS!ECOLOR MONITOR PLEASE !!!!ENECESITO CARPETA - DATOS - EN DIR.!!POP! by Bit Culture 1993 Shareware. Select option...F1. One player start.F2. Team mode start.F3. Credits.F4. Exit to DESKTOP.Seleccione una opcion...F1. Comienzo un jugador.F2. Comienzo modo equipo.F3. Ver creditos.F4. Salir a DESKTOP.POP! por Bit Culture 1993 Shareware.CREDITOS BIT/ART CULTURE CODIGO, GRAFICOS Y SONIDO :  MANUEL CASTRILLO.  SALUDOS ESPECIALES :  HUGO DE JESUS, DAVID MONJE  F.J. BODOQUE, CARMEN SEGURA  ...Y A TODOS LOS DEMAS.  MATERIAL USADO :  DEVPAC II, NEOCHROME, CYBER PAINT  MASTER SOUND, ICE, 3 DISCOS  Y UN MONTON DE PACIENCIA. CREDITS BIT - ART CULTURE CODE, GRAPHICS & SOUND :  MANUEL CASTRILLO.  SPECIAL HI :  HUGO DE JESUS, DAVID MONJE  F.J. BODOQUE, CARMEN SEGURA  ...AND ALL THE REST.  MATERIAL USED :  DEVPAC II, NEOCHROME, CYBER PAINT  MASTER SOUND, ICE, 3 DISKS  AND A LOT OF PATIENCE. Juego pausado, pulse ESPACIO para continuar. Game paused, press SPACE for continue.NIVEL COMPLETADO, BIEN HECHO !!Jugador 1 + 1OOOO = 000000Jugador 2 + 1OOOO = 000000Preparese para el proximo nivel.LEVEL COMPLETED, WELL DONE !! Player 1 + 1OOOO = 000000 Player 2 + 1OOOO = 000000 Get ready for next level. MISION 1 - LA COSTA NIVEL FACIL,CUIDADO CON LOS SKUISKIES MISSION 1 - THE BEACH  EASY MISSION,DESTROY THE SKUISKIES  MISION 2 - EL MONTE  NIVEL MODERADO, GANA EXPERIENCIA !  MISSION 2 - THE MOUNTAIN  MODERATE MISSION, GET EXPERIENCE ! NIVEL DIFICIL, ES REALMENTE BUENO! MISION 3 - EL VOLCAN DIFFICULT MISSION,YOU ARE REALLY GOOD! MISSION 3 - THE FACTORY  MISION 4 - EL REACTOR  LA BATALLA FINAL...  MISSION 4 - THE MACHINE  THE FINAL BATTLE...  ACCESO A DISCO  ESPERE UN MOMENTO.  DISK ACCESS  PLEASE WAIT.  **************************** ** INSERTE DISCO A. ** **************************** **************************** ** INSERT DISK A. ** ****************************1UPHIGH SCORE"2UPTIME :1UPALTA PUNT."2UP NIVEL LISTO ! STAGE READY ! GAME OVER JUGADOR 1 GAME OVER PLAYER 1 GAME OVER JUGADOR 2 GAME OVER PLAYER 2  TIME OVER  Modo trucado CONECTADO/DESCONECTADO. NOHIIt is skuiskie island.50 years for create......only 5 minutes for destroy.But now, the Skuiskies was saved...Not ???PoP! by Bit Culture 1993/4 Shareware.Esta es Skuiskie Island.Media decada para crear......solo 5 minutos para destruir.Pero ahora, los Skuiskies estan salvados...No ???PoP! por Bit Culture 1993/4 Shareware.------------------------------------000000!000000000000000 1\DATOS\000.bin001.bin002.bin003.bin004.bin005.bin006.bin007.bin008.bin009.bin<!ow     _   M Z_ q xjnz ^ )     ^ ^ ) ])  YHH     ) ^H^ ^^ }CC) kM Mw Pkk: ^W]))    E##z9( (^  9N:i :  /.Z Wt . N @`{ 2HH -mm 2^-K  CC W^^ @WW`** ^$ ```  h      "   FMx[xLx*h*x8 C@M@UfCtSxaHMU@wxxC~MQjufCt5xCPMRvqx/Cx#MQ {a,Cx(+MQqu}<u?}Vx\ ~Zd~~lpmCx6MSg_pg?pSCfxux\MU\gng?n@  dd   llH6~67~$ k>!R$%B$48MF900 @```@ ? >0~00 0`&ccc2  ?>c6f~`~c>0`~cc> >cc?< <<`0`>cc"IUN 6cccc~cc~cc~3```3|fcccf|``~````~```0`gc3cccccc? ?c>cflx|ng000000?cwkccccs{ogc>ccccc>~ccc~``>cccof=~ccg|ngc>? cccccc>cccw>ccckwccw>>wc333 8p`0 ````` <?x >< g3303 >???w` 33 0 88p08? ;p?1 wp? ?p???x<p|8|p|>?o`>o?g??y  g gg3?33?p3p?`??~??~? ~ p `px?36w> c?n? ?3> c?`>? @p 3 633pw 31n0  3 03w 300`30  @| 3 638s3 03n30  3 033 00`30 L̀| ? ?3;v3k n>>  ?  33k `>> H̀|| 3 ?3;:?c n60  3 3?c `60 LH>| 3 3?3;3c 373`w30 3 0 33c 30p30 L >>x 33c37c3?  3 3c`3? ̀ @38?8?>?|8>?|>?x>?|8 |?p ?g8 ;?g>|3v^!] | |3@!\q`gdy DS;d DP?~gǼ DWǀ DP8 x ??7^ DO@\8@ D@@@+ ?0>G{{g{g|>{s{9|>s8=p{<{p|><pq9'{'{|>݆LINE movem.l d0-d7/a0-a6,-(sp) lea dr_dx,a0 lea dr_dy,a1 lea dr_ay,a2 lea dr_y2,a3 lea dr_y1,a4 lea dr_dyd,a5 move.w #1,(a0) move.w #1,(a1) move.w (a3),d0 move.w (a4),d1 sub.w d1,d0 move.w d0,(a2) move.w (a2),d0 bpl dr_posi1 move.w (a1),d0 neg.w d0 move.w d0,(a1) move.w (a2),d0 neg.w d0 move.w d0,(a2) dr_posi1 move.w (a1),(a5) lea dr_ax,a0 lea dr_x2,a1 lea dr_x1,a2 lea dr_ay,a3 lea dr_dx,a4 lea dr_dxd,a5 lea dr_dy,a6 move.w (a1),d0 move.w (a2),d1 sub.w d1,d0 move.w d0,(a0) move.w (a0),d0 tst.w d0 bpl dr_posi2 move.w (a4),d0 neg.w d0 move.w d0,(a4) move.w (a0),d0 neg.w d0 move.w d0,(a0) dr_posi2 move.w (a4),(a5) move.w (a3),d0 cmp.w (a0),d0 bcc dr_else1 clr.w (a6) bra dr_noelse1 dr_else1 clr.w (a4) move.w (a3),d0 move.w (a0),d1 move.w d1,(a3) move.w d0,(a0) dr_noelse1 lea dr_dyr,a0 lea dr_dy,a1 lea dr_dxr,a2 lea dr_dx,a3 move.w (a1),(a0) move.w (a3),(a2) lea dr_x,a0 lea dr_x1,a1 lea dr_y,a2 lea dr_y1,a3 lea dr_er,a4 lea dr_ay,a5 move.w (a5),d0 mulu.w #2,d0 move.w d0,(a4) move.w (a1),(a0) move.w (a3),(a2) lea dr_ed,a0 lea dr_ay,a1 lea dr_ax,a2 lea dr_e,a3 move.w (a1),d0 move.w (a2),d1 mulu.w #2,d0 mulu.w #2,d1 sub.w d1,d0 move.w d0,(a0) move.w (a1),d0 move.w (a2),d1 mulu.w #2,d0 sub.w d1,d0 move.w d0,(a3) lea dr_ax,a0 move.w (a0),d7 dr_lineloop lea dr_plotx,a0 lea dr_ploty,a1 lea dr_x,a2 lea dr_y,a3 move.w (a2),(a0) move.w (a3),(a1) cmp.w #'FI',direc_heli beq helifin cmp.w #'HI',direc_heli beq heli_hi bsr and_helicop bra helicontinua helifin jsr animfinheli bra helicontinua heli_hi bsr ani_helicop helicontinua lea dr_e,a0 move.w (a0),d0 tst.w d0 bmi dr_else2 lea dr_x,a0 lea dr_dxd,a1 lea dr_y,a2 lea dr_dyd,a3 lea dr_e,a4 lea dr_ed,a5 move.w (a0),d0 move.w (a1),d1 add.w d0,d1 move.w d1,(a0) move.w (a2),d0 move.w (a3),d1 add.w d0,d1 move.w d1,(a2) move.w (a4),d0 move.w (a5),d1 add.w d0,d1 move.w d1,(a4) bra dr_finelse2 dr_else2 lea dr_x,a0 lea dr_dxr,a1 lea dr_y,a2 lea dr_dyr,a3 lea dr_e,a4 lea dr_er,a5 move.w (a0),d0 move.w (a1),d1 add.w d0,d1 move.w d1,(a0) move.w (a2),d0 move.w (a3),d1 add.w d0,d1 move.w d1,(a2) move.w (a4),d0 move.w (a5),d1 add.w d0,d1 move.w d1,(a4) dr_finelse2 dbra d7,dr_lineloop movem.l (sp)+,d0-d7/a0-a6 rts dr_plotx dc.l 0 dr_ploty dc.l 0 dr_dx DC.w 0 dr_dy DC.w 0 dr_dyd DC.w 0 dr_dxd DC.w 0 dr_dyr DC.w 0 dr_dxr DC.w 0 dr_ax DC.w 0 dr_ay DC.w 0 dr_er DC.w 0 dr_ed DC.w 0 dr_x DC.w 0 dr_y DC.w 0 dr_e DC.w 0 dr_f DC.w 0 dr_x1 DC.w 1 dr_y1 DC.w 1 dr_x2 DC.w 3 dr_y2 dc.w 0 dr_dry2 DC.w 100 (a5),d1 add.w d0,d1 move.w d1,(a4) bra finelse2 else2: lea x,a0 lea dxr,a1 lea y,a2 lea dyr,a3 lea e,a4 lea er,a5 move.w (a0),d0 move.w (a1),d1 add.w d0,d1 move.w d1,(a0) move.w (a2),d0 move.w (a3),d1 add.w d0,d1 move.w d1,(a2) move.w (a4),d0 move.w (a5),d1 add.w d0,d1 move.w d1,(a4) finelse2: dbra d7,lineloop movem.l (sp)+,d0-d7/a0-a6 rts plot: movem.l d0-d7/a0-a6,-(sp) clr.l {g{g>燜>?|>>>>|>>?{o{n|>燜'{'{|>݆{<{d|><`q;{?s{8|>s8={O{N|>'{ '{|> { <{d|> <`p; {? p{8| p8= {O {N|  '{ '{|  { <{d| <`p; {? p{8| p8={O {N| '{ '{| {<{d|<`p;{?p{8|p8={O{N|'{'{{{d`p;{p{|p???????|D^=||D^=||D^=||D^=|AEQYAP@AEQYAP@AEQYAP@AEQYAP@y)^Mxy)^Mxy)^Mxy)^MxATSEQ@ATSEQ@ATSEQ@ATSEQ@|Qz'Hc~'p!g㷥@~~M 'ǂ%1?O@@??'^9}/ ]o"2ȿ'PҢa'`X @?'|z_-]uhx} ߿ d_'Xw0O ."?O'= wI^/Ϫ;g~3{GedX*?'B < 8D|8O!'Cujmw#Q{?>'?O?!~>_'#w'ߡ;_>G]}=ܟ vE'??(?0?'ur{ʯ#yq.̾wROWԻ2'@ǃr<~p~~'s9}=Wˑ<rz~g'_'CyG,@?@|>?'y;Aӿ̿1/~'#)<B'! 'gsoX}>~Ϸ'`C2!"R"3F5$w ` ` `  @0a  @0a  @0a@  `` `` 8p@ @ 01 b 01 b 81 b@  !@s<# A  !@s<# A !@s<3`A @ !Pzw|'`h n !~w|'`x n 1Pzw|g`i Òn@A@   '1>wohy_; `'1>oy_; `'qwoh}9_; `@@ @`'8q?==_{N8 '8q?==O8 '8q}۽_{N<@B';q=ۼo@q ';q?ۿ@q ';s}ۼo@q  #8 ;cۿ@38 ? @3 8 sۿ@3 x@ x@ ?@ ?  1?  1?  1  88 88? 9<P   88 <@#>A#>A'>A@GO GO GO O^^O^@^8^8^< @ ^G^G3^O< 3^O83^O83^o8@3^o x 3^ox s^ox  UUT  |sGUUToXa|sG^asG^oa @ UU}@UP <|C?U@U /b<|C?c<3C? UPTU_ ڠ* bÁP*UWUP%_PÁP?ÁP @ AP_UU_T X\ QSCP@UW ¨( T_ C_    _ @_UUP_ _UU@U  s coa q sa ca q#@Zc '#c/ǎ//ǎ /O / /O!_!_!_COǀ_COCOǀ_O?π?π?O?π??0???0??0??p??x??p?????~?~?~||88808000####G'#G'O?'O?'O?'_<g'0gU_UTgc8g0gc0' 0g0' 'UWUTx0' '0 P@T8 0 @UTJ p@0@xx`@T p@x` `@x` @UT x 0 **1 *0U_UUT#1#1 3W@<8<80<  < <  < <<<<<8<88<08808xG@8pG@8p8p  8` ߀8` ߀0@ 0@p? ? ~!x 'G)Y;?߼?{}{'(0!?<?CC'[U{~qޏq.K' ?G?pW!~1'ѯgy=?gsO;~'H#H9??#c@'ܼsz}nK/[s' 1p1 r?~'_k[j_Ok}>r\i}%߭s'Sq8'_H9?'?Nu.u>X[s֤ 'I `8E?$`O~F 'ZRCOԓ:۟3RL'P0 #4> #'jE[5zs['jI_m}}'u?'~ya9F_O1I:sA?' gﵤί>PLn{֓: :|?< ?0L? H$ C#C _ 7ɷZoG f}kI?y > &e$sLO{` ! i{jbۭiaAaAacac@g@G?O?O ? _ _<9ɀ89{x1?s?s?s? s s`c`c` ?$ ?$8@P W@`P W8AxA ? Px@ ? Px@  ~| ?@A_/ ?@ A_/΀x@/a'/+p '/+ 0 >?AWWKg `@?AWWK~x<`? ?`@ '< '?< ?_R @_R"> @ 8@#Ln  F !?l@  h! 9 |BL!0 d7w |/?8D# `?@ 8?'?8>`^zވ8 ?p>?(A  ? G?~ y?  `7  @ ??``@`???@*`UPWUGG UU_UUUTꪪ U_UUPU_UU    0<p0 08p<p88pxpxxpp p T UTUWU?UWUUPUP??*??UUTU??*?????@s?>?>@/&/&Ѓ@Ѓ@p@~p0@0@@{p ߎ<yA8L q1 (yA8L q1 (  `x8 ? ~$ ? ~$@#@?UPU U@@GUP H@ ꪪ@?UU_@@W?UU@? " UTWU " @D P 0xT {>n O c?'Ҿaw9$ &BhX't_-]uQ}= }iִ }Zo'X0G @M A?gu14A 0 B0,Ǟ<?p!A$`?燛 oa ;_OU ^{` "06y[kza0x 0x@d = J C0 r{//N/L=X 0<0?C ǃx|?{y a!!矘 9}=!'K 0 mwkg? C<>@/^4 ?03 a i `F7m,1 ? )y dI {]Kl3C}p `o?  @AA = < H2 $ ?Qz( `2K   ``g / ~y P_Yu!Pa `w? 00S@ O L < ? v~߰` `! \~?+  @? ' qP` wg@;?_k` `c}c.)+ H!S.`B 8 ?N0 ?(z` `B?׾?/?) 1aW1!IA !' u 1޶` `Gc{z< (4 W,?$A /zNR@ ^Wg{‡g{۾0 `űl{x? P<_/BP O0'p9 9`".0 "=0+?x P@c ! [`Bz^0 {&}{+*p O$1 ;= >`|`p {`=V}} = *>`*? @ qp >0x yy=οg0 6>  ^τp*o<*~ Pď UA?< nvO9.0 Osr 8/l}*=+*o~ ؈qb@t[qρ= 'w_Ok'0h'9O~>++*|**}' Eq@< =O**{* .}'E0 pW?~ a ' 'oԷv)ا*o y* '?Lp^HG0'g_/;{+OgS* s*o ʼ'LP`@&bU\ " ' / }z '3v)*j * *' &x4@1?= U||!'zی?S;* ʪ  ⨞'G<~@ `XB}'?{;{AbsN 모 ʨ  ꨽'@ c4^ a} B!x'C} :}އ  j  ꠹' 1< ?Nax!?B'Υr:PwՆӽ  j z' Cǁ]@@]0G|?~!'wV9s?w:{i ʠ2 z')PCxe`?^c}LBE<'+kwoo9՝!/wn j '>J)]7Jb@!x8! H'gJ}a܃{w; , <'@LOHAF}Bb 'ῳ7r~0G; |'&`$D ?_B@a~q'_A9c{} ς'0_  | 0?8@'p1{3'G #F@ '{@g0~9Zi炫?'B"1H@/@|@ 0'5?ΣvO? FSオ'!` 7ā?A 'S;~%֟ biZ炯󂿀'!|@@x7 C A'oWs8읿O>`8s4` @D H@  @ ]U@\x H@ A @@"(@P _8`@"(@PPUU |qÏPXUP  P !("UT @ !("@<@   5x~8 !@ <<  " 8@  # 8@  `'8q?==_{N8 '8q?==_{N8 '8q?==_{N8 ';q+hxP(hp` #!    x| |< DDdDDD ddDlDh<+hxP(hp` #!    x| |<@D `  Bt"`~ > >:? ??+hxP(hp` #!    x| |<@D `   >:>>>  >|@|+hxP(hp` #!    x| |<@d + ``  P p (1"<D`OpP@]b =B1;DA{woAw`{ ?@h@pD@_`8p|0  `@@  `@` ```` + ``  P p (<D p@b =B1;DA{woAw`{ ?@h@pD`8p|0   ? ,?!??p"?$??>(>.~(| |~~+ ``  P p (<D p@b =B1;DA{woAw`{ ?@h@pD`8p|0   >>>|.>|D|>H|>|>|0+ ``  P p (<D p@b =B1;DA{woAw`{ ?@h@pD`8p|0   `` ` ?0 P +X8`Hp`zx8xx<XHD  + @0` ,??;9`;;;98<87?<8?<8><?~?~+@  @0  @@ {{|x @`_`@@@@01 0/@?@@@@@    P@P@+ ??!>`?x8'`? ?`?x8'`?x??z>?z'?z"?0?~<@d``a@?c@? s@?1?2>>>> >>">">&> > >+```08p=?=?0? ??0? ?? 2 ? =? 0? ;?? ?0~  888?0?@ P00 + !> ?xa>`?|x'`???z'?z??z&? >?z'?z"?0?`<><?d`d??< ? !?#?3?1?3?'?#?#? ;?3?#?#?'?%?!?!?>>+ XX  8(8> 8@(8X> 8/xxo xa~?p00 @@@ hHH Hhh h h H H@+,e@#a>?|!>?xx'? ??x8'?x ??x9&`?!>@?x8'`?x="@??0`?`<><?d`d??< ? !?#?3?0>2>&>">"> ;?3?#?#?&>$> > >>>+ ??!>`?x!>`?x8'`? ?`?x8'`?x ?`?x9&`?!>@?x8'`?x="??0 ? ?8>?8?```??8 ?!?#?3?1?2>>>> >>">">&> > >+  a>`?|!>`?xx'`? ?`?x8'`?x ?`?x9&`?!>@?x8'`?x="@??0`?`<><?d`d??< ? !???????#? ;?3?+ @@0@` P`,@p9pp 0p# `? ?????  ??DDD"$P$~R$\  * R( R۶ 8 + @@0@` P`,@p9pp 0p# `? ????? "* * E*I(|HH%7 T( P(l@p@ 8 @@@+ @@0@` P`,@p9pp 0p# `* E*I(|HH%7 T( P(l@p@ 8  -<炿'| 8 <|`E? @'祣k;pvN۫-o :^>>}?'>I:P >i0@_|pi'sկ@ݖϿ0K[?>.߂zp' > ?@$}@ 0``'`g0 l~}ퟟo}x~*'@& | Ex? @00H'|~`nw}0<C?>߿Ϸ**' _0A> <{` $':Zxwz`h(şojg+*7x*'äDAo Dd_@~tHN']-<[ !'gYl~ϋ}*``*p'xȾ2 |}۾i@j6 @*  }+ *z'8p? nw.uF?$@@ @+  * d**'7w  7;E?Cppv > @x @ 2@]* '83|_U`8;~z++ <H( j *ʠ '>> QQp ??j @/@$  A@ R*( 'D,@D Çt l*` @ J  @ * '.w~C@a pTV5xж@/`p * R@* '; ;}?A8`8PW`w>/g_   ʬx(   'Ap<0T;@û`/@ X^` <  'oux ?@wc?'0 @@0@ #   '7:Px<PS ?`}`'8   pB@x@ '%{=u<uMp0>? @8( ]']=px glw @@k*@'?8|7`a{vRP@@!@''|>?0; (`@@8( 2'p;gx}hB A@'8l? <>/a@@%    '6> na~8pgw?`   P @'{{ g??p3`P``(AK '==Yş| uYx (@@'sۜ߾?>Y@ P8PSH'9Áoomv?, (@()$'7w{o{q`@ @s'~`?q`}?}{ݿs  P 9';0 ``y<_pͽƀ9@ ($'| {^>o9vo{m}o @`@ BN) '~cw cݻ{Yް=۷' 8  P%'D?xϱǏ;߃??` P( @ H'<`gcw~|wn0 X@( IT@'~1;;` p0$*H @'?ٷ_\go߱&qyÏ, P @@P i'x371߀a@@!  @ <' ?;~#D @@ P'?|~;kv~{7﷿xa h  'y||>/\!}`ߌ0 4`@'(<͗~p݃~.|w`xD   'wfg~m>?;s,0,x" (hPV';{;a߃?`>?ߣ91x+@'À-Ù@~`ϗ 2@ @Z<@'>{ =?xohh P @", 'x=`}w}< ~~   @@'ϼp`f;~?}cX@ P`x@'8??q߾  P0, @@B'o?}yx8oz Ph` )'iϿ|<}N7Eldp@  H'<ǃ߿z}>p>o~"8 0X*'n߃O8ppw{ t@,'7qgqۀw?|=~8;  @:`HP';>>? 0$@ (BD'~?}pwt} `@@* '?>nx;?p|p?p>|@  AP  '?ߏw< ps>8 ?|<[ `P@(`ʀr'm81>_-@0( @0m1@' ~o   @!6' ?xo~~c@L H0 T P'sy77xۡ?:pE1 P&@`HP*M('xcp~;<9x<h1׃ 8!(@ @B( &'8`w?`< qϛ{x. P>P@@ET'Gw`n:==|wq@(  r'?ÿ0 |7qzN; Kĉ @Tp@w9'߀owt{pw7%  "@ ;'` > |ߛ} @P π'` 7p`>qo pt p@  '0?ώ~n807:@;(TGAsh''loo? |p0*#B@8' 677sp<oNb  @#a000000 #b000000 #c???000?000<000?00;;400;0;;;4440??0;;?0?;0;;;0??03111103 #d #E 58 11 #W 00 00 0E 06 13 09 08 A:\*.*@ #W 00 00 02 0B 26 09 00 @ #W 00 00 0A 0F 1A 09 00 @ #W 00 00 0E 01 1A 09 00 @ #M 00 00 00 FF A DISCO@ @ #M 00 01 00 FF B DISCO@ @ #T 00 03 02 FF PAPELERA@ @ #F FF 04 @ *.*@ #D FF 01 @ *.*@ #G 03 FF *.APP@ @ #G 03 FF *.PRG@ @ #P 03 FF *.TTP@ @ #F 03 04 *.TOS@ @  *.TOS@ @ `0`0< ,<,/ #PDZ'l`p|18|o7 <`p@1 j VA-'  7k >}8psX@A@+T '~{1 w?>8$ AZZ['? ocv;pH j%PdU@-'`w7>`Ϩ @8|!:2A *(@'; ?߰} >@`@IP   `';`g~>xU@ $ H'} n ~?C~Av?g``<~i ϔ*'@ $@ F4 /_,=ø|'u0e@${t R6d''|`>.0(`@ @X p  @]'p0;gopǁ` 8nhJ P , '8`?g?07x@@%l  @A?R' _|3>+@@O H)'{ gXoA y`P{`@ ]4#= |6p` (ΰ@! * w 'sۜٞ>w~1oYOP@`x;'9oѿqֿ|xP/,'Ө@@ s'7w@``@   8"~`?q`wq|px@0 g\";0 yÁw>x8|<e$ v"`?px @`>@  AK"~cw }0xv?8x< 8  @"D?x1Ǐ;߃龹<#g|?< P P@u_e"<`xc|> X@( (@@k|/"~1h>p?sg/? 0J }"?__0|5 P @@ Rݾ#x  8p:@X!  (je#? >ns8?gD, @Adp@#?|~;kv h 8@ w#y||>/\!s߯Yޟ 4@ P+#/H"}ǟ<29|G' c'xw"~+g~,\7}7BJo#Cx8 |L'y $@1'1{;aߓؿgb/[AyΡ%}#!< bW{@#+ @@0* E*I(|HH%7 T( P(l@p@ 8 @A@ +c @g0 `  Ht8`A  /$4D` $@D0$+c @g0 `  Ht8`A  /$4D+hxP(hp` #!    x| |< DDdDDD ddDlDh<+hxP(hp` #!    x| |<@D `  Bt"`~ > >:? ??+hxP(hp` #!    x| |<@D `   >:>>>  >|@|+hxP(hp` #!    x| |<@d + ``  P p (3"<DoOpP]]b ==B1;;DA{{wwooAww`{{ ??@hpD__`8p|0  `@@  `@` ```` + ``  P p (<D/p]b ==B1;;DA{{wwooAww`{{ ??@hpD`8p|0   ? ,?!??p"?$??>(>.~(| |~~+ ``  P p (<D/p]b ==B1;;DA{{wwooAww`{{ ??@hpD`8p|0   >>>|.>|D|>H|>|>|0+ ``  P p (<D/p]b ==B1;;DA{{wwooAww`{{ ??@hpD`8p|0   `` ` ?0 P +X8`Hp`z8x<XHD  + @0` ,????;;99`;;;;;;9988<?7??8??8>?~?~+@  @0  @@ {|x @_`@@@01 0/?@@@@    P@P@+ ???!~`?x8g`? `?x8g`?x?z?z?z??~<@d`a@@?c@@? s@@?1?2>>>> >>">">&> > >+```08p=?=?0? ??0? ?? 2 ? =? 0? ;?? ?00~~ 8?8?0?@ P00 + !> ?xa~`?|xg`??z?z?z? ?z?z??`<><??dd??< ? !?#?3?1?3?'?#?#? ;?3?#?#?'?%?!?!?>>+ XX98(?8>98@(?8X>98/xxxo|xa~~??p0 @@@ hHH Hhh h h H H@+,e@#a?|!?xx? ?x8?x ?x9f`?!~@?x8g`?x=b@??p`?`<><??dd??< ? !?#?3?0>2>&>">"> ;?3?#?#?&>$> > >>>+ ???!~`?x!~`?x8g`? `?x8g`?x `?x9f`?!~@?x8g`?x="??0 ? ??8>??8??``??8 ?!?#?3?1?2>>>> >>">">&> > >+  a~`?|!~`?xxg`? `?x8g`?x `?x9f`?!~@?x8g`?x=b@??p`?`<><??dd??< ? !???????#? ;?3?+ @@0@` P`,@pp9ppp 0pp# `?? ??????????  ??DDD"$P$~R$\  * R( R۶ 8 + @@0@` P`,@pp9ppp 0pp# `?? ?????????? "* * E*I(|HH%7 T( P(l@p@ 8 @@@+ @@0@` P`,@pp9ppp 0pp# `E*I(|HH%7 T( P(l@p@ 8  @#+ @@0* E*I(|HH%7 T( P(l@p@ 8 @A@ +c @g0 `  Ht8`A  /$4D` $@D0$(l@p@ 8  @#+ @@0* E*I(M}^+wI_$`C$?8]'x/d}^Aw>^?y\~H&$0C! G'𛇁|`p@x? '[ϼs^Shey~mw$uW'y!' ~0G8p <'9?V?P{Ϻ׏;:'I<`?#<.c?'o?}Tky_?fcotIgU' Hp0@ @AqAp?>Ox?Ǔ3'isϿC}/?nʾlw'C$8| @ 8#8'Ȅ<す'ǻ߿#z}>ط{_{]~fT'#>  |@AhBR'P'oߓOu_L[ٮ3Mw'Ȏ> $}9Cy9'?'7qg^uۺv/-rgŻ' `O 'B|tE<ļG <ɠ<';C6_}[vols]'0'#>0b# d>I?'~}rwtxi/'=ծ'H 1@Ox|'|?_>ny;t￴_~Nb'E pGGH$% @@>K'[?߯wǿ޷' <"0 1!b~?O0'#Κ}㜾oʛe{cR'xD@>?1Hg`G'cFMo>_y{eM'<&")?| xIC$O30|=$C!O#'kr~<ѫ[9Ms|SogY'? NW>rcY!' x@@'iuw?]h٭}=>V󷿿,u'Gq߿91A `< '4zG$Lwo~}\yߖz8' 8 Dp0DC?']|_\}G|'Og;qWϻ~N>]׼?'qA?L`G"8|"c? >q'~.#Pǫ'}ynv 0@P`pqr@@@0P@P @ 0PA$$ Hcp~A @@A x/@ NQ  SI A~ƈ?@[@m?`&??GmQo?B(, g|_~?`rfsC@PwDH9x ?n?8t`c^@;E\H  ?Or | ˆ_ 6^8B~rg `?!/!kcBFNx~!J{|? ywK}FH  a?Їw|_0?0c?@?̼m4?>@gPpg̕op^| @° !@/×_B g/| ?<C & @R@x@/ho 9?p ֖}O :CԄ@ qF|?@S+{@h? x;{ O1?n~?0x`f0@D`Xa#M |o뿿~<@Z?4 @g!?+ |s ~8|?_sqZ@B00`G~* a? |?# ?  \lH@4??[yOC7?X|b8!6 ؟D_ ?`?{\ ? ? a qyO   $  @ ;   }_' ?_Cg 8?`>`P @`  ? H71^#~G#gNrK ?8~x?hs ?@@` _  !{bEc{v2@C!@?   n% ?SGlx #( o/ٸ?߀Ax|n3 01>?? ?? _?  D~Vǫs!=UO G_g|?ppsߟ C?| n0 ??  _`f.V  󁳁 ay?pE5_ 8 ?~?r Yzx7󀱃_ =ßϦx?po !  ZP~`OwYC'  !'o8r?@&mW 90p? ? !x?0 ? ?? lR ?/ 9ۮ~| ?@  &O=!]@h` NM٦ ߏ>!9&o? p&8 ? ?@&ka1|p@C2{ ߿1+L1o !O8  7,0C@C _3 0/@ !~ϋ ? ??ap"H  ? B8@|w< d8@ pǿ0?RTp?(g, KxycW8 xV 0?k?]>w/G;. a> > |? ?0'}?Y=9ʝ?'#> >x? ??0'??rqd:߿$`~tØ <?~u ?0?'wjٜ&!cЀ{ H" xπ>>P?'<_A9qz d9`[} `]??'ϩ@0?<980\`pz?? /7= pp?' v{x<@t\?pr}?@{ O3| 0 ?'p뽀Nk?8p8o@ B} ` `?'@i%a8O`k w}O@Ϝo~!0'31ֹ6ws`Af=' ?V9/@> ?9_ ?x'qLbk' @aN{s`>|| ? x'?> ΀אs'0p| ~ ?p'ϿcןA''_?/x a? p'ghaA8u'?`??'hO}!<ll'Ϗ  "/|?' >PR~Ïa>;x8`' ? `ǟ7   'cq.>C a `pZp'nq?>``?   '_ .?c`O H C FH'K@!"@@# '@"ˆ\O{'`28sGV @"[,`|?'?p? '92-/4x7?a Ho'=?p``ǟ o? ?'cWg$ /؋q`+>m?'q/a ?00 8'aDG`)/` |?ayͿ|ր/ 8'fq pӍ86H'Z}OxŸ 8? wXf9.Ǐqx׎ct  K8  ~#??Pd g\_ !a6u;??_ ## cA( =<?  ?| #, ?/aC.  ;>i#yI  (q Ǐ/.p06?|~߀a_@`Z}?> | L|<Ì; ~~<Ìm ~F B GM Bfm GB0@;G̈́Bo͆  |<8a0=~|<c8a0~ 8la0 @ la08@|a0@la0|#00@|>/`08@~0o|!80|?`0oa0~ߏgqN0o @x&8cqpo?>~xgq_0o xcqn0ov??>|g\pM@dEs f3{LNpC{lrl`a x|> sp` ~0 }<|?n3p`~~@`c `B 0  `pc`Bc `c`B 8cppc`B8c` @<< c|~><c |~ 0`@ @08 8< ?}?`?|?`8` @   @x a``ǎ8``0` @  @0  ` a`` ``0  ``x  @`0g ``00G ` ` @ 8 `  <`!88pc΀0F   `!00f` c ̀ `!?0  a a!?0s χÎ!?0ga a!?0ga a !0Cp aa{`!88pqc!0FC` aa}`!00fc` a a`!0 ` a``!0p q#a@`0A`a`00a`a#a  @ !0p `A0 @!0 paøp 8``!0` `A  @!0 ` aa```p?@x< 0x`0|?`|> 0p`0|`8 @r@" "@` @0@0 8<>|?~0~g /?0`=?~~??0~g ?0`o!1cc <8bs0wM8z;~cc <8ga0~cc >8|>pbca2?~pcscs?}!>vca 8=~apccc 0?`>xx| ~8ca;0>x|~`?0ca?1``020`P 0(  `l0C(x<H|| 8ox`~0~ox }<?>~|0op`~0>g9o `c `B7a0Ed'9o `7a0xnw8sDd'X8oc ` 6a08l71L 0ctBM>,d&88cx?nw3N pc`B >0ld&xl 8c`?0ll68*ǀ<|<c|;w0;>o8><~!|ݱc |~1ca08>g$S@@ 0  @X `>| :Çq?>(~ 0q;6a0ى;6a8yى  >s 6a08ى,>X?X{ >0&?0; @|*ǀ;osq 9|1ca0݃ 0@0 |@`0 p>||p ?>8~|0 ;6a0Fあ ;>apzFデ;  6s  >a08テ  >!' ?/; >0^ ?0   p|*| ?ws8P `||1ca00݃@  `@ 0 @@0 @` @ @  |Dx co`߀ ;ߟ |σx co`߀ ߟ 6"l 㐜`  C 6wnp߀ ;ߘG >"l 㐞` ㌄ 6cl0` G >>l  >np  >6l  ㌄ 6l0  ͆ |*x wo翀  |  /x coݟg vG @   @@`   @@| À ߘ`l78|y0? O"  q͜l7l010! r ߘ͜7lp98s O qϞl7|8q0! op q͜l7lp10a M Ϙ&|10! Ovq8s N  {ϙ'|810! l  {610a  |x@ |1>? sϾ~ ` ng|1>?@0@p3 |>0sߏw |? a~ߏg  c pߎXw  xc  0|g aD `Asp` aD pC a0`a |>`a~ |? a~   @@@`CP ` 0@@V6"30w'pg?0 `9@x6 y0sMp9@ +  6(|=ɛ)$ sX\6`<E0s'7   X\6`'`?^cq~,>qm ߃k$s$@p |!8] >8YȀ# $@p 'o߇N; m{x~' x@p`b` <8ӅLP?< 01! x@p`b <ߟ?g~~| ` `@@1x۝P87V; Y`|070@ `@@1x'ysG?{ &8x06{ DHFGY,À? &8x06p'?o?߸f>g ?D0 G `L@-4?Јc,9XD0 G `L@-'0x/{|۹~ݐ Ar  0H0@"oO ma ݐ0  00@"o@' ~f3>D`,A#yl@p (/"1h-' ~p (/'D}?ϟC|f@ub  0``ys 88H f@& 0``yp'wO?w'!#u 88b@x0 <a> `p'!#8@x0 <a8'`oO=p#qy y`0800 3 fN ΀ss p p`0800 '0M?5wϷ3sy$|8b00x$" ?c` RNJ.c0,ws G000x$" ?b' x83i_ǿ yq<?? @/?C?C s | !  @/?C< c^~6;xHp} <P`f߂OK{}_?&sCWvq'Xh1`W> 6z3xCP6 `h@Xh1`'|yw@dDO'v0p @~L! mM<0p 'Ma?\?~g`>,|_'Nr,C0 "`@ a@8; #>hb  d0@ C0 "@'OQPqp0MHprD 0 `` q0ls@ rs4 yG@P D 0 ``l'I88\g (0P0MN~>8 ` 10 @V w 1 ?F @~ `  ' 8<7ߏ|=0 ''>@ hpπ9!'P'@p'L=w9 >@ hpP'a8-sߟ 0` ρ' @ `a@ 0`0~a@ 93ف9`? @ `a@0~'5AxwpA} 'P|A߇b((} >u?z&A} @b((>'4C{g>{?h@`|x?' =C( 0 x?t ?#Ǔ 9 `nx0 | a ( 0 ' {_=`a":.ٵ'>? `0`?": |8-F8n<| a.u ? 0`? '|on{f|8?ܴ'y}0p ?8? ;!.{,&|ty 0 ? '!ϟg4A<'0`Q 8x ?<@ 0 4X&A| 0` 8 ?'1ow#q}`߾ 'A`0<3 ?? t0@?t d0`03 _m?vs_O 'py\B?ap` 0@p Byi<&}w@m_|3'y`K|3B_'?  @?q~'0`D , @H?0?'0n~?1Q`3 0ɞ^@`p``>'f_0 aaX3 0`p`'P`tz1'p7  <z?`<1'Cf P7  <`1't¿73?N 0)'{`|xG¿03?<9'Àp=@?0L0`x@0)1, nGa{ 2 ('~   0x> s?C 29   0x'3{n| gX`=yG3Ώx'| `G>8[@ gO 3 }'~~~~ n7q<7pg0'~3 ?? ?9PB C 0] 0'1>=o~h3p ;<# '~€#? >? '6Z \ #? '1#?l?~~H>? '>1!H ' .r`0!? '`% þm |?0 >? ':D0@=0A@ ?O'PzxN0@0A@ ? 'wy΀ 9gy 'x> Y  gg'  &F3    '^0#<>ma8˄?\~C07  e<`?^\0 ?81`0o8?08o<`Bf@p`?@?8?<|3m/#t'I?#t'` Nsd?@G?x@??' }_8{|'b? ' 8?'`? 7' `Oo8|a5g0@?l'`? ?'7p ?q'Hp & / w' `0?ɓ @& / '5 rڳ0' }%O` #߀)X?8[0???%@`?9? q ?y(`'pr ~p '@; 99'?@p  ???s  } ?p??F?yv  Gy@p ? !?(|]?s@p ? s̄m<{w  a{yτ D?<`  @0{lK\$  D` !x~}B> { 8~B>{@@|r`8 . ?@HL9| Yc . ;?@O@3 }eA ? @  ;' ?#~lI4@K'80A \l@|@O @ɢ|lIp?0@\@ '$xp10ɓ7O3@KBq' d$!ɓ@ O?@OH~6lx   `@ '<|6?<^%/{'`aáL/ '  b`,8 ?`áL ? '?=;'w>G9'3p@xC!'H,* 8<E??3p@xC!>'?33QobOq@4X'123 Qp@POq@7G?P']:Dy@&s?\P8ZDy@' n@ c`\Z'7 36@_?.Cc3 3>@!gC χn}$ a @s !gc '/ϡfyznk0XF~yڀ 0ˇ FN80X'"qdHo?P "~8 |x`'?C 8P 8 `''<pg?ŰT?Gg'X<`l<2x~@?-`MX`<2x'y|xw׏0|Θg~??''|('01g~??`9fǀ!@o(@01g`'o?p<Ѡ% s/8n?'.?xX8o @g2'o .xX?v1 /j@`o k^@ o0pi_ QG'} ?@`QG~' ` @DYH`@`'|80G͟C tA8f'8?2`A8f'`8 DA`Ǚ`!2`'> A~? 8c/'?`c>?! 8B8 8cX'`l.P@>GpNǜ '`` 8B8X' 8vz!h0|'<' ?`?` !h0>'@`ocb>< ` 'ه#??ɟ8{߂A?ߟ'0'<`0'7CA?`<''w#`?' 0 L%y 'g c`H@r wm?[h? |@d@h?~?<<_1fp'";a @  L 8G0 ,L |?@ 4 '8>s` ? &0 , '7~s?w8nx@'a ၀8n~' };pt ?p A'lcwmZ0 8@A ?  x ~ _s<08Z    A1fx|@ņ@o@Hr  c? 7 '0ߠ5Gc ^ߠp``@1 3?Gd ?  _|54XICE!!@Pbvg"3 0w k~'a~\qqW㇟8;UMm~\.!aQ<13$ԵO08ź{X 'Z|, '`3;' |"2Tg9~=@?Ws'a`x(?P?`?<7.xag3v88go(|m<?b|,~+h Po[ `8Lw^*r3s0rr3| |[Æp& w̄@/G %{k#9.oe8>x TLN̹` `|>2m>Lq Mʙ8C#!O!!&p\Caw#{]'3/+<``Ø?'| rP Fm[ 0L`zYƱ@gNrxrkDH4Wx0HfCp[^5#|?LO!񞍰ԦuN<^+B~?]|+xCyx9~yr{O!l-^D~-˽yO!;n ?`~ON~~{~Ph yAވ_3W<|1~3.G8-!pN|:8_8K=ay'$aLU~C1ǁ :( ] "ퟀ>!Kʀٕq q3[X0 ;.W*DLe7?/#0e?tR8FY\>pSg2c8?{)'#@ v/*0GexyD]g2~+1??`o9ÇE&0?_ɣj >0Z@ WC9Z^ F~-mu#Z"ǀDU8 f~Qg`@8"Xi/ Xmk8VnVlD0$@/=QN;q *&*`'H?'؄?! & @?^@?L% `[5#q0ssK = lvXw~dx$ 5A|` eւmV`c+ * r`p^D Y.Xg}0#1 _mfڥ2"#6yۖcvp3Z7 p*1y%;KQ+x`J sGqR7:_#KXuEL}>"|idW2K}f' [`} %?VP8`GX7aDy?-XpaO'b  mq\@dAhKu9 ҋeRJ#aʄr6b^"?"&hX^\Z(>ȓHHz}k#7  %%w{P*M>$I1C=C|Rs 2g9r!&`~qCJ K@˳pepQU>fΣN y& l/ ٪p8{{d$' h`nH@ <A6D4a!m&x?xAPa@a? hgV* iRm|z-)~QUfa3kQlp-(O:Ym$Y7Ãg Gx$"el> /Y&ha~@'?@09F0x~ 8X{fpd"NFh'0}@09F0A M{/n{f~ -    G3 xCx?-HxfA -p   G3 xC |Q??^盵  `t@> d '8G0c8n8^s@ `t@> d ' ?ÇÐǽ' A`<`es`f@ 7 A`<`9'ppo## 0,P0@cᙇ9'GH F0N!fHp'p8p# 0,P0@cᙇ9' `os|s' `?~ 2  '`0?6A}3ps ~ 2 '߀yߏ (A#߀yH0>@  p '1 ?YB2r|.s ;ÏA yH0>@  P Oٻ yG Ìo_'''à 0 ' a<x|c3u9y0'L<6a ` 0 >'#`M>?ϴq'~a6#A  X'P8mB17tm'>6La6 A  X'?@> ~x=#  pÊ<'ĀD0?" Z | 0Bs u#  p '??ʀa oqp'>ˀ`p"6 <'4` Udh|$q,tp"6 'G7x؎g;?}}'a8``oN8'p<`( @(b@, ||@a``oN8'GDssw' rÀ  a ' x<b4X3d@   a 'Go?'Fox=' <,. 0 F8 Ig8`8o@g@ ,. 0 F8'Cɽo_oyg '6B`iE`b@3? `dp 9 ? @6@`iE`b@3 '{dߑwO8b/{A'6w@"   d 30f" ` @" @'=pۇw2S;'!'a$x`(3H'8 `ǩ^7B#g6   a$x`(3H'`|p?#ϟ9?'0 `?\01@   s)[Oao9ua  `?\01@'|d0!1<7 ' p8@p??' d01M` |4`C 8@p ?tdG~yߟǀ@?'@Gt0p ` ?d } 0`hG`+ه @0p `@A/t,"|:Z``yŅ8: S*: f,& p@`yŅ8'C>}8g|w7xop '`` a5` 1 Gl\:f'B> ds@` a` 1 'Ͽ (xws7'0@K8dp?d 4 x?ӖC 0@dpd 4=|x̏kC| ?` x@0߄t00D?p1ݹM,DF/`@t00D =  {ϟǁH; @0`H?!!Ɂ a @8 @0`HF}; ?o~? B)? LD?GX1kb`2a:@ @( LDF0??7C`,MonG/0h !~00>xg ~Fn@0h !'D8?@`1o?' `>pw27^#8 #?8gh~ň@;i @ p`27'G?^2?#?';2B ߺ:\c{ 0x!^9 ? Ӏi@8B %:\c'@x_{?1/'@01|x?p0p#,pL [ha?8@@00xp0?'!z|? ??= '`3zap? `x?'2p\/6?f `  `ap  ` '緌0:>Og7|?h' Hs0:?g@0'db9r  Hg @0'_#>~~sy?'`0<# px A'A``©لM/|0< x A'_G}'? 8p0 @ '`?0S 8O0 @ ?'0?[v~1 gG<ÿ'?w<<',Q?Y|0>[D+ <<'0<>~@B3`~@C00 0'$,zA 3` 00 0'[2|^ 3?'{10!^8aA@<'g L X2|8 10 8aA@'3y ???'1%  @`|'cQMd  !v1  @`'?30o ?pa8p0 x?'o c=- ~ bpp`8?p0 'ywx31o??gbwp?'~x3@?0'1o `> @?` ?0'?p3~ӿ~?ss?'5p3,@ ? g' wO*g@?S0@ ? g' ??~ya۔~#'"e 8$c' Jqa@xY"` $c'?>'` |<>Q?;p'` p ?  ?'?s'3vb@g.!F0l 0@`.'>p`ݿx~w<"P@>"p@l! Do nf1P@p@l'ϝz9x}}?o|>"bX'zdP ` /&XdP `?'='?R8}?p??0[/R?X! &8.<8q8[X p'?Ӎ'a??oH??'? /a( x' p70@9f8:` ( x'7B}ؙoG#?#8p'0(0>0#Ǐ`s0@,!0(0$0͋<_?g >~ ͏?? ?Xp :`2p8 Ď/'~  2X ' ϟ7 x @A 00`p|>>x @A`?'a2z9 ?! ``<@`A?a`q B$O`<@` 0?'53vE߯9'7`P@p ug gf<  P@'4>&XEoq$|_$~C8x? t&vxG ~@p8'pq zp$x~~@> 9 |x@6c> '܆1 |` @#~>0 ?d8 2aa@  'Ovng; ?|1 >AOvGp c??@ @$"u?g@  g l0'>"σ_0`C0@3p|g2LOÇ1Hx'xrOb?`cqg  #C߄ &3 Lxdog/ G z '` B|7?zg[ ' #8_=,@@ g@`#  c ?wz?> #9"?x@  `& c #^{|?7dG>?  >s d@@'?_;f|~xߌ.?A3 O?_y~# p @ @'@˿?pOA: )I 4@C1Ͽ=~ |0Ù @ >>@ 4@C1 : '@G鸏x|?߀;॰&BG GpB |ɸH:@@ Gp@  @' A<}>p??1{@ZAA<X{~?{A ,|>$ @<@@BA '!<ݧ~??!8GM: Y"Xz? ` X`&E<!o!Y"@@8A:> @'@ }5^ 8? p!pAkp|?? @ |1F0 ' ?/0?ƲN X ?8>p?v'28c0}?? X |F '>ϟ?ߢ<~:h 0`a>x8?<~pp8>N8 } 0``x|<~:@'d~?DG( `1( 7|@0``0(8GP'ဇ^ `6 |x `,9@qogƸ`o ,@ h#w&1p? ?8<a#1`W`G@>?Θ`G8< `@p Dy 0 #@?  `cm0 0w`cx?π`G  `0 @ D`C9|3 |@Ol|8~o| p@s_al,L`O`O| Hnt7@ko u?Xwp_  O@ H<7dl? ???pg Og d= x= 󑛏 o _p_P @0????< @0?8x0 H??xxH?8 0 ``p?̗`?93?3` ṗ93$(?˞8?  0(? ? ???>? ?? ?x|? Š: C2!"R"3F5$w ` ` `  @0a  @0a  @0a@  `` `` 8p@ @ 01 b 01 b 81 b@  !@s<# A  !@s<# A !@s<3`A @ !Pzw|'`h n !~w|'`x n 1Pzw|g`i Òn@A@   '1>wohy_; `'1>oy_; `'qwoh}9_; `@@ @`'8q?==_{N8 '8q?==O8 '8q}۽_{N<@B';q=ۼo@q ';q?ۿ@q ';s}ۼo@q  #8 ;cۿ@38 ? @3 8 sۿ@3 x@ x@ ?@ ?  1?  1?  1  88 88? 9<P   88 <@#>A#>A'>A@GO GO GO O^^O^@^8^8^< @ ^G^G3^O< 3^O83^O83^o8@3^o x 3^ox s^ox  UUT  |sGUUToXa|sG^asG^oa @ UU}@UP <|C?U@U /b<|C?c<3C? UPTU_ ڠ* bÁP*UWUP%_PÁP?ÁP @ AP_UU_T X\ QSCP@UW ¨( T_ C_    _ @_UUP_ _UU@U  s coa q sa ca q#@Zc '#c/ǎ//ǎ /O / /O!_!_!_COǀ_COCOǀ_O?π?π?O?π??0???0??0??p??x??p?????~?~?~||88808000####G'#G'O?'O?'O?'_<g'0gU_UTgc8g0gc0' 0g0' 'UWUTx0' '0 P@T8 0 @UTJ p@0@xx`@T p@x` `@x` @UT x 0 **1 *0U_UUT#1#1 3W@<8<80<  < <  < <<<<<8<88<08808xG@8pG@8p8p  8` ߀8` ߀0@ 0@p? ?aAaAacac@g@G?O?O ? _ _<9ɀ89{x1?s?s?s? s s`c`c` ?$ ?$8@P W@`P W8AxA ? Px@ ? Px@  ~| ?@A_/ ?@ A_/΀x@/a'/+p '/+ 0 >?AWWKg `@?AWWK~x<`? ?`@ '< '?< ?_R @_R"> @ 8@#Ln  F !?l@  h! 9 |BL!0 d7w |/?8D# `?@ 8?'?8>`^zވ8 ?p>?(A  ? G?~ y?  `7  @ ??``@`???@*`UPWUGG UU_UUUTꪪ U_UUPU_UU    0<p0 08p<p88pxpxxpp p T UTUWU?UWUUPUP??*??UUTU??*?????@s?>?>@/&/&Ѓ@Ѓ@p@~p0@0@@{p ߎ<yA8L q1 (yA8L q1 (  `x8 ? ~$ ? ~$@#@?UPU U@@GUP H@ ꪪ@?UU_@@W?UU@? " UTWU " @D P 0xT ` @D H@  @ ]U@\x H@ A @@"(@P _8`@"(@PPUU |qÏPXUP  P !("UT @ !("@<@   5x~8 !@ <<  " 8@  # 8@ [||||||??????ppp888x8x8x8ppp<<<ppp 888```ppp000000888888000000ppp```````````` ``` ``` ``` ``` ``` ``` ``` ppp000111999888000```000pppppp 888```pxpxpx888888ppp||||||[???|||<<<pppxxx<<<888000pppppp8`8`8`ppp 0 0 0000888888000000ppp```pppppp000888888xxx>>>ppp<<<|||???[>>>xxxxxx<<<|||888ppp```p`p`p`8p8p8p888    aaaqqq888111000888000000000ppp ``` `````` `````` `````````````````````````````````````````````````````````ppp000000000000888 p p p000888   À888ppp``````pppxxx888<<<<<<xxxxxx>>>[000ppp000??????????@@@}P^@@@@@@@@@@@@@@@@@@}Q~~@@@@@@@@@@@@@@@@@@}P^@@@@@@@@@@@@@@@@@@}P^@@@@@@@@@@@@@@@@@@}P^@@@@@@@@@@@@@@@@@@}Q~~@@@@@@@@@@@@@@@@@@}P^@@@@@@@@@@@@@@@@@@}Q~~@@@@@@@@@@@@lWp 0}P!!!BBBJJJ!!!BBBJJJ!!!BBBJJJ!!!BBBJJJ!!!BBBJJJ!RBRjJj!RBRkJk!RBRkJk3c7R6־k3c7R6־k3c7R6־k3c7R6־k3c7R6־k3c7R6־k3c7R6־k3c7R6־klWq 0S}P+NiȬ򩎵ؚ_oۯ؃]j%'[: Zb e'+t:әAgڍ*\]=pP0fa0/:z5B0O'e 0B8$^1yTVЬ]nNp1z|ya 2Is'Iѣ- s$mm .Iߊ!=D_>V'UN>1Ե'g޵h?OXB)s," )S0dޥ?L^hL7!'Ԉ@BG BbfOXyQ,vB=H7B,S'wj0s`;j&6=`TsFqyZ}z=Tx]mxvhͣ#LYML&i!w;Cq7TF8 80>8x8`p??`8`???=x~}~}~x??B ??08??00 ?`>"?? # gg`OS ~? ?|??##7>"x??....jjj***...?w....nnn"""w...?wjjjwwjjj***ww000``xHH8x8p8dd`|3@s@mc~~p8     8""<>< 2 <><A?p`c}}0H0Lp_!=m3~3~?ee`}8p8HH8x``p   00  88DD<  8 @@@@@@9"99AA??  00H0xx x ||$|~<>0@H>0~xp!p?  ``p!p?<8B@<8~x|$|<   ``@ @`+hxP(hp` #!    x| |< DDdDDD ddDlDh<+hxP(hp` #!    x| |<@D `  Bt"`~ > >:? ??+hxP(hp` #!    x| |<@D `   >:>>>  >|@|+hxP(hp` #!    x| |<@d + ``  P p (1"<D`OpP@]b =B1;DA{woAw`{ ?@h@pD@_`8p|0  `@@  `@` ```` + ``  P p (<D p@b =B1;DA{woAw`{ ?@h@pD`8p|0   ? ,?!??p"?$??>(>.~(| |~~+ ``  P p (<D p@b =B1;DA{woAw`{ ?@h@pD`8p|0   >>>|.>|D|>H|>|>|0+ ``  P p (<D p@b =B1;DA{woAw`{ ?@h@pD`8p|0   `` ` ?0 P +X8`Hp`zx8xx<XHD  + @0` ,??;9`;;;98<87?<8?<8><?~?~+@  @0  @@ {{|x @`_`@@@@01 0/@?@@@@@    P@P@+ ??!>`?x8'`? ?`?x8'`?x??z>?z'?z"?0?~<@d``a@?c@? s@?1?2>>>> >>">">&> > >+```08p=?=?0? ??0? ?? 2 ? =? 0? ;?? ?0~  888?0?@ P00 + !> ?xa>`?|x'`???z'?z??z&? >?z'?z"?0?`<><?d`d??< ? !?#?3?1?3?'?#?#? ;?3?#?#?'?%?!?!?>>+ XX  8(8> 8@(8X> 8/xxo xa~?p00 @@@ hHH Hhh h h H H@+,e@#a>?|!>?xx'? ??x8'?x ??x9&`?!>@?x8'`?x="@??0`?`<><?d`d??< ? !?#?3?0>2>&>">"> ;?3?#?#?&>$> > >>>+ ??!>`?x!>`?x8'`? ?`?x8'`?x ?`?x9&`?!>@?x8'`?x="??0 ? ?8>?8?```??8 ?!?#?3?1?2>>>> >>">">&> > >+  a>`?|!>`?xx'`? ?`?x8'`?x ?`?x9&`?!>@?x8'`?x="@??0`?`<><?d`d??< ? !???????#? ;?3?+ @@0@` P`,@p9pp 0p# `? ?????  ??DDD"$P$~R$\  * R( R۶ 8 + @@0@` P`,@p9pp 0p# `? ????? "* * E*I(|HH%7 T( P(l@p@ 8 @@@+ @@0@` P`,@p9pp 0p# `* E*I(|HH%7 T( P(l@p@ 8  @#+ @@0* E*I(|HH%7 T( P(l@p@ 8 @A@ +c @g0 `  Ht8`A  /$4D` $@D0$+ ? #@@"@xxx =<@<< ```8?`8?`~8?`p|`p8?+$8Tt8pp  8 ` ???@ ^_<0?|??~??<8`+ >:T.q@~!@ @q@0@00@{@?@<@a=<~T"ddDlDh<+@-?> .<(@-: @ ?Bw@ @@@ @`p0|<|pax?@`"?"?&??"?@"?"?0? ```` +hxP(hp` #!    x| |< DDdDDD ddDlDh<+hxP(hp` #!    x| |<@D `  Bt"`~ > >:? ??+hxP(hp` #!    x| |<@D `   >:>>>  >|@|+hxP(hp` #!    x| |<@d + ``  P p (3"<DoOpP]]b ==B1;;DA{{wwooAww`{{ ??@hpD__`8p|0  `@@  `@` ```` + ``  P p (<D/p]b ==B1;;DA{{wwooAww`{{ ??@hpD`8p|0   ? ,?!??p"?$??>(>.~(| |~~+ ``  P p (<D/p]b ==B1;;DA{{wwooAww`{{ ??@hpD`8p|0   >>>|.>|D|>H|>|>|0+ ``  P p :::***::: jjjરjjj 000ppp````````````ppp000#??>8 80>8x8`p??`8`???=x~}~}~x??B ??08??00 ?`>"?? # gg`OS ~? ?|??##7>"x??....jjj***...?w....nnn"""w...?wjjjwwjjj***ww7>"x??....jjj***...?w....nnn"""w...?wjjjwwjjj***wwsr mini_print move.l #mini_ef3,mini_text move.w #95,spr_x move.w #120,spr_y jsr mini_print move.l #mini_ef4,mini_text move.w #95,spr_x move.w #130,spr_y jsr mini_pr (<D/p]b ==B1;;DA{{wwooAww`{{ ??@hpD`8p|0   `` ` ?0 P +X8`Hp`z8x<XHD  + @0` ,????;;99`;;;;;;9988<?7??8??8>?~?~+@  @0  @@ {|x @_`@@@01 0/?@@@@    P@P@+ ???!~`?x8g`? `?x8g`?x?z?z?z??~<@d`a@@?c@@? s@@?1?2>>>> >>">">&> > >+```08p=?=?0? ??0? ?? 2 ? =? 0? ;?? ?00~~ 8?8?0?@ P00 +txt_listo2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 rts p_ready move.l #txt_ready1,txt_text jsr imp88 move.l #txt_stage,txt_text jsr imp88 move.l #txt_ready2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_ready1,txt_text jsr imp88 move.l #txt_stage,txt_text jsr imp88 move.l #txt_ready2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_ready1,txt_text jsr imp88 move.l #txt_stage,txt_text jsr imp88 move.l #txt_ready2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_ready1,txt_text jsr imp88 move.l #txt_stage,txt_text jsr imp88 move.l #txt_ready2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 rts ; Mirar resolucion : res? move.w #4,-(sp) trap #14 addq.l #2,sp rts ; Espera ESPACIO : espera_spc clr.l d0 move.w #255,-(sp) move.w #6,-(sp) trap #1 addq.w #4,sp swap.w d0 cmp.b #57,d0 bne espera_spc rts ; Interrupcion V_SYNC: new_vsync movem.l d0/d7,-(sp) cmp.b #68,$fffffc02 bne cont_vvsync move.w $ffff820a,d0 eor.w #$fe00,d0 move.w d0,$ffff820a cont_vvsync move.b #$ff,b_vsync movem.l (sp)+,d0/d7 rte ; Espera un pulso de barrido : vsync tst.b b_vsync beq vsync rts ; Inicializa interrupciones : ini_inter move.l $70,old_vsync move.l $120.w,old_120 bsr putpackjoy move.b $fffffa09,old09 move.b $fffffa07,old07 move.b $fffffa13,old13 move.b $fffffa21,old21 move.b $fffffa1b,old1b ini_inter2 move.l #no_120,$120.w move.l #new_vsync,$70.w move.l #$31415926,$426.w move.l $42a.w,b_reset1 move.l $46e.w,b_reset2 move.l $42e.w,b_reset3 move.l #reset,$42a.w move.l #reset,$46e.w move.l #reset,$42e.w rts ; Desconecta interrupciones del marcador (barrido de color) : nointermarca move.l #no_120,$120.w move.l #new_vsync,$70.w rts ; Pone el PACK de joystick : putpackjoy move.w #34,-(sp) trap #14 addq.w #2,sp move.l d0,a0 lea 24(a0),a0 move.l a0,dir_joy move.l (a0),old_joy move.l #JOYSTI!!!!iiii1111((((                 B                    " .   &    &          8: "  "        8: "  "                                                                              CK,(a0) jsr FOR_FIRE rts ; Inicializa barrido para el marcador : ini_barrido and.b #$df,$fffffa09 and.b #$fe,$fffffa07 move.l #barrido120,$120.w or.b #$1,$fffffa07 or.b #$1,$fffffa13 move.l #barrido70,$70.w clr.b $fffffa1b move.b #4,$fffffa21 move.b #8,$fffffa1b rts ; Pone vector de pantalla usando la interrupcion VSYNC : PUT_screen jmp barrido70 ; Inicializa interrupcion con sonido SKUISKIES apareciendo : SND_inskuis move.w #5,o_inskuis clr.w co_inskuis move.l #INT_inskuis,$70.w rts ; Interrupcion de Haz 70. para sonido se skuiskies ap. ... : INT_inskuis movem.l d0-d7/a0-a6,-(sp) lea $ffff8800,a6 lea o_inskuis,a0 cmp.b #16,(a0) beq _o_inskuis move.b #7,(a6) move.b #100,2(a6) move.b #6,(a6) move.b (a0),2(a6) move.b #8,(a6) move.b (a0),2(a6) move.b #9,(a6) move.b (a0),2(a6) addq.b #1,(a0) in_coinsk movem.l (sp)+,d0-d7/a0-a6 jmp barrido70 _o_inskuis move.l #INT2inskuis,$70.w move.b #15,o_inskuis bra in_coinsk ; ... segunda parte de la interr&```>>w >??>'?/:?r>xHh`x/dp$oo,=|   000 /000 000 / _0@ 8?8?pp ^> ^ (`< 000 4\ (  (``` {{B^^#wL//P<8 t -B&```>>w >??>'?/:?r>xHh`x/dp$oo,=|   000 /000 000 / _0@ 8?8?pp ^> ^ (`< 000 4\ (  (``` {{B^^#w@//P< t p l@&```>>w >??>'?/:?r>xHh`x/dp$oo,=|   000 /000 000 / _0@ 8?8?pp ^> ^ (`< 000 4\ (  (``` {{B^^#w@//P< t3 ddp*?@&```>>w >??>'?/:?r>xHh`x/dp$oo,=|   000 /000 000 / _0@ 8?8?pp ^> ^ (`< 000 4\ (  (``` {{B^^#w@//P< t8   |ς (y@& ww>w~r>. a~o>' ww ' `wp@@wwX77?(77?(} ~=>?? X=????  ,  (doo|PhxL@LOO!p8B0 w@||g8DV)8D8D$2ɀ@0H<& ww>w~r>. a~o>' ww ' `wp@@wwX77?(77?(} ~=>?? X=????  ,  (doo|Phx@@LOO!pBw@||g`08  @xO& ww>w~r>. a~o>' ww ' `wp@@wwX77?(77?(} ~=>?? X=????  ,  (doo|Phx@@LOO!pBw@||g @pU& ww>w~r>. a~o>' ww ' `wp@@wwX77?(77?(} ~=>?? X=????  ,  (doo|Phx@@LOO!pB w@||gp0`` ?@8<P&SA~r xbB}$ `    000 /000 000 / _0@ 8?8?pp ^> ^ (`< 000 4\ (  (``` {{B^^#w@//P< t  o?mT&111{s!{=9=w#?;??'?`SAp_||8| @_`?|x`?`?0?0' wpwwX77?(77?(} ~=>?? X=????  ,  (doo|Phx@@LOO!pBw@||g`p0@?d*&(@@:P 4hx//__@00  /88 /  /  /0 @>~~ `@@^:@ 8w U*& >>p PP????@ ??@????` ?@@ ?ooP ?oo011?1P?(????(??????(??????z0,>??t33X8<<x0P@?@???=-/.??0?7H`U& 00A//__@  /``` _```?``` _+``s@@ w0p߀/???@?{Pxx >```@@@ ? p & >   2{{߽BG>>`__x O ?mT& 00A//__@  /``` _```?``` _+``s@@ w0p߀/???@?{Pxx >```@@@ ? p & >   2{{߽BG>>`__x O o?mT&@\p+@p@@  ;8X;;?,  ssp>g?;?;p,||~   X?<|x8?>H(4<X&h''x@@}q!`3@`?? p 0 ?d*&@\p+@p@@  ;8X;;?,  ssp>g?;?;p,||~   X?<|x8?>H(4<X&h''x@@}q!`3 @p?? @0  ?d*&```????????????>>>`fd<d?300 <?103|?|p~d d3<< ?<< @?@   ?#xxp@  @`@  ``|  x> @?@?>#xxp@  @`@  ``| XC,?& ?$@@?@   ?#xxp@  @`@  ``|XC,?& ?$@@?@?># ???0|@ @?0@ p_ @ @x`pp}@`~H? (@p03 >`>x|<<<<|888888># ???0|@ @?0@ p_ @ @x`pp}@`~H? (@p03 >`>`|||8># ???0|@ @?0@ p_ @ @x`pp}@`azp28 y8x|<<<<|88888># ???0|@ @?0@ p_ @ @x`pp}@`azp28 y@x||8># ?<? 8?0? 0? ? ?  875? @0     <  ǀD`(?89  8> 0;#X_@P_@hg@ts@{x@d|k@@`0?@0 ? >@@@ǀ `y@8}(<,>#~`A 00pp00(Hp@?0_(@x`@p@ `{29 ?R4  00qq@x||8>#<||xπ    @ @@~}p &%  AGπ?Gπ?>#00pp``$`@0 ? >@@@ǀ `y@8}(<,>#$` '@0 ? >@@@ǀ `y@8}(<,> {g {g|  { p{9| p8=p { <{p| <pp9'{ '{|>upcion : INT2inskuis movem.l d0-d7/a0-a6,-(sp) lea $ffff8800,a6 lea o_inskuis,a0 cmp.b #5,(a0) beq _o2inskuis move.b #7,(a6) move.b #100,2(a6) move.b #6,(a6) move.b o_inskuis,2(a6) move.b #8,(a6) move.b o_inskuis,2(a6) move.b #9,(a6) move.b o_inskuis,2(a6) subq.b #1,(a0) movem.l (sp)+,d0-d7/a0-a6 jmp barrido70 in2coinsk movem.l (sp)+,d0-d7/a0-a6 jmp barrido70 _o2inskuis jsr ini_barrido bra in2coinsk ; Interrupcion de barrido en los 16 pixels Y : barrido120 movem.l d0-d7/a0-a6,-(sp) loop120 move.b $ffff8209,d7 cmp.b $ffff8209,d7 bne loop120 move.l #colordentro,a0 lea $ffff8240,a1 move.l #15,d0 looop120 move.w (a0)+,(a1)+ dbra d0,looop120 movem.l (sp)+,d0-d7/a0-a6 no_120 bclr #$00,$fffffa0f rte ; Interrupcion de barrido por dentro de la pantalla : barrido70 movem.l d0-d7/a0-a6,-(sp) clr.b $fffffa1b loop70 move.b #14,$fffffa21 cmp.b #14,$fffffa21 bne loop70 move.b #8,$fffffa1b move.l #colorfuera,a0 lea $ffff8240,a1 move.l #15,d0 looop70 !> ?xa~`?|xg`??z?z?z? ?z?z??`<><??dd??< ? !?#?3?1?3?'?#?#? ;?3?#?#?'?%?!?!?>>+ XX98(?8>98@(?8X>98/xxxo|xa~~??p0 + ? #@@"@xxx =<@<< ```8?`8?`~8?`p|`p8?+$8Tt8pp  8 ` ???@ ^_<0?|??~??<8`+ >:T.q@~!@ @q@0@00@{@?@<@a=<~T"ddDlDh<+@-?> .<(@-: @ ?Bw@ @@@ @`p0|<|pax?@`"?"?&??"?@"?"?0? ```` q@''>;g~3{GedX*?'B < 8D|8O!'Cujmw#Q{?>'?O?!~>_'#w'ߡ;_>G]}=ܟ vE'??(?0?'ur{ʯ#yq.̾wR+ ? #@@"@xx =?@<? ```8?`8?`~8?`p|`p8?+$8Tt8pp  8 ` ??????@ ^_<0?|??~??<8`+ >:T.y@~~!@ @q@0@00@{{?@<@a=<~~T"ddDlDh<+@-?> .<(@-: @ ?Bww@ @@@ @`pp00|<|pax??@`"?"?&??"?@"?"?0? ````  `w? 00S@ O L < ? v~߰` `! \~?+  @? ' qP` wg@;?_k` `c}c.)+ H!Smove.w (a0)+,(a1)+ dbra d0,looop70 movem.l (sp)+,d0-d7/a0-a6 jmp new_vsync ; Borra la pantalla : cls move.l #8000,d0 move.l #$70000,a0 cls_loop clr.l (a0)+ dbra d0,cls_loop rts ; Borra pantalla BACK : back_cls move.l #8000,d0 move.l #$78000,a0 clrb_loop clr.l (a0)+ dbra d0,cls_loop rts ; Tecla RESET : reset move.l old_vsync,$70.w move.l b_reset1,$42a.w move.l b_reset2,$46e.w move.l b_reset3,$42e.w jsr cls move.b #2,$ffff820a clr.w $ffff8240 move.w #$77,$ffff8242 move.b #$07,$ffff8201 move.b #$00,$ffff8203 move.l #$70000,txt_pos move.l #$70000,txt_pos1 move.l #font_8x8,txt_carac move.l #font_8x8,txt_carac1 move.l lengua,d0 cmp.l #'ESPA',d0 beq reset_spa move.l #txt_reset3,txt_text jsr imp88 move.l #txt_reset4,txt_text jsr imp88 reset_uk jmp p reset_spa move.l #txt_reset1,txt_text jsr imp88 move.l #txt_reset2,txt_text jsr imp88 bra reset_uk nop p bra p ; Pone 15 colores en blanco : color777 lea $ffff8240+2,a0 move.l #14,d0 color777loop move.w #$777,(a0)+ dbra d0,color777loop rts ; Pone 15 colores del barrido a cero : color0dentro lea colordentro+2,a0 move.l #14,d0 color0dloop clr.w (a0)+ dbra d0,color0dloop rts ; Imprime mensaje LOADING : imp_loading move.l #$70000,txt_pos move.l #$70000,txt_pos1 move.l #font_8x8,txt_carac move.l #font_8x8,txt_carac1 cmp.l #'INGL',lengua beq load_ing move.l #cargando,txt_text jsr imp88 move.l #cargando1,txt_text jsr imp88 rts load_ing move.l #loading,txt_text jsr imp88 move.l #loading1,txt_text jsr imp88 rts ; Abre la carpeta que contiene los ficheros binarios : abre_carpeta move.l #carpeta,-(sp) move.w #$3b,-(sp) trap #1 addq.w #6,sp tst.w d0 bne error_carp rts error_carp pea txt_carp move.w #9,-(sp) trap #1 addq.w #6,sp bra force ; ACCEDE A DISCO (RUTINA LOAD) : load move.l old_vsync,$70.w load_all movem.l d0-d7/a0-a6,-(sp) clr.w -(sp) move.l a6,-(sp) move.w #61,-(sp) trap #1 move.w d0,d6 addq.w #8,sp tst.w d0 bpl no_error1 bra failed no_error1 move.l a5,-(sp) move.l d3,-(sp) move.w d6,-(sp) move.w #63,-(sp) trap #1 add.w #12,sp tst.w d0 bpl no_error bra failed no_error move.w d6,-(sp) move.w #62,-(sp) trap #1 addq.w #4,sp movem.l (sp)+,d0-d7/a0-a6 rts failed move.w d6,-(sp) move.w #62,-(sp) trap #1 addq.w #4,sp jsr cls jsr load_failed ni_firef cmp.b #57,$fffffc02 beq firef bra ni_firef firef jsr cls jsr imp_loading movem.l (sp)+,d0-d7/a0-a6 bra load_all ; Error de carga : load_failed move.l #$70000,txt_pos move.l #$70000,txt_pos1 move.l #font_8x8,txt_carac move.l #font_8x8,txt_carac1 cmp.l #'INGL',lengua beq failed_uk move.l #esp_error1,txt_text jsr imp88 move.l #esp_error2,txt_text jsr imp88 move.l #esp_error3,txt_text jsr imp88 rts failed_uk move.l #ing_error1,txt_text jsr imp88 move.l #ing_error2,txt_text jsr imp88 move.l #ing_error3,txt_text jsr imp88 rts ; Dibuja el suelo en pantalla : pon_suelo movem.l d0-d2,-(sp) C2!"R"3U6&w08  >8p ` < <  x0@@ x0x p0`'x`8ax<H@p8p|x<`8`!p p0 p` 2 px p pp<08?8 x@p??0'`| |` @`px? @$vp4p03? (p!0Àd 0p? Th'8Æ80|` t8 'x8~>@0;`p?{| ?d_L  @ ' 0? x??}>~ 2$0< @ @8'0? ?? |x c~?0@ '0 |?? Cx  ~'1<>>??><{'@  10g!O`"w0 "1< >C@"o?8@%g>;0`  !  @`?x><0p  ' @ > }0 @ ~`q~`8?.| x ?8 @'xc8_ Q0 0> 0 p 8`<`@ px`?|8?@?  ? g_ 0?@ @ a p o@0 p`? N@ ` ?? l70<x p? p`#@< 0v @/ǀ`?08? `p@@ ??@p8s?w0?p 0?0o0`?'|`` ?`8<``8`?_?  @@p@`; 8`@~@p0`@~`p@À?<_8  Ác8  @@h  || `_?  boC0 8`? `8`?~tpO8~?@ 00&\?`? x80?  8x >@ ~0>< `~?~ << ?`? ~<? ?ϘO?p? 8>?0<0 O? 0?`|0 `? |#   `@xs  @ `?`?| |@??p/`??3@ |~|rx<ppp1 ` x3`@'>`G8 ?0` `?7|?<?q3` ?`> < 0<` p< |  q!?  |88?18?2@ `??? ??8 1 À?0  < <H!9 ? `|>|<|>`|?? 2~p` < 33>p p? ?>p ` >@ ?{  @ 8~y  0p=O000>i0 g0|`@G8 p ?   ` >_ <`   ? | d#x x ? ~ ?p7 | ~ H@? O `  @? /@?`x  89 yp@  @? 89y@@ yǀ9  @@tq9`G8 o"ps80@ ?  'Os0`ox0@@ @?1!`w0&0/Ѐ@@0?`" 0x LJ_a  s   x| σ@ !8@ ' @ @8/! $40'~7?~ | /a. `|!`qo?`x0`/@  "F9`g~0` _08   @~? p00'_ 08y` @~  p0_@p_     @8q~< 9 _c@@ @'@ 8#?р\p@  'r? > LJ g@`@!#@ <n~ w>xA'@  A3n0-0' 0a9#/`v `? 8!s 3 ``#%@@pppDxp3O 1#`  '>01b# f8 =pA`88 ~ fp]`p<p @ fp g?@?p<xG|&0?px x?0sx60 0 0r imp88 move.l #esp_error2,txt_text jsr imp88 move.l #esp_error3,txt_text jsr imp88 rts failed_uk move.l #ing_error1,txt_text jsr imp88 move.l #ing_error2,txt_text jsr imp88 move.l #ing_error3,txt_text jsr imp88 rts ; Dibuja el suelo en pantalla : pon_suelo movem.l@@@ hHH Hhh h h H H@+,e@#a?|!?xx? ?x8?x ?x9f`?!~@?x8g`?x=b@??p`?`<><??dd??< ? !?#?3?0>2>&>">"> ;?3?#?#?&>$> > >>>+move.w d2,spr_y move.w d1,spr_x move.l #$78000,spr_panta move.l #spr_objetos+508,spr_dirspr jsr spr_calcxy jsr spr_imprime movem.l (sp)+,d0-d2 add.w #20,d1 dbra d0,pon_suelo rts ; Pone objetos en pantalla : pon_objetos move.w (a1),d0 cmp.w #999,d0 bne masobjet beq adios_objt imprime_ini cmp.b #3,num_players beq otro_iniplay lea ini_player1,a0 move.w (a0)+,spr_x move.w (a0)+,spr_y move.l #spr_player1+JUGADOR*4,spr_dirspr move.l #$78000,spr_panta jsr spr_calcxy jsr spr_imprime cmp.b #2,num_players bne adios_objt otro_iniplay lea ini_player2,a0 move.w (a0)+,spr_x move.w (a0)+,spr_y move.l #spr_player2,spr_dirspr move.l #$78000,spr_panta jsr spr_calcxy jsr spr_imprime adios_objt move.l #$78000,pantalla rts masobjet clr.l d0 clr.l d1 move.w (a1)+,d0 move.w (a1),d1 addq.l #6,a1 clr.l d3 move.w (a1)+,d3 mulu.w #2,d3 lea pat_objetos,a2 add.l d3,a2 move.w (a2),d3 lea spr_objetos,a2 add.w d3,a2 move.l #$78000,spr_panta move.w d0,spr_x move.w d1,spr_y move.l a2,spr_dirspr move.l a1,-(sp) jsr spr_calcxy jsr spr_imprime move.l (sp)+,a1 bra pon_objetos ; ESTE ES EL JUEGO : ; ;################################ ;## Rutina principal del juego ## ;################################ ; JUEGO cmp.w #'NO',trick_mode beq no_trick2 cmp.b #97,$fffffc02 beq DIE_YEAH cmp.b #96,$fffffc02 bne no_trick2 move.w #'NO',trick_mode no_trick2 addq.l #1,segundos cmp.l #5,segundos bne nopasatime clr.l segundos sub.l #1,tiempo tst.l tiempo beq MUERETIME nopasatime cmp.b #3,num_players beq parpaplayer3 move.l #82,d0 move.l #10,d1 move.l #colorfuera,a0 tst.w count_time bne no_parpa1 add.l d1,a0 clr.w (a0) no_parpa1 cmp.w #10,count_time bcs no_parpa2 add.l d1,a0 move.w d0,(a0) no_parpa2 nop SALTO1 cmp.b #1,num_players beq SALTO2 parpaplayer3 move.l #$046,d0 move.l #24,d1 move.l #colorfuera,a0 tst.w count_time bne no_parpa4 add.l d1,a0 clr.w (a0) no_parpa4 cmp.w #10,count_time  0yG PPPpH p0y 0y0G G PЀPPPPpH pH 0y0;LHN#NNN |h"|vLH3 NN <NNpNN <NNp2NNh |"|vLH3 NNN#NNpN ESPA2g#31 #@v#2P3PZ3\N,#3[ 3xZ3U\N,#3o 3nZ3d\N,#3 3nZ3n\N,#3 3nZ3x\N,#3 3nZ3\N,`#4p #@v#2P3KZ3\N,#3 3iZ3U\N,#3 3_Z3d\N,#4  3_Z3n\N,#4- 3_Z3x\N,#4N 3_Z3\N, |."|vLHN N 3 NN 8>g| 8=g 8<g 8;g`;`;`!#p#2#2P3iZ3\#(^#bNN4NpNz# bcs SALTO2 add.l d1,a0 move.w d0,(a0) ; JEAH !!!, NIVEL COMPLETADO !!! (soy la leche.) : SALTO2 move.l son_skuis,d0 move.l datos_skuisP,a0 gonadieloop cmp.w #1,6(a0) bne BUAAAAAAAAH add.w #8,a0 dbra d0,gonadieloop bra DIE_YEAH ; Chequea jugadores y skuiskies... Habran muerto los heroes?... : BUAAAAAAAAH cmp.w #'SI',trick_mode beq MUEVELOS cmp.b #3,num_players beq look4player2 move.l son_skuis,d0 move.l datos_skuisP,a0 move.l #ini_player1,a1 look4loop1 cmp.w #1,6(a0) beq look4doloop1 move.w (a0),d1 move.w (a1),d2 add.w #4,d1 add.w #16+4,d2 cmp.w d2,d1 bcc look4doloop1 move.w (a0),d1 move.w (a1),d2 add.w #24,d1 add.w #4,d2 cmp.w d2,d1 bcs look4doloop1 move.w 2(a0),d1 move.w 2(a1),d2 add.w #10,d2 cmp.w d2,d1 bcc look4doloop1 move.w 2(a0),d1 move.w 2(a1),d2 add.w #32,d1 cmp.w d2,d1 bcs look4doloop1 jmp MUERE1 look4doloop1 add.w #8,a0 dbra d0,look4loop1 cmp.b #1,num_players beq MUEVELOS look4player2 move.l son_skuis,d0 move.l datos_skuisP,a0 move.l #ini_player2,a1 look4loop2 cmp.w #1,6(a0) beq look4doloop2 move.w (a0),d1 move.w (a1),d2 add.w #4,d1 add.w #16+4,d2 cmp.w d2,d1 bcc look4doloop2 move.w (a0),d1 move.w (a1),d2 add.w #24,d1 add.w #4,d2 cmp.w d2,d1 bcs look4doloop2 move.w 2(a0),d1 move.w 2(a1),d2 add.w #10,d2 cmp.w d2,d1 bcc look4doloop2 move.w 2(a0),d1 move.w 2(a1),d2 add.w #32,d1 cmp.w d2,d1 bcs look4doloop2 jmp MUERE2 look4doloop2 add.w #8,a0 dbra d0,look4loop2 ; Todo este lio de acontinuacion, es para mover/animar los sprites : MUEVELOS cmp.w #20,count_time bne no_parpa3 clr.w count_time bra nonoparpa3 no_parpa3 add.w #1,count_time nonoparpa3 bsr ctrl_solo cmp.b #3,num_players beq SALTOSK tst.w giradatI1up bne mueve_iz_p1 tst.w giradatD1up bne mueve_de_p1 tst.w shoot_p1 bne poping_p1 tst.w SBIDF_1UP beq STOP_1up tst.w cae_1up bne STOP_1up tst.w cae2_1up bne STOP_1up cmp.w #1,SBIDF_1UP beq mueve_su_p1 cmp.w #3,SBIDF_1U ???!~`?x!~`?x8g`? `?x8g`?x `?x9f`?!~@?x8g`?x="??0 ? ??8>??8??``??8 ?!?#?3?1?2>>>> >>">">&> > >+  a~`?|!~`?xxg`? `?x8g`?x `?x9f`?!~@?x8g`?x=b@??p`?`<><??P beq mueve_iz_p1 cmp.w #4,SBIDF_1UP beq mueve_de_p1 cmp.w #5,SBIDF_1UP beq mueve_fu_p1 STOP_1up move.w ini_player1+2,d1 add.w #46,d1 cmp.w #139+46,d1 bcc ground_p1 move.l donde_obj,a0 dondeplatP1 cmp.w #999,(a0) beq caee1_1up cmp.w #1,(a0)+ bne dondeplatP1 sub.l #4,a0 move.w (a0),d2 cmp.w d2,d1 bcc noplata_p1 sub.l #4,a0 move.w (a0),d2 cmp.w d2,d1 bcc unaplat_1up beq unaplat_1up add.l #8,a0 bra dondeplatP1 noplata_p1 addq.l #4,a0 bra dondeplatP1 caee1_1up bra cae1_1up cae3_1up cmp.w #999,(a0) beq caee1_1up cmp.w #1,(a0)+ bne cae3_1up bra dondeplatP1 unaplat_1up movem.l d2/a0,-(sp) movem.l (sp)+,d2/a0 addq.w #2,a0 move.w ini_player1,d3 add.w #16,d3 move.w (a0),d4 cmp.w d4,d3 bcc cae3_1up subq.w #4,a0 move.w (a0),d4 cmp.w d4,d3 bcs cae3_1up sub.w #43,d2 move.w d2,ini_player1+2 move.w #0,cae2_1up bra SSOUNDcaep1 ground_p1 move.w #139,ini_player1+2 move.w #0,cae2_1up SSOUNDcaep1 tst.b SOUNDcaep1S beq nasdcp1 move.b #0,SOUNDcaep1S move.l #SOUND_caep1,a0 jsr YAMAHA add.l #10,score1 nasdcp1 bra nocae1_1up cae1_1up cmp.w #2,acelcae_1up bne upScae_1up cmp.w #8,velcae_1up beq nomasspd1up addq.w #1,velcae_1up nomasspd1up clr.w acelcae_1up upScae_1up addq.w #2,acelcae_1up move.w velcae_1up,d0 add.w d0,ini_player1+2 move.b #1,SOUNDcaep1S cmp.w #4,olddire_1up bne caeD_1up move.w #24,anim_1up bra caeI_1up caeD_1up move.w #23,anim_1up caeI_1up move.b #$ff,cae_1up bra SALTOSK nocae1_1up move.b #0,cae_1up cmp.w #4,olddire_1up bne waitD_1up move.w #4,anim_1up bra waitI_1up waitD_1up move.w #0,anim_1up waitI_1up bra SALTOSK mueve_su_p1 move.l donde_obj,a0 S_stairsP1 cmp.w #999,(a0) beq NOOStairsP1 tst.w (a0)+ bne S_stairsP1 sub.l #10,a0 move.w ini_player1,d0 add.w #16,d0 cmp.w (a0),d0 bcs No1StairsP1 addq.l #4,a0 cmp.w (a0),d0 bcc No2StairsP1 move.w ini_player1+2,d1 cmp.w 2(a0),d1 bcc No2StairsP1 add.w #32,d1 subq.l #2,a0 cmp.w (a0),d1 bcs L_stairsp1 addq.w #2,a0 move.w #0,acelcae_1up move.w #0,velcae_1up cmp.w #16,ini_player1+2 beq ynosube_1up move.w (a0),d0 sub.w #22,d0 move.w d0,ini_player1 subq.w #2,ini_player1+2 ynosube_1up nosube_1up tst.w subedat_1up beq bueltasu_1up move.w subedat_1up,d0 lea subepos_1up,a0 add.w d0,a0 addq.w #2,subedat_1up cmp.w #999,(a0) bne siguesub1up move.w #2,subedat_1up bra nosube_1up siguesub1up move.w (a0),anim_1up bra SALTOSK NOOStairsP1 bra SALTOSK No2StairsP1 addq.l #6,a0 bra S_stairsP1 No1StairsP1 add.l #10,a0 bra S_stairsP1 L_stairsp1 clr.w agachap1 move.w #11,anim_1up move.w #0,subedat_1up bra SALTOSK bueltasu_1up addq.w #2,subedat_1up cmp.w #3,olddire_1up beq suiz_1up move.w #12,anim_1up bra SALTOSK suiz_1up move.w #14,anim_1up bra SALTOSK mueve_iz_p1 jsr DONDEPI_P1 cmp.w #4,anim_1up bcc muchIanim1 cmp.w #1,anim_1up bcs muchIanim1 tst.w dire_1up beq er_izqu_1up cmp.w #3,ini_player1 bcs nomueveizp1 subq.w #4,ini_player1 nomudd??< ? !???????#? ;?3?+ @@0@` P`,@pp9ppp 0pp# `?? ??????????  ??DDD"$P$~R$\  * R( R۶ 8 +eveizp1 cmp.b #1,animC1up beq ani_1UP_I addq.b #1,animC1up jsr DONDEPI_P1 bra SALTOSK ani_1UP_I move.b #0,animC1up addq.w #1,anim_1up cmp.w #4,anim_1up bne SALTOSK muchIanim1 nop er_izqu_1up cmp.w #4,olddire_1up beq giraleI1up nogiresI1up move.w #3,dire_1up move.w #3,olddire_1up move.w #1,anim_1up clr.w giradatI1up bra SALTOSK giraleI1up move.w giradatI1up,d0 move.l #giraposI1up,a0 add.w d0,a0 move.w (a0),d1 cmp.w #999,d1 beq nogiresI1up move.w d1,anim_1up addq.w #2,giradatI1up bra SALTOSK mueve_de_p1 jsr DONDEPI_P1 cmp.w #9,anim_1up bcc muchDanim1 cmp.w #5,anim_1up bcs muchDanim1 tst.w dire_1up beq er_dere_1up cmp.w #280,ini_player1 bcc nomuevedep1 addq.w #4,ini_player1 nomuevedep1 cmp.b #1,animC1up beq ani_1UP_D addq.b #1,animC1up jsr DONDEPI_P1 bra SALTOSK ani_1UP_D move.b #0,animC1up addq.w #1,anim_1up cmp.w #8,anim_1up bne SALTOSK muchDanim1 nop er_dere_1up cmp.w #3,olddire_1up beq giraleD1up nogiresD1up move.w #4,dire2BITAPLAUSOS00SAMPLES CREATED BY MASTERSOUND2 * COPYRIGHTS (C) 1990 F.RAWASI *        #              #     ' # #0        !   */($(!#('    /,.+$& ( .'  +3#  %71*)   '2 ,# ("1!5< "(-  =H'5& 5 1")5/ۺ *!!%:  9"+B   & ȭ4, #(  :' .;ADZ)3 43,& 1&D6 #   )%ѿEC (     - ,$$/ . զ5OH ˽0$  '2$ϵ$4% '/  '%ì .G+% 2 %- +=ܽ "0¥ )E޹    $ '' 64 :4) (  5%*0&B#>? 4$"' ( *#/"+:"0:-!;/ڠH.- 2D#LF&6" 2A)*ζOYȚ  E* _=ꐏ($ S9 7 `!4Խ5 2  4*HrE,. /([Z,-  Ȱ'Q> թV5W㯬;#$ F6 !- ;-ڹC/  'QA&ِ4UI1 $ (/ ȧQI ٻ H`(џ)ݛ9+35,&>կ:mV ԩS8"F WHZ7; O Ƞ-j'Y KHsDЀ Oz@ꔈ FE5T9'78+0,9 У+gB^ F//=v`  < vH3A3H1=تgPవ;:]<+47/"<"'48%>:A!%?@ķmP' '9&5ʶKR$ ڿе/YW4 }@@QZ8 Ҡ$ '2'&0%''ȫK0_8젗!/L)_` *G ᙷT8I(0 )@1!) #EPH ԩJ*'<)@Ⱦ'<  2*T,?P г=d2踕$ 3B! ,>0EEI' #?P( ;ZS$Ȁx4 2Ĺ3 # ʪ;y-E  'kh08  -* "_b(%?=:&7BȢQ$+ ?D$̘]K5 ̕7oQ- '?B"-"1A G8  "8;&69.B<# M * 4'A1(4$;1$ 3 %3 /%  *=]DGD ڸ.7Z"쪹E4 1 78 ͱE@(بgp 2 ("! Ĩ18 97 5*0" MJ QLH׼O,!3ij-D,)f"̥7~Z/H9㰤6E3$*9(**?ZULؤ3cDОSW81<5$kH3:%AG/_L$ Ŵ%YXؘGD+@ ?Z< ?, #칵'G*5 $ݲ%?0 "ܬ%k %ͦMU0-L( '-.䮹iA .Q8%=(з.D ,<?H$̻]  격gq$=<.1=4" #ZUGz0Ѐ']ģ +=#&/M * ,%kHDU_"l@'o0 4@DШ%ε'շ-^/ &#GL'eE% %IDK/B,O@#WX 7`Ȧ E@K@!2"+(?oA*F 50 44"/1 ݸ,c@ 5`eT'2 !P+l93 娿B<  !䧿?QPA(ҳԥ)D"7YU?"ଦCI@`P#ETݸ'iJ/LM ͢-#_ !4AH =p@(ƿŷ?h _8 /96/0 6Y4*' 'B4ͬ,7xE ַ )??07N,ؠ 4:X0EHMB#2荟=;@ں=CQ {8Sn(<  '4$¨;E@OSE,7cZ?PM2ؠs|45wbحش?D8ɻ'I3 34%*28989?C ο?@CU$%tCVL4aJ ֞. )Aп7iPA&;*SnH0*<#'@в!6K%:C5:) R\7ج?L"8g4ؤC " ஻SJ" YLK00 <68»O@ܯ?_壡3X º0*H䂣-H;1 G)ȡ_rJVe.'B #8'cZ*ਣ";* "",ЧO, >2 JV?UFѲWH+%4J$Ծ;0+!گ& '?D)='$00. ": %"3ʥ?V34Џ4,+0 #@*Z0!+od7V0ULܤ5?(؞_fTKa1GX8+M4O<#7@߸9\ "GP,ȐD ܰ#_L(ݴ'Bd$Ȁ?km`KS@臿 OL"#@Į50 =h '%MT 4;t@ & 85?C/Rgb #WX¾*9ʖ ;M< #=E:𘣛M_(/2)CJUlFȘ!-9%(7V5ا/.Т< ]0ĨGd6I{``ܠW=266;P)("$OP(̧;Ce* E8츬0'& ȴV0ļ+gX4蠧7?.+-=@7>Wf ?8@_yJ;$ܘ ?-%cR( X0:KQ0Ъ?,Y/3%ղD/Z Ј?`4' !#KX$02 QT#/Kջ/D4 ( *BԾ:ijCC6+Cb(6Xk`ܠ~|0*gd?EЭ32[wDûб!8:Y4>h#6iTբ/F[8.Y<ԴK`G-@!D! 3DD15)@!洸W\8 gd"Ф";(?T: 8#2Ҩ?B/:#:G ̻&'CP*/L)4%%_T#KN, . /[E _\5%[: ĕW@ة*=Zڶ6E.؊7`$;H;0C>G%5DJUȠ}@؀A7C@䮳 '!` ܿ e0 (#/0+]X葞;~ 'Ȳ,%o|3*.,+Y4(C&穓5[R  "-=inH,ڐlH9ȜKjBΰ7y4W` Ѐ% [lBڀP'UyXȀ/r@討'=sa#! 0ȠWL* A [?$,]L42" ?j$ %W)K0 3@1;mXİ;B1Ol8Ȯ;Z 83U 5 · /U!)!I<% ̗j@ %2<(oL6쀀GgNܷ `Eȳ&[+PJ᰽/_T Ȳ?p$ ͮH"KJĤ_`6?e;5˨-4Op ;Spȴ7jj[T%ఖ}rR؈''8+bD,؞Sip@̆?yd$ 9CH܄38  N'*/R8 ?w|L𰀀;}LȈ|H؋3?4"N8@5(_X̠/St`'. ; /X,aa8?|0개u~2訿OJ𨄥K]*/hRȻU~X[DCІ?FLFLҰ)FA(GN 'FD;@'7jX~:ʰ%3`J3W8:ٶ7d<;[H0:F*>WF 䦡KT'kDƼ&27((,̽ N""'sT;gJĺ8 W Wp(ܙ-@ -!ԩKZ,1$ڸg\$ʡ#%3L7ȅ7[ӡ9D4--@_Xث;L6   ?V :4ѿ YA,38-> krH耀ON'쬥 #&C0ЄgX$%'PZPJ͘<?$ Kj2ͰVZ(#<Є?*+_X,;(#W(ж.*,&᥵J0ܷGR$0/P+R/ 'ba3շYLW]@耗I4( Ĕ1IXgq(̀MB 5d0Gse([@!-;@¾-MoHKvX-ว;H<7+"=(СGe9ʽ..?4Ժ )J0ؼgp5 ;V638e`ݶ;h5ґkj&%/?wb8򸳵%(* X60Ը#Kb?1Ԭ/+h:?d8̾=9.BJ%VE, *@?$=:32 =@ Gob@؀^tPGqp@Ѐ?_x,W~L մOi-/0 7Hʒohܿ6޽Gd訯) 19 + ;eR2)Sb gz4#FC#J"?gVDKR#$)NKFĸY0Ēgq@E42'6L"A wP?&( AeFž'?K0 7)B ?SD(U0KY4%1' /9`F(/^:Or8# f/g[ت)?D<*˔ol ț +"țXY =,5TԵ'm#gh>#SX祌H4B-G`aԏ>{ f~GЛ* .6+I`d7 Ѣ J8#.=c2L[2򺨵 TzFʌ=?E5»7Z7iC&6 c#"[q<ϖ0)B0#B5+$8:R#֬FSUYn&Y0ّ %PNJmEђ68N]H򓒸"#P:7HD 5MD #'I+  1CE )F״R<޼AO!KQ幯)'+I QhN)>O)4U/))9Q>F "9EP/cR# 붩#09?"Μ(YU2 ?L$!#  ((11 #20?5, ո)S+D6 )1ܵ$2' 3!2-@/ EG ַ.$  )C$3&-"ͧ'W%5ӫ8. !%,O! "  #E$޲=YF޹;= !ޫ"+  #Ƶ?H#پJS&忾* *' 2"/ 8%#;/ )8 /A ݼ@*8  S9(RO $0# !,6=&3I=$ΰ$ 6K-䰱 %+C"ޱ #B5(㹻!E+%')4 *7$1F/ 9 6B -?%/1A6$57F!G$(  - # &/## E68+( %3' B #' 0:)  7)  (" -- %   <)!"+#%.  (" (   ,    *% "! "   +$' .)  ! ( (      "$      $ #                                                            f  (    (* .""     2                 (* . $  | * >*< ""V        _1up move.w #4,olddire_1up move.w #5,anim_1up clr.w giradatD1up bra SALTOSK giraleD1up move.w giradatD1up,d0 move.l #giraposD1up,a0 add.w d0,a0 move.w (a0),d1 cmp.w #999,d1 beq nogiresD1up move.w d1,anim_1up addq.w #2,giradatD1up bra SALTOSK mueve_fu_p1 move.w #1,shoot_p1 move.b #15,popampli move.b #15,pop_pomp_1 bra poping_p1 CONTROLA_P2 tst.w giradatI2up bne mueve_iz_p2 tst.w giradatD2up bne mueve_de_p2 tst.w shoot_p2 bne poping_p2 tst.w SBIDF_2UP beq STOP_2up tst.w cae_2up bne STOP_2up tst.w cae2_2up bne STOP_2up cmp.w #1,SBIDF_2UP beq mueve_su_p2 cmp.w #3,SBIDF_2UP beq mueve_iz_p2 cmp.w #4,SBIDF_2UP beq mueve_de_p2 cmp.w #5,SBIDF_2UP beq mueve_fu_p2 STOP_2up move.w ini_player2+2,d1 add.w #46,d1 cmp.w #139+46,d1 bcc ground_p2 move.l donde_obj,a0 dondeplatP2 cmp.w #999,(a0) beq caee1_2up cmp.w #1,(a0)+ bne dondeplatP2 sub.l #4,a0 move.w (a0),d2 cmp.w d2,d1 bcc noplata_p2 sub.l #4,a0 move.w (a0),d2 cmp.w d2,d1 bcc unaplat_2up beq unaplat_2up add.l #8,a0 bra dondeplatP2 noplata_p2 addq.l #4,a0 bra dondeplatP2 caee1_2up bra cae1_2up cae3_2up cmp.w #999,(a0) beq caee1_2up cmp.w #1,(a0)+ bne cae3_2up bra dondeplatP2 unaplat_2up movem.l d2/a0,-(sp) movem.l (sp)+,d2/a0 addq.w #2,a0 move.w ini_player2,d3 add.w #16,d3 move.w (a0),d4 cmp.w d4,d3 bcc cae3_2up subq.w #4,a0 move.w (a0),d4 cmp.w d4,d3 bcs cae3_2up sub.w #43,d2 move.w d2,ini_player2+2 move.w #0,cae2_2up bra SSOUNDcaep2 ground_p2 move.w #139,ini_player2+2 move.w #0,cae2_2up SSOUNDcaep2 tst.b SOUNDcaep2S beq nasdcp2 move.b #0,SOUNDcaep2S move.l #SOUND_caep1,a0 jsr YAMAHA add.l #10,score2 nasdcp2 bra nocae1_2up cae1_2up cmp.w #2,acelcae_2up bne upScae_2up cmp.w #8,velcae_2up beq nomasspd2up addq.w #1,velcae_2up nomasspd2up clr.w acelcae_2up upScae_2up addq.w #2,acelcae_2up move.w velcae_2up,d0 add.w d0,ini_player2+2 move.b #1,SOUNDcaep2S cmp.w #4,olddire_2up bne caeD_2up  @@0@` P`,@pp9ppp 0pp# `?? ?????????? "* * E*I(|HH%7 T( P(l@p@ 8 @@@+ @@0@` P`,@pp9ppp 0pp# `E*I(|HH% move.w #24,anim_2up bra caeI_2up caeD_2up move.w #23,anim_2up caeI_2up move.b #$ff,cae_2up bra SALTO4_1 nocae1_2up move.b #0,cae_2up cmp.w #4,olddire_2up bne waitD_2up move.w #4,anim_2up bra waitI_2up waitD_2up move.w #0,anim_2up waitI_2up bra SALTO4_1 mueve_su_p2 move.l donde_obj,a0 S_stairsP2 cmp.w #999,(a0) beq NOOStairsP2 tst.w (a0)+ bne S_stairsP2 sub.l #10,a0 move.w ini_player2,d0 add.w #16,d0 cmp.w (a0),d0 bcs No1StairsP2 addq.l #4,a0 cmp.w (a0),d0 bcc No2StairsP2 move.w ini_player2+2,d1 cmp.w 2(a0),d1 bcc No2StairsP2 add.w #32,d1 subq.l #2,a0 cmp.w (a0),d1 bcs L_stairsp2 addq.w #2,a0 move.w #0,acelcae_2up move.w #0,velcae_2up cmp.w #16,ini_player2+2 beq ynosube_2up move.w (a0),d0 sub.w #22,d0 move.w d0,ini_player2 subq.w #2,ini_player2+2 ynosube_2up nosube_2up tst.w subedat_2up beq bueltasu_2up move.w subedat_2up,d0 lea subepos_2up,a0 add.w d0,a0 addq.w #2,subedat_2up cmp.w #999,(a0) bne siguesub2up move.w #2,subedat_2up bra nosube_2up siguesub2up move.w (a0),anim_2up bra SALTO4_1 NOOStairsP2 bra SALTO4_1 No2StairsP2 addq.l #6,a0 bra S_stairsP2 No1StairsP2 add.l #10,a0 bra S_stairsP2 L_stairsp2 clr.w agachap2 move.w #11,anim_2up move.w #0,subedat_2up bra SALTO4_1 bueltasu_2up addq.w #2,subedat_2up cmp.w #3,olddire_2up beq suiz_1up move.w #12,anim_2up bra SALTO4_1 suiz_2up move.w #14,anim_2up bra SALTO4_1 mueve_iz_p2 jsr DONDEPI_P2 cmp.w #4,anim_2up bcc muchIanim2 cmp.w #1,anim_2up bcs muchIanim2 tst.w dire_2up beq er_izqu_2up cmp.w #3,ini_player2 bcs nomueveizp2 subq.w #4,ini_player2 nomueveizp2 cmp.b #1,animC2up beq ani_2UP_I addq.b #1,animC2up jsr DONDEPI_P2 bra SALTO4_1 ani_2UP_I move.b #0,animC2up addq.w #1,anim_2up cmp.w #4,anim_2up bne SALTO4_1 muchIanim2 nop er_izqu_2up cmp.w #4,olddire_2up beq giraleI2up nogiresI2up move.w #3,dire_2up move.w #3,olddire_2up move.w #1,anim_2up clr.w giradatI2up bra SALTO4_1 giraleI2up move. 0@P`pqr@@@0P@P @ 0PA$$ Hcp~A @@A x/@ NQ  SI A~ƈ?@[@m?`&??GmQo?B(, g|_~?`rfsC@PwDH9x ?n?8t`c^@;E\H  ?Or | ˆ_ 6^8B~rg `?!/!kcBFNx~!J{|? ywK}FH  a?Їw|_0?0c?@?̼m4?>@gPpg̕op^| @° !@/×_B g/| ?<C & @R@x@/ho 9?p ֖}O :CԄ@ qF|?@S+{@h? x;{ O1?n~?0x`f0@D`Xa#M |o뿿~<@Z?4 @g!?+ |s ~8|?_sqZ@B00`G~* a? |?# ?  \lH@4??[yOC7?X|b8!6 ؟D_ ?`?{\ ? ? a qyO   $  @ ;   }_' ?_Cg 8?`>`P @`  ? H71^#~G#gNrK ?8~x?hs ?@@` _  !{bEc{v2@C!@?   n% ?SGlx #( o/ٸ?߀Ax|n3 01>?? ?? _?  D~Vǫs!=UO G_g|?ppsߟ C?| n0 ??  _`f.V  󁳁 ay?pE5_ 8 ?~?r Yzx7󀱃_ =ßϦx?po !  ZP~`OwYC'  !'o8r?@&mW 90p? ? !x?0 ? ?? lR ?/ 9ۮ~| ?@  &O=!]@h` NM٦ ߏ>!9&o? p&8 ? ?@&ka1|p@C2{ ߿1+L1o !O8  7,0C@C _3 0/@ !~ϋ ? ??ap"H  ? B8@|w< d8@ pǿ0?RTp?(g, KxycW8 xV 0?k?]>w/G;. a> > |? ?0'}?Y=9ʝ?'#> >x? ??0'??rqd:߿$`~tØ <?~u ?0?'wjٜ&!cЀ{ H" xπ>>P?'<_A9qz d9`[} `]??'ϩ@0?<980\`pz?? /7= pp?' v{x<@t\?pr}?@{ O3| 0 ?'p뽀Nk?8p8o@ B} ` `?'@i%a8O`k w}O@Ϝo~!0'31ֹ6ws`Af=' ?V9/@> ?9_ ?x'qLbk' @aN{s`>|| ? x'?> ΀אs'0p| ~ ?p'ϿcןA''_?/x a? p'ghaA8u'?`??'hO}!<ll'Ϗ  "/|?' >PR~Ïa>;x8`' ? `ǟ7   'cq.>C a `pZp'nq?>``?   '_ .?c`O H C FH'K@!"@@# '@"ˆ\O{'`28sGV @"[,`|?'?p? '92-/4x7?a Ho'=?p``ǟ o? ?'cWg$ /؋q`+>m?'q/a ?00 8'aDG`)/` |?ayͿ|ր/ 8'fq pӍ86H'Z}OxŸ 8? wXf9.Ǐqx׎ct  K8  ~#??Pd g\_ !a6u;??_ ## cA( =<?  ?| #, ?/aC.  ;>i#yI  (q Ǐ/.p06?|~߀a_@`Z}?> | L|<Ì; ~~<Ìm ~F B GM Bfm GB0@;G̈́Bo͆  |<8a0=~|<c8a0~ 8la0 @ la08@|a0@la0|#00@|>/`08@~0o|!80|?`0oa0~ߏgqN0o @x&8cqpo?>~xgq_0o xcqn0ov??>|g\pM@dEs f3{LNpC{lrl`a x|> sp` ~0 }<|?n3p`~~@`c `B 0  `pc`Bc `c`B 8cppc`B8c` @<< c|~><c |~ 0`@ @08 8< ?}?`?|?`8` @   @x a``ǎ8``0` @  @0  ` a`` ``0  ``x  @`0g ``00G ` ` @ 8 `  <`!88pc΀0F   `!00f` c ̀ `!?0  a a!?0s χÎ!?0ga a!?0ga a !0Cp aa{`!88pqc!0FC` aa}`!00fc` a a`!0 ` a``!0p q#a@`0A`a`00a`a#a  @ !0p `A0 @!0 paøp 8``!0` `A  @!0 ` aa```p?@x< 0x`0|?`|> 0p`0|`8 @r@" "@` @0@0 8<>|?~0~g /?0`=?~~??0~g ?0`o!1cc <8bs0wM8z;~cc <8ga0~cc >8|>pbca2?~pcscs?}!>vca 8=~apccc 0?`>xx| ~8ca;0>x|~`?0ca?1``020`P 0(  `l0C(x<H|| 8ox`~0~ox }<?>~|0op`~0>g9o `c `B7a0Ed'9o `7a0xnw8sDd'X8oc ` 6a08l71L 0ctBM>,d&88cx?nw3N pc`B >0ld&xl 8c`?0ll68*ǀ<|<c|;w0;>o8><~!|ݱc |~1ca08>g$S@@ 0  @X `>| :Çq?>(~ 0q;6a0ى;6a8yى  >s 6a08ى,>X?X{ >0&?0; @|*ǀ;osq 9|1ca0݃ 0@0 |@`0 p>||p ?>8~|0 ;6a0Fあ ;>aw giradatI2up,d0 move.l #giraposI2up,a0 add.w d0,a0 move.w (a0),d1 cmp.w #999,d1 beq nogiresI2up move.w d1,anim_2up addq.w #2,giradatI2up bra SALTO4_1 mueve_de_p2 jsr DONDEPI_P2 cmp.w #9,anim_2up bcc muchDanim2 cmp.w #5,anim_2up bcs muchDanim2 tst.w dire_2up beq er_dere_2up cmp.w #280,ini_player2 bcc nomuevedep2 addq.w #4,ini_player2 nomuevedep2 cmp.b #1,animC2up beq ani_2UP_D addq.b #1,animC2up jsr DONDEPI_P2 bra SALTO4_1 ani_2UP_D move.b #0,animC2up addq.w #1,anim_2up cmp.w #8,anim_2up bne SALTO4_1 muchDanim2 nop er_dere_2up cmp.w #3,olddire_2up beq giraleD2up nogiresD2up move.w #4,dire_2up move.w #4,olddire_2up move.w #5,anim_2up clr.w giradatD2up bra SALTO4_1 giraleD2up move.w giradatD2up,d0 move.l #giraposD2up,a0 add.w d0,a0 move.w (a0),d1 cmp.w #999,d1 beq nogiresD2up move.w d1,anim_2up addq.w #2,giradatD2up bra SALTO4_1 mueve_fu_p2 move.w #1,shoot_p2 move.b #15,popampli move.b #15,pop_pomp_2 bra poping_p2 ; 7 T( P(l@p@ 8  @#+ @@0* E*I(|HH%7 T( P(l@p@ 8 @A@ +c @g0 `  Ht8`A  /$4D` $@D0$+ ? #@@"@xx =?@<? ```8?`8?`~8?`p|`p8?+$8Tt8pp  8 ` ??????@ ^_<0?|??~??<8`+ >:T.y@~~!@ @q@0@00@{{?@<@a=<~~T"ddDlDh<+@-?> .<(@-: @ ?Bww@ @@@ @`pp00|<|pax??@`"?"?&??"?@"?"?0? ````  0yG PPPpH p0y 0y0G G PЀPPPPpH pH 0y0&```>>w >??>'?/:?r>xHh`x/dp$oo,=|   000 /000 000 / _0@ 8?8?pp ^> ^ (`< 000 4\ (  (``` {{B^^#wL//P<8 t -B&```>>w >??>'?/:?r>xHh`x/dp$oo,=|   000 /000 000 / _0@ 8?8?pp ^> ^ (`< 000 4\ (  (``` {{B^^#w@//P< t p l@&```>>w >??>'?/:?r>xHh`x/dp$oo,=|   000 /000 000 / _0@ 8?8?pp ^> ^ (`< 000 4\ (  (``` {{B^^#w@//P< t3 ddp*?@&```>>w >??>'?/:?r>xHh`x/dp$oo,=|   000 /000 000 / _0@ 8?8?pp ^> ^ (`< 000 4\ (  (``` {{B^^#w@//P< t8   |ς (y@& ww>w~r>. a~o>' ww ' `wp@@wwX77?(77?(} ~=>?? X=????  ,  (doo|PhxL@LOO!p8B0 w@||g8DV)8D8D$2ɀ@0H<& ww>w~r>. a~o>' ww ' `wp@@wwX77?(77?(} ~=>?? X=????  ,  (doo|Phx@@LOO!pBw@||g`08  @xO& ww>w~r>. a~o>' ww ' `wp@@wwX77?(77?(} ~=>?? X=????  ,  (doo|Phx@@LOO!pBw@||g @pU& ww>w~r>. a~o>' ww ' `wp@@wwX77?(77?(} ~=>?? X=????  ,  (doo|Phx@@LOO!pB w@||gp0`` ?@8<P&SA~r xbB}$ `    000 /000 000 / _0@ 8?8?pp ^> ^ (`< 000 4\ (  (``` {{B^^#w@//P< t  o?mT&111{s!{=9=w#?;??'?`SAp_||8| @_`?|x`?`?0?0' wpwwX77?(77?(} ~=>?? X=????  ,  (doo|Phx@@LOO!pBw@||g`p0@?d*&(@@:P 4hx//__@00  /88 /  /  /0 @>~~ `@@^:@ 8w U*& >>p PP????@ ??@????` ?@@ ?ooP ?oo011?1P?(????(??????(??????z0,>??t33X8<<x0P@?@???=-/.??0?7H`U& 00A//__@  /``` _```?``` _+``s@@ w0p߀/???@?{Pxx >```@@@ ? p & >   2{{߽BG>>`__x O ?mT& 00A//__@  /``` _```?``` _+``s@@ w0p߀/???@?{Pxx >```@@@ ? p & >   2{{߽BG>>`__x O o?mT&@\p+@p@@  ;8X;;?,  ssp>g?;?;p,||~   X?<|x8?>H(4<X&h''x@@}q!`3@`?? p 0 ?d*&@\p+@p@@  ;8X;;?,  ssp>g?;?;p,||~   X?<|x8?>H(4<X&h''x@@}q!`3 @p?? @0  ?d*&```????????????>>>#xxp@  @`@  ``|  x> @?@   ?#xxp@  @`@  ``|  x> @?@?>#xxp@   @`@  ``| XC,?& ?$@@?@   ?#xxp@  @`@  ``|XC,?& ?$@@?@?># ???0|@ @?0@ p_ @ @x`pp}@`~H? (@p03 >`>x|<<<<|888888># ???0|@ @?0@ p_ @ @x`pp}@`~H? (@p03 >`>`|||8># ???0|@ @?0@ p_ @ @x`pp}@`azp28 y8x|<<<<|88888># ???0|@ @?0@ p_ @ @x`pp}@`azp28 y@x||8># ?<? 8?0? 0? ? ?  875? @0     <  ǀD`(?89  8> 0;#X_@P_@hg@ts@{x@d|k@@`0?@0 ? >@@@ǀ `y@8}(<,>#~`A 00pp00(Hp@?0_(@x`@p@ `{29 ?R4  00qq@x||8>#<||xπ    @ @@~}p &%  AGπ?Gπ?>#00pp``$`@0 ? >@@@ǀ `y@8}(<,>#$` '@0 ? >@@@ǀ `y@8}(<,>?@@@}P^@@@@@@@@@@@@@@@@@@}Q~~@@@@@@@@@@@@@@@@@@}P^@@@@@@@@@@@@@@@@@@}P^@@@@@@@@@@@@@@@@@@}P^@@@@@@@@@@@@@@@@@@}Q~~@@@@@@@@@@@@@@@@@@}P^@@@@@@@@@@@@@@@@@@}Q~~@@@@@@@@@@@@lWp 0}P!!!BBBJJJ!!!BBBJJJ!!!BBBJJJ!!!BBBJJJ!!!BBBJJJ!RBRjJj!RBRkJk!RBRkJk3c7R6־k3c7R6־k3c7R6־k3c7R6־k3c7R6־k3c7R6־k3c7R6־k3c7R6־klWq 0S}P+!!!!iiii1111((((2BIT'X 4        !(1111.!Ӹy^`yQЀyE``. ?m7ʀumg ( I7€^`^(I7ʀ^^Q?( Wu.u^^Q뀀?(Wu!u^!`Q怀((Wu!^(g^7y7Ѐ.umQ.mQ򈀀!?1Ѐu(mu€^`Eg^EmgQ挀?mm?ـQmy?ـIWm7ـ7Q`7!1 yQII.!.WymQ^ Ѐ7E(my^`Ј ^uW?.ࣀu^!(^`EIДWI^E..¡gE^?1สE^1E..༸7Q .7((ʣ(!Д  ټMUEVE A LOS MALOS !!!! : SALTOSK move.l son_skuis,d0 move.l datos_skuisP,a0 move.l datos_skuisT,a1 move.l limite_skuis,a2 loop_skuisk tst.w (a1) beq tipo_SKUIS1 tipo_COMODIN move.w (a0),d1 addq.l #4,a0 cmp.w #4,(a0) bcc tipoN1JOKER1 cmp.w 2(a2),d1 bcc vIjoker1 bra andandoDjo tipoN1JOKER1 cmp.w #10,(a0) beq dadojoiz cmp.w #11,(a0) beq dadojode cmp.w (a2),d1 bcs vDjoker1 bra andandoIjo dadojoiz cmp.w (a2),d1 bcs norestjo subq.l #4,a0 sub.w #10,(a0) bra norestjoo norestjo subq.l #4,a0 norestjoo addq.l #8,a0 addq.l #2,a1 addq.l #4,a2 dbra d0,loop_skuisk bra SALTO4 dadojode cmp.w 2(a2),d1 bcc norestjo subq.l #4,a0 add.w #10,(a0) bra norestjoo tipo_SKUIS1 move.w (a0),d1 addq.l #4,a0 cmp.w #4,(a0) bcc tipoN1SKUIS1 cmp.w 2(a2),d1 bcc vIskuis1 bra andandoDsk tipoN1SKUIS1 cmp.w #10,(a0) beq dadoskiz cmp.w #11,(a0) beq dadoskde cmp.w (a2),d1 bcs vDskuis1 bra andandoIsk dadoskiz cmp.w (a2),d1 bcs norestsk subq.l #4,a0 sub.w #12,(a0) bra norestskk norestsk subq.l #4,a0 norestskk addq.l #8,a0 addq.l #2,a1 addq.l #4,a2 dbra d0,loop_skuisk bra SALTO4 dadoskde cmp.w 2(a2),d1 bcc norestsk subq.l #4,a0 add.w #12,(a0) bra norestskk andandoIsk subq.l #4,a0 subq.w #3,(a0) addq.l #8,a0 addq.l #2,a1 addq.l #4,a2 dbra d0,loop_skuisk bra SALTO4 andandoDsk subq.l #4,a0 addq.w #3,(a0) addq.w #8,a0 addq.l #2,a1 addq.l #4,a2 dbra d0,loop_skuisk bra SALTO4 andandoIjo subq.l #4,a0 subq.w #2,(a0) addq.l #8,a0 addq.l #2,a1 addq.l #4,a2 dbra d0,loop_skuisk bra SALTO4 andandoDjo subq.l #4,a0 addq.w #2,(a0) addq.w #8,a0 addq.l #2,a1 addq.l #4,a2 dbra d0,loop_skuisk bra SALTO4 vDskuis1 move.w #0,(a0) bra andandoDsk vIskuis1 move.w #4,(a0) bra andandoIsk vDjoker1 move.w #0,(a0) bra andandoDsk vIjoker1 move.w #4,(a0) bra andandoIsk ; .... Anima los SKUISKIES .... : SALTO4 move.w counter_aSK,d0 cmp.w #2,d0 bcc resetSKount addq.w #1,counter_aSK bra SALTO4_01 resetSKount clr.w counter_aSK move.l datos_skuisP,a0 move.l son_skuis,d0 animaSKloop cmp.w #3,6(a0) bcc animaSKdie addq.l #4,a0 move.w (a0),d1 cmp.w #4,d1 bcc mayoranimsk addq.w #1,d1 cmp.w #4,d1 beq zeroanimsk move.w d1,(a0) addq.w #4,a0 dbra d0,animaSKloop bra SALTO4_01 mayoranimsk addq.w #1,d1 cmp.w #8,d1 beq cuatroanimsk move.w d1,(a0) addq.w #4,a0 dbra d0,animaSKloop bra SALTO4_01 zeroanimsk clr.w (a0) addq.w #4,a0 dbra d0,animaSKloop bra SALTO4_01 cuatroanimsk move.w #4,(a0) addq.w #4,a0 dbra d0,animaSKloop bra SALTO4_01 animaSKdie subq.w #1,6(a0) cmp.w #4,6(a0) beq poSKdie addq.w #8,a0 dbra d0,animaSKloop bra SALTO4_01 poSKdie cmp.w #11,4(a0) beq poSKdi_ move.w #0,4(a0) addq.w #8,a0 dbra d0,animaSKloop bra SALTO4_01 poSKdi_ move.w #6,4(a0) addq.w #8,a0 dbra d0,animaSKloop bra SALTO4_01 ; .... Chequea colision POMPA - SKUISKIES ... : check_sk move.w stak_pomp1,d1 tst.w d1 beq check_sk2 move.l son_skuis,d0 move.w ini?y`š漸 ʣ(ٚ¼WК¼Ӕ(ร.檰٣.¸١ʸ?¡¸m.ʡ(ӌW渡Д^ٸ7ʪ? ¡¼ʌ`ʡ^Ӹ(ʡgʣ.ٰQУEસ??٣I٣7ࣸQ٪.棼WЪ(룼gª(yЪ!.뚼g뚼^١WʣIٌ١7ʼ^WW.뀰^ ^W.`1઀7Eـ€1!뀚?( ʚWy^_player1,d2 move.w ini_player1+2,d3 move.l #datos_colis,a0 move.l datos_skuisP,a1 move.l datos_skuisT,a2 move.l limite_skuis,a3 move.l #olddire_1up,a5 move.l #datos_boom,a6 lea.l score1,a4 bsr check_skloop check_sk2 move.w stak_pomp2,d1 tst.w d1 beq check_sk3 move.l son_skuis,d0 move.w ini_player2,d2 move.w ini_player2+2,d3 move.l #datos_colis,a0 move.l datos_skuisP,a1 move.l datos_skuisT,a2 move.l limite_skuis,a3 move.l #olddire_2up,a5 move.l #datos_boom,a6 lea.l score2,a4 bsr check_skloop check_sk3 bsr check_boom rts check_skloop move.w d3,d4 move.w d2,d5 cmp.w #11,4(a1) beq noycheck1 cmp.w #10,4(a1) beq noycheck1 tst.w (a2)+ beq detipoSK cmp.w 2(a1),d4 bcc noycheck1 add.w #16,d4 cmp.w 2(a1),d4 bcs noycheck1 cmp.w #3,(a5) bne checkjode subq.w #8,d5 move.w (a1),d6 add.w #32,d6 cmp.w d5,d6 bcs noycheck1 sub.w #32,d6 cmp.w d5,d6 bcc noycheck1 move.w (a0),d6 tst.w d6 beq noycheckdie1 cmp.w #-1,d6 beq noycheck1 subq.w #1,(a0) move.w #6,6(a1) add.l #120,(a4) move.w #10,4(a1) bra noycheck1 noycheckdie1 add.l #1000,(a4) move.w #1,6(a1) move.w #60,(a6) subq.w #1,(a0) noycheck1 addq.l #2,a6 addq.l #2,a0 add.l #8,a1 dbra d0,check_skloop rts checkjode add.w #32,d5 move.w (a1),d6 add.w #32,d6 cmp.w d5,d6 bcs noycheck2 sub.w #32,d6 cmp.w d5,d6 bcc noycheck2 move.w (a0),d6 tst.w d6 beq noycheckdie2 cmp.w #-1,d6 beq noycheck2 subq.w #1,(a0) move.w #6,6(a1) add.l #120,(a4) move.w #11,4(a1) bra noycheck2 noycheckdie2 add.l #1000,(a4) move.w #1,6(a1) move.w #60,(a6) subq.w #1,(a0) noycheck2 addq.l #2,a6 addq.l #2,a0 add.l #8,a1 dbra d0,check_skloop rts detipoSK cmp.w 2(a1),d4 bcc noycheck3 add.w #16,d4 cmp.w 2(a1),d4 bcs noycheck3 cmp.w #3,(a5) bne checkskde subq.w #8,d5 move.w (a1),d6 add.w #32,d6 cmp.w d5,d6 bcs noycheck3 sub.w #32,d6 cmp.w d5,d6 bcc noycheck3 move.w (a0),d6 tst.w d6 beq noycheckdie3 cmp.w #-1,d6 beq noycheck3 subq.w #1,(a0) move.w #5,6(a1) add.l #200,(a4) move.w #10,4(a1) bra noycheck3 noycheckdie3 add.l #1500,(a4) move.w #1,6(a1) move.w #60,(a6) subq.w #1,(a0) noycheck3 addq.l #2,a6 addq.l #2,a0 add.l #8,a1 dbra d0,check_skloop rts checkskde add.w #32,d5 move.w (a1),d6 add.w #32,d6 cmp.w d5,d6 bcs noycheck4 sub.w #32,d6 cmp.w d5,d6 bcc noycheck4 move.w (a0),d6 tst.w d6 beq noycheckdie4 cmp.w #-1,d6 beq noycheck4 subq.w #1,(a0) move.w #5,6(a1) add.l #200,(a4) move.w #11,4(a1) bra noycheck4 noycheckdie4 add.l #1500,(a4) move.w #1,6(a1) move.w #60,(a6) subq.w #1,(a0) noycheck4 addq.l #2,a6 addq.l #2,a0 add.l #8,a1 dbra d0,check_skloop rts ; .... Chequea explosion y puntuacion volante .... : check_boom move.l son_skuis,d0 move.l datos_skuisP,a0 move.l #datos_boom,a1 move.l #posi_boom,a2 _boomloop cmp.w #60,(a1) beq ponxy_boom1 backboom1 tst.w (a1) bne backboom2 addq.w #2,a1 add.w #8,a2 add.w #8,a0 dbra d0,_boomloop rts backboom2 subq.w #1,(a1) add.w #12,(a2) backboom3 sub.w #12,2(a2) backboom4 add.w #8,a2 addq.w #2,a1 add.w #8,a0 dbra d0,_boomloop rts ponxy_boom1 move.w (a0),(a2) move.w (a0),2(a2) move.w (a0),6(a2) move.w 2(a0),4(a2) move.w #3*8,csound_boom bra backboom1 ; .... Printing, please wait .... : SALTO4_01 cmp.b #3,num_players beq CONTROLA_P2 cmp.b #2,num_players bne SALTO4_1 bra CONTROLA_P2 SALTO4_1 bsr check_sk cmp.w #$70,pantaIfisi bne SALTO5 jsr scr1GAME70 bra SALTO6 SALTO5 jsr scr1GAME78 SALTO6 cmp.b #3,num_players beq si_game4_2 cmp.b #2,num_players bne JUEGO si_game4_2 cmp.w #$70,pantaIfisi bne SALTO8 jsr scr2GAME70 jmp JUEGO SALTO8 jsr scr2GAME78 jmp JUEGO scr1GAME70 jsr vsync clr.b b_vsync len3 move.l #1000,d0 .loop___ nop dbra d0,.loop___ move.l #$78000+2400,a1 move.l #$70000-32000+4640,a0 bsr copy_back move.l #$78000,pantalla jsr print_puntu jsr print_time move.w #$78,panta_fisi move.l #$78000,spr_panta Ъ!?y7Eи(! 2BITSOUND1'X  SAMPLES CREATED BY MASTERSOUND2 * COPYRIGHTS (C) 1990 F.RAWASI *  cmp.b #3,num_players beq players31 move.l #0,d0 move.w anim_1up,d0 mulu.w #692,d0 add.l #spr_player1,d0 move.l d0,spr_dirspr move.w ini_player1,spr_x move.w ini_player1+2,spr_y jsr spr_calcxy jsr spr_imprime players31 move.w #$78,d5 jsr calc_skuis move.l #$78000,a3 jsr calc_boom tst.w pop_pomp_1 beq noprintpomp1 lea spr_exypun,a0 clr.l d0 move.w stak_pomp1,d0 cmp.w #3,d0 beq noprintpomp1 mulu.w #84,d0 add.w d0,a0 addq.w #1,stak_pomp1 cprt_explo1 move.w ini_player1,d0 move.w stak_pomp1,d1 mulu.w #6,d1 cmp.w #3,olddire_1up beq prtiz_pomp1 add.w #32-8,d0 add.w d1,d0 bra prtde_pomp1 prtiz_pomp1 sub.w #4,d0 sub.w d1,d0 prtde_pomp1 move.w d0,spr_x move.w ini_player1+2,d0 add.w #15,d0 move.w d0,spr_y move.l a0,spr_dirspr jsr spr_calcxy jsr spr_imprime noprintpomp1 cmp.b #2,num_players beq no_swap_scr1 cmp.b #3,num_players beq no_swapscr2 move.l #0,ini_player2 jsr put_back move.w #$78,pantaIfisi no_swap_scr1 rts scr1GAME78 000``xHH8x8p8dd`|3@s@mc~~p8     8""<>< 2 <><A?p`c}}0H0Lp_!=m3~3~?ee`}8p8HH8x``p   00  88DD<  8 @@@@@@9"99AA??  00H0xx x ||$|~<>0@H>0~xp!p?  ``p!p?<8B@<8~x|$|<   ``@ @`txt_stagHkEewaitD_1uH3 pwaitD_2uH7pwaitI_1uH3pICE!<&ϜZC2!"R "3W6&wЇxA]pR?$ (_wr/?@A(+-U-Y\X4Y m9 y}+c-"EUW'm쪨L@&]5DŽ 5/%c{#6c`!;Y(`S"^~E t'nD_vxOUhJa]O w9v/r8$I\ƝPkٌv}^D G͡9 Khx^QQ;q'eOpd\@+eGd= a\+kn4ZicJهw([2v =IDZQ TW{xZ1";l#{yI+1p[0'ޒ6H=9 _/Gu ȯ=AcSCضGD!s̬L7M? ȼ @g_I2* (*[h&3Ujy<PwaW눐i(̖Uoz<Ҭ&뽮A\*- z?f?_h?WlK{xS)4h  ȟ@e xEfif݈:%VU k~D(m-vyֶm@fɿn; 9-6s9~kAY L g.@>Rm)xYoqbHﷹ v *~p߰Q [4f}h^$ߑ^Fu{"6d=W sUߕiM(] 2BwH m'//hmdbpt/]STkIJ _c2pg`g?`\S 0 7`a,_黔tЭ}pniP.rMzKz82)@;_.!lq}Lf @yA8^ T;p)\W o ``舲&AE1{0GXۀtxj`7 ݂|8@\ydR/Lv TsP % ,1UXަle z_1?)YB % ? G5V9L˕5@<J*&, yazcw;ǟ7K*I\?QMB]% طNl!?V!O _ϰ߳J]f x_R8NoxE?!OMgꚣuJX9Me"a . v:߳w ç#kC>dIXlq 1EDyPY>DrTΛ*]κMdI)Aw*X 8h& :@^$ܶ ^UX`  Ȗ'@*UjEY TLW'eEm$4YD$Z?;?3j]wyRQ@7!$?ma#@n_QoB8V%eìZsY "_JȦ *۷ )V}? |](Xy 8h vx6H0tE! t࿙?xMm\+ _\NpMVOD7@g ZضZa 9YIC7e)(D,@`IF>#?_1B6Dw`7⍟SK[irOɎ7U@y/MrI)H#6(MmN[iz-$@,?x,6C h{P_$r][kMrm- 7~A ?+, 4a}?~݊Ơ2|$ּO"< *3 +"pJ}G@8 /M-ɷg/p '?~%'|"6HZ" O_3P'kpm% Zػ`^14[s a8C5JXU @w8n 뷅_PYs ?} HzDW _' ;v#w4?GD3vUB-~ođ2L7&8` O@b:@x!"s峌h:d\?=+! v5  H 5ʇGz13y?̌iH |ESgzc#b>|/s a>~HOa&)P#^3mgF#=%ϑY֊TBG՟8?i<p2=6H #f}_?[GQ ?K`$Q9mp`0 )#?<: U_*QoGҪpAծvf#K62?3Lpl-Y?BqG>K0> <WɊ| |%/+i ~#h/@G`F47,bj)>(a HJtE x|T_ط눉hy@#Z6p ?YĻho.ȳ@FZʹA8YE|$Xg| s+~?/q?@)xE'Zz0 hw/@ LIu}A >MX ? R9 ? &}ſ~R0ق:@cD D9OEE#Ex@"hH _EN:  2r(*H۱XYkWWz^`X|(0$OP`'l#8 p`C.ȞP!fxCW?<+| ]`Pj'\_/ ~W+x0(B@?QD¨= |`^ @D~ Ԩ]vA+WbEJOzvICE!80U 4x@ a?ĸQ@PFYh}~xbw5zebʞ[T/ht252;Űi9 s $b88fG1ͬ(_֬Kْ,tX'T: 7 Cpˆu*m`̼ťbbO1 {,oq. L (fv*ss*j)9L*/_A"|K`:Kgfa@,b<,dDV>7 l} S (95b?J@TXfB|ɬҙ\jAf0XS)YgL=4F*Tk2Sa2wȗfJY31#P a OS@(GKV+p/x X80Vܼ^s łGfL͌!+R 6T(Vܖ#Bhu~xܛPT&薕!\nA+%ɔ"|nz,/gii6ng,6aELso_ Xk;e ~pD;Nt!@y0X0icAŒ$BF!(Ԁ|PPn X,IU)[Ӧ OD;u*&$mm8h B\`B0%D|n` Xl@I[O*@$m# JO?s@{ @ `YP P.? #HH  /  a C(@ A" _gx'_`$ʸFwzI 5_l@/Zd9 ̼+OsmJ$3UorY:2MboqjX@$7O_hf]K4:N\b^Q="1IYa_S@$ 'CVaaVD,7IRSK:$ ):EIE:*,473*#'&  !&($"%"       #'&  #"    $#                jsr vsync clr.b b_vsync len4 move.l #1000,d0 .loop___ nop dbra d0,.loop___ move.l #$70000+2400,a1 move.l #$70000-32000+4640,a0 bsr copy_back move.l #$70000,pantalla jsr print_puntu jsr print_time move.w #$70,panta_fisi move.l #$70000,spr_panta cmp.b #3,num_players beq players32 move.l #0,d0 move.w anim_1up,d0 mulu.w #692,d0 add.l #spr_player1,d0 move.l d0,spr_dirspr move.l #$70000-20000,spr_bground move.w ini_player1,spr_x move.w ini_player1+2,spr_y jsr spr_calcxy jsr spr_imprime players32 move.w #$70,d5 jsr calc_skuis move.l #$70000,a3 jsr calc_boom tst.w pop_pomp_1 beq noprintpomp2 lea spr_exypun,a0 clr.l d0 move.w stak_pomp1,d0 cmp.w #3,d0 beq noprintpomp2 mulu.w #84,d0 add.w d0,a0 addq.w #1,stak_pomp1 cprt_explo2 move.w ini_player1,d0 move.w stak_pomp1,d1 mulu.w #6,d1 cmp.w #3,olddire_1up beq prtiz_pomp2 add.w #32-8,d0 add.w d1,d0 bra prtde_pomp2 prtiz_pomp2 sub.w #4,d0 sub.w d1,d0 prtde_pomp2 move.w d0,spr_x move.w ini_player1+2,d0 add.w #15,d0 move.w d0,spr_y move.l a0,spr_dirspr jsr spr_calcxy jsr spr_imprime noprintpomp2 cmp.b #2,num_players beq no_swap_scr2 cmp.b #3,num_players beq no_swapscr2 move.l #0,ini_player2 jsr put_st move.w #$70,pantaIfisi no_swap_scr2 rts no_swapscr2 move.l #0,ini_player1 rts scr2GAME70 move.w #$78,panta_fisi move.l #$78000,spr_panta move.l #0,d0 move.w anim_2up,d0 mulu.w #692,d0 add.l #spr_player2,d0 move.l d0,spr_dirspr move.w ini_player2,spr_x move.w ini_player2+2,spr_y jsr spr_calcxy jsr spr_imprime tst.w pop_pomp_2 beq noprintpomp4 lea spr_exypun,a0 clr.l d0 move.w stak_pomp2,d0 cmp.w #3,d0 beq noprintpomp4 mulu.w #84,d0 add.w d0,a0 addq.w #1,stak_pomp2 cprt_explo4 move.w ini_player2,d0 move.w stak_pomp2,d1 mulu.w #6,d1 cmp.w #3,olddire_2up beq prtiz_pomp4 add.w #32-8,d0 add.w d1,d0 bra prtde_pomp4 prtiz_pomp4 sub.w #4,d0 sub.w d1,d0 prtde_pomp4 move.w d0,spr_x move.w ini_player2+2,d0 add.w     #15,d0 move.w d0,spr_y move.l a0,spr_dirspr jsr spr_calcxy jsr spr_imprime noprintpomp4 move.w #$78,pantaIfisi jsr put_back rts scr2GAME78 move.w #$70,panta_fisi move.l #$70000,spr_panta move.l #0,d0 move.w anim_2up,d0 mulu.w #692,d0 add.l #spr_player2,d0 move.l d0,spr_dirspr move.l #$70000-20000+JUGADOR+1000,spr_bground move.w ini_player2,spr_x move.w ini_player2+2,spr_y jsr spr_calcxy jsr spr_imprime tst.w pop_pomp_2 beq noprintpomp3 lea spr_exypun,a0 clr.l d0 move.w stak_pomp2,d0 cmp.w #3,d0 beq noprintpomp3 mulu.w #84,d0 add.w d0,a0 addq.w #1,stak_pomp2 cprt_explo3 move.w ini_player2,d0 move.w stak_pomp2,d1 mulu.w #6,d1 cmp.w #3,olddire_2up beq prtiz_pomp3 add.w #32-8,d0 add.w d1,d0 bra prtde_pomp3 prtiz_pomp3 sub.w #4,d0 sub.w d1,d0 prtde_pomp3 move.w d0,spr_x move.w ini_player2+2,d0 add.w #15,d0 move.w d0,spr_y move.l a0,spr_dirspr jsr spr_calcxy jsr spr_imprime noprintpomp3 move.w #$70,pantaIfisi jsr put_st rts ; When the player one is the only... : ctrl_solo tst.b JOY_FIRE beq nofire1 tst.b firelast1 bne setfirelast1 move.b JOY_FIRE,control_p1+9 move.b JOY_FIRE,JOY_MAP+9 move.b #-1,firelast1 bra checkfire2 nofire1 move.b #0,control_p1+9 move.b #0,JOY_MAP+9 move.b #0,firelast1 bra checkfire2 setfirelast1 move.b #0,control_p1+9 move.b #0,JOY_MAP+9 move.b #-1,firelast1 checkfire2 tst.b JOY_FIRE2 beq nofire2 tst.b firelast2 bne setfirelast2 move.b JOY_FIRE2,control_p2+9 move.b JOY_FIRE2,JOY_MAP2+9 move.b #-1,firelast2 bra checkfire3 nofire2 move.b #0,control_p2+9 move.b #0,JOY_MAP2+9 move.b #0,firelast2 bra checkfire3 setfirelast2 move.b #0,control_p2+9 move.b #0,JOY_MAP2+9 move.b #-1,firelast2 checkfire3 tst.w JOY_SBID bne iclearJOYDIR clr.l JOY_MAP clr.l JOY_MAP+4 iclearJOYDIR tst.w JOY_SBID2 bne uclearJOYDIR clr.l JOY_MAP2 clr.l JOY_MAP2+4 uclearJOYDIR bsr NO_KEYS_A1 move.w d0,SBIDF_1UP bsr NO_KEYS_A2 move.w d0,SBIDF_2UP bsr PACK_JOY bsICE!H-8X"f6B<[VZf ^>N % .VC)c""S0=1ැ=2p.$D [xNʋBb3`LCY'c[ N- 6},!֌!   }xfw1bަy%xuu;yۀ̦=(Y5ق%n S `0G긤 ¹j`3ߚ,` qlrĸ4}o+2O 7v}W'Ƶl.?@X!K0P f[q>d @?w}kz5_?c\R'xnMǖI<=98fk2-:<.p}Àƛaź2 ?`n2Di2/ZKC*y3fr+#mDT"(?Aw![[9<5,NX1C;!Ɖ ‹xGX%PUhgts{mvudn28kMV9e.8;Y ]k10w|.,qIզR~L'c6B+6A[-[# -n]pp&0#OEH2"Wrۉ?W:5(Mf_ rk0Eix_Mqhh}9e}ie)f10pVN&{e)29t7?R47% P: \ŹK\Ad wRB y#Acu6c(2'd1qsQ̬ fI%D`!s8:<7P|x@+%FEd$0-/y:}1p ^sR2fRrSp "!6:en}̺,f&L֟0%?`2W WEwMAPc֧2EXc?GxTc?]`=Se25  n&' V0AYpQ bKJXO\$bù!Ƈ y0# a+M Wx:Q*È=R4Y)sv`Zۇ|ߋj2[\@?M. dM6JF$K-AjN`}ЀM ' z @'Y@i8y ]0 ? >o/y%M%Mni2wmfy.Nmǀwd `yvj@8}b2(@<6Y,>T\T># ???0|@ @?0@ p_ @ @x`pp}@`~H? (@p03 >`>x|<<<<|888888># ???0|@ @?0@ p_ r KEYBOARD rts NO_KEYS_A1 move.w JOY_SBID,d0 clr.w JOY_SBID lea JOY_MAP+8,a1 move.l #5,d0 loopdirecCp1 cmp.w #255,(a1) beq finctrl_p1 subq.w #2,a1 subq.w #1,d0 tst.w d0 bne loopdirecCp1 finctrl_p1 rts NO_KEYS_A2 move.w JOY_SBID2,d0 clr.w JOY_SBID2 lea JOY_MAP2+8,a1 move.l #5,d0 loopdirecCp2 cmp.w #255,(a1) beq finctrl_p2 subq.w #2,a1 subq.w #1,d0 tst.w d0 bne loopdirecCp2 finctrl_p2 rts ; Control para dos... please... : ctrl_team bra ctrl_solo ; Responde Joy, no te mueras... !!! : PACK_JOY btst.b #1,$fffffc00 beq PACK_JOY move.b #$16,$fffffc02 rts ; Fuego... fuegooo.. fuego... los bomberos donde estan? : FOR_FIRE btst.b #1,$ffffc00 beq FOR_FIRE move.b #$15,$fffffc02 rts ; Lee y crea mapeado de teclado : KEYBOARD move.l #$fffffc02,a0 cmp.b #153,(a0) beq PAUSA rts PAUSA bsr PAUSALOGO pausaloop cmp.b #57,$fffffc02 bne pausaloop rts ; Imprime logotipo de pausa : PAUSALOGO cmp.l #'INGL',lengua beq pause move.l #mini_pausa,mini_text (/|{P0 ޷x83pS(?a@~py |So' UJM<h zx0 ^4Wax!zx"eMP+ѓ/;B`#*BB~%9b /6sz+Hl0:{ 1pO31 @!?BԿ`[\+@l)c TsDyp"2Ig'=@yQg? 4Z_f@q}RT RO@ /xH!3z(wXDŽ8 $_z~]@ ?  '?BTVc^U  gA ;1O<&w c8` #IJ px@ ?Ja>{+J @<K fS$xpq} G9_Oc>Oa x"@hI XW5?JU>b1pd8?}Fo{'"C#X O | ?`$Q9mp?0 ? U_*Qo pAծv'f#62D?3Lplmove.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #60,spr_x move.w #60,spr_y jsr mini_print rts pause move.l #mini_pause,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #60,spr_x move.w #60,spr_y jsr mini_print rts ; Lee y crea mapeado para JOYSTICK : JOYSTICK movem.l a0-a1/d0-d2,-(sp) move.l #JOY_POS2,a1 read_joy2 clr.w d0 move.b (a0),d0 add.b d0,d0 scs JOY_FIRE2 add.b d0,d0 move.l #0,d1 move.l #0,d2 JOY_LOOP2 cmp.b 0(a1,d2.w),d0  beq SI_JOY2 addq.w #1,d2 addq.w #2,d1 cmp.w #8,d1 beq JOY_ZERO2 bra JOY_LOOP2 SI_JOY2 move.w #255,JOY_SBID2 lea JOY_MAP2,a1 move.l #0,(a1) move.l #0,4(a1) move.w #255,0(a1,d1.w) bra JOY4P1 JOY_ZERO2 move.w #0,JOY_SBID2 JOY4P1 move.l #JOY_POS,a1 read_joy clr.w d0 move.b 1(a0),d0 add.b d0,d0 scs JOY_FIRE add.b d0,d0 move.l #0,d1 move.l #0,d2 JOY_LOOP cmp.b 0(a1,d2.w),d0 beq SI_JOY addq.w #1,d2 addq.w #2,d1 cmp.w #8,d1 beq JOY_ZERO bra JOY_LOOP SI_JOY move.w #255,JOY_SBID lea JOY_MAP,a1 move.l #0,(a1) move.l #0,4(a1) move.w #255,0(a1,d1.w) movem.l (sp)+,a0-a1/d0-d2 rts JOY_ZERO move.w #0,JOY_SBID movem.l (sp)+,a0-a1/d0-d2 rts JOY_POS dc.b %00000100 dc.b %00001000 dc.b %00010000 dc.b %00100000 JOY_FIRE dc.l 0 JOY_SBID dc.l 0 JOY_MAP dc.l 0,0,0,0,0,0,0,0,0,0 JOY_POS2 dc.b %00000100 dc.b %00001000 dc.b %00010000 dc.b %00100000 JOY_FIRE2 dc.l 0 JOY_SBID2 dc.l 0 JOY_MAP2 dc.l 0,0,0,0,0,0,0,0,0,0 ; Pero macho... A donde crees que vas por el borde? : DONDEPI_P1 clr.l d6 move.w ini_player1+2,d0 cmp.w #139,d0 beq pisabienP1 move.l donde_obj,a0 dondepiisP1 cmp.w #999,(a0) beq caealpieP1 cmp.w #1,(a0)+ bne dondepiisP1 move.l a0,a6 sub.w #10,a0 move.w 2(a0),d5 sub.w #43,d5 move.w ini_player1+2,d3 cmp.w d5,d3 bne dondepissP1 cmp.w #15,anim_1up beq caealpieP1 cmp.w #16,anim_1up beq caealpieP1 cmp.w #17,anim_1up beq caealpieP1 move.w ini_player1,d3 add.w #16,d3 move.w (a0),d5 cmp.w d5,d3 bcs pieP1 addq.w #4,a0 move.w (a0),d5 cmp.w d5,d3 bcc pieP1 move.l a6,a0 rts caealpieP1 move.w #$ff,cae2_1up pisabienP1 rts pieP1 cmp.w #999,(a0) beq dondepiisP1 cmp.w #1,(a0)+ beq dondepiisP1 bra pieP1 dondepissP1 move.l a6,a0 bra dondepiisP1 DONDEPI_P2 clr.l d6 move.w ini_player2+2,d0 cmp.w #139,d0 beq pisabienP2 move.l donde_obj,a0 dondepiisP2 cmp.w #999,(a0) beq caealpieP2 cmp.w #1,(a0)+ bne dondepiisP2 move.l a0,a6 sub.w #10,a0 move.w 2(a0),d5 sub.w #43,d5 move.w ini_player2+2,d3 cmp.w d5,d3 bne dondepissP2 cmp.w #15,anim_2up beq caealpieP2 cmp.w #16,anim_2up beq caealpieP2 cmp.w #17,anim_2up beq caealpieP2 move.w ini_player2,d3 add.w #16,d3 move.w (a0),d5 cmp.w d5,d3 bcs pieP2 addq.w #4,a0 move.w (a0),d5 cmp.w d5,d3 bcc pieP2 move.l a6,a0 rts caealpieP2 move.w #$ff,cae2_2up pisabienP2 rts pieP2 cmp.w #999,(a0) beq dondepiisP2 cmp.w #1,(a0)+ beq dondepiisP2 bra pieP2 dondepissP2 move.l a6,a0 bra dondepiisP2 ; ARE YOU CRAZY ??? DO THE POPING PLAYER !!! : poping_p1 move.b popampli,d0 move.b pop_pomp_1,d1 lea SOUND_poping,a0 cmp.b #6,pop_pomp_1 bcs finpoping subq.b #3,pop_pomp_1 subq.b #3,d0 move.b d0,d1 add.b #80,d1 move.b d1,3(a0) move.b d0,7(a0) move.b d0,popampli tst.w csound_boom bne pasapopsnd1 bsr YAMAHA pasapopsnd1 cmp.w #3,olddire_1up bne poping_izp1 move.w #25,anim_1up bra poping_dep1 poping_izp1 move.w #26,anim_1up poping_dep1 bra SALTOSK finpoping move.w #0,shoot_p1 move.w #0,pop_pomp_1 move.w #0,stak_pomp1 bra SALTOSK poping_p2 move.b popampli,d0 move.b pop_pomp_2,d1 lea SOUND_poping,a0 cmp.b #6,pop_pomp_2 bcs finpoping2 subq.b #3,pop_pomp_2 subq.b #3,d0 move.b d0,d1 add.b #80,d1 move.b d1,3(a0) move.b d0,7(a0) move.b d0,popampli tst.w csound_boom bne pasapopsnd2 bsr YAMAHA pasapopsnd2 cmp.w #3,olddire_2up bne poping_izp2 move.w #25,anim_2up bra poping_dep2 poping_izp2 move.w #26,anim_2up poping_dep2 bra SALTO4_1 finpoping2 move.w #0,shoot_p2 move.w #0,pop_pomp_2 move.w #0,stak_pomp2 bra SALTO4_1 ; Imprime Vidas del jugador (1 y 2) : print_lives move.l pantalla,txt_pos move.l pantalla,txt_pos1 move.l #font_8x8,txt_carac move.l #font_8x8,txt_carac1 move.l #txt_time,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_time,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_time,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_time,txt_text jsr imp88 cmp.w #'SI',trick_mode bne no_trick1 move.w #144+65,spr_x move.w #188+3,spr_y move.l #spr_trick,spr_dirspr move.l pantalla,spr_panta jsr spr_calcxy jsr spr_imprime no_trick1 cmp.b #3,num_players beq viiidas2 clr.l d0 move.w #4,d1 move.w #188,d2 move.b vidas_1,d0 subq.b #1,d0 lives1loop movem.l d0-d2,-(sp) move.l pantalla,spr_panta move.w d1,spr_x move.w d2,spr_y move.l #spr_vidas,spr_dirspr jsr spr_calcxy jsr spr_imprime movem.l (sp)2BITAPLAUSOS00SAMPLES CREATED BY MASTERSOUND2 * COPYRIGHTS (C) 1990 F.RAWASI *        #              #     ' # #0        !   */($(!#('    /,+,d0-d2 add.l #16,d1 dbra d0,lives1loop cmp.b #1,num_players bne viiidas2 rts viiidas2 clr.l d0 move.w #272+48-16,d1 move.w #188,d2 move.b vidas_2,d0 subq.b #1,d0 lives2loop movem.l d0-d2,-(sp) move.l pantalla,spr_panta move.w d1,spr_x move.w d2,spr_y move.l #spr_vidas+84,spr_dirspr jsr spr_calcxy jsr spr_imprime movem.l (sp)+,d0-d2 sub.l #16,d1 dbra d0,lives2loop rts ; Cuidado !! Aparecen los SKUISKIES !! : strt_skuis move.w #$78,d5 jsr calc_skuis move.l #1,aparece_x move.l #1,aparece_y move.l #19,aparece_max move.l #$78000+2400,aparece_F move.l #$70000+2400,aparece_D move.l #168,aparece_may jsr APARECE rts ; Deja el fondo de los SKUISKIES : ; A0.l = Pos. datos. ; D5.w = Banco. ; D7.l = Son... dejaf_skuis movem.l d0-d7/a0-a6,-(sp) move.l #$70000-32000+4640,a0 cmp.b #$70,panta_fisi beq dejaf_sku70 move.l #$78000+2400,a1 jsr copy_back bra byedejafonsk dejaf_sku70 move.l #$70000+2400,a1 jsr copy_back byedejafonsk movem.l (sp)+,d0-d7/a0-a6 rts ; Imprime SKUISKIE : ; D0.w = X ; D1.w = Y ; D2.w = No. ; D4.w = Tipo. ; D5.w = Banco. print_skui movem.l d0-d7/a0-a6,-(sp) cmp.w #$70,d5 bne skui_78 move.l #$70000,spr_panta bra skui_pp2 skui_78 move.l #$78000,spr_panta skui_pp2 tst.w d4 bne skui_verde mulu.w #916,d2 move.l #spr_skuis1,a0 bra skui_pp1 skui_verde mulu.w #564,d2 move.l #spr_robot,a0 skui_pp1 add.w d2,a0 move.l a0,spr_dirspr move.w d0,spr_x move.w d1,spr_y jsr spr_calcxy jsr spr_imprime movem.l (sp)+,d0-d7/a0-a6 rts ; Calcula la animacion de los SKUISKIES : ; D5.w => Banco. calc_skuis move.l son_skuis,d7 move.l datos_skuisP,a0 move.l datos_skuisT,a1 calc_skuislp move.w (a0)+,d0 move.w (a0)+,d1 move.w (a0)+,d2 move.w (a0)+,d3 move.w (a1)+,d4 cmp.w #1,d3 beq calcMskuis jsr print_skui calcMskuis dbra d7,calc_skuislp rts ; Imprime explosion de los SKUISKIES e imprime puntuacion volante : ; En a3.l entra la pantalla fisica actual. calc_boom lea csound_boom,a0 lea SOUND_ICE!',ZC2!"Rr"3W6&w>/ ,@ҴH }zn{H0v !=}O.p%peޭ#k+,ΙaYg U \@#D.nx2x:e!Xa)BֻPh j}@+C4"D[|p`Bc< >.|I,?0*Z͘Eџ嶾"߾gހuz Io?_*" @ߎX1q /Chv 8Z̵߽%f? ohg3nkl>gZ`,@]Ƒ#Wu0WL+dXt9 |'ѐQ! A r I^NfV0=G5ߦ?Nw }l]d?21ؚ 1Y?~Xuw3(/|H ?ve>i ]{X2,ZE(5W E'+LvC}F;`8ϯ0=Y9LBR 8ե[XW0gOݮCclYhju9>r PBW4jʂЙeF 8 &̍- ox $Ie8z9zYxmM6\ۻInw9Hxt  !_ܴߺWӿX|͊` h`w@T{CapcA( Ne`[ + S/+3\iP0ݍ@ܫ^S~yٮ lK#1!7h|}  pG@a3Skd_@f~Jƌ[kpg~B] S7q=K1oz-3r1CÈdߞ@0PN)6G)p o\~O& 6p B q=;ZhZ|"ð GdG~Mt0J=b?m~e?i4ݿ & xRFn_ #?$~B\30 ͞&Xpvp   py: ^C/2]P,uVi{yP,޺Ub.ݼA X\= 1/6NC~W{ lw:)7!d. gB%\ IG f~532KJ$ =`_ؼ m蹞2CmoCa:t2z:DF$ j?}0  _=3%BrGnO?϶v# }D`Ի |?~,4o4,!}"* 1o@™cFK# _Ң%F?s# ]=~X/Vk%f}0`3i_:@x.q;3ۼ>xW:d~fAAY䟄*0;RI<Y \E8`{a2 "]fUlqL0JAc;yq/oX̷ CS;aָYCZ}f>" )G2}loN΄USVoƠPھ fΆl`۝Bprx[y(s[lhwTgċ  . @ Jzlgyކr}Ԏ~c 8%<8P bP. orfs4g<`U9T7pձ_m2Ϩ%4 bR1߿<ޫ4xAto&2ϻwciD5f߳0`'G8Nm˙ )2}XpZ{]P`e a |<*D}lBg@kҭZB&ȿ߶쮁4@1>`X7ֿ pPIBl{`Fvy pc YA}I?j;kMlD s7g`َT%X`A/O1G6,͠8y3]_T}Y}0q[VolB̚pnQCV0k{27-zպߖ2g:joਇo\0YKg}؝\+s}g[j-j]&fYB)'@hDr?!s]xK;ݓa].q _A~%Y 7 dj`a`UJ>iD[E?Zf1jp/_@{^<q (Ѐ!2F q!3@B z*}= @ f.mX P5oYo"f @K0sdVoe'}߾&f(g78` R6ȏXonNFeLuVri +f3_j=w~ /mCN~CXd6n 5VQנT`= l&[etpܕIVe~ b-tLK^* ӯ],YYq z,pfA1#-뎷,`"H3˱g5re2iV p4Cl Npf'\d-%  y+rL0;2*UVȭײ"xFљbkU<3 ]wxox3"N`&`Z%K2s _-V߱FJ.b\70yp' 4Y!ȁ >0LIIh,; ^ |0q?z+Z| @+Lj 5p_8/v0xqCxšEfjT/U^L,0ꃹ Vmm]G+e,H!`-6gY 2F,n%`=2h)}l@ɊNNhjX$l* ~"XFnY?%?WTf 4y[Jv])V۬jD,j݆wb$ldXDl0dIaş{wӿl6؆#  =ś4QY5, a<ϗ':\kD(?i똻+ɹF`P ~ 2 ͻ5|sH?Tp܈\+/ V4 "@f;,!ꟲ'+?. Zt,8\n=ﻎ5`u+0)0 8NVrk r1"B_% kIRh+Z= _8um% Yi+ZI:h)֜OZjb+P|pH X/a߳z X z1;o YtsBY{$X-4qKDaS+M }aoWxX<{8 Lר)in \?l> w9Vtj)2_@~ ?9q z__$-,@>&r2;kX*[W 2 HWsr,y DOܮB7 AE|86c7 ݿϝ7E߀pN+\Y%0OCn߂F_# Fl@Gza,O#c>1&ȏ2+  ?~57|B&Г.Io.ӝJwLEFxP!uXwB mO.C& \@PM[2[U7۹uXo uCp &#` x)u cLVKh߻|x)>-D aSJ?%PoĄ.Y=cp =3Y&8[e%6?uWȒ߷ZVW _x ࿀U39  y$2؃5~Ms7@?l),H?6=)CEzK &=P/&At6N||O"w 3?$15 ٹSff*L=O0gh xaMz,{^AjU{Lp@_rh~<# ? oА :,5y,<,d^ |$'| Po3t=|x3h b` 81 Aw+Oe!z[pzH TV>ƂI70,@p l!B>Bbɲ_ӯ/E6ߋ7 (:A?,JփS>e%wߢ} Sf2 ~WN`]?coi`${1T_itÑB=b> Ę^~AG .xoCg X3$3fo7ˣzC[f08>G?l.VD;h?;v?wPcy5f@DCc8?C/Q_C;Qy&!, H4qF@ ڜ  x<4qu֭D #Cu\V _a&h6?3E*& i .pb4H? E"z*Ca;DlF?$O n_N8 |,hQ!dJb"/3"+`8"3`W GUO'q?F#"xbDH0PQ ?l ptCW]PHaE;Rt2Dx"8AПB ?C{E~N|q ??) ^DxA p0C߂ aO>1&  ~5|oExPwB .> ۹o Cp@` ߻|x> D @ocp 3? 8u߷ _x 3? ~ICE!Y̆'uVFd .wȼ @]R+cw0&$n{zͮrr'8*Xb4. 3qa5.ACp'qn㶓8W)~[JJ0]~Eja+Kuȝw:sޤQ{3#!ne\p%ya/?ϧߌ A0UP( D\K)9W%ʜȜ}`U12/ Wgpcx%8x^~ @.q<n<$އ SðK us;½H[ #-NmՌdf, VFݼ{9x/ .z7]8GUńOwo Z,xp\\Av l5# 2K@]?3έ2{+#\#W'+f/ 3pYstr}Ck^%.ayu0kt|(o!4#gU沺 G)z38PEz=ewVX̩hY+;? 4$"' ( *#/"+:"0:-!;/ڠH.- 2D#LF&6" 2A)*ζOYȚ  E* _=ꐏ($ S9 7 `!4Խ5 2  4*HrE,. /([Z,-  Ȱ'Q> թV5W㯬;#$ F6 !- ;-ڹC/  'QA&ِ4UI1 $ (/ ȧQI ٻ H`(џ)ݛ9+35,&>կ:mV ԩS8"F WHZ7; O Ƞ-j'Y KHsDЀ Oz@ꔈ FE5T9'78+0,9 У+gB^ F//=v`  < vH3A3H1=تgPవ;:]<+47/"<"'48%>:A!%?@ķmP' '9&5ʶKR$ ڿе/YW4 }@@QZ8 Ҡ$ '2'&0%''ȫK0_8젗!/L)_` *G ᙷT8I(0 )@1!) #EPH ԩJ*'<)@Ⱦ'<  2*T,?P г=d2踕$ 3B! ,>0EEI' #?P( ;ZS$Ȁx4 2Ĺ3 # ʪ;y-E  'kh08  -* "_b(%?=:&7BȢQ$+ ?D$̘]K5 ̕7oQ- '?B"-"1A G8  "8;&69.B<# M * 4'A1(4$;1$ 3 %3 /%  *=]DGD ڸ.7Z"쪹E4 1 78 ͱE@(بgp 2 ("! Ĩ18 97 5*0" MJ QLH׼O,!3ij-D,)f"̥7~Z/H9㰤6E3$*9(**?ZULؤ3cDОSW81<5$kH3:%AG/_L$ Ŵ%YXؘGD+@ ?Z< ?, #칵'G*5 $ݲ%?0 "ܬ%k %ͦMU0-L( '-.䮹iA .Q8%=(з.D ,<?H$̻]  격gq$=<.1=4" #ZUGz0Ѐ']ģ +=#&/M * ,%kHDU_"l@'o0 4@DШ%ε'շ-^/ &#GL'eE% %IDK/B,O@#WX 7`Ȧ E@K@!2"+(?oA*F 50 44"/1 ݸboom,a1 tst.w (a0) beq noboomsound move.w (a0),d0 move.b d0,3(a1) move.l a1,a0 bsr YAMAHA sub.w #3,csound_boom tst.w csound_boom bne noboomsound move.w #0,csound_boom lea ssound_boom,a0 bsr YAMAHA noboomsound move.l son_skuis,d0 move.l #posi_boom,a0 move.l #datos_boom,a1 move.l datos_skuisT,a2 calc_boomlop tst.w (a1)+ beq noboom1 cmp.w #320-28,(a0) bcc noboom2 move.w (a0),spr_x move.w 4(a0),spr_y move.l #spr_exypun+816,spr_dirspr move.l a3,spr_panta movem.l a0-a6/d0-d7,-(sp) jsr spr_calcxy jsr spr_imprime movem.l (sp)+,a0-a6/d0-d7 noboom2 tst.w 2(a0) bcs noboom3 move.w 2(a0),spr_x move.w 4(a0),spr_y move.l #spr_exypun+252,spr_dirspr move.l a3,spr_panta movem.l a0-a6/d0-d7,-(sp) jsr spr_calcxy jsr spr_imprime movem.l (sp)+,a0-a6/d0-d7 noboom3 move.w 6(a0),spr_x move.w 4(a0),spr_y tst.w (a2)+ bne noboom4 move.l #spr_exypun+1380,spr_dirspr bra noboom5 noboom4 move.l #spr_exypun+1424,spr_dirspr noboom5 move.l a3,spr_panta movem.l a0-a6/d0-d7,-(sp) jsr spr_calcxy jsr spr_imprime movem.l (sp)+,a0-a6/d0-d7 add.l #8,a0 dbra d0,calc_boomlop rts noboom1 add.l #2,a2 add.l #8,a0 dbra d0,calc_boomlop rts ; Reinicializa los SKUISKIES : reset_skuis move.l son_skuis,d7 move.l datos_skuisP,a0 reset_skuisl addq.l #6,a0 clr.w (a0)+ dbra d7,reset_skuisl move.l son_skuis,d7 move.l datos_skuisT,a0 move.l #datos_colis,a1 move.l #datos_boom,a2 reset_skuisj clr.w (a2)+ cmp.w #0,(a0) beq reset_sk1 cmp.w #1,(a0) beq reset_jo1 reset_conti1 cmp.w #999,(a0)+ bne reset_skuisj rts reset_sk1 move.w #3,(a1)+ bra reset_conti1 reset_jo1 move.w #4,(a1)+ bra reset_conti1 ; SKUISKIES preparados para correr : reset_corre move.l son_skuis,d7 move.l datos_skuisP,a0 reset_corre1 addq.l #4,a0 cmp.w #8,(a0) bne corre_iz move.w #0,(a0) addq.l #4,a0 dbra d7,reset_corre1 rts corre_iz move.w #4,(a0) addq.l #4,a0 dbra d7,reset_corre1 rts ; Resetea el chip de sonido : RESET_YAMAHA lea $ffff8800,a0 move.b #0,(a0) move.b #0,2(a0) move.b #1,(a0) move.b #0,2(a0) move.b #2,(a0) move.b #0,2(a0) move.b #3,(a0) move.b #0,2(a0) move.b #4,(a0) move.b #0,2(a0) move.b #5,(a0) move.b #0,2(a0) move.b #7,(a0) move.b #$ff,2(a0) move.b #8,(a0) move.b #0,2(a0) move.b #9,(a0) move.b #0,2(a0) move.b #10,(a0) move.b #0,2(a0) rts ; Lee sonido mediante A0.l = X.b y pasa a datos YAMAHA : YAMAHA cmp.b #255,(a0) bne PUT_YAMAHA rts PUT_YAMAHA move.b (a0)+,$ffff8800 move.b (a0)+,$ffff8802 bra YAMAHA ; AAAAAAGGGGGHHHH! Me han dado, crei que era inmune !!!! : MUERE1 lea SOUNDninsku,a0 bsr YAMAHA lea colorfuera,a0 move.w #82,10(a0) move.w #$46,24(a0) clr.l die1count bsr ini_rieSK die1loop move.l #50000,d7 die1looop move.l d7,d7 dbra d7,die1looop bsr check_boom bsr anima_rie lea die1patron,a0 addq.w #2,die1count move.w die1count,d0 add.w d0,a0 cmp.w #999,(a0) beq findie1loop move.w (a0),anim_1up cmp.w #$70,pantaIfisi bne die1SALTO5 jsr scr1GAME70 bra die1SALTO6 die1SALTO5 jsr scr1GAME78 die1SALTO6 cmp.b #2,num_players bne die1loop cmp.w #$70,pantaIfisi bne die1SALTO8 jsr scr2GAME70 bra die1loop die1SALTO8 jsr scr2GAME78 bra die1loop findie1loop lea vidas_1,a0 subq.b #1,(a0) tst.b (a0) beq GAME_OVER_P1 move.b #255,con_barrido move.l #3,fvelo jsr fu_out move.w #$70,pantaIfisi jsr put_st jsr clear_70v move.l saltofase,a0 jmp (a0) MUERE2 lea SOUNDninsku,a0 bsr YAMAHA lea colorfuera,a0 move.w #82,10(a0) move.w #$46,24(a0) clr.l die2count bsr ini_rieSK die2loop move.l #50000,d7 die2looop move.l d7,d7 dbra d7,die2looop bsr check_boom bsr anima_rie lea die2patron,a0 addq.w #2,die2count move.w die2count,d0 add.w d0,a0 cmp.w #999,(a0) beq findie2loop move.w (a0),anim_2up cmp.w #$70,pantaIfisi bne die2SALTO5 jsr scr1GAME70 bra die2SALTO6 die2SALTO5 jsr scr1GAME78 die2SALTO6 cmp.b #3,num_players beq die3eloop cmp.b #2,num_players bne die2loop die3eloop cmp.w #pzFデ;  6s  >a08テ  >!' ?/; >0^ ?0   p|*| ?ws8P `||1ca00݃@  `@ 0 @@0 @` @ @  |Dx co`߀ ;ߟ |σx co`߀ ߟ 6"l 㐜`  C 6wnp߀ ;ߘG >"l 㐞` ㌄ 6cl0` G >>l  >np  >6l  ㌄ 6l0  ͆ |*x wo翀  |  /x coݟg vG @   @@`   @@| À ߘ`l78|y0? O"  q͜l7l010! r ߘ͜7lp98s O qϞl7|8q0! op q͜l7lp10a M Ϙ&|10! Ovq8s N  {ϙ'|810! l  {610a  |x@ |1>? sϾ~ ` ng|1>?@0@p3 |>0sߏw |? a~ߏg  c pߎXw  xc  0|g aD `Asp` aD pC a0`a |>`a~ |? a~   @@@`CP `q >~o8᳿>~o?!mBg:2>~_:7 ~?@< ~w>0?o~q>>0  ?~t?Ϧ|,< |w<|pw ϟ@! (> p!>/c?G@~X\߇>WG8|>pG~o80+F:3d@X ?ϣ8?88 QAP>p8/>= ++P 0`x )/?? 0 p $70,pantaIfisi bne die2SALTO8 jsr scr2GAME70 bra die2loop die2SALTO8 jsr scr2GAME78 bra die2loop findie2loop lea vidas_2,a0 subq.b #1,(a0) tst.b (a0) beq GAME_OVER_P2 move.b #255,con_barrido move.l #3,fvelo jsr fu_out move.w #$70,pantaIfisi jsr put_st jsr clear_70v move.l saltofase,a0 jmp (a0) MUERETIME jsr print_time lea colorfuera,a0 move.w #82,10(a0) move.w #$46,24(a0) move.l pantalla,txt_pos move.l pantalla,txt_pos1 move.l #font_8x8,txt_carac move.l #font_8x8,txt_carac1 move.l #timeover1,txt_text jsr imp88 move.l #timeover2,txt_text jsr imp88 move.l #timeover3,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #timeover1,txt_text jsr imp88 move.l #timeover2,txt_text jsr imp88 move.l #timeover3,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #timeover1,txt_text jsr imp88 move.l #timeover2,txt_text jsr imp88 move.l #timeover3,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #timeover1,txt_text jsr imp88 move.l #timeover2,txt_text jsr imp88 move.l #timeover3,txt_text jsr imp88 move.l #100,d0 jsr b_espera cmp.b #3,num_players beq timeup2 lea vidas_1,a0 subq.b #1,(a0) tst.b (a0) beq GAME_OVER_P1 timeup2 cmp.b #1,num_players beq timeup1 lea vidas_2,a0 subq.b #1,(a0) tst.b (a0) beq GAME_OVER_P2 timeup1 move.b #255,con_barrido move.l #3,fvelo jsr fu_out move.w #$70,pantaIfisi jsr put_st jsr clear_70v move.l saltofase,a0 jmp (a0) ; Rutina GAME OVER : GAME_OVER_P1 move.b #255,con_barrido move.l #3,fvelo jsr fu_out move.w #$70,pantaIfisi move.l #$70000,pantalla jsr put_st jsr clear_70v bsr impgameover1 move.l #2,d0 jsr b_espera move.l #a_fase1+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in move.l #100,d0 jsr b_espera move.l #3,fvelo jsr fu_out jsr clear_70v jsr put_st move.l #$70000,pantalla cmp.b #2,num_players bne MENU_p move.b ,c@ 5`eT'2 !P+l93 娿B<  !䧿?QPA(ҳԥ)D"7YU?"ଦCI@`P#ETݸ'iJ/LM ͢-#_ !4AH =p@(ƿŷ?h _8 /96/0 6Y4*' 'B4ͬ,7xE ַ )??07N,ؠ 4:X0EHMB#2荟=;@ں=CQ {8Sn(<  '4$¨;E@OSE,7cZ?PM2ؠs|45wbحش?D8ɻ'I3 34%*28989?C ο?@CU$%tCVL4aJ ֞. )Aп7iPA&;*SnH0*<#'@в!6K%:C5:) R\7ج?L"8g4ؤC " ஻SJ" YLK00 <68»O@ܯ?_壡3X º0*H䂣-H;1 G)ȡ_rJVe.'B #8'cZ*ਣ";* "",ЧO, >2 JV?UFѲWH+%4J$Ծ;0+!گ& '?D)='$00. ": %"3ʥ?V34Џ4,+0 #3,num_players move.l saltofase,a0 jmp (a0) GAME_OVER_P2 move.b #255,con_barrido move.l #3,fvelo jsr fu_out move.w #$70,pantaIfisi move.l #$70000,pantalla jsr put_st jsr clear_70v bsr impgameover2 move.l #2,d0 jsr b_espera move.l #a_fase1+2,a0 move.l #ffuente2+32,a1 movem.l (a0)+,d0-d7 movem.l d0-d7,-(a1) move.w #2,fvelo2 jsr fun_in move.l #100,d0 jsr b_espera move.l #3,fvelo jsr fu_out jsr clear_70v jsr put_st move.l #$70000,pantalla cmp.b #3,num_players beq MENU_p move.b #1,num_players move.l saltofase,a0 jmp (a0) ; Imprime letrero de GAME OVER PLAYER #. : impgameover1 move.l pantalla,txt_pos move.l pantalla,txt_pos1 move.l #font_8x8,txt_carac move.l #font_8x8,txt_carac1 cmp.l #'INGL',lengua beq p_over1 move.l #txt_over1,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_over1,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_over1,txt_text jsr imp88 addq.l #2,txt_pos addq.l #@*Z0!+od7V0ULܤ5?(؞_fTKa1GX8+M4O<#7@߸9\ "GP,ȐD ܰ#_L(ݴ'Bd$Ȁ?km`KS@臿 OL"#@Į50 =h '%MT 4;t@ & 85?C/Rgb #WX¾*9ʖ ;M< #=E:𘣛M_(/2)CJUlFȘ!-9%(7V5ا/.Т< ]0ĨGd6I{``ܠW=266;P)("$OP(̧;Ce* E8츬0'& ȴV0ļ+gX4蠧7?.+-=@7>Wf ?8@_yJ;$ܘ ?-%cR( X0:KQ0Ъ?,Y/3%ղD/Z Ј?`4' !#KX$02 QT#/Kջ/D4 ( *BԾ:ijCC6+Cb(6Xk`ܠ~|0*gd?EЭ32[wDûб!8:Y4>h#6iTբ/F[8.Y<ԴK`G-@!D! 3DD15)@!洸W\8 gd"Ф";(?T: 8##2,txt_pos1 move.l #txt_over1,txt_text jsr imp88 rts p_over1 move.l #txt_iover1,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_iover1,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_iover1,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_iover1,txt_text jsr imp88 rts impgameover2 move.l pantalla,txt_pos move.l pantalla,txt_pos1 move.l #font_8x8,txt_carac move.l #font_8x8,txt_carac1 cmp.l #'INGL',lengua beq p_over2 move.l #txt_over2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_over2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_over2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_over2,txt_text jsr imp88 rts p_over2 move.l #txt_iover2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_iover2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_iover2,txt_text jsr imp88 addq.l #2,txt_pos addq.l #2,txt_pos1 move.l #txt_iover2,txt_text jsr imp88 rts ; Restaura graficos antes de el regreso al menu : MENU_p jsr RESET_YAMAHA jsr nointermarca jsr cls cmp.l #' UNO',num_fase beq nocargagrp jsr color777 move.l #nom0,a6 move.l #$70000-32000,a5 move.l long0,d3 jsr load move.l #$70000-32000,a0 move.l #spr_robot,a1 jsr ICE nocargagrp move.l #' UNO',num_fase jmp MENU ; Skuiskies :-"Ja!,Ja!,Ja!, Gi*******s!, te hemos dado!."- ini_rieSK movem.l d0-d7/a0-a6,-(sp) move.l datos_skuisP,a0 move.l son_skuis,d0 move.l datos_skuisT,a1 move.w ini_player1,d6 ini_rieloop cmp.w (a0),d6 bcs masmitadrie nomasrie move.w #12,4(a0) nomasrie2 addq.w #8,a0 addq.w #2,a1 dbra d0,ini_rieloop movem.l (sp)+,d0-d7/a0-a6 rts masmitadrie cmp.w #1,(a1) beq nomasrie move.w #14,4(a0) bra nomasrie2 ; Anima a los SKUISKIES cuando se rien (si seran ca*****s!) : anima_rie movem.l d0-d7/a0-a6,-(sp) move.l datos_skuisP,a0 move.l son_skuis,d0 anima_rielop cmp.w #12,4(a0) beq trecerie cmp.w #13,4(a0) beq docerie cmp.w #14,4(a0) beq quincerie cmp.w #15,4(a0) beq catorcerie animafinrie addq.w #8,a0 dbra d0,anima_rielop movem.l (sp)+,d0-d7/a0-a6 rts trecerie move.w #13,4(a0) bra animafinrie docerie move.w #12,4(a0) bra animafinrie quincerie move.w #15,4(a0) bra animafinrie catorcerie move.w #14,4(a0) bra animafinrie ; HA!!!, HA!!!, HA!!!, que ca***n soy, me los he fo****o a todos !!! : DIE_YEAH lea colorfuera,a0 move.w #82,10(a0) move.w #$46,24(a0) move.l #20,d0 move.w #22,anim_1up move.w #22,anim_2up yeahboom move.l d0,-(sp) cmp.w #$70,pantaIfisi bne yeahSALTO5 jsr scr1GAME70 bra yeahSALTO6 yeahSALTO5 jsr scr1GAME78 yeahSALTO6 cmp.b #3,num_players beq ysigame4_2 cmp.b #2,num_players bne proimp_bonus ysigame4_2 cmp.w #$70,pantaIfisi bne yeahSALTO8 jsr scr2GAME70 bra proimp_bonus yeahSALTO8 jsr scr2GAME78 proimp_bonus bsr check_boom move.l (sp)+,d0 dbra d0,yeahboom ; Imprime BONUS por pasar el nivel : imp_bonus bsr bonuspunt cmp.l #'INGL',lengua beq bonus move.l #mini_bonos1,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #100-4,spr_x move.w #55,spr_y jsr mini_print move.l #mini_bonos2,mini_text move.w #100,spr_x move.w #70,spr_y jsr mini_print move.l #mini_bonos3,mini_text move.w #100,spr_x move.w #78,spr_y jsr mini_print move.l #mini_bonos4,mini_text move.w #100-8,spr_x move.w #95,spr_y jsr mini_print bra bonusound bonus move.l #mini_bonus1,mini_text move.l #mini_font,mini_carac move.l pantalla,spr_panta move.w #100-4,spr_x move.w #55,spr_y jsr mini_print move.l #mini_bonus2,mini_text move.w #100,spr_x move.w #70,spr_y jsr mini_print move.l #mini_bonus3,mini_text move.w #100,spr_x move.w #78,spr_y jsr mini_print move.l #mini_bonus4,mini_text move.w #100,spr_x move.w #95,spr_y jsr mini_print bra bonusound ; Suma los puntos extras por pasar de fase : bonuspunt cmp.b #3,num_pla2Ҩ?B/:#:G ̻&'CP*/L)4%%_T#KN, . /[E _\5%[: ĕW@ة*=Zڶ6E.؊7`$;H;0C>G%5DJUȠ}@؀A7C@䮳 '!` ܿ e0 (#/0+]X葞;~ 'Ȳ,%o|3*.,+Y4(C&穓5[R  "-=inH,ڐlH9ȜKjBΰ7y4W` Ѐ% [lBڀP'UyXȀ/r@討'=sa#! 0ȠWL* A [?$,]L42" ?j$ %W)K0 3@1;mXİ;B1Ol8Ȯ;Z 83U 5 · /U!)!I<% ̗j@ %2<(oL6쀀GgNܷ `Eȳ&[+PJ᰽/_T Ȳ?p$ ͮH"KJĤ_`6?e;5˨-4Op ;Spȴ7jj[T%ఖ}rR؈''8+bD,؞Sip@̆?yd$ 9CH܄38  N'*/R8 ?w|L𰀀;}LȈ|H؋3?4"N8@5(_X̠/St`'. ; /X,ICE!!<`ZC2!"Ro("3W6&w? jnS:c `:RKYn~+jF ۚ0@T֚32uաOD.p`:l##2ξCs`3`fˢu97a3x3nA1gr&d kB20.5kVD\kCe)x5nү~7X A/x Dp|, w!n"/p|Ν,ˍ?ff)Z0v pK1~̆?1xx"̖7pxÀr~c f9|R(Cq^Ź,< ~y;J6`hsH0>80`R(Rzf0ii {>8À [' < 0`:}"%@q'R4Ys t#)̲2@<y("C<`_b`="#` @CXj1q` r-?)N\gȬ#!'py fh!:BN$cM Zfق< 8c`ܾ@5f01Z7'`g88p8Հ`VGf@bIT TR&Bt`.ˀv 53F4 a rJ`@ 3nА   p`%Y? _Q!K `nIxdyHb̿xh9RZa;0H[@gw Yms=YO f``،F:3D {`icn#p @E`atlS.q(N8a @}AE-0S?*c.A`-FVׁQP1Zw 8Y85#xXdFZ# d@y&v(r 3@f#R`N@x&a 0^j\0/x%| Ϙ,O P  À<Vk"N fs'c)x!p'0v s&aUO 8||Up<>0 xq-dnpmxf0ᬐ w~3}(V1Kg}*=3;(8DX}hE$>N} y#HZ$/98$MFLW5xp4;  3E `+#& z%rEBBeAݕ\#u ]?$W @mb0X9pGo. ![4LA~|.B̐G?v;q81,8vXC珋6@xW}aӈyP0G ~Y5Fx@awD $@9ڥ$KXrJ|:Z @^0:l@`/8g%%+A7~qx060ÀyeYhRL7gr!0 4F8GJr%~3Ƒ ݿ%| ؅,<,F~#[w*0XyTcG~WdFbq9B|-8 v")հ/V#+qլ'Gڐ5w;%ρ(f-"U<,d ?#b 2~ x؃CbpWc{ap߃}#ѽYuPN `?ZE6Q: T wߒ6@vg}*d 에ȧ7o= x·EUQXVg=-E*  $~B-/CgJKfH.܎º0OB\<8Rl|QzpWSaHad/VR_q hE٦ :E B Оv; &%迶I[WVs׃=G~_1L5wR |H"{Zq€swv}bÔfi9<R@S@YA_D\#3EvȹE|F> ԃ+O(=8 KIkGGzpQDNN U_x]a|/ ]f5AȬ`< ~%->>d {rYJтg,#8K]S5kC,yDu9 /N~ nDoDH"pxm+ /1hub$'{1u0"@Wb _ "CeO \=̀oY@x]ہ@ 6@Aecf 3- ,c_Swa=aE|M b?˟HFxځ@,dX0.#YH> w4 p,,2 E@'#0mr />Ϡs$ 'v1t[QHX;GbML08 PxH\G{ׇ #!Ābx` RȰPDQ@Bap1#xeQE &2?QK1LL?2 Dx8 Ȱ!?sP^iOL 9~S[s9鬌%h&Hz6|zvC јx8+ݲUW}Y 4 _ pЪzlL# G57_\/X=t%L*vd-m_NcA!0 2)t1px78uLT^!>rcR JvJ/Wׇ cё,9\N0)'ìt~ ݪſuS1nײ?-gb kx rC0+#([f@P6uL @T}U r }pNpO0- f*Z_D~!}*# m ~s`P^,d$(p`\3&&cxqaX|pq%zq+?R ,cUjX(6㿁K`\&ٽ&1HRt2c>/Pp 7 ֲ^ ,# _ ߺ\?B <] }ԪI_/0?$م]&$$%00D~Y. һa.6>' (Z0A? Xb iئ-u#)*V]ͮ@cMXc_$y'p ~t.;~q 6-!1Pc#CZHaAE_eN`?_6&J7*SNW0"}H!l А-[8?_H@ ~E yڅK`w=A_Bc{MȓGx1艪|ƮϕRV?'~٘iRnn1Ѐ ߁8nH9se&S{ag,{룟w4wS*̳Ȍ x@+~rǟ%0*#s/'^* *;_0?p&H</| ;R@elLA`_)H"H1XwqŪܶྊ*a- ᳾>pL?bX jw2&IaBr v)Tlu< ><@)=k ?# <s vLx)#$@@,+,E(ioYG-Hƍ oM$$HU}gt$  T{_  Psp>~ (@ *'PQp,H?#je5$`~ùb]فXm-?|xHH~)r\ Ec62K$|WXm*'d@G`+'܂A@xLbgvLoL2̊'=Tğ&p5,8o(/}Lv`+ɬ"H]B8fQDt('?B0+A>KZG_'.i?{Ed2,X@(͏ R>3Y's0x@"-"1?(?"'Cu ܎p?+ L@ j:2&u@E[w`z"x91_b^C]>; ?N?_%Jb*#֑8#c#~71``c20sf̀T~r tTMe' .BEq *gVR I`H(d4'<|?t~p OsU?~pObV[LEñ&Q@ e+"zUr(~,1Aywdydnu%U1/,0)#kv G0? a?fV 'o}0ʃ3o ]hUVd E{rXX0jB HB#f<'ӊmְ2|#sO'NRf{V fIX m9p: 5H0C~PVF;NI`̠٩H=E,"zo(\;r'zaUHl WV Q0=|QvPU*ʬXà=,}sgDyZ)z٢D3' V2GU`~ȦXГ@Ȅ-hUBq;zHŋPCӨQ䢴H%,JF&C@NȖla7%Sgam 0*;*3>P>aZ TpOAJ;# $W@P0JYׇ(l [^B`Fg>kD#`"J,BaMVV)ad꪿]!AUT:I+WlUAUR R4T„<Bb"P0j,>Ha U )h°d 'zԋXDY& paŠ 0a(]x*QA_*bvr-f!2/[8qJXhG*_X*"/\*$2 ] E2aW!?JۄB0C/ G6W$u$k"aj2a $I.vK5P!Rm$Nw n/'e0i^7$<xW$7I@\d(>ȍ^%p%'Jp "IIr \ "[djH?'Pl N! v8 .ǁ ?>? "!#CT* T2 :دU@*U@:_ r /_UP'uWVs@UP'_UR@ wx |HPx UPUP'uUR@@ꪸUP'D_|F TPx uUPUP'U_UP' ] TPx g'uUPgUP]S UP'_ /u /N #DPx 'uUPuEP'_S0u0 EP'?_WF 䦡KT'kDƼ&27((,̽ N""'sT;gJĺ8 W Wp(ܙ-@ -!ԩKZ,1$ڸg\$ʡ#%3L7ȅ7[ӡ9D4--@_Xث;L6   ?V :4ѿ YA,38-> krH耀ON'쬥 #&C0ЄgX$%'PZPJ͘<?$ Kj2ͰVZ(#<Є?*+_X,;(#W(ж.*,&᥵J0ܷGR$0/P+R/ 'ba3շYLW]@耗I4( Ĕ1IXgq(̀MB 5d0Gse([@!-;@¾-MoHKvX-ว;H<7+"=(СGe9ʽ..?4Ժ )J0ؼgp5 ;V638e`ݶ;h5ґkj&%/?wb8򸳵%(* X60Ը#Kb?1Ԭ/+h:?d8̾=9.BJ%VE, *@?$=:32 =@ Gob@؀^tPGqp@Ѐ?_x,W~L մOi-/0 7Hʒohܿ6޽Gd訯) 19 + ;eR2)Sb gz4#FC#J"?gVDKR#$)NKFĸY0Ēgq@E42'6L"A wP?&( AeFž'?K0 7)B ?SD(U0KY4%1' /9`F(/^:Or8# f/g[ت)?D<*˔ol ț +"țXY =,5TԵ'm#gh>#SX祌H4B-G`aԏ>{ f~GЛ* .6+I`d7 Ѣ J8#.=c2L[2򺨵 TzFʌ=?E5»7Z7iC&6 c#"[q<ϖ0)B0#B5+$8:R#֬FSUYn&Y0ّ %PNJmEђ68N]H򓒸"#P:7HD 5MD #'I+  1CE )F״R<޼AO!KQ幯)'+I QhN)>O)4U/))9Q>F "9EP/cR# 붩#09?"Μ(YU2 ?L$!#  ((11 #20?5, ո)S+D6 )1ܵ$2' 3!2-@/ EG ַ.$  )C$3&-"ͧ'W%5ӫ8. !%,O! "  #E$޲=YF޹;= !ޫ"+  #Ƶ?H#پJS&忾* *' 2"/ 8%#;/ )8 /A ݼ@*8  S9(RO $0# !,6=&3I=$ΰ$ 6K-䰱 %+C"ޱ #B5(㹻!E+%')4 *7$1F/ 9 6B -?%/1A6$57F!G$(  - # &/## E68+( %3' B #' 0:)  7)  (" -- %   <)!"+#%.  (" (   ,    *% "! "   +$' .)  ! ( (      "$      $ #                                              J  &$        d   *                                                                                               H                  ld13 dc.l 0 old1b dc.l 0 old21 dc.l 0 dir_joy dc.l 0 lengua dc.b 'INGL' dc.b ' Este programa es 100% codigo maquina !!!' dc.b ' This program is 100% machine code !!!' txt_reset3 dc.b 6,8,' POP! FROM BIT CULTURE 1993',0 txt_reset4 dc.b 6,10,'PLEASE TURN OFF FOR NO VIRUS!',0 txt_reset1 dc.b 6,8,' POP! POR BIT CULTURE 1993',0 txt_reset2 dc.b 5,10,'APAGA LA MAQUINA PARA NO VIRUS!',0 txt_hi dc.b $ff,$1b,$45,'COLOR MONITOR PLEASE !!!!',0 txt_carp dc.b $ff,$1b,$45,'NECESITO CARPETA - DATOS - EN DIR.!!',0 mini_ilogo dc.b 'POP! by Bit Culture 1993 Shareware.',0 mini_iselec dc.b ' Select option...',0 mini_if1 dc.b 'F1. One player start.',0 mini_if2 dc.b 'F2. Team mode start.',0 mini_if3 dc.b 'F3. Credits.',0 mini_if4 dc.b 'F4. Exit to DESKTOP.',0 mini_eselec dc.b 'Seleccione una opcion...',0 mini_ef1 dc.b 'F1. Comienzo un jugador.',0 mini_ef2 dc.b 'F2. Comienzo modo equipo.',0 mini_ef3 dc.b 'F3. Ver creditos.',0 mini_ef4 dc.b 'F4. Salir a DESKTOP.',0 mini_elogo dc.b 'POP! por Bit Culture 1993 Shareware.',0 credito1txt dc.b 8,1,'CREDITOS BIT/ART CULTURE',0 credito2txt dc.b 3,5,' CODIGO, GRAFICOS Y SONIDO : ',0 credito3txt dc.b 3,7,' MANUEL CASTRILLO. ',0 credito5txt dc.b 3,10,' SALUDOS ESPECIALES : ',0 credito6txt dc.b 3,12,' HUGO DE JESUS, DAVID MONJE ',0 credito7txt dc.b 3,13,' F.J. BODOQUE, CARMEN SEGURA ',0 credito8txt dc.b 3,14,' ...Y A TODOS LOS DEMAS. ',0 creditoatxt dc.b 3,16,' MATERIAL USADO : ',0 creditobtxt dc.b 3,18,' DEVPAC II, NEOCHROME, CYBER PAINT ',0 creditoctxt dc.b 3,19,' MASTER SOUND, ICE, 3 DISCOS ',0 creditodtxt dc.b 3,20,' Y UN MONTON DE PACIENCIA. ',0 credit1txt dc.b 8,1,'CREDITS BIT - ART CULTURE',0 credit2txt dc.b 3,5,' CODE, GRAPHICS & SOUND : ',0 credit3txt dc.b 3,7,' MANUEL CASTRILLO. ',0 credit4txt dc.b 3,10,' SPECIAL HI : ',0 credit5txt dc.b 3,12,' HUGO DE JESUS, DAVID MONJE ',0 credit6txt dc.b 3,13,' F.J. BODOQUE, CARMEN SEGURA ',0 credit7txt dc.b 3,14,' ...AND ALL THE REST. ',0 credit8txt dc.b 3,16,' MATERIAL USED : ',0 credit9txt dc.b 3,18,' DEVPAC II, NEOCHROME, CYBER PAINT ',0 creditatxt dc.b 3,19,' MASTER SOUND, ICE, 3 DISKS ',0 creditbtxt dc.b 3,20,' AND A LOT OF PATIENCE. ',0 mini_pausa dc.b 'Juego pausado, pulse ESPACIO para continuar.',0 mini_pause dc.b ' Game paused, press SPACE for continue.',0 mini_bonos1 dc.b 'NIVEL COMPLETADO, BIEN HECHO !!',0 mini_bonos2 dc.b 'Jugador 1 + 1OOOO = 000000',0 mini_bonos3 dc.b 'Jugador 2 + 1OOOO = 000000',0 mini_bonos4 dc.b 'Preparese para el proximo nivel.',0 mini_bonus1 dc.b 'LEVEL COMPLETED, WELL DONE !!',0 mini_bonus2 dc.b ' Player 1 + 1OOOO = 000000',0 mini_bonus3 dc.b ' Player 2 + 1OOOO = 000000',0 mini_bonus4 dc.b ' Get ready for next level.',0 mapa1a_txt dc.b 3,23,' MISION 1 - LA COSTA ',0 mapa2a_txt dc.b 2,24,'NIVEL FACIL,CUIDADO CON LOS SKUISKIES',0 map1a_txt dc.b 3,23,' MISSION 1 - THE BEACH ',0 map2a_txt dc.b 3,24,' EASY MISSION,DESTROY THE SKUISKIES ',0 mapa1b_txt dc.b 3,23,' MISION 2 - EL MONTE ',0 mapa2b_txt dc.b 2,24,' NIVEL MODERADO, GANA EXPERIENCIA ! ',0 map1b_txt dc.b 3,23,' MISSION 2 - THE MOUNTAIN ',0 map2b_txt dc.b 2,24,' MODERATE MISSION, GET EXPERIENCE !',0 mapa1c_txt dc.b 3,23,' NIVEL DIFICIL, ES REALMENTE BUENO!',0 mapa2c_txt dc.b 2,24,' MISION 3 - EL VOLCAN ',0 map1c_txt dc.b 2,23,'DIFFICULT MISSION,YOU ARE REALLY GOOD!',0 map2c_txt dc.b 2,24,' MISSION 3 - THE FACTORY ',0 mapa1d_txt dc.b 2,24,' MISION 4 - EL REACTOR ',0 mapa2d_txt dc.b 2,23,' LA BATALLA FINAL... ',0 map1d_txt dc.b 2,24,' MISSION 4 - THE MACHINE ',0 map2d_txt dc.b 2,23,' THE FINAL BATTLE... ',0 cargando dc.b 3,7,' ACCESO A DISCO ',0 cargando1 dc.b 3,9,' ESPERE UN MOMENTO. ',0 loading dc.b 3,7,' DISK ACCESS ',0 loading1 dc.b 3,9,' PLEASE WAIT. ',0 esp_error1 dc.b 3,7,' ****************************',0 esp_error2 dc.b 3,8,' ** INSERTE DISCO A. **',0 esp_error3 dc.b 3,9,' ****************************',0 ing_error1 dc.b 3,7,' ****************************',0 ing_error2 dc.b 3,8,' ** INSERT DISK A. **',0 ing_error3 dc.b 3,9,' ****************************',0 ing_logo1 dc.b 6,0,'1UP',0 ing_logo2 dc.b 16,0,'HIGH SCORE',0 ing_logo3 dc.b 34,0,'2UP',0 txt_time dc.b 15,24,'TIME :',0 spn_logo1 dc.b 6,0,'1UP',0 spn_logo2 dc.b 16,0,'ALTA PUNT.',0 spn_logo3 dc.b 34,0,'2UP',0 txt_listo1 dc.b 3,9, ' NIVEL',0 txt_listo2 dc.b 3,11,' LISTO !',0 txt_ready1 dc.b 3,9, ' STAGE',0 txt_ready2 dc.b 3,11,' READY !',0 txt_over1 dc.b 3,10, ' GAME OVER JUGADOR 1',0 txt_iover1 dc.b 3,10,' GAME OVER PLAYER 1',0 txt_over2 dc.b 3,10, ' GAME OVER JUGADOR 2',0 txt_iover2 dc.b 3,10,' GAME OVER PLAYER 2',0 timeover1 dc.b 14,10,' ',0 timeover2 dc.b 14,11,' TIME OVER ',0 timeover3 dc.b 14,12,' ',0 dc.b 'Modo trucado CONECTADO/DESCONECTADO. ' even trick_mode dc.b 'NO' direc_heli dc.w 'HI' ing_fin1 dc.b 'It is skuiskie island.',0 ing_fin2 dc.b '50 years for create...',0 ing_fin3 dc.b '...only 5 minutes for destroy.',0 ing_fin4 dc.b 'But now, the Skuiskies was saved...',0 ing_fin5 dc.b 'Not ???',0 ing_fin6 dc.b 'PoP! by Bit Culture 1993/4 Shareware.',0 esp_fin1 dc.b 'Esta es Skuiskie Island.',0 esp_fin2 dc.b 'Media decada para crear...',0 esp_fin3 dc.b '...solo 5 minutos para destruir.',0 esp_fin4 dc.b 'Pero ahora, los Skuiskies estan salvados...',0 esp_fin5 dc.b 'No ???',0 esp_fin6 dc.b 'PoP! por Bit Culture 1993/4 Shareware.',0 even dc.b 1,1,'------------------------------------',0 num_fase dc.l 0 score1 dc.l 0 score2 dc.l 0 hscore dc.l 100000 tiempo dc.l 0 segundos dc.l 0 txt_score1 dc.b 5,1,'000000',0 txt_score2 dc.b 33,1,'000000',0 txt_scoreh dc.b 18,1,'000000',0 txt_tiempo dc.b 15+6,24,'000',0 txt_stage dc.b 23,9,'1',0 vidas_1 dc.b 2 vidas_2 dc.b 2 even carpeta dc.b '\DATOS\',0 nom0 dc.b '000.bin',0 nom1 dc.b '001.bin',0 nom2 dc.b '002.bin',0 nom3 dc.b '003.bin',0 nom4 dc.b '004.bin',0 nom5 dc.b '005.bin',0 nom6 dc.b '006.bin',0 nom7 dc.b '007.bin',0 nom8 dc.b '008.bin',0 nom9 dc.b '009.bin',0 long0 dc.l 2241 long1 dc.l 7996 long2 dc.l 1540 long3 dc.l 7650 long4 dc.l 1740 long5 dc.l 8453 long6 dc.l 6657 long7 dc.l 367 long8 dc.l 5841 long9 dc.l 5815 disc_error dc.l 0 num_players dc.l 0 anim_skuis dc.l 0 b_vsync dc.w 0 count_menu dc.l 0 counter dc.l 0 o_inskuis dc.w 0 co_inskuis dc.w 0 count_time dc.l 0 color_gem ds.w 18 color_txt dc.w 0,$777,$700 dc.w 16 colorfuera ds.l 16 colordentro ds.l 16 aparece_F dc.l 0 aparece_D dc.l 0 aparece_x dc.l 1 aparece_y dc.l 1 aparece_max dc.l 19 aparece_may dc.l 199 b_reset1 dc.l 0 b_reset2 dc.l 0 b_reset3 dc.l 0 old_vsync dc.l 0 old_120 posi_obfiX ds.w 12 posi_obfiY ds.w 12 posi_obsuX ds.w 12 posi_obsuY ds.w 12 panta_fisi dc.l 0 pantaIfisi dc.l 0 pop_pomp_1 dc.l 0 pop_pomp_2 dc.l 0 stak_pomp1 dc.l 0 stak_pomp2 dc.l 0 shoot_p1 dc.l 0 shoot_p2 dc.l 0 firelast1 dc.l 0 firelast2 dc.l 0 control_p1 dc.l 0,0,0,0,0,0 control_p2 dc.l 0,0,0,0,0,0 sueltafu_p1 dc.l 0 sueltafu_p2 dc.l 0 acelcae_1up dc.l 0 acelcae_2up dc.l 0 velcae_1up dc.l 0 velcae_2up dc.l 0 agachap1 dc.l 0 agachap2 dc.l 0 cae_1up dc.l 0 cae_2up dc.l 0 cae2_1up dc.l 0 cae2_2up dc.l 0 anim_1up dc.l 0 anim_2up dc.l 0 dire_1up dc.l 0 dire_2up dc.l 0 olddire_1up dc.l 0 counter_aSK dc.l 0 die1count dc.l 0 die1patron dc.w 18,18,19,19,20,20,21,21,999 die2count dc.l 0 die2patron dc.w 18,18,19,19,20,20,21,21,999 subedat_1up dc.l 0 subepos_1up dc.w 15,15,15 dc.w 16,16,16 dc.w 17,17,17 dc.w 16,16,16,999 olddire_2up dc.l 0 subedat_2up dc.l 0 subepos_2up dc.w(       (         * ." * ."     2                  (* . $  | * >z*< " "V          X F   6   :.&   X    $          T T P        15,15,15 dc.w 16,16,16 dc.w 17,17,17 dc.w 16,16,16,999 giradatI1up dc.l 0 giradatI2up dc.l 0 giraposI1up dc.w 10,9,8,999 giraposI2up dc.w 10,9,8,999 giradatD1up dc.l 0 giradatD2up dc.l 0 giraposD1up dc.w 14,13,12,999 giraposD2up dc.w 14,13,12,999 datos_skuisP dc.l 0 datos_skuisT dc.l 0 limite_skuis dc.l 0 son_skuis dc.l 0 datos_colis ds.l 16 datos_boom ds.l 16 posi_boom ds.w 16*10 ini_skuis1 ds.l 16 pantalla1a dc.w 275,144,9,0,0,144,8,0,135,95,9,0,999 limite1skuis dc.w 10,275,10,275,95-18,233-16 pantalla2a dc.w 264,144,9,0,90,95,9,0,230,113,9,0,999 limite2skuis dc.w 120,275,30,90+16,110,230 pantalla3a dc.w 122,147,9,0,151,147,8,0,134,94,9,0,134,41,9,0,999 limite3skuis dc.w 10,275,10,275,10,275,10,275 pantalla4a dc.w 31,94,9,0,244,94,9,0,194,41,9,0,93,41,9,0,135,144,9,0,999 limite4skuis dc.w 10,89,201,275,72,210,72,210,10,273 pantalla5a dc.w 11,144,8,0,259,144,9,0,999 limite5skuis dc.w 10,275,10,275 pantalla6a dc.w 151,41,9,0,31,94,8,0,72,94,9,0,207,94,8,0,253,94,9,0,999 limiICE!%F Ȣ&dsW' w /炬~ypQf?ܖSWa>%g6rcU0XoZلesVf^߻.WSa4?>3= 6 f+zqϿw0@0|_۸) `|X荤WR^^ n6'Y&q O}koXg V8/U @rX 8dRP'60X`d}s `~XFA1۷qXm9 p`~O|x BȂKu ![/!)39,$Jp%قw<  5@ ,?1lE O#'Z>gOP4_6,) ;&?du@f `L$c>2EV$O.R֖U ", xYDc% *~_.G 7n5 hUBRKŠ`?zC%O'D(#r,7< >Xn=p\!v Ԁ(/ $#P9_4X*;ᦆ>vV0r u°&244?61i{7 V aF !Alu ߖcG&Zq 0C_$}mha.@ z>Ş!a&f?< ȁ]%`3A+հf@;']؍"6/G|,yCrM,Vp,X?ePIe<n?Vw!'4ynoY?@,JQے~?{58 YԿ?},oкC2 @xCl74Ӌ! xDZtg 1?C&e^7IDt ?1~;vr.[tdU8ҡ Q~NxCߥ@ r QGxZe(U  g9xϡNyfJy䴄 =? D|,Wh+nCDA j%(CI? MxC3K`*l ۴*L) fѡtZ:3KyMrCpp`X:k7  ݮ1 lRvĿe[83Vkv z 0?L}Ś ;+?p{ ~ H; 懁(  rԬ< 0^ppWvߴo0z1 .1Z(r+d`,iUdϏPkX>R hT0P GOə0CO։fp?Y1r,410ӱq-x?@ <qϋ p $at|f0 @kyH`>ae }X/`R*$D[~xZie*zـp5/zg "a6V6%Bepր?xW>&mB9ץ e4 .MS< ?p~}t "$P>fPA]9n>-x!_B#5 -h1?ѰxY9~hvF}I0?@Nf{]  Ilkpz`Լ 0 kC4=?o7 (SfoL #ȅ#\`+L \ݍ5`AuUzCrr>nn ^Z&~N;䝁nHNiEi.gB1!ǀ(/cS)hv i'A|Ӝ? 󛇀W%Ú!%]hC`0<{UNv}p? d& HW ]/ep* Ba~` E c͜I C*Be(|^dEk^fii'anѕ=m Z-o|`ޖn~z4S4 .':He>X{d62vFj}?` )Ai,6xd"$H-0Cβf,?q?Ax.!A 4Od$%u3{kaƃY|gqq! nhyaӱ1xR*j?; !?@v`gLVX"<, ~\1=Й_Jh@֔*A5 _P1r, R 01p,K[`W Ef" #$A?KNGf$rTR 8'يxnXQಃW,$Qn@|Z I*Rx!ϲÛOv6a7x0AX 7UfȒ؜xN fЌ~1V|º; @c\ ,5Vӻ}2tE넂n@nb 3~d ~>l rҁA9p`̶ßBO+ 9`n'8! Z?n%24"k@ 0O~l[f-0X)$ĉU#|,OC0HȔ4.Fp ?fr|:/p'M. ^\3C`eY1}蟄Fhv?dSf0V q?u 2'@2L a,:hA^96q^,[v?G+p|;a A,?!ӵ!Jd0 w ֭4?˭pXI9 ;wǚ@t+?̓ (Mz@fǎAIAiWS < ~ցG+U42d? X"OHhj f !H_,38b ,rwĈ"?ݞa| Cr \3DHd:fLs1 z&u~\ـ; cVl!~0 pm`U`g1Fpx +s`!XĘl??4B ̢qcFh}h/x30@0ΚZ= ]`A<&U%ɗ8 j$w30.rϙ1kB;,` jfV`([s ?I jjьA!3p! aC1  -" $`1M/C,y^o<րX~2P`y?I턆L>4n>?GXqa`O<@4p@E$fQ MbhW]e NH!;‚E@p5^[4еQgqV>|y!ƒp%| `[Z,0 - Pz0"9xE4T8? >y$Y ?8q c ?̶?ß `@! ?@ 0~$|0H f|'}v`? ?'@ ??9 ??p ?ICE!oh%*$!?xA,4xl KxA<< l l˰+0' '^௲F4% x.&0 xC. x. ?x^f*Is^,wUCs2:WSs2W`;= 9+Đ6"u@B.t q%< &~ـ  gp`??cx3@0@0 ?   `fs? `3p a  `<+?DC  D  xte6skuis dc.w 125,186+12,28,67,28,67,206,246,206,246 pantalla7a dc.w 128,41,9,0,107,77,9,0,232,77,8,0,204,119,8,0 dc.w 259,144,9,0,999 limite7skuis dc.w 80,170,107,150,107,238,204,278,216,259 pantalla8a dc.w 58,143,8,0,260,143,9,0,180,94,0,8,30,87,0,8,93,41,0,8 dc.w 222,41,0,9,999 limite8skuis dc.w 10,275,10,275,169,275,10,69,35,246,35,246 pantalla9a dc.w 24,122,8,0,57,40,9,0,188,40,8,0,262,94,9,0,275,147,9,0,999 limite9skuis dc.w 24,146,57,211,160,211,202,263,27,170 pantalla10a dc.w 258,78,8,0,58,105,9,0,58,144,8,0,206,144,9,0 limite10skuis dc.w 141,258,15,141,15,275,15,275 pantalla11a dc.w 10,47,8,0,46,90,9,0,134,87,8,0,204,116,9,0,46,147,8,0,999 limite11skuis dc.w 10,78,12,64,96,180,123,204,10,190 pantalla12a dc.w 50,72,8,0,222,72,9,0,45,109,8,0,242,109,9,0 dc.w 145,147,8,0,999 limite12skuis dc.w 50,94,182,222,45,75,216,242,10,275 pantalla13a dc.w 12,67,8,0,246,67,9,0,87,94,8,0,168,94,8,0,999 limite13skuis dc.w 10,64,204,275,87,168,87,168 pantalla14a dc.w 96,42,8,0,199,42,9,0,146,94,8,M0"] +Oֆ >\j?y3 0cG - @sCѲ@W#f 7x) %(;S94jr@p/\ ߭lnn{~5  @J9TL_ ;!cm1bσ R1Z ŨsJ1P @S`6V 0^tM;x DRˏܫ @@l)?g$ ~%x3Aau3í`6( 8֫bx$ia g떗L!?VX*`5x(9@x meL)DJZfu}'cZ6Hr R> t=T<0Sᷠ0999maCHW orYb\k3 igH0x(akjcB{aYxiq9cV`e!')S q͡ qEx 3< *ҟ]9E+NX  p=@g`UUSQfAabO@<Ֆh[y@mG2evON@R'B2=A[6Nk i"[BA?r 2x? d.,UZ W4&MۯpeWꢏ#<EV"G'O<-ZjlUHt91G<2_-BB=RL QAHhNG Uc; ]h11vO`.m.$12 508_~7dUaՙzoS ?cXOm&&@_f@] pO_ Ͽrhұ0@| - ,9V5g?|t5oy-2h_R$8,8zD/ Ne9|p?㖬 :ğ <-@r #cY;`1 ??pjc2YMX-O@xq(;1 c #"lvO?ޕ&@?3vyKx2' q0ff(]RB0Ąj-XFX'"r15$#t΃a!!ߍBɐq)ǜ՗p=sDi$1?3 p8c'`J _j'?HbE (ψ_aPc 8R3 `wn ^_&x ]8~ ٔ` !.^{'D Ѷ_tql~ . ]2bbHF c(bbX/֌VA?7>ĕ .a @1F9> $,@$l\ , 9 ?p?~ƀCws9f8bra]:K ?]"̙O( Lg_?Ga!"eOc1(@?c]WlJҸr?(8~/y ]2΀ c8 %& p?8M~I8 ܆O~F R@llClojֶ7B#y0Pyu粱NO8x>]!%1{r09G'`?@}r 0']?@1:L~Wm%( D"!>K p- 6PRR?8ʥ>} ݿZ r1%/ 5%"@a>Y @|c)7.~__8OF ;; ]4`E{ "M oUWP Q$ H He ?I_GT!I   " +]WzH * RPP wyA,^txA\@@ pO_Ͽ0@ I /y_|?y_ 88/ ?8ğ? 9p? 8ğ? @  p;`1'pO@xqO@xqICE! @Pbvg"3 00wEOX='a~7qVq.㇟8|@;>歭2nlsr!X<1'3K׀?08O_=, %'2J~|, i{Y3;'ߠ |p#Y?XD,9T~=@? s'>`xcJ?}`?<2E7.xag3v88go(|m<?b|,~+h Po[ `8Lw^*r3s0rr3| |[Æp& w̄@/G %{k#9.o8>x=v K`@2S2:i2n` `|>2q16)gL #!ߌO>!;!&p O$r I #{7?َ3\<``Ø'3`Wj FRV0L`z5gNrN[#D8Ys0x0Hfz5#|?LO!񞍰ԦuN<ީ+B~?ݎ|+xCyx9~yr{O!l-^D~-˽yO!;n ?`~ON~~{~Phiy x]3W<|1~3#.G8-!pN|:8_8K=ay'$aLU~C1ǁ :( ] Yퟀ>!w Xٰ2q(3n ;vi \e7 ?=?%W0e?tR8FY;\>pSg2c8?{)'l4@ v/*0GexyDѼv_J??`+c9Ç.50?BMV?Uh>w 0K0 bH9 # N~曫#9$B48 }g`@8X L ۆcEA<90$>/=gF :Āx,d@^֪`H?' w6! l2DD@A ?T 踞<`X#C~X;0s RfLjUw~dG R_AJ O`rXf-Qfe,L> r r r`p^D. !~0#:=1AТZ!jơ]J//;#6y>ucrl;p3 8mBxeb`%ع}7Yw%:YA}`b@|:-Z5@$sa0'}fB?.>`GօsygDXޤ6?r V.\OXgAB[@YtDrW- K/IiC(N)v?s?ۨ:}={"AJ̚BbyQFDe><ꉄ7[|/QdMϐ28|/_TnXo`#eD\Md\V 6gpB2km>GS& ./: U8{'$<Y@p2f?g$VL?ĄԖ`V. m¿.+0R#u?`- U7{iq gV~O??|(? h 5C:~ik0?$a`~&>`n5?D 4g@t<!4 *BE!r&x?xAP`[7 apH@a?<50huZ(/.><0 8 C? LCRv ΊP fdٮv<81?^%rvh@oxs3X&eN{-1iwgZmpX?$ Pxz w ,ɖ /_|˒8{zr~(v3 Ql_ (.O؆"=Ãg" ANGqx2zsPA/4g&ȉSAj`lY -K\Ya(P엸vqD(ZYxq70wg Ms5HF?j t{<`v>p8(&㑄CP SuaCmä¥ l4`Ep3GP`|*0Drpv Yak=CC9=k?A8X03@# `?8|0#= ,s?\$.j%O` 6HـY@ ޟ9LA?H @ȯ7& Ā9hCVSA ; ظz9疿 h ɰB@ɉ Q,CAD `*a@빋>;<#ΨV" lOG63-= `!C@4;O m#jQbNG #Q_P߀t`) H>2Ť,z[?`Ov3c 8:%0@5To k F PX|'m/Z*yǶ-K_x18&w #';ʗ 9 p?MhfX @ğ\*@ C e;`11Xpc˪Md6aܵ>+O@xqH4%#lvH?xW~@?8Xjs$IXnyKM|'|qS0~33.J矩m{BN!?XbrXIY,#Bc ,"rFwf$:_HߍudǜK=s?$1?c p8cSD`YB_$I V+,t Gu `Ƶ ^_O 8ː~!`7E8Kb'׃ .m~ .#~q]&VU zL(ALsXE (?>R %" @1t8ևr1A$4@$ !% 9 O?p?ӏƀ>pHnN9| G,rKgI?`K9S%5a|A?"L;DlOl b"(@cjM_<r?EQ8~yK; oGrc#8 䗘L6?4I ܆O~?RHA@ƶllClo7b#y0Pa:XNO8<{AIArLNI`O@r 'fWA">?PL~WmS !x" w p- 6PR_?/AV}ݿ R. H "@ @#7.~!__#OM4  FC; ]4`5@E{0 oUWP g  H =// / <<0@ @ ~O??|0  `&0x`&>`n<?AP`0a&x?xAP`aa?< ? 80 C L@><0               P                      .   J   &       &                            b  $ $"v" " " "                    ,                              2Z           tt -?%/1A6$57F!G$(  0,36,147,9,0,264,147,8,0,999 limite14skuis dc.w 96,199,96,199,96,199,10,275,10,257 pantalla15a dc.w 25,147,8,0,104,147,9,0,184,147,8,0,266,147,9,0,999 limite15skuis dc.w 10,275,10,275,10,275,10,275 pantalla16a dc.w 34,144,8,0,236,144,9,0,999 limite16skuis dc.w 10,275,10,275 ini_tipo1sk dc.w 0,0,1,999 ini_tipo2sk dc.w 0,1,1,999 ini_tipo3sk dc.w 1,1,1,1,999 ini_tipo4sk dc.w 1,1,1,1,0,999 ini_tipo5sk dc.w 1,1,999 ini_tipo6sk dc.w 1,1,1,1,1,999 ini_tipo7sk dc.w 1,1,1,0,0,999 ini_tipo8sk dc.w 0,0,1,1,1,1,999 ini_tipo9sk dc.w 0,1,1,1,1,999 ini_tipo10sk dc.w 0,0,0,0,999 ini_tipo11sk dc.w 0,1,0,0,1,999 ini_tipo12sk dc.w 1,1,1,1,1,999 ini_tipo13sk dc.w 1,1,1,1,999 ini_tipo14sk dc.w 1,1,1,1,1,999 ini_tipo15sk dc.w 1,1,1,1,999 ini_tipo16sk dc.w 0,0,999 son1_skuis dc.l 2 son2_skuis dc.l 2 son3_skuis dc.l 3 son4_skuis dc.l 4 son5_skuis dc.l 1 son6_skuis dc.l 4 son7_skuis dc.l 4 son8_skuis dc.l 5 son9_skuis dc.l 4 son10_skuis dc.l 3 son11_skuis dc.l 4 son12_skuis dc.l 4 son13_skuis dc.l 3 son14_skuis dc.l 4 son15_skuis dc.l 3 son16_skuis dc.l 1 ini_player1 dc.w 70,139 ini_player2 dc.w 208,139 pos_player1 dc.w 1 pos_player2 dc.w 1 SBIDF_1UP dc.l 0 SBIDF_2UP dc.l 0 B_SBIDF_1UP dc.l 0 B_SBIDF_2UP dc.l 0 animC1up dc.l 0 animC2up dc.l 0 donde_obj dc.l 0 map_1_1 escaleras1 dc.w 95-18,120,91,181,0,219,120,233,181,0 suelo1 dc.w 95-19,130,233,135,1,999 map_1_2 escaleras2 dc.w 26,120,26+16,181,0 suelo2 dc.w 23,130,123+16,138,1 dc.w 104,148,263+16,151+5,1,999 map_1_3 escaleras3 dc.w 42,120,56,181,0 dc.w 265,67,279,129,0 suelo3 dc.w 5,130,320,138,1 dc.w 5,77,320,80+5,1,999 map_1_4 escaleras4 dc.w 102,67,116,129,0,83,120,97,182,0 suelo4 dc.w 72,77,249,80+5,1,201,130,320,134,1,5,130,119,134,1,999 map_2_1 dc.w 999 map_2_2 escaleras6 dc.w 120,120,134,182,0,160,67,174,129,0 suelo6 dc.w 126,77,205,81,1,28,130,106,138,1 dc.w 117,130,196,138,1,206,130,285,138,1,999 map_2_3 escaleras7 dc.w 102,67,116,129,0,53,120,67,182,0 suelo7 dc.w 80,77,219,82,1,118,113,257,120,1,30,130,129,138,1 dc.w 204,159,303,166,1,999 map_2_4 escaleras8 dc.w 200,67,214,129,0,180,120,194,182,0 suelo8 dc.w 35,77,274,81,1,10,123,97,128,1,180,130,300,134,1,999 map_3_1 escaleras9 dc.w 220,67,235,129,0,282,120,296,182,0 suelo9 dc.w 43,77,242,81,1,3,113,117,125,1,198,130,316,134,1 dc.w 27,161,186,165,1,999 map_3_2 suelo10 dc.w 138,117,319,125,1,3,144,179,151,1,999 map_3_3 suelo11 dc.w 3,86,120,92,1,12,126,90,130,1,100,126,225,136,1 dc.w 126,155,244,162,1,999 map_3_4 suelo12 dc.w 136,108,174,112,1,109,146,208,154,1,999 map_4_1 escaleras13 dc.w 175,67,189,129,0,125+16,120,139+16,182,0 suelo13 dc.w 54,77,233,83,1,3,103,95,112,1,200,103,319,112,1 dc.w 83,130,202,140,1,999 map_4_2 escaleras14 dc.w 156,67,170,129,0,102,120,117,182,0,204,120,218,182,0 suelo14 dc.w 92,77,230,85,1,92,130,230,138,1,999 map_4_3 suelo15 dc.w 3,103,140,110,1,180,103,319,110,1,999 map_4_4 dc.w 999 pat_objetos dc.w 0,508,576 popampli dc.l 0 csound_boom dc.l 0 ssound_boom dc.b 9,0,255 SOUND_boom dc.b 7,15,6,10,9,10,255 SOUND_poping dc.b 6,0,0,0,7,4,8,0,255 SOUND_insku dc.b 8,0,0,150,1,0,2,100,3,100,255 SOUNDninsku dc.b 8,0,9,0,10,0,255 SOUND_caep1 dc.b 8,20,6,1,7,1,12,1,13,2,255 SOUNDcaep1S dc.b 0 SOUNDcaep2S dc.b 0 dc.l 0 font_8x8 incbin font.fnt mini_font incbin mini1.fnt scr_credits incbin pop.pc1 scr_lengua incbin lengua.pc1 scr_menu incbin menu.pc1 scr_program incbin program.pc1 scr_mapa incbin mapa.pc1 a_fase1 incbin decora_1.pc1 spr_pompas incbin pompas.spr spr_pomp incbin pomp.spr spr_exypun incbin ex_y_pun.spr spr_helicop incbin helicop.spr spr_player1 incbin player1.spr spr_salta1 incbin salto1.spr spr_player2 incbin player2.spr spr_salta2 incbin salto2.spr spr_vidas incbin vidas.spr spr_skuis1 incbin skuis1.spr spr_robot incbin iron.spr spr_objetos incbin objetos.spr spr_trick incbin cheap.spr snd_beep incbin sound2.avr snd_pomp incbin sound1.avr snd_aplausos incbin aplausos.avr section bss segundofondo ds.b 30000 000 30000 xc6?ox?|`|a[q  q|f*8_) {` ~MCphp2q ??>ph ?ph. ?8 5@<'>< 3t8`  >< 38 >< 3?`?cx?3?`?x?<<<>cl?s?`?lO?@<<30<3?<<<<?????00 3 ?<3?????00 3 ?<3??????`<?<a` `< <a`??<``f?Cfa`<``f@fa` f`|~f`f`|f`f`` f f`` ff@a~`fa~` fp`?af``ffaaf``ffa@&x f`<p? A >~~g`gi C~~nc`gx ~|x ~<``gx c~~;`q`gx |>9? ?  o???7?33p?`???????g? ?g~??gp??30??3??3?;??;??;??`;?x 0;x 88?? p???pp?||}888||}|>|88g|>|>Θ`avg/`a ?<}>??o`apg_``a@8~`?`a3?`a@~`?`a38ps`a8? `>`a3|ﻀ`a `x`a`30`a`0f|?~~~~?0????p???~?>x<|p~? p?  ?x/ca x `  ? ` 7ǃ0gǃ0 00`0 `> 300 00 0> x? 3?`` 3``8?? 3? 03 03f0 3<`}|>f0 3<>f0 3

1n\>?o ?>?@`?kx_0`? ?*_ T+~>82 0_\ > ?`|\ > :F"Sf?~>cxp?:~>|A?>FFB/^@?ـ0?@ .~~OA? % ~~p >xC32c (> (O ? ?|~` v|X|g P  0mb Z ~&`G1h?!?,FPq0 1/;   @ ?@~p-9ǟ/ݚp2ǟٚ~?ǟ=~< ylُ۸8ϟ ylُ` ?>?lَ`= O[; o=  8 8 `X`l ή x \?/0|@H0/0|?Ǘ߁?_ /? _? `?; _?> ?M{ϗlA <?x >< g3303 >???w` 33 0 88p08? ;p?1 wp? ?p???x<p|8|p|>?o`>o?g??y  g gg3?33?p3p?`??~??~? ~ p `px?36w> c?n? ?3> c?`>? @p 3 633pw 31n0  3 03w 300`30  @| 3 638s3 03n30  3 033 00`30 L̀| ? ?3;v3k n>>  ?  33k `>> H̀|| 3 ?3;:?c n60  3 3?c `60 LH>| 3 3?3;3c 373`w30 3 0 33c 30p30 L >>x 33c37c3?  3 3c`3? ̀ @38?8?>?|8>?|>?x>?|8 |?p ?g8 ;?g>|3v^!] | |3@!\q`gdy DS;d DP?~gǼ DWǀ DP8 x ??7^ DO@\8@ D@@@+ ?0>G{z*< " "V          X F   6   :.&   X    $          T T P                      P                      .   J   &       &                            b  $ $"v" " " "                    ,                              2Z           t