EQU	16HCRT	EQU	˜yû	EQU	0B7A0H;]â:ó;;***************************************;*				       *;*   Wordpro-Treiber 32x80 und einige  *;*   andere Verbesserungen	       *;*				       *;***************************************;@3000H	ORG	280HDISP	SUB	20HDISP	LD	HL,(257H)	SRL	H	SRL	H	SRL	H	SRL	L	BIT	5,L	JR	NZ,DISP8	SET	7,H	BIT	0,H	JR	Z,DISPB	RES	0,H	SET	6,LDISPB	LD	D,0BAH	JR	C,DISPY	ADD	A	ADD	A	LD	E,A	JR	NC,DISPX1	INC	DDISPX1	LD	A,(250H)	RRCA	SBC	A	LD	C,A	CALL	DISPX2	SET	5,LDISPX2	RES	0,H	CALL	DISPX3	SET	0,HDISPX3	RES	7,L	RLD	LD	A,(DE)	XOR	C	LD	B,A	RRCA	RRCA	RRCA	RRCA	RRD	SET	7,L	RLD	LD	A,B	RRD	INC	E	RET;DISPY	ADD	A	ADD	A	LD	E,A	JR	NC,DISPY1	INC	DDISPY1	LD	A,(250H)	RRCA	SBC	A	LD	C,A	CALL	DISPY2	SET	5,LDISPY2	RES	0,H	CALL	DISPY3	SET	0,HDISPY3	RES	7,L	RRD	LD	A,(DE)	XOR	C	LD	B,A	RRCA	RRCA	RRCA	RRCA	RLD	SET	7,L	RRD	LD	A,B	RLD	INC	E	RET;DISP8	PUSH	AF	LD	A,H	RLCA	RLCA	AND	18H	OR	L	AND	1FH	LD	L,A	LD	A,H	RRCA	JR	NC,DISP9	SET	6,LDISP9	RRCA	AND	6	OR	0A0H	LD	H,A	POP	AF	JR	DISPB;;*__*__*__*__*__*__*__*__*__*__*__*__*__;	ORG	376HINPUT	CALL	0F003H	DEFB	0EH	JR	C,INP1INP2	BIT	0,(IX+8)	JR	Z,INP2	JR	INPUT;INP1	BIT	1,(IX+60H)	RET Z	PUSH	AF	DI	LD	A,7	OUT	8CH	LD	A,40	OUT	8CH	LD	A,0C7H	OUT	8EH	LD	A,3	OUT	8EH	EI	POP	AF	RET;	ORG	1426H	RET	ORG	1449H	RET;	ORG	0B94DH-0B900H+1C00H	DEFB	1EH	ORG	0DDCH	DEFW	1978H;	ORG	1A98H	LD	A,1	LD	(0B7C9H),A;	ORG	854H	LD	A,7	OUT	8CH	LD	A,160	OUT	8CH	LD	A,0C7H	OUT	8EH	LD	A,28	OUT	8EH	JR	86EH;	ORG	10FBH	DEFM	' improved by F.Klemm,'	DEFM	' 4/89 ';;*__*__*__*__*__*__*__*__*__*__*__*__*__;]â:ó