/* Copyright (C) 1995 Eddie C. Dost
This file is part of the HP48 C Library.

The HP48 C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public License
as published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version.

The HP48 C Library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details. */

#include <rom.h>

	xref	___ckinf
	xref	___packsb
	xdef	_log

_log
	;
	; Floating point C.W := log (B.W)
	;
	exg.a	c,d1
	push			; save frame-pointer
	exg.a	c,d1
	move.w	b,a
	jsr	SPLITA		; calls setdec
	jsr	LNF
	jsr	___ckinf	; check for infinite result
	jsr	___packsb
	sethex			; restore hexmode
	move.1	#7,p		; restore p
	pop
	move.a	c,d1		; restore frame-pointer
	move.w	a,c
	rtn