.Z80
;TREIBER FUER SLAVE
;5.05.89
	.PHASE	4080H
;VEREINBARUNGEN:
CAOS	EQU	0F003H
MODU	EQU	26H		;UP NR.CAOS
PUFAD	EQU	0B700H
;SYSTEMZELLEN CAOS
HCADR	EQU	0B799H		;HARD-COPY-ADRESSE
;
MKENN	EQU	0EEH
SIO	EQU	08H
SIOB	EQU	SIO+1
CTC	EQU	0CH
INITL:	JR	START	;AUFRUF INITIALISIERUNG
;
INTAB:	DEFB	47H	;BETRIEBSART CTC
	DEFB	5BH	;ZEITKONST.CTC
INTABS:	DEFB	18H
	DEFB	4	;->WR4
	DEFB	4	;9600 BAUD
	DEFB	3	;->WR3
	DEFB	20H
	DEFB	5	;->WR5
	DEFB	6AH
;DRUCKEREINSTELLUNGEN
TABEND	EQU	$
;
START:	LD	C,CTC
	LD	B,INTABS-INTAB	;COUNTER
	LD	HL,INTAB
	DI
	OTIR
;INIT SIO
	LD	C,SIO+2
	LD	B,TABEND-INTABS
	OTIR
 	LD	HL,SD1
	LD	(0B7BEH),HL
	RET
;
;***************************************
; ZEICHENAUSGABE ZEICHEN IN A
SD1:	PUSH	AF
SD6:	IN	A,(SIO+2)
	BIT	2,A
	JR	Z,SD6
SD5:	POP	AF
	OUT	(SIO),A
	RET
;	
	.DEPHASE
	END