blob: a1b59ae66c4285056aca32bfeb90948004e066a7 (
plain) (
blame)
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
67
68
69
70
71
72
73
74
75
76
|
/*[
bound.c
LOCAL CHAR SccsID[]="@(#)bound.c 1.6 03/28/94";
BOUND CPU functions.
--------------------
]*/
#include <insignia.h>
#include <host_def.h>
#include <xt.h>
#include <c_main.h>
#include <c_addr.h>
#include <c_bsic.h>
#include <c_prot.h>
#include <c_seg.h>
#include <c_stack.h>
#include <c_xcptn.h>
#include <c_reg.h>
#include <bound.h>
/*
=====================================================================
EXTERNAL ROUTINES STARTS HERE.
=====================================================================
*/
GLOBAL VOID
BOUND
#ifdef ANSI
(
IU32 op1, /* lsrc(test value) operand */
IU32 op2[2], /* rsrc(lower:upper pair) operand */
IUM8 op_sz /* 16 or 32-bit */
)
#else
(op1, op2, op_sz)
IU32 op1;
IU32 op2[2];
IUM8 op_sz;
#endif
{
IS32 value;
IS32 lower;
IS32 upper;
/* transfer to local signed variables */
value = op1;
lower = op2[0];
upper = op2[1];
if ( op_sz == 16 )
{
/* sign extend operands */
if ( value & BIT15_MASK )
value |= ~WORD_MASK;
if ( lower & BIT15_MASK )
lower |= ~WORD_MASK;
if ( upper & BIT15_MASK )
upper |= ~WORD_MASK;
}
op_sz = op_sz / 8; /* determine number of bytes in operand */
if ( value < lower || value > upper )
Int5();
}
|
