xref: /original-bsd/usr.bin/f77/libF77/CCI/range_s.s (revision 817cfbae)
1/*-
2 * Copyright (c) 1991 The Regents of the University of California.
3 * All rights reserved.
4 *
5 * This code is derived from software contributed to Berkeley by
6 * Computer Consoles Inc.
7 *
8 * %sccs.include.proprietary.c%
9 */
10
11#ifndef lint
12	.asciz "@(#)range_s.s	5.2 (Berkeley) 04/12/91"
13#endif /* not lint */
14
15.data
16.text
17LL0:.align	1
18.globl	_flmax_
19.set	MASK__1,0x0
20.data
21.text
22_flmax_:.word	MASK__1
23movl	$2147483647,r0
24ret#1
25
26.align	1
27.globl	_dflmax_
28.set	MASK__2,0x0
29.data
30.text
31_dflmax_:.word	MASK__2
32movl	$2147483647,r0
33movl	$0xffffffff,r1
34ret#2
35
36.align	1
37.globl	_flmin_
38.set	MASK__3,0x0
39.data
40.text
41_flmin_:.word	MASK__3
42movl	$8388608,r0
43ret#1
44
45.align	1
46.globl	_dflmin_
47.set	MASK__4,0x0
48.data
49.text
50_dflmin_:.word	MASK__4
51movl	$8388608,r0
52clrl	r1
53ret#2
54
55.align	1
56.globl	_inmax_
57.set	MASK__5,0x0
58.data
59.text
60_inmax_:.word	MASK__5
61movl	$2147483647,r0
62ret#1
63
64.align	1
65.globl	_ffrac_
66.set	MASK__6,0x0
67.data
68.text
69_ffrac_:.word	MASK__6
70movl	$889192448,r0
71ret#1
72
73.align	1
74.globl	_dffrac_
75.set	MASK__7,0x0
76.data
77.text
78_dffrac_:.word	MASK__7
79movl	$620756992,r0
80clrl	r1
81ret#2
82
83