EDASTEXTASM;
;TRANSFERPROGRAMME
;		EDAS	-->TEXOR
;	TEXOR	-->EDAS
;	COPYRIGHTBY	K.-D.	KIRVES
;	30.1.87
;
	ORG	0BF00H
;VEREINBAHRUNGEN
TEXT	EQU	40H
TEXTEN	EQU	TEXT+2
GAPAN	EQU	TEXTEN+2
GAPEN	EQU	GAPAN+2
CUHOM	EQU	0C227H
MOVER	EQU	0C7C2H
;
;	EDAS	-->	TEXOR
TABMER:	DEFB	0
	DEFW	0DDDDH
	DEFM	'>TEXOR'
	DEFB	1
	CALL	CUHOM
	CALL	MOVER
	LD	HL,(GAPEN)
	LD	BC,200H
	LD	IY,TABMER
	XOR	A
	LD	(IY),A
	LD	(BC),A
	INC	BC
TX1:	LD	A,(HL)
	CP	0AH
	INC	HL
	JR	NZ,TX2
	DEC	(IY)
	LD	(IY),0
	JR	NZ,TXX1
	LD	A,20H
	LD	(BC),A
	INC	BC
TXX1:	XOR	A
	JR	TX3
;
TX2:	CP	0DH
	JR	Z,TX1
	CP	03H
	JR	Z,TXEND
	CP	9
	JR	NZ,TXX2
	INC	(IY)
	LD	A,5FH
TXX2:	CP	20H
	JR	NZ,TXX3
	INC	(IY)
TXX3:	CP	';'
	JR	NZ,TX3
	LD	(IY),2
TX3:	LD	(BC),A
	INC	BC
	JR	TX1
;
TXEND:	XOR	A
	LD	(BC),A
	DEC	A
	INC	BC
	LD	(BC),A
	INC	BC
	LD	(BC),A
	INC	BC
	LD	(BC),A
	RET
;
;	TEXOR	-->	EDAS
;
	DEFW	0DDDDH
	DEFM	'>EDAS'
	DEFB	1
	LD	HL,200H
	LD	A,0FFH
ED2:	CP	(HL)
	INC	HL
	JR	NZ,ED2
	DEC	HL	;1.FF
	DEC	HL	;LETZTES ZEICHEN
	LD	BC,(TEXTEN)
	LD	A,3
ED4:	LD	(BC),A
	DEC	BC
	LD	E,(HL)
	DEC	HL
	LD	A,H
	CP	1
	JR	Z,EDEND
	LD	A,E
	AND	A
	JR	Z,ED5
	CP	5FH
	JR	NZ,ED4
	LD	A,9
	JR	ED4
;
ED5:	LD	A,0DH
	LD	(BC),A
	DEC	BC
	LD	A,0AH
	JR	ED4
;
EDEND:	INC	BC
	LD	(GAPEN),BC
	RET
;
