;*********************************************************
; NAMN		:	ENABLE TXIRQ
; PROGRAMMERARE	:	L-O/IND
; DATUM		:	86-10-14
; MODIFIERAD	:	
;*********************************************************
;
; SYFTE		: Enable transmit-interrupt
;
; ANROPAS FR]N	: tknkoll, putchar, recirq
;
; SUBRUTINER
;    EXTERNA	: TRMCHR  Skickar tkn fr}n tx-buff
;
;*********************************************************
;
	FORMLN	42
	NAME	ENABLE

	INCLUDE	TMC.H
;
; VARIABLER:
;
	EXTERN	TXIRQS
;
; LABLAR:
;
	EXTERN	TRMCHR
;
	INTERN	ENABLE
;
	PAGE
;*********************************************************
;
; CASE "Enable?"
;     WHEN txirq {r Disabled
;         Disable interrupt
;         Enable txirq
;         Txirq-status = ENABL
;         "TRMCHR" WHEN SIO:n beredd ta emot tkn
;         Enable interrupt
; END "Enable"
;
;*********************************************************
;
	RSECT	PROM
;
ENABLE:
	LD	A,(TXIRQS)
	CP	ENABL		; Redan Enabled?
	JP	Z,RETURN	; Ja
;
	DI			; Nej
	LD	A,1		; 
	OUT	(SIOAC),A	; Enable txirq
	LD	A,00010110B	;
	OUT	(SIOAC),A	;
	LD	HL,TXIRQS
	LD	(HL),ENABL	; Txirq-status = ENABL
;
	LD	A,0		; Register 0
	OUT	(SIOAC),A
	IN	A,(SIOAC)
	AND	04H		; Kan SIO:n ta emot
	BIT	2,A		; ett tecken?
	JP	Z,$+6		; Nej
;
	CALL	TRMCHR		; Ja, skicka tkn
	EI
RETURN:
	RET
;
	END
