File: op_sorts_after.s

package info (click to toggle)
fis-gtm 6.3-007-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 36,284 kB
  • sloc: ansic: 328,861; asm: 5,182; csh: 5,102; sh: 1,918; awk: 291; makefile: 69; sed: 13
file content (51 lines) | stat: -rwxr-xr-x 1,207 bytes parent folder | download | duplicates (5)
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
#################################################################
#								#
#	Copyright 2001 Sanchez Computer Associates, 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_sorts_after.s
	.sbttl	op_sorts_after

#	.386
#	.MODEL	FLAT, C

.include "linkage.si"

# op_sorts_after.s 80386
#
# op_sorts_after(mval *mval1, *mval2)
#     Call sorts_after() to determine whether mval1 comes after mval2
#     in sorting order.  Use alternate local collation sequence if
#     present.
#
#	entry:
#		eax	mval *mval1
#		edx	mval *mval2
#
#   Sets condition flags and returns in eax:
##          1     mval1 > mval2
##          0     mval1 = mval2
##         -1     mval1 < mval2
#

	.text
.extern	sorts_after

# PUBLIC	op_sorts_after
ENTRY op_sorts_after
	pushl	%edx
	pushl	%eax
	call	sorts_after
	addl	$8,%esp		# restore stack
	cmpl	$0,%eax		# set flags according to result from
	ret			# sorts_after.
# op_sorts_after ENDP

# END