;; PUTFP.ASM--display the top of the floating point stack in variable
;;  format, and pop it. Preserve all registers.
;;
;;  Library source text from "Assembly Language for the IBM PC Family" by
;;   William B. Jones, (c) Copyright 1997, Scott/Jones Inc.
;;
INCLUDE	PCMAC.INC
	.MODEL	SMALL
	.DATA
OutArea	DB	20 DUP (?)

	.CODE
	PUBLIC	PutFP
PutFP	PROC
	push	es
	push	ds
	push	di
	mov	di, @data
	mov	ds, di
	mov	es, di
	mov	di, OFFSET OutArea
	EXTRN	FP2Dec : NEAR
	call	FP2Dec
	mov	al, '$'
	stosb
	_PutStr	OutArea
	pop	di
	pop	ds
	pop	es
	ret
PutFP	ENDP
	END