;	V24 - ermoeglicht den Transfer zum WANG 
;	ueber die serielle Schnittstelle als LST:-Device in PIP.
;
;	V24 patcht dazu ins BIOS:
;	- die Transfer-Kenngroessen in die SIO-A Initialisierungsroutine (s.u.)
;	- die Transmit Buffer Empty-Abfrage in die Output-Routine.
;
;	Im IO-Byte wird auf das LST:-Device umgeschaltet.
;
;	18.10.84
;
	.Z80

	JP V24

SIOAC	EQU 06		;CONTROL PORT NO.
IOBYTE	EQU 03		;IO-BYTE ADDRESS
IADDR 	EQU 0F383H	;INIT-PATCH ADDRESS
OADDR 	EQU 0F396H	;OUTPUT-PATCH ADDRESS

IPATCH:	DB 11000100B	;x64 CLOCK, 1 STOP BIT, NO PARITY
	DB 00010101B	;SELECT WR5
	DB 01101010B	;NO DTR, 8 BIT, Tx ENABLE, RTS
OPATCH:	BIT 2,A		;Tx BUFFER EMPTY ?

V24:	LD DE,IADDR 
	LD HL,IPATCH
	LDI
	LDI
	LDI
	LD DE,OADDR
	LD HL,OPATCH
	LDI
	LDI
;
	LD A,21H	;IO-Byte umsetzen
	LD (IOBYTE),A
	RET
	END
