;*********************************************************
; NAMN		:	UTSIGNAL
; PROGRAMMERARE	:	L-O/IND
; DATUM		:	86-10-14
; MODIFIERAD	:	
;*********************************************************
;
; SYFTE		:	Skriva p} en port
;
; ANROPAS FR]N	:	tknkoll
;
; SUBRUTINER
;    EXTERNA	:	PUTCHR	L{gger tkn i tx-buffert
;
;*********************************************************
;
	FORMLN	42
	NAME	OUTSIG

	INCLUDE	TMC.H
;
COMND	EQU	'J'		; Kommando = J
;
; VARIABLER:
;
	EXTERN	PARAM
;
; LABLAR:
;
	EXTERN	PUTCHR
;
	INTERN	OUTSIG
;
	PAGE
;*********************************************************
;
; L{s data
; L{s portnr
; Skriv data p} porten
; "PUTCHAR" 'STX'
; "PUTCHAR" kommando
;
;*********************************************************
;
	RSECT	PROM
;
OUTSIG:
	PUSH	AF
	PUSH	BC
;
	LD	BC,(PARAM)	; H{mta portnr
	LD	A,(PARAM+2)	; H{mta data
	OUT	(C),A		; Skriv data p} porten
;
	LD	A,STX		;
	CALL	PUTCHR		; Skicka STX
	LD	A,COMND		;
	CALL	PUTCHR		; Skicka kommandot
;
	POP	BC
	POP	AF
	RET
;
	END
