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
|
/*
* coswitch(old_cs, new_cs, first) for DEC Alpha architecture
* $16 $17 $18
*/
.data
errmsg: .ascii "new_context() returned in coswitch\X00"
.text
.globl coswitch
.ent coswitch
coswitch:
lda $sp, -72($sp) /* make room on stack */
stq $sp, 0($16) /* save stack pointer */
stq $9, 0($sp) /* save registers on stack */
stq $10, 8($sp)
stq $11, 16($sp)
stq $12, 24($sp)
stq $13, 32($sp)
stq $14, 40($sp)
stq $15, 48($sp)
stq $27, 56($sp)
stq $26, 64($sp) /* return address */
beq $18, first /* if first time */
ldq $sp, 0($17) /* load new stack pointer */
ldq $9, 0($sp) /* load registers from stack */
ldq $10, 8($sp)
ldq $11, 16($sp)
ldq $12, 24($sp)
ldq $13, 32($sp)
ldq $14, 40($sp)
ldq $15, 48($sp)
ldq $27, 56($sp)
ldq $26, 64($sp) /* return address */
lda $sp, 72($sp) /* reset sp */
jsr_coroutine $31, ($26), 0 /* jump into new_context */
first:
ldq $sp, 0($17) /* load stack pointer only */
bis $31, $31, $16 /* r16 = 0 */
bis $31, $31, $17 /* r17 = 0 */
jsr $26, new_context /* new_context(0,0) */
lda $16, errmsg
jsr $26, syserr /* shouldn't get here */
.end coswitch
|
