;UPRAVA MSX HRY JUMP LAND
;ADJJUMPLA ; 04-JUL-91 ; 19:42

;(C) ROS, 20-OCT-90

	.RADIX 16T

	ORG	0BFE0

;--------------------------------
ADR1	EQU	0C16A ;INIT INT
ADR2	EQU	0C314 ;SUBR INT
ADR3	EQU	0DF78 ;LIVE-
ADR4	EQU	0C160 ;START
;--------------------------------
START	DI
	LD	A,(0006)
	CP	10
	JP	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	BC,0E00
PAUS1	XOR	A
PAUS2	DEC	A
	JR	NZ,PAUS2
	DEC	BC
	OR	B
	JR	NZ,PAUS1
	LD	A,3
	LD	(0C17E),A
	LD	HL,0730
	LD	(0C33B),HL
	LD	HL,34DB
	LD	(0C69E),HL
	LD	HL,002F
	LD	(0C6A0),HL
	LD	A,10
	LD	(0C4F2),A
	LD	(0C56E),A
	LD	(0C57B),A
	LD	(0C5E4),A
	LD	(0C5F3),A
	INC	A
	LD	(0C316),A
	LD	(0C4E6),A
	LD	(0C4EA),A
	LD	(0C55C),A
	LD	(0C561),A
	LD	(0C566),A
	LD	(0C56B),A
	LD	(0C573),A
	LD	(0C578),A
	LD	(0C5DC),A
	LD	(0C5E1),A
	LD	(0C5EE),A
	LD	(0C5F1),A
	LD	HL,0000
	LD	(0C66A),HL
	LD	(0C66C),HL
	LD	(0C670),HL
	LD	HL,ZM1
	LD	DE,0C672
	LD	BC,ZM2-ZM1
	LDIR
	LD	HL,ZM3
	LD	DE,0D1A2
	LD	BC,ZM4-ZM3
	LDIR
	LD	HL,ZM4
	LD	DE,0D346
	LD	BC,ZMK-ZM4
	LDIR
	LD	DE,0D176
	CALL	MOVE
	LD	DE,0D17F
	CALL	MOVE
	LD	DE,0D242
	CALL	MOVE
	LD	DE,0D31C
	CALL	MOVE
	LD	HL,TEST
	LD	(ADR1),HL
	IN	A,(11)
RUN	EI
	JP	ADR4
;--------------------------------
TEST	IN	A,(30)
	CPL
	AND	0C
	JP	Z,0000
	IN	A,(50)
	RLCA
	JR	C,RESET
VEN	POP	AF
	JP	ADR2
;---------------
RESET	IN	A,(50)
	RLCA
	JR	C,RESET
	LD	A,(ADR3)
	XOR	35
	LD	(ADR3),A
	JR	VEN
;--------------------------------
MOVE	LD	HL,ZM2
	LD	BC,ZM3-ZM2
	LDIR
	RET
ZM1	LD	E,4F
	JR	ZM
	LD	E,0F
ZM	NOP
	CALL	0093
	LD	A,0E
	CALL	0096
	NOP
ZM2	NOP
	NOP
	CALL	0096
	DI
ZM3	NOP
	NOP
	LD	B,A
	CALL	0096
	DI
ZM4	NOP
	NOP
	PUSH	DE
	LD	E,C
	CALL	0093
	POP	DE
	DI
ZMK
;--------------------------------
TEXT	DB 0C,0A,0A,0A,0A,0A,0A,09,'Pro SORD m.5',0D,0A,0A,09,'v potu tvare',0D,0A,0A
	DB '       pracne upravil',0D,0A,0A
	DB 09,'  LZR Soft',0D,0A,0A,09,20
	DB '04-AUG-91',0
;--------------------------------
ZKONEC
	END	8FF8
