;UPRAVA HRY MSX WILD CAT
;ADJWILCAT ; 15-AUG-91 ; 16:19

;(C) ROS, 20-OCT-90

	.RADIX 16T

	ORG	8500

;--------------------------------
START	DI
	LD	A,(0006)
	CP	10
	JP	NZ,8600
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	A,10
	LD	(8886),A
	LD	(8893),A
	LD	(88E9),A
	LD	(88F8),A
	LD	(89B3),A
	LD	(9099),A
	INC	A
	LD	(8874),A
	LD	(8879),A
	LD	(887E),A
	LD	(8883),A
	LD	(888B),A
	LD	(8890),A
	LD	(88E1),A
	LD	(88E6),A
	LD	(88F3),A
	LD	(88F6),A
	LD	(894C),A
	LD	(89A7),A
	LD	(89AB),A
	LD	(9088),A
	LD	(908D),A
	LD	A,3
	LD	(863E),A
	LD	HL,SNSMAT
	LD	(8971),HL
	LD	HL,TEST
	LD	(862A),HL
	LD	HL,03F0
	LD	A,(HL)
	LD	(HL),0C3
	LD	(SCHOVA),A
	IN	A,(11)
	JR	8600
;--------------------------------
SNSMAT	IN	A,(30)
	BIT	0,A
	JR	NZ,8600
	RLCA
	AND	04
	CPL
	RET
;--------------------------------
TEST	DI
	IN	A,(30)
	CPL
	AND	0C
	JR	Z,SHIFTY
	IN	A,(50)
	RLCA
VEN	JP	NC,0C33A
RESET	IN	A,(50)
	RLCA
	JR	C,RESET
	LD	HL,0CBD4
	LD	A,35
	XOR	(HL)
	LD	(HL),A
	JR	VEN
SHIFTY	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 '15-AUG-91',0
;--------------------------------
ZKONEC
	END	8FF8
