|
|
1.1 root 1: /*
2: * Copyright (c) 1986 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: * Redistribution and use in source and binary forms are permitted
9: * provided that: (1) source distributions retain this entire copyright
10: * notice and comment, and (2) distributions including binaries display
11: * the following acknowledgement: ``This product includes software
12: * developed by the University of California, Berkeley and its contributors''
13: * in the documentation or other materials provided with the distribution
14: * and in all advertising materials mentioning features or use of this
15: * software. Neither the name of the University nor the names of its
16: * contributors may be used to endorse or promote products derived
17: * from this software without specific prior written permission.
18: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
19: * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
20: * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
21: */
22:
23: #if defined(SYSLIBC_SCCS) && !defined(lint)
24: .asciz "@(#)cmpd.s 1.4 (Berkeley) 6/1/90"
25: #endif /* SYSLIBC_SCCS and not lint */
26:
27: #include "DEFS.h"
28:
29: XENTRY(cmpd, R12|R11|R10|R9)
30: movl 4(fp),r12
31: movl 8(fp),r10
32: movl 12(fp),r11
33: movl 16(fp),r9
34: tstl r12
35: jgeq L16
36: xorl2 $-2147483648,r12
37: tstl r10
38: jeql L17
39: mnegl r10,r10
40: mcoml r12,r12
41: jbr L16
42: L17: mnegl r12,r12
43: L16: tstl r11
44: jgeq L19
45: xorl2 $-2147483648,r11
46: tstl r9
47: jeql L20
48: mnegl r9,r9
49: mcoml r11,r11
50: jbr L19
51: L20: mnegl r11,r11
52: L19: cmpl r12,r11
53: jeql L22
54: cmpl r12,r11
55: jleq L9999
56: movl $1,r0
57: jbr L9998
58: L9999: mnegl $1,r0
59: L9998: ret
60: L22: cmpl r10,r9
61: jeql L23
62: cmpl r10,r9
63: jlequ L9997
64: movl $1,r0
65: jbr L9996
66: L9997: mnegl $1,r0
67: L9996: ret
68: L23: clrl r0
69: ret
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.