;*********************************************************
; NAMN		:	PUTNUM					
; PROGRAMMERARE	:	L-O/IND					
; DATUM		:	86-10-14
; MODIFIERAD	:
;*********************************************************
;
; SYFTE		:	Omvandla returparametrar till
;			HEX-tecken
;
; ANROPAS FR]N	:	Test-modulerna
;
; SUBRUTINER
;    EXTERNA	:	PUTCHR	L{gger tkn i tx-buffert
;
;*********************************************************

	FORMLN	42
	NAME	PUTNUM

; LABLAR:
;
	EXTERN	PUTCHR
;
	INTERN	PUTNUM
;
	PAGE
;*********************************************************
;
; Omvandla MSD till ett hextecken (ASCII '0' - 'F')
; L{gg tecknet i tx-buffert
; Omvandla LSD till ett hextecken (ASCII '0' - 'F')
; L{gg tecknet i tx-buffert
;
;*********************************************************
;
	RSECT	PROM
;
PUTNUM:
	PUSH	DE
	LD	D,A		; Spara byten
;
	SRL	A		;
	SRL	A		; F|rsta tecknet
	SRL	A		;
	SRL	A		;
;
	ADD	A,30H
	CP	3AH		; <= 9 ?
	JP	C,$+5		; Ja
;
	ADD	A,7H		; Nej
	CALL	PUTCHR		; L{gg (f|rsta) tecknet i tx-buffert
;
	LD	A,D
	AND	0FH		; Andra tecknet
;
	ADD	A,30H
	CP	3AH		; <= 9 ?
	JP	C,$+5		; Ja
;
	ADD	A,7H		; Nej
	CALL	PUTCHR		; L{gg (andra) tecknet i tx-buffert
;
	POP	DE
	RET
;
	END
