1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
#################################################################
# #
# Copyright 2001, 2008 Fidelity Information Services, Inc #
# #
# This source code contains the intellectual property #
# of its copyright holder(s), and is made available #
# under a license. If you do not know the terms of #
# the license, please stop and do not read further. #
# #
#################################################################
# PAGE ,132
.title op_forinit.s
# .386
# .MODEL FLAT, C
.include "linkage.si"
.INCLUDE "g_msf.si"
.INCLUDE "mval_def.si"
.sbttl op_forinit
# PAGE +
.DATA
.extern frame_pointer
.text
.extern numcmp
.extern s2n
.extern underr
# PUBLIC op_forinit
ENTRY op_forinit
movl frame_pointer,%edx
popl msf_mpc_off(%edx)
movl 4(%esp),%eax
mv_force_defined %eax, l0
movl %eax, 4(%esp)
mv_force_num %eax, t2
movl 4(%esp),%eax
cmpl $0,mval_l_m1(%eax)
js l2
mv_if_int %eax, l1
testb $mval_esign_mask,mval_b_exp(%eax)
jne l2
l1: movl 8(%esp),%eax
movl %eax,4(%esp)
call numcmp
addl $12,%esp
movl frame_pointer,%edx
pushl msf_mpc_off(%edx)
cmpl $0,%eax
ret
l2: movl 8(%esp),%eax
pushl %eax
call numcmp
addl $16,%esp
movl frame_pointer,%edx
pushl msf_mpc_off(%edx)
cmpl $0,%eax
ret
# op_forinit ENDP
# END
|
