;UPRAVA HRY ALIEN 8
;ADJALIEN0 ; 12-OCT-91 ; 11:34

;(C) LZR Soft, 12-OCT-91


	.RADIX	16T

	ORG	0FC00

RUN	LD	HL,8410
	LD	DE,7F00
	PUSH	DE
	LD	BC,02B0
	LDIR
	EX	DE,HL
	LD	(HL),00
	PUSH	HL
	POP	DE
	INC	DE
	LD	BC,050F
	LDIR
	POP	HL
	LD	DE,5AFE
	LD	BC,7D00
	LDIR
	JP	6300
START	LD	SP,0000
	LD	HL,0000
	LD	BC,4000
	XOR	A
	CALL	0E01
	CALL	0E0B
	CALL	0C5C
	CALL	0B1F
	LD	HL,3800
	XOR	A
	LD	B,3
LOOP	RST	10
	INC	HL
	INC	A
	JR	NZ,LOOP
	DJNZ	LOOP
	DI
	OUT	(7F),A
	INC	A
	OUT	(30),A
	LD	A,3
	OUT	(6C),A
	LD	HL,0000
	LD	DE,0001
	LD	BC,2000
	LD	(HL),00
	LDIR
	EX	DE,HL
	LD	HL,DATA
	LD	BC,00FF
	LDIR
	LD	A,0C9
	LD	(1F00),A
	LD	A,0A1
	OUT	(20),A
	XOR	A
	OUT	(20),A
	JR	0FC00
DATA	DS 0FF
ZZZ
	END	START
