home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.cs.arizona.edu
/
ftp.cs.arizona.edu.tar
/
ftp.cs.arizona.edu
/
icon
/
historic
/
v941.tgz
/
icon.v941src.tar
/
icon.v941src
/
config
/
unix
/
linux
/
alpha.s
next >
Wrap
Text File
|
2002-01-25
|
1KB
|
47 lines
/*
* 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