/* 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	___packsb
	xdef	_atan2

_atan2
	;
	; Floating point C.W := atan (B.W/R0.W)
	;
	exg.a	c,d1
	push			; save frame-pointer
	exg.a	c,d1
	move.w	b,c
	move.w	r0,a
	jsr	SPLITAC		; calls setdec
	bclr	#4,st
	bset	#9,st		; set radians mode
	jsr	ANGLEF
	jsr	___packsb
	sethex			; restore hexmode
	move.1	#7,p		; restore p
	pop
	move.a	c,d1		; restore frame-pointer
	move.w	a,c
	rtn