.z80
	.phase 1500h
;UP-NUMMER WIRD AUF ADR. 0 UEBERGEBEN
;REGISTER RETTEN UND IRM ON
	PUSH	AF
	PUSH	BC
	PUSH	DE
	PUSH	HL
	IN	A,(88H)
	PUSH	AF
	SET	2,A
	OUT	(88H),A
	LD	DE,UPTAB
	LD	A,(0)	;UP-NUMMER
	RL	A	;UP*2
	LD	D,0
	LD	E,A
	ADD	HL,DE
	CALL	JPHL
	POP	AF
	OUT	(88H),A
	POP	HL
	POP	DE
	POP	BC
	POP	AF
	RET
JPHL:	JP	(HL)
UPTAB:	DEFW	SCRHO	;UP 0
	DEFW	SCRRU	;UP 1
	DEFW	SCRLI
	DEFW	SCRRE
	DEFW	PUFIRM
	DEFW	IRMPUF
	DEFW	0FFFFH
	DEFW	0FFFFH
	DEFW	0FFFFH
	DEFW	0FFFFH
SCRHO:	LD	BC,255
	LD	HL,8001H
	LD	DE,8000H
SCRHO1:	PUSH	BC
	PUSH	HL
	PUSH	DE
	LDIR
	POP	DE
	POP	HL
	POP	BC
	LD	(HL),0
	INC	H
	INC	D
	LD	A,H
	CP	0A0H
	JR	C,SCRHO1
	RET
SCRRU:	LD	HL,80FEH
	LD	DE,80FFH
	LD	BC,255
	INC	HL
	LD	(HL),0
	DEC	HL
SCRRU1:	PUSH	BC
	PUSH	HL
	PUSH	DE
	LDDR
	POP	DE
	POP	HL
	POP	BC
	LD	(HL),0
	INC	H
	INC	D
	LD	A,H
	CP	0A0H
	JR	C,SCRRU1
	RET
SCRLI:	LD	HL,8100H
	LD	DE,8000H
	LD	B,32
SCRLI0:	PUSH	HL
	PUSH	DE
	PUSH	BC
SCRLI1:	LD	A,(HL)
	LD	(DE),A
	INC	D
	INC	H
	DJNZ	SCRLI1
	POP	BC
	POP	DE
	POP	HL
	DEC	H
	LD	(HL),0
	INC	H
	INC	L
	INC	E
	LD	A,E
	CP	254
	JR	C,SCRLI0
	RET
SCRRE:	LD	HL,09F00H
	LD	DE,0A000H
	LD	B,32
SCRRE0:	PUSH	HL
	PUSH	DE
	PUSH	BC
SCRRE1:	LD	A,(HL)
	LD	(DE),A
	DEC	D
	DEC	H
	DJNZ	SCRRE1
	POP	BC
	POP	DE
	POP	HL
	INC	H
	LD	(HL),0
	DEC	H
	INC	L
	INC	E
	LD	A,E
	CP	254
	JR	C,SCRRE0
	RET
PUFIRM:	LD	HL,(1)
	LD	DE,8000H
	JR	SCHNUF
	RET
IRMPUF:	LD	HL,(1)	;PARAMETER
	LD	DE,8000H
	EX	DE,HL
SCHNUF: LD	BC,27FFH
	LDIR
	RET
	end