ZXTape! SourceCode-+4W/+ORG25000;---------------------------- ; SPY's DEMISE II |0; spectrum version |@; |P;by Mirko Moenninghoff |`;(Tweety Soft Ltd.  1985) |p; |; grosse kuhstrasse 70 |; 4320 hattingen 18 |; TEL. 02324/72205 |;---------------------------- lda,20call5633@lda,7Pld (23693),a`xorapld (23624),acall3503Mstartld hl,adrsc3ld (adrsc),hlcalldecomp ld hl,adrsc20ld (adrsc),hl@ldhl,text2Pcallprtext`melodyldix,adrsoploop19ldh,(ix+1)ldl,(ix+0)ldd,(ix+3)lde,(ix+2)lda,d ore0jrz,melody@xoraPina,(254)`and31pcp31jrnz,ok8pushixcall949popix incix0incix@incixPincix`jrloop19pok8callinitcallinit1start2callscreen 0callprsc@P`pMloopld a,(taktO) deca0cp0@jrnz,ok6Plda,3`ok6ld (taktO),apcp1callz,objectwaitld a,(23560)cp'1' jpz,wait0cp'2'@jpz,overP`callprtipld a,(taktM)decacp0jrnz,ok7lda,6 ok7ld (taktM),a0cp1@callz,steuMPjpMloop`pobjectld ix,dingerldb,8loop1pushbccallrnd cp00jpz,next@Pldb,(ix+0)`ldc,(ix+1)pldd,5ldhl,lineld (23675),hl xora callprat incc 0lda,1 @ldd,69 Pcallprat `lda,1 pincb callprat xora!decc!ldd,5! callprat!0ldb,(ix+0)!@lda,(ix+2)!Pcp1!`jrz,hoch!prunterld a,(grenz)!incb!cpb"jpz,hoch"ld(ix+0),b" ld(ix+2),0"0jpprint"@hochxora"Pdecb"`cpb"pjrz,runter"ld(ix+0),b"ld(ix+2),1#printldhl,dings#ld (23675),hl# xora#0ldd,71#@ldc,(ix+1)#Pcallprat#`incc#plda,1#callprat#incb$lda,3$callprat$ decc$0lda,2$@callprat$Pcalltreff?$`$p$nextincix$incix%incix%% lda,b%0adda%@ldd,a%Plda,47%`subd%pldb,a%loop7lda,r%res0,a&res1,a&res2,a& out(254),a&0ldc,d&@loop8decc&Pjrnz,loop8&`djnzloop7&p&&'popbc'decb' jpnz,loop1'0ret'@'Ptreff?ldb,(ix+0)'`lda,(manP)'pcpb'jrz,xtest'inca(cpb(jrz,xtest( incb(0cpb(@jrz,xtest(Pdeca(`cpb(pretnz(xtestldc,(ix+1)(ld a,(manP+1))cpc)jrz,treffe) incc)0cpc)@retnz)Ptreffeld hl,(stime))`ld (time),hl)p)lda,(manP))ldb,a0ld a,(manP+1)0ldc,a0 decb00decc0@ldd,70Pldhl,atomP0`ld (23675),hl0pxora0callprat0lda,11incc1callprat1 lda,310incb1@callprat1Plda,21`decc1pcallprat1lda,41incb2callprat2lda,52 incc20callprat2@ldde,19852Ploop10callrnd2`res0,a2pres1,a2res2,a2out(254),a3ldc,a3set7,c3 res5,c30loop11decc3@jr nz,loop113Pdecde3`lda,d3pore3jr nz,loop103popaf4popaf4popaf4 ld a,(lives)40deca4@cp04Pjpz,over4`ld (lives),a4pld a,(manP+4)4cp04jrz,nr25xora5ld (manP+1),a5 inca50ld (manP+3),a5@jpstart25Pnr2lda,265`ld (manP+1),a5pxora5ld (manP+3),a5jpstart26overld hl,22528+326ld bc,768-326 loop17ld(hl),060inchl6@decbc6Plda,b6`orc6pjr nz,loop176ldhl,text16callprtext7ldix,lala37callmusic7 ldix,lala370callmusic7@callkwait7Pldde,3007`ldhl,9617pcall9497jpMstart7kwaitxora8ina,(254)8and318 cp3180retnz8@jrkwait8P8`prtextlda,(hl)8pcp2558retz8inchl9rst169jrprtext9 909@9P9`9p9pratpushde9pushbc@exaf,af'@lda,b@ and24@0or64@@ldh,a@Plda,b@`and7@prrca@rrca@rrcaAldl,aAlda,cA and31A0orlA@ldl,aAPpushhlA`exaf,af'Aplde,aAldd,0AslaeBrldBslaeB rldB0slaeB@rldBPld hl,(23675)B`addhl,deBpexde,hlBpophlBldb,8Cloop2lda,(de)Cld(hl),aC inchC0incdeC@djnzloop2CPpopbcC`popdeCpldl,bCldh,0CslalDrlhDslalD rlhD0slalD@rlhDPslalD`rlhDpslalDrlhDlda,cEorlEldl,aE lda,hE0or88E@ldh,aEPld(hl),dE`retEprndlda,rEand63Eldh,aFlda,rFldl,aF lda,(hl)F0retF@screenlda,7FPld (23693),aF`ld (23624),aFpcall3503FcalldecompFxoraGout(254),aGldhl,bodenG ld (23675),hlG0ldc,7G@ldhl,chebGPloop3lda,13G`rst16Gplda,13Grst16Glda,13Hrst16Hldb,27H lda,16H0rst16H@lda,(hl)HPsub140H`rst16HpHHloop4lda,(hl)Irst16II djnzloop4I0inchlI@deccIPjrnz,loop3I`ld a,(lives)Ipldb,aIlda,22Irst16PxoraPrst16P xoraP0rst16P@lda,17PPrst16P`lda,1Pprst16Plda,16Prst16Qlda,7Qrst16Q loop6lda,148Q0rst16Q@lda,19QPrst16Q`lda,1Qprst16Qlda,149Qrst16Rlda,19Rrst16R xoraR0rst16R@djnzloop6RPlda,6R`rst16Rplda,6Rrst16Rldhl,tiudgSld (23675),hlSlda,22S rst16S0xoraS@rst16SPlda,25S`rst16Splda,144Srst16Slda,145Trst16Tlda,22T rst16T0xoraT@rst16TPlda,13T`rst16Tplda,146Trst16Tlda,147Urst16UretU U0prtilda,22U@rst16UPxoraU`rst16Uplda,27Urst16Uld bc,(time)VdecbcVlda,bV orcV0jrz,nixV@ld (time),bcVPnixcall2d2bhV`call2de3hVplda,32Vjp16VWprsclda,22Wrst16W xoraW0rst16W@lda,15WPrst16W`ld bc,(score)Wpcall2d2bhWjp2de3hWXsteuMldhl,manRXld (23675),hlX ldix,manPX0ldb,(ix+0)X@ldc,(ix+1)XPldd,7X`lda,8XpcallpratXincbXlda,8YcallpratYxoraY ina,(254)Y0bit0,aY@jrnz,t2YPld(ix+3),1Y`jrok1Ypt2bit1,aYjrnz,ok1Yld(ix+3),0`ok1lda,(ix+3)`ldc,(ix+1)` cp1`0jrz,links`@rechtslda,c`Pinca``cp27`pjrz,ok2`ld(ix+1),a`lda,(ix+2)acp2ajrz,l2a ld(ix+2),2a0jrok2a@l2ld(ix+2),0aPjrok2a`linkslda,capdecaacp255ajrz,ok2bbld(ix+1),ab lda,(ix+2)b0cp6b@jrz,l3bPld(ix+2),6b`jrok2bpl3ld(ix+2),4bbok2ldc,(ix+1)clda,(ix+4)ccpcc callz,upc0c@ldb,(ix+0)cPldc,(ix+1)c`ldd,6cplda,(ix+2)ccallpratcincbdlda,(ix+2)dincad jppratd0d@upcp0dPjrz,nrd`ld(ix+4),0dplda,(ix+0)dcp1djpz,doneeejrok5e nrld (ix+4),26e0ok5lda,(ix+0)e@decaePdecae`decaepld(ix+0),aeld hl,(time)eld bc,(score)faddhl,bcfld (score),hlf ld hl,(stime)f0ld (time),hlf@callprscfPldix,lala1f`callmusicfpldix,manPfretfdonepopafgpopafgldix,lala2g callmusicg0ld a,(grenz)g@decagPdecag`decagpcp0gretcgld (grenz),ahcallinithjpstart2h h0decompldhl,16384h@ld ix,(adrsc)hPloop15lda,(ix+0)h`ld(hl),ahpcp0hjpz,decomhcp255ijpz,decomiinchli incixi0jploop15i@iPdecomlde,ai`incixiplda,(ix+0)icp0iretzpldb,aploop16ld(hl),ep inchlp0djnzloop16p@incixpPjploop15p`pppmusicldl,(ix+0)pldh,(ix+1)qlda,hqorlq jrz,pauseq0lde,(ix+2)q@ldd,(ix+3)qPlda,dq`oreqpretzqpushixqcall949rpopixrret1incixr incixr0incixr@incixrPjrmusicr`pausehaltrphaltrhaltrhaltshaltsjrret1s s0s@sPs`spssttinitld de,dingert ld hl,anfpost0ldbc,8*3+5t@ldirtPrett`init1ldde,grenztpld hl,sdata1tldbc,6tldiruretuu u0u@uPu`up ;Graphicsulinedefb3,1,3,1,3,1,3,1udefb192,128,192,128,192vdefb 128,192,128vdingsdefb0,127,127,96,110,110v defb108,109,0,254,254,6v0defb6,6,6,230,97,97,97v@defb109,109,127,127,0vPdefb230,166,166,166,166v`defb 190,190,0vpvvanfposdefb1,2,0wdefb10,5,1wdefb3,8,0w defb7,11,1w0defb1,14,0w@defb2,17,1wPdefb9,20,0w`defb8,23,1wpwdefb 19,1,0,1,26wxchebdefb144,145,146,144,145xdefb144,145,146,144,145x bodendefb255,255,255,0,0,0,0x0defb0,126,255,126,0,0,0x@defb0,0,60,60,255,0,0,0xPdefb0,0x`defb128,128,128,128xpdefb128,128,128,128xdefb3,7,7,3,15,31,3,3xdefb192,224,224,192,240ydefb 248,192,192ymanRdefb40,84,46,92,56,0,52y defb88,140,247,251,124,0y0defb 108,120,60y@defb20,42,23,46,28,0,28yPdefb44,26,118,110,94,0y`defb 60,230,199ypmanLdefb20,42,116,98,28,0,44ydefb26,118,239,223,62,0ydefb54,30,60,40,84,232defb116,56,0,56,52,88defb110,118,122,0,60,103 defb2270spacedefw0,0,0,0@atomPdefb16,63,63,127,255,255Pdefb255,255,224,254,255`defb255,255,254,254,254pdefb254,254,238,7,3,7,7defb3,254,255,191,222defb238,224,192,192,7,15defb7,7,15,15,15,15,224defb224,192,192,192,224 defb224,2240tiudgdefb248,224,40,34,43,42@defb42,46,0,0,0,14,232Pdefb 172,168,174`scudgdefb224,224,128,237,45pdefb41,237,237,0,0,0,219defb218,83,210,211lala1defw853,58,962,207,1083defw48,1151,46,0,0,1151 defw96,1083,253,1,0,1,00lala2defw1460,38,1460,38@defw1296,40,1221,44Pdefw1083,48,1296,40,1221`defw44,1083,48,961,53pdefw1221,44,1083,48,961defw53,1221,88,1221,88defw1,0,1,0text1defb22,10,10,16,7,17,2defm'T H E E N D' defb2550lala3defw1083,95,1083,95@defw1083,95,1083,95Pdefw1083,190,961,106,961`defw106,1022,100,961,53pdefw853,58,961,212,800defw240,800,120,800,120defw853,116,961,106,1083defw190,1083,190,1083defw95,1083,95,1083,95 defw1083,950defw1083,506,1,0,1,0@text2defb22,3,18,16,6,17,0Pdefm'press any key'`defb22,4,20pdefm 'to start !'defb255sdata1defb21,6defw1000defw0 0@P`p 0@P ;Variablen`dingerdefs8*3pmanPdefs5grenzdefb21livesdefb6timedefw501scoredefw0 stimedefw10000taktMdefb2@taktOdefb24Padrscdefwadrsc2`adrsc2defs1380padrsc3defs2740adrsodefs404defw0,0