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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
//++
//
// Copyright (c) 1993 Digital Equipment Corporation
//
// Module Name:
//
// intsup.s
//
// Abstract:
//
// This module implements first level interrupt handlers.
//
// Author:
//
// Joe Notarangelo 08-Jul-1993
//
// Environment:
//
// Kernel mode only.
//
// Revision History:
//
// 24-Sep-93 Joe Notarangelo
// Make this module platform-independent.
//--
#include "halalpha.h"
SBTTL("System Clock Interrupt")
//++
//
// VOID
// HalpClockInterrupt(
// )
//
// Routine Description:
//
// This function is executed for each interval timer interrupt on
// the primary processor. The routine is responsible for acknowledging the
// interrupt and calling the kernel to update the system time.
// In addition, this routine checks for breakins from the kernel debugger
// and maintains the 64 bit performance counter based upon the
// processor cycle counter.
//
// Arguments:
//
// TrapFrame (fp/s6) - Supplies a pointer to the trap frame for
// the interrupt.
//
// Return Value:
//
// None.
//
//--
.struct 0
.space 8 // filler for octaword alignment
CiRa: .space 8 // space for return address
CiFrameLength: //
NESTED_ENTRY(HalpClockInterrupt, CiFrameLength, zero )
lda sp, -CiFrameLength(sp) // allocate stack frame
stq ra, CiRa(sp) // save return address
PROLOGUE_END
//
// Call the kernel to update the system time.
//
ldl a1, HalpCurrentTimeIncrement // Get current time increment
bis fp, zero, a0 // a0 = pointer to trap frame
ldl t0, __imp_KeUpdateSystemTime
jsr ra, (t0) // call kernel
ldl t0, HalpNextTimeIncrement // Get next time increment
stl t0, HalpCurrentTimeIncrement // Set CurrentTimeIncrement to NextTimeIncrement
ldl a0, HalpNextIntervalCount // Get next interval count. If 0, then no change required.
beq a0, 10f // See if time increment is to be changed
bsr ra, HalpProgramIntervalTimer // Program timer with new rate select
ldl t0, HalpNewTimeIncrement // Get HalpNewTimeIncrement
stl t0, HalpNextTimeIncrement // Set HalpNextTimeIncrement to HalpNewTimeIncrement
stl zero, HalpNextIntervalCount // Set HalpNextIntervalCount to 0
//
// Call to handle performance counter wrap.
//
10:
bsr ra, HalpCheckPerformanceCounter // check for perf. counter wrap
#if DEVL
//
// Check for a breakin request from the kernel debugger.
//
ldl t0, __imp_KdPollBreakIn
jsr ra, (t0) // check for breakin requested
beq v0, 30f // if eq[false], no breakin
ldl t0, __imp_DbgBreakPointWithStatus
lda a0, DBG_STATUS_CONTROL_C
jsr ra, (t0) // send status to debugger
30:
#endif //DEVL
//
// Return to the caller.
//
ldq ra, CiRa(sp) // restore return address
lda sp, CiFrameLength(sp) // deallocate stack frame
ret zero, (ra) // return to caller
.end HalpClockInterrupt
|