Цитата Сообщение от jerri Посмотреть сообщение
newart, посмотри fairlight там внутри кусок исходника лежит
вроде генс
вот вручную вырезал (какие-то символы мог ненароком удалить):
Код:
,(IY+TE+23)
	LD	A,(V+3)
	CP	7
	JP	NZ,BTM
	LD	A,(IX+14)
	AND	A
	JR	Z,BGGI
	PUSH	HL
	PUSH	DE
	PUSH	IX
	LD	L,(IY+30)
	LD	H,255
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	PUSH	DE
	POP	IX
	CP	(IX+19)
	POP	IX
	POP	DE
	POP	HL
	JR	Z,BGGI
	LD	(IY+7),2
	JP	BTM
BGGI	LD	A,(IX+17)
	LD	C,A
	AND	(IY+TE+24)
	JP	Z,BTM
	LD	A,(V+52)
	CP	61
	JR	NZ,BEGT
	BIT	1,(IY+17)
	JP	Z,BTM
BEGT	CALL	BUT
	LD	L,(IX+15)
	LD	E,(IX+18)
	LD	A,C
	AND	60
	JR	NZ,DIZ
	LD	A,B
	SUB	(IX+6)
	JP	C,BTM
	LD	B,A
	ADD	A,(IY+TE+9)
	SUB	(IX+9)
	JP	NC,BTM
	LD	A,L
	ADD	A,B
	LD	B,A
	LD	H,E
	BIT	6,C
	JR	NZ,DIZ1
	LD	A,E
	SUB	(IY+TE+11)
	LD	H,A
	JR	DIZ1
DIZ	LD	A,C
	AND	48
	JR	Z,DIZ0
	LD	A,B
	SUB	(IX+6)
	ADD	A,L
	LD	B,A
	LD	A,H
	SUB	(IX+8)
	ADD	A,E
	LD	H,A
	LD	A,(IX+16)
	BIT	4,C
	JR	Z,DIZ2
	ADD	A,(IY+TE+10)
	JR	DIZ2
DIZ0	LD	A,H
	SUB	(IX+8)
	JP	C,BTM
	LD	H,A
	ADD	A,(IY+TE+11)
	SUB	(IX+11)
	JP	NC,BTM
	LD	A,H
	LD	A,E
	ADD	A,H
	LD	H,A
	LD	A,L
	LD	B,A
	BIT	3,C
	JR	NZ,DIZ1
	SUB	(IY+TE+9)
	LD	B,A
DIZ1	LD	A,D
	SUB	(IX+7)
	JP	NC,BTM
	LD	D,A
	SUB	(IY+TE+10)
	ADD	A,(IX+10)
	JP	NC,BTM
	LD	A,(IX+16)
	ADD	A,D
DIZ2	LD	D,A
	CALL	BUT2
	EXX
	LD	C,(IX+13)
	LD	HL,OBJ3D-5
	PUSH	IX
FIR5	LD	DE,5
	ADD	HL,DE
FIRR	LD	E,(HL)
	INC	HL
	LD	A,(HL)
	CP	70
	JR	NC,FIRE
	LD	A,E
	CP	C
	JR	NZ,FIR5
	PUSH	HL
	PUSH	BC
	LD	A,(HL)
	INC	HL
	LD	DE,V+80
	LD	BC,4
	LDIR
	PUSH	DE
	LD	HL,OBJ-5
	LD	DE,11
	INC	A
FIR4	ADD	HL,DE
	DEC	A
	JR	NZ,FIR4
	POP	DE
	LD	BC,3
	LDIR
	LD	IX,V+75
	EXX
	CALL	BB2
	EXX
	POP	BC
	POP	HL
	JR	NC,FIR5
	BIT	4,(IX+5)
	JR	NZ,FIR5
	LD	(IY+7),1
	POP	IX
	JP	BTM
FIREN	LD	(IY+52),C
	POP	AF
	EXX