;*********************************************************
; NAMN		:	TRANSMIT-INTERRUPT-RUTIN
; PROGRAMMERARE	:	L-O/IND
; DATUM		:	86-10-14
; MODIFIERAD	:	
;*********************************************************
;
; SYFTE		: Skicka tecken fr}n tx-buffert
;
; ANROPAS FR]N	: SIO:n
;
; SUBRUTINER
;    EXTERNA	: TRMCHR   Skickar tkn fr}n tx-buffert
;
;*********************************************************
;
	FORMLN	42
	NAME	TRMIRQ

	INCLUDE	TMC.H
;
; LABLAR:
;
	EXTERN	TRMCHR
	EXTERN	EIRETI		; mice-special, EI och RETI i RAM
;
	INTERN	TRMIRQ
;

	PAGE
;*********************************************************
;
	RSECT	PROM
;
TRMIRQ:
	PUSH	AF
	PUSH	BC
	PUSH	DE
	PUSH	HL
;
	CALL	TRMCHR
;
	POP	HL
	POP	DE
	POP	BC
	POP	AF

	JP	EIRETI		; mice-special EI och RETI i RAM

;	EI
;	RETI

	END
