;*********************************************************
; NAMN		:	RESET - TEST
; PROGRAMMERARE	:	L-O/IND
; DATUM		:	86-10-14
; MODIFIERAD	:	
;*********************************************************
;
; SYFTE		:	Kontrollera att kortet resetas
;
; 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	RESETTEST

	INCLUDE	TMC.H
;
COMND	EQU	'L'			; Kommando = L
;
; VARIABLER:
;
	EXTERN	STATUS
;
; LABLAR:
;
	EXTERN	RE, EX		; Str{ng
	EXTERN	PUTNUM, PUTCHR
;
	INTERN	RSTTST
;
	PAGE
;*********************************************************
;
; Skriv "RE" i RAM
; Reseta
; Skriv "EX" i RAM
; "PUTCHAR" 'STX'
; "PUTNUM" felmeddelande
; "PUTCHAR" kommando
;
;*********************************************************
;
	RSECT	PROM
;
RSTTST:
	PUSH	AF
	PUSH	HL
;
	LD	HL,(RE) 
	LD	(STATUS),HL	; Skriv "RE"
;
	LD	A,01H		; ???
	OUT	(RSTPRT),A	; Reseta

	NOP
	NOP
	NOP			; v{nta lite f|r s{kerhets skull

SNDSTX:
	LD	HL,(EX) 
	LD	(STATUS),HL	; Skriv "EX"
;
	LD	A,STX		; Reseten fungerade inte
	CALL	PUTCHR		; Skicka STX
;
	LD	A,0FFH		; 
	CALL	PUTNUM		; Skicka felmeddelande
SNDCMD:
	LD	A,COMND		; 
	CALL	PUTCHR		; Skicka kommandot
;
	POP	HL
	POP	AF
;
	RET
;
	END
