;UPRAVA PRVNI CASTI DVOUDILNYCH
;MSX HER
;ADJDDHMSX ; 02-NOV-91 ; 13:29

;(C) ROS, 10-SEP-91

	.RADIX 16T

	ORG	0D000

;--------------------------------
START	DI
	LD	A,(0006)
	CP	10
	JR	Z,SORDM5
	CALL	0138
	PUSH	AF
	LD	B,4
HLEDEJ	LD	A,B
	DEC	A
	LD	HL,4000
	PUSH	HL
	PUSH	BC
	CALL	0024
	POP	BC
	POP	HL
	LD	A,(HL)
	CPL
	LD	(HL),A
	LD	C,(HL)
	CP	C
	JR	Z,NASEL
	DJNZ	HLEDEJ
	POP	AF
	CALL	013B
	LD	A,7
	JP	406F
;--------------------------------
NASEL	CALL	0138
	LD	(0FFFE),A
	LD	D,40
	CALL	REGS
	LDIR
	POP	AF
	JP	013B
;--------------------------------
SORDM5	CALL	0041
	LD	HL,005C
	PUSH	HL
	LD	D,H
REGS	LD	HL,9000
	LD	E,L
	LD	BC,4000
	RET
;--------------------------------
ZKONEC
	END
