ZXTape! ХFULLMENU ⌠/Н},\LЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪОП═■У$p⌠cя@■TЕ@▓@яP■д@▓┘5DУ$R▓е5я`■д@■└бцSScя`\÷у]/ LD (MAP),HL LD HL,59690 LD DE,TABL LD BC,5*3 LDIR CALL WDW JP MENU ! JP DRAGON 2COORD DEFW 0 3MAP DEFW 55600 4VAL NOP 5STORE DEFW 0 6DX NOP 7DY NOP 8TEMP DEFW 0 9KEY NOP :POS DEFW #A0E ;NUM NOP <XC DEFW 0 =FS NOP >FP DEFW 0 ?STAT NOP @CT DEFB 0 ACOUNT DEFB 2 CENGY DEFB 9 DLIFE DEFB 9 ESCORE DEFW 0 FPTR DEFW 59690+20 eTABL DEFS 5*4 xSUBR DEFW DRAKON,SEEKER,FALL,STRIKE yMX DEFB 10 zMY DEFB 4 {PM DEFB 3 |UM DEFB 4 }MAX NOP ~LEN DEFB 10 R0 NOP ─R1 NOP │ROUT DEFW 0 ┌ZAGLAV DEFB 22,2,26 ┐ DEFM "SILA" └ DEFB 22,8,26 ┘ DEFM "JIZNI" ├ DEFB 22,18,7 ┤ DEFM "UBITA" ┬ DEFB 127 ┴ DEFM " NEXISTY" ┼ DEFB #FF ▄MSG DEFW PRT √ LD IY,#5C3A хRUS LD HL,58914-256 и LD (23606),HL й RET кLAT LD HL,60*256 л LD (23606),HL м RET нOPEN LD HL,23612 о RES 0,(HL) п RET рEXIT DI с IM 0 т LD IY,#5C3A у EXX ж LD HL,#2758 в EXX ь LD SP,(STORE) ы EI з RET эSETIM2 DI щ LD A,#FE ч LD I,A ъ LD HL,INR Ю LD (#FEFF),HL А IM 2 Б EI Ц RET ,PUT LD A,(DE) - LD (HL),A . INC H / INC DE 0 LD A,(DE) 1 LD (HL),A 2 INC H 3 INC DE 4 LD A,(DE) 5 LD (HL),A 6 INC H 7 INC DE 8 LD A,(DE) 9 LD (HL),A : INC H ; INC DE < LD A,(DE) = LD (HL),A > INC H ? INC DE @ LD A,(DE) A LD (HL),A B INC H C INC DE D LD A,(DE) E LD (HL),A F INC H G INC DE H LD A,(DE) I LD (HL),A N RET ТPTBL LD B,A У PUSH DE Ж LD (TEMP),IX Ы LD IX,57962 Ч INC B DEC B JR Z,PTBL_P PTLP5 LD D,0 LD E,(IX) LD H,D LD L,(IX+1) ! CALL #30A9 & LD DE,9 + CALL #30A9 0 INC HL 5 INC HL : PUSH HL ? POP DE D ADD IX,DE I DJNZ PTLP5 NPTBL_P LD A,(IX) S LD (DX),A X INC IX ] LD A,(IX) b LD (DY),A g INC IX l POP DE q PUSH DE v LD A,(DY) { LD B,A ─PTLP_1 PUSH BC ┘ LD A,E ┼ AND #18 ▐ ADD A,64 ■ LD H,A ≥ LD A,E · AND 7 ё RRCA ╗ RRCA ґ RRCA ╡ ADD A,D Ї LD L,A ╪ LD B,8 аPTLP2 PUSH BC ф PUSH HL к LD C,D п LD A,(DX) у LD B,A зPTLP3 LD A,C ъ INC C Д CP 25 И JR NC,PTPS Н LD A,E С CP 16 Ь JR NC,PTPS Щ LD A,(IX) NOP LD (HL),A PTPS INC L INC IX DJNZ PTLP3 POP HL INC H % POP BC * DJNZ PTLP2 / POP BC 4 INC E 9 DJNZ PTLP_1 > POP DE C LD A,(DY) H LD B,A MPTLP4 PUSH BC R PUSH DE W CALL GET_A \ LD C,D a LD A,(DX) f LD B,A kPTLP6 LD A,C p INC C u CP 25 z JR NC,PTPS5 LD A,E └ CP 16 ┴ JR NC,PTPS5 ▌ LD A,(IX) ⌠ LD (HL),A ≤PTPS5 INC IX ² INC L ╒ DJNZ PTLP6 ї POP DE ╛ INC E ╠ POP BC І DJNZ PTLP4 ╩ LD IX,(TEMP) ю RET тGET_A LD A,E у AND #18 ж RRCA в RRCA ь RRCA ы OR #58 з LD H,A ш LD A,E э AND 7 щ RRCA ч RRCA ъ RRCA Ю ADD A,D А LD L,A Б RET ХWIND LD HL,0 Й LD (COORD),HL Л LD HL,(MAP) П LD C,16 РWIND2 LD B,25 ТWIND1 PUSH BC Ж LD A,(HL) Ь LD (VAL),A З INC HL Э PUSH HL Ч CALL WRSYM INC B LD (COORD),BC POP HL POP BC DJNZ WIND1 LD DE,(COORD) LD D,0 INC E LD (COORD),DE DEC C JR NZ,WIND2 RET WRSYM LD BC,(COORD) LD A,(VAL) LD DE,57000-256 LD H,0 " LD L,A $ ADD HL,HL & ADD HL,HL ( ADD HL,HL * ADD HL,DE , EX DE,HL . LD A,C 0 AND #18 2 ADD A,64 4 LD H,A 6 LD A,C 8 AND 7 : RRCA < RRCA > RRCA @ ADD A,B B LD L,A D PUSH HL G CALL PUT R LD DE,57769-32 T LD A,(VAL) V LD H,0 X LD L,A Z ADD HL,DE [ PUSH HL \ POP BC ] POP HL ^ LD A,H _ RRCA ` RRCA a RRCA b AND 3 c OR #58 d LD H,A e LD A,(BC) f LD (HL),A g LD BC,(COORD) h RET tCOMPUT LD L,C v LD H,0 w LD D,H x LD E,L y ADD HL,HL z ADD HL,HL { ADD HL,DE | ADD HL,HL } ADD HL,DE ~ ADD HL,HL ADD HL,DE ─ ADD HL,DE │ ADD HL,DE └ LD E,B ├ ADD HL,DE ┬ LD DE,(MAP) ┼ ADD HL,DE ▄ LD L,(HL) ▌ LD H,0 ░ LD DE,57865-32 ▓ ADD HL,DE ■ LD D,(HL) √ RET °INR PUSH AF ║ PUSH HL і PUSH DE ╚ PUSH BC ╟PORT CALL SINCL2 ╣ LD (KEY),A ╨ POP BC © POP DE д POP HL и POP AF й EI н RET KEMPST XOR A IN A,(31) AND #1F # RET (SINCL1 LD BC,63486 - IN A,(C) 7 AND #1F < RET ASINCL2 LD BC,61438 F IN A,(C) K LD D,A L LD C,0 P LD B,4 UROT RR D Z RL C [ RR D \ RL C _ DJNZ ROT d LD A,C e RRA f RRA g RRA h CPL i AND #1F j RET nKEYB LD B,5 s LD HL,KEYS x LD D,0 }KEYLP LD A,(HL) ┌ IN A,(#FE) ┤ INC HL ▄ AND (HL) ▒ CPL ▓ CP #FF √ RL D ⌡ INC HL ═ DJNZ KEYLP ║ LD A,D ╔ CPL і AND #1F ╙ RET ╞KEYS DEFB 127,4,251,1,253,1,223,1,223,2 эBLANK LD D,7 АBL1 LD HL,22528 Ф LD BC,768 КBL2 LD A,(HL) П AND %111000 У JR Z,BLP З SUB 8 Ъ LD E,A LD A,(HL) AND 7 OR E LD (HL),A BLP LD A,(HL) AND 7 " JR Z,BLP1 ' DEC (HL) ,BLP1 INC HL 1 DEC BC 6 LD A,B ; OR C @ JR NZ,BL2 E HALT J HALT O DEC D T JR NZ,BL1 Y RET єOBJECT LD D,0 ╘ LD A,(POS) ў LD H,(IX+3) ╞ SUB 2 Ё CP H ╦ RET NC ҐADVERT ADD A,2 б CP H г RET C л LD A,(POS+1) я LD H,(IX+2) р SUB 2 ж CP H ш RET NC ЮADHOR ADD A,2 Е CP H Й RET C О SET 1,D Т RET INBLOW SET 1,(IX+1) LD A,6 LD (IX+4),A LD HL,SCORE INC (HL) CALL PRTAB RET BLOW LD A,(IX+4) ! CP 10 & JR NZ,BW1 + CALL DEAD 5 JP DPASS :BW1 LD D,(IX+2) ? LD E,(IX+3) D CALL PTBL I INC (IX+4) J LD D,7 K LD HL,VZRV L CALL SND M LD HL,VZRV+1 N RLC (HL) O JP DPASS lCHFIR LD D,0 q LD A,(FP) v LD H,(IX+3) { SUB 2 ─ CP H ┘ RET NC ┼ ADD A,3 ▐ CP H ■ RET C ≥ LD A,(FP+1) · LD H,(IX+2) ё SUB 2 ╗ CP H ґ RET NC ╡ ADD A,4 Ї CP H ╪ RET C а SET 1,D ф RET гDEAD RES 0,(IX+1) х LD HL,STAT и RES 0,(HL) й LD HL,COUNT к LD A,(HL) л AND A м JP Z,NEXTW н DEC (HL) о RET пDRAGON LD IX,TABL яSCAN CALL SINCL2 р LD (KEY),A у LD A,3 зDGON LD (CT),A ш BIT 0,(IX+1) э JR Z,DPASS ч BIT 1,(IX+1) ъ JP NZ,BLOW Д LD A,(STAT) И BIT 0,A Н JR Z,MODUL О CALL CHFIR С BIT 1,D Ь CALL NZ,INBLOW ЫMODUL LD A,(IX+3) З BIT 7,A Ш JR NZ,M1 Э CP 18 Щ CALL NC,DEAD M1 LD L,(IX) LD H,0 ADD HL,HL LD BC,SUBR ADD HL,BC LD A,(HL) INC HL % LD H,(HL) * LD L,A / LD (ENEM+1),HL MENEM CALL SEEKER R LD D,(IX+2) W LD E,(IX+3) \ LD A,(IX+4) a CALL PTBL b LD A,(DX) c LD (ADVERT+1),A d LD A,(DY) e LD (ADHOR+1),A f CALL OBJECT g BIT 1,D h CALL NZ,DEC1 iDPASS LD DE,5 j ADD IX,DE n LD A,(CT) r DEC A v JR NZ,DGON z LD A,(STAT) | BIT 0,A ~WP CALL NZ,FLAME ≤ LD A,(KEY) ² LD H,A ╒ LD DE,(POS) ї BIT 0,H ╛ JR Z,D1 ╠ LD A,D ╡ OR A І JR Z,D1 ╩ DEC D юD1 BIT 1,H е JR Z,D2 й LD A,D о CP 22 т JR Z,D2 ы INC D чD2 BIT 2,H Ц JR Z,D3 Х LD A,E И CP 13 М JR Z,D3 Р INC E ВD3 BIT 3,H Э JR Z,D4 LD A,E CP 2 JR Z,D4 DEC E D4 LD (POS),DE BIT 4,H CALL NZ,SETF ! CALL WIND $ LD BC,(POS) . LD (XC),BC 8 LD H,3 = LD7 LD L,2 B LD8 PUSH HL G CALL COMPUT L POP HL Q BIT 1,D V JP Z,UBIT [ INC B ` DEC L e JR NZ,LD8 j LD BC,(XC) o INC C t LD (XC),BC y DEC H ~ JR NZ,LD7 Ж D9 LD A,(NUM) CP 3 JR NZ,D5 XOR A LD (NUM),A ( D5 LD DE,(POS) 2 CALL PTBL < LD A,(NUM) F INC A P LD (NUM),A Z LD HL,(MAP) d LD DE,25 n AND A ┌ LD (MAP),HL ▄ LD BC,32766 √ IN A,(C) ═ RRCA ╙ JP NC,EXIT ╚ RRCA ╛ CHNG CALL NC,W1 Є JP DRAGON х UBIT LD DE,(POS) и LD A,E й CP 13 к ADC A,0 л LD E,A м LD A,D р CP 12 в JR NC,U1 э INC D А JR U2 Ф U1 DEC D К U2 LD (POS),DE Л LD A,(NUM) М JR D9 П DEC1 LD HL,ENGY У DEC (HL) Ж LD A,(HL) В AND A Ь CALL M,DEC2 Ы AND A З JP M,EXIT Ш CALL PRTAB Э LD D,(IX+2) Щ LD E,(IX+3) Ч LD A,9 Ъ CALL PTBL LD HL,UDAR LD D,3 CALL SND RET DEC2 LD HL,LIFE DEC (HL) LD A,9 LD (ENGY),A " LD A,(HL) ' RET TNEXTW LD HL,(PTR) Y LD DE,TABL ^ LD BC,15 c LDIR d LD SP,(STORE) h LD A,2 m LD (COUNT),A r LD DE,15 w LD HL,(PTR) | ADD HL,DE │ LD (PTR),HL ├ LD DE,59915 ▀ AND A ░ SBC HL,DE ∙ JP C,DRAGON LD HL,59690 ÷ LD (PTR),HL є JP DRAGON ╦SETF LD A,(STAT) Ґ BIT 0,A б RET NZ г SET 0,A л LD (STAT),A я LD DE,(POS) ж DEC E ш LD (FP),DE э LD A,3 щ LD (FS),A ч LD D,7 ъ LD HL,OGON Ю JP SND ЕFLAME LD A,(FS) Й CP 6 О JR NZ,FLAM1 Т LD A,(STAT) Ы RES 0,A Ч LD (STAT),A RET FLAM1 LD DE,(FP) CALL PTBL LD A,(FS) INC A LD (FS),A # RET ─FIRE LD A,(FP) ┘ CP 2 ┼ JR NC,FR1 ▐ LD A,(STAT) ■ RES 0,A ≥ LD (STAT),A LD DE,(FP) ⌡ LD A,8 ° CALL PTBL ² LD D,7 · LD HL,STUK ÷ CALL SND ═ RET ёFR1 LD DE,(FP) ╗ LD A,7 ґ CALL PTBL ╡ LD DE,(FP) Ї DEC E ╦ DEC E ╪ LD (FP),DE а RET ═DRAKON LD D,6 ║ LD HL,STUK ╒ CALL SND ё BIT 5,(IX+1) ╔ JR Z,DR1 ╙ LD A,(POS+1) ╞ SUB 4 Є CP (IX+2) ╧ CALL C,ATTACK Ў INC (IX+2) © LD A,(IX+2) ю CP 25 а CALL NC,SWAP цDR1 BIT 4,(IX+1) х JR Z,DR2 м LD A,(POS+1) р ADD A,4 в CP (IX+2) э CALL NC,ATTACK А DEC (IX+2) Ц LD A,(IX+2) Д CP 2 Е CALL C,SWAP1 ФDR2 BIT 2,(IX+1) К RET Z П INC (IX+3) У INC (IX+3) З RET ATTACK SET 2,(IX+1) RET SWAP RES 5,(IX+1) SET 4,(IX+1) RET SWAP1 RES 4,(IX+1) SET 5,(IX+1) RET hFALL INC (IX+3) i LD HL,ZUD j LD D,6 k CALL SND l LD HL,ZUD+1 m RLC (HL) n RET rSEEKER LD A,(POS+1) w CP (IX+2) | JR C,SEK1 │ INC (IX+2) ├ JR SEK2 ▀SEK1 DEC (IX+2) ░SEK2 LD A,(POS) ∙ CP (IX+3) JR C,SEK3 ÷ INC (IX+3) є RET ╘SEK3 DEC (IX+3) ╟ RET лSTRIKE LD A,(IX+3) я CP 2 ж CALL C,ATTACK ш BIT 2,(IX+1) Ю JR NZ,STDN Й DEC (IX+3) О RET ТSTDN INC (IX+3) Ы INC (IX+3) Ч RET 0W1 LD A,(STAT) 5 BIT 0,A : RET NZ ? LD HL,FIRE D LD (WP+1),HL I LD HL,W2 N LD (CHNG+1),HL S RET XW2 LD A,(STAT) ] BIT 0,A b RET NZ g LD HL,FLAME l LD (WP+1),HL q LD HL,W1 v LD (CHNG+1),HL { RET ■PRTAB CALL OPEN ≥ LD DE,#1C04 · CALL POS1 ё LD A,(ENGY) ╗ CALL DECIM ґ LD DE,#1C0B ╡ CALL POS1 Ї LD A,(LIFE) ╪ CALL DECIM а LD DE,#0D13 ф CALL POS1 к LD BC,(SCORE) п CALL 6683 у RET зPOS1 LD A,22 ъ RST 16 Д LD A,E И RST 16 Н LD A,D С RST 16 Ь RET ЩDECIM ADD A,#30 RST 16 RET OKNO CALL OPEN LD H,B LD L,C PUSH DE PUSH BC CALL POS1 %LN1 LD A,"a" * RST 16 / DJNZ LN1 4 POP BC 9 LD A,E > ADD A,C C DEC A H LD E,A M CALL POS1 RLN2 LD A,"a" W RST 16 \ DJNZ LN2 a POP DE f PUSH DE kLN3 CALL POS1 p LD A,"b" u RST 16 z INC E DEC C └ JR NZ,LN3 ┴ POP DE ▌ LD A,D ⌠ ADD A,H ≤ DEC A ² LD D,A ╒LN4 CALL POS1 ї LD A,"b" ╛ RST 16 ╠ INC E І DEC L ╩ JR NZ,LN4 ╪ RET юWRITE LD A,(DE) е CP #FF й RET Z о RST 16 т INC DE ы JR WRITE ┬WDW CALL RUS █ LD DE,#1900 ▓ LD BC,#710 ≈ CALL OKNO ° LD DE,#11 ║ LD BC,#2005 і CALL OKNO ї LD DE,ZAGLAV ╗ CALL WRITE ╙ CALL LAT ╚ RET PSND LD C,#FD ULP LD B,#FF Z LD A,(HL) _ OUT (C),A d LD B,#BF i INC HL n LD A,(HL) s OUT (C),A x INC HL } DEC D ┌ JR NZ,LP ┤ RET ▄STUK DEFB 0,9,1,0,7,54,8,16,12,10,13,1 ▒VZRV DEFB 6,31,7,7,8,16,9,16,10,16,12,50,13,1 √OGON DEFB 6,2,2,9,3,3,7,0,12,10,13,255,9,16 ⌡ZUD DEFB 0,9,1,0,7,56,8,16,12,99,13,1 ═UDAR DEFB 6,31,7,7,13,1 SETW LD A,(MX) DEC A " LD D,A ' LD A,(MY) , DEC A 1 LD E,A 6 LD A,(LEN) ; INC A < INC A @ LD B,A E LD A,(PM) J INC A K INC A O LD C,A T JP OKNO |WRTEX LD A,(DE) │ CP #FF ├ JR Z,INCR ▀ LD A,22 ░ RST 16 ∙ LD A,(R1) RST 16 ÷ LD A,(R0) є RST 16 ╘ LD A,(DE) ў RST 16 Ё LD HL,R0 ╦ INC (HL) Ґ INC DE б JR WRTEX гINCR LD A,(MX) л LD (R0),A я LD HL,R1 ж INC (HL) ш RET ЮPUNCT LD A,(MX) Е LD D,A Й LD A,(UM) О LD E,A Т CALL GET_A Ы LD A,(LEN) Ч LD B,A FL LD (HL),C INC L DJNZ FL RET SELECT LD A,(MY) LD B,A ! LD A,(UM) & SUB B + LD H,0 0 LD L,A 5 ADD HL,HL : LD DE,(ROUT) ? ADD HL,DE D LD D,(HL) I INC HL N LD E,(HL) S PUSH DE X RET ]FORM LD A,(MX) b LD D,A g LD A,(MY) l LD E,A q CALL GET_A v LD A,(PM) { LD B,A ─FO1 LD A,(LEN) ┘ LD C,A ┼FO2 LD (HL),120 ▐ INC L ■ DEC C ≥ JR NZ,FO2 · INC E ё CALL GET_A ╗ DJNZ FO1 ґ RET ╡MENU LD A,(MX) Ї LD (R0),A ╪ LD A,(MY) а LD (R1),A ф LD A,(PM) к LD B,A п LD A,(MY) у ADD A,B з LD (MAX),A ъ CALL OPEN Ю CALL RUS Д LD A,(PM) И LD B,A Н LD DE,(MSG) СPD CALL WRTEX Ь INC DE Щ DJNZ PD Ч CALL FORM Ъ CALL SETW UPR LD BC,32766 IN A,(C) RRCA JR C,DAL LD C,120 CALL PUNCT LD A,(UM) % INC A * LD (UM),A / LD B,A 4 LD A,(MAX) 9 CP B > JR NZ,DAL C LD A,(MY) H LD (UM),A MDAL LD C,8 R CALL PUNCT W LD BC,49150 \ IN A,(C) a RRCA f JP NC,EXIT g EI h HALT i HALT k JR UPR XPRT DEFM "SINCLAIR" Y DEFB 255 Z DEFM "KEMPSTON" [ DEFB 255 \ DEFM "KURSOR" ] DEFB 255 *