ZXTape!шMETEOR =├┌Айш? ORG 60000 RST 18H 0 RST 20H @ CALL 1C81H P CALL 1E94H ` LD (SPEED),A p Z10 LD A,0 А CALL 229BH Р CALL 0D4DH LD A,17 RST 16 LD A,1 0 RST 16 @ CALL 1CADH P LD A,16 ` RST 16 p LD A,6 А RST 16 Р CALL 1CADH CALL 0D6BH LD A,2 CALL 1601H 0 Z20 LD A,22 @ RST 16 P LD A,10 ` RST 16 p LD A,12 А RST 16 Р LD A,20 RST 16 LD A,1 RST 16 0 LD DE,TITEL @ LD BC,8 P CALL 203CH ` JP Z40 p TITEL DEFB 130 А DEFM "METEOR" Р DEFB 129 Z40 LD A,20 RST 16 LD A,0 0 RST 16 @ LD A,7 P LD (LABZ),A ` Z60 LD HL,UDGTA p Z70 LD DE,(23675) А LD BC,8 Р LDIR JP Z100 UDGTA DEFB 40 DEFB 108 0 DEFB 124 @ DEFB 108 P DEFB 56 ` DEFB 56 p DEFB 16 А DEFB 16 Р Z100 LD HL,0 LD (LABX),HL XOR A LD B,115 0 RST 38H @ LD A,(23560) P CP B ` JP NZ,Z100 p Z110 LD BC,(LABX) А INC C Р XOR A CP C CALL Z,UEBER LD (LABX),BC 0 CALL WAIT @ Z130 LD C,0 P LD A,(LABZ) ` LD B,A p CALL 2538H А CALL 2BF1H Р LD A,(DE) CP "*" JP NZ,Z300 Z150 CALL 0D6BH 0 LD A,2 @ CALL 1601H P LD A,22 ` RST 16 p LD A,10 А RST 16 Р LD A,0 RST 16 LD DE,GAMEO LD BC,25 0 CALL 203CH @ LD BC,(LABX) P LD H,B ` LD L,C p LD DE,22 А SBC HL,DE Р LD B,H LD C,L CALL 1A1BH JP Z100 0 GAMEO DEFM "GAME OVER ! You scored : " @ UEBER INC B P RET ` Z300 LD A,22 p RST 16 А LD A,0 Р RST 16 LD A,(LABZ) RST 16 LD A,144 0 RST 16 @ RST 28H P DEFB 161 ` DEFB 164 p DEFB 05H А DEFB 164 Р DEFB 05H DEFB 38H LD A,0 CALL 2D28H 0 CALL 03F8H @ Z310 XOR A P RST 38H ` LD A,(23560) p CP 32 А RET Z Р CP "5" JP Z,GOL CP "8" JP Z,GOR 0 JP Z320 @ SUB LD BC,(5C76H) P CALL 2D2BH ` RST 28H p DEFB 161 А DEFB 0FH Р DEFB 34H DEFB 37H DEFB 16H DEFB 04H 0 DEFB 34H @ DEFB 80H P DEFB 41H ` DEFB 00H p DEFB 00H А DEFB 80H Р DEFB 32H DEFB 02H DEFB 161 DEFB 03H 0 DEFB 31H @ DEFB 38H P CALL 2DA2H ` LD (5C76H),BC p LD A,(HL) А AND A Р JR Z,JUMP1 SUB 10H LD (HL),A JUMP1 SET 6,(IY+1) 0 LD A,31 @ CALL 2D28H P RST 28H ` DEFB 04H p DEFB 27H А DEFB 38H Р CALL 1E94H RET Z320 CALL SUB PUSH AF 0 LD A,22 @ RST 16 P LD A,21 ` RST 16 p POP AF А RST 16 Р LD A,42 RST 16 CALL SUB PUSH AF 0 LD A,22 @ RST 16 P LD A,21 ` RST 16 p POP AF А RST 16 Р LD A,42 RST 16 CALL 3582 JP Z110 0 GOL LD A,(LABZ) @ CP 0 P JP Z,Z320 ` CP 1 p JP Z,Z320 А DEC A Р LD (LABZ),A JP Z320 GOR LD A,(LABZ) CP 30 0 JP Z,Z320 @ CP 31 P JP Z,Z320 ` INC A p LD (LABZ),A А JP Z320 Р LABZ DEFB 0 ! LABX DEFW 0 ! SPEED DEFB 0 ! WAIT LD A,(SPEED) !0 LD B,A !@ JUMP2 HALT !P DJNZ JUMP2 !` RET !p END m