;*********************************************************
; NAMN		:	INSIGNAL
; PROGRAMMERARE	:	L-O/IND
; DATUM		:	86-10-14
; MODIFIERAD	:	
;*********************************************************
;
; SYFTE		: L{sa p} en port
;
; ANROPAS FR]N	: tknkoll
;
; SUBRUTINER
;    EXTERNA	: PUTNUM   Konverterar testresultatet till
;			   HEX-tecken och anropar PUTCHR
;		  PUTCHR   L{gger tkn i tx-buffert
;
;*********************************************************
;
	FORMLN	42
	NAME	INSIG

	INCLUDE	TMC.H
;
COMND	EQU	'I'		; Kommando = I
;
; VARIABLER:
;
	EXTERN	PARAM
;
; LABLAR:
;
	EXTERN	PUTCHR,PUTNUM
;
	INTERN	INSIG
;
	PAGE
;*********************************************************
;
;	L{s portnummer
;	L{s p} porten
;	"PUTCHAR" 'STX'
;	"PUTNUM" l{st v{rde
;	"PUTCHAR" kommando
;
;*********************************************************
;
	RSECT	PROM
;
INSIG:
	PUSH	AF
	PUSH	BC
;
	LD	BC,(PARAM)	; H{mta portnr
	IN	B,(C)		; L{s p} porten
;
	LD	A,STX		;
	CALL	PUTCHR		; Skicka STX
;
	LD	A,B		; Skicka returparameter
	CALL	PUTNUM		;
;
	LD	A,COMND		;
	CALL	PUTCHR		; Skicka kommandot
;
	POP	BC
	POP	AF
	RET
;
	END
