1*45761Sbostic/*- 2*45761Sbostic * Copyright (c) 1985 The Regents of the University of California. 3*45761Sbostic * All rights reserved. 4*45761Sbostic * 5*45761Sbostic * This code is derived from software contributed to Berkeley by 6*45761Sbostic * Computer Consoles Inc. 7*45761Sbostic * 8*45761Sbostic * %sccs.include.redist.c% 9*45761Sbostic * 10*45761Sbostic * @(#)Ksfp_exp.s 7.1 (Berkeley) 12/06/90 11*45761Sbostic */ 1224132Ssam 1345701Sbostic#include "../math/fp.h" 1445701Sbostic#include "../math/Kfp.h" 1525693Ssam#include "../tahoe/SYS.h" 1625664Ssam 1725664SsamENTRY(Ksfpover, 0) 1824132Ssam movl $HUGE0,r0 1924132Ssam movl $HUGE1,r1 2024132Ssam ret 2124132Ssam 2225664SsamENTRY(Ksfpunder, 0) 2324132Ssam clrl r0 2424132Ssam clrl r1 2524132Ssam ret 2624132Ssam 2725664SsamENTRY(Ksfpzdiv, 0) 2824132Ssam divl2 $0,r1 # force divission by zero. 2924132Ssam ret 30