;UPRAVA HRY MSX XYZOLOC
;ADJXYZOLO ; 07-AUG-91 ; 17:35

;(C) ROS, 20-OCT-90

	.RADIX 16T

	ORG	0D000

;--------------------------------
START	DI
	LD	HL,9000
	LD	DE,8000
	LD	BC,4000
	LDIR
	LD	A,(0006)
	CP	10
	JR	NZ,RUN
SORDM5	LD	HL,0F3E9
	LD	A,0F
	LD	(HL),A
	INC	HL
	LD	A,4
	LD	(HL),A
	INC	HL
	LD	(HL),A
	CALL	00CC
	CALL	006F
	LD	HL,TEXT
TISK	LD	A,(HL)
	OR	A
	JR	Z,PAUSE
	CALL	00A2
	INC	HL
	JR	TISK
PAUSE	LD	B,0E
PAUS1	XOR	A
PAUS2	DEC	A
	JR	NZ,PAUS2
	DEC	BC
	OR	B
	JR	NZ,PAUS1
	DI
	LD	HL,TEST
	LD	(8027),HL
	LD	HL,03F0
	LD	A,(HL)
	LD	(SCHOVA),A
	LD	A,0C3
	LD	(HL),A
	XOR	A
	LD	B,5
	LD	HL,0B931
	LD	(HL),0CD
	INC	HL
	LD	(HL),93
LOOP	INC	HL
	LD	(HL),A
	DJNZ	LOOP
	LD	HL,9A2F
	LD	(HL),0DB
	INC	HL
	LD	(HL),50
	INC	HL
	LD	(HL),A
	INC	HL
	LD	(HL),0E6
	INC	HL
	LD	(HL),80
	INC	HL
	LD	(HL),20
	INC	HL
	LD	(HL),12
	IN	A,(11)
RUN	EI
	LD	HL,(8002)
	JP	(HL)
;--------------------------------
TEST	IN	A,(30)
	CPL
	AND	0C
	JP	NZ,8278
	LD	A,(SCHOVA)
	LD	(03F0),A
	JP	0000
;--------------------------------
SCHOVA	DB	00
TEXT	DB 0C,0A,0A,0A,0A,0A,0A,09,'Pro SORD m.5',0D,0A,0A,'      upravil LZR Soft',0D,0A,0A,09,20
	DB '07-AUG-91',0
;--------------------------------
ZKONEC
	END	8FF8
