mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
130 lines
2.4 KiB
130 lines
2.4 KiB
"\n\
|
|
/*\n\
|
|
** wrapem.s\n\
|
|
**\n\
|
|
** Copyright(C) 1994 Microsoft Corporation.\n\
|
|
** All Rights Reserved.\n\
|
|
**\n\
|
|
** HISTORY:\n\
|
|
** Created: 05/05/94 - MarkRi\n\
|
|
**\n\
|
|
** This is the workhorse routine in Wrapper. This routine is jumped\n\
|
|
** to by the ZAPI macros. It calls the _prelude and _postlude routines\n\
|
|
** before and after calling the real API.\n\
|
|
*/\n\
|
|
\n\
|
|
#include \"ksmips.h\"\n\
|
|
\n\
|
|
.text\n\
|
|
\n\
|
|
.set noreorder\n\
|
|
\n\
|
|
.extern _prelude\n\
|
|
.extern _postlude\n\
|
|
\n\
|
|
.globl wrapit\n\
|
|
.ent wrapit\n\
|
|
wrapit:\n\
|
|
\n\
|
|
// on entry t0 is the API identifier\n\
|
|
\n\
|
|
// Make room to temporarily store RA \n\
|
|
subu sp, 4\n\
|
|
\n\
|
|
// Store RA\n\
|
|
sw ra, 0(sp)\n\
|
|
\n\
|
|
// Store 'back' arg regs\n\
|
|
sw a0, 4(sp)\n\
|
|
sw a1, 8(sp)\n\
|
|
sw a2, 12(sp)\n\
|
|
sw a3, 16(sp)\n\
|
|
\n\
|
|
// Set up args for call to prelude()\n\
|
|
or a0, t0, zero\n\
|
|
or a1, sp, zero\n\
|
|
\n\
|
|
// Make room for args write back\n\
|
|
subu sp, 4*4\n\
|
|
nop\n\
|
|
\n\
|
|
jal _prelude\n\
|
|
nop\n\
|
|
\n\
|
|
// clean stack\n\
|
|
addu sp, 4*4\n\
|
|
\n\
|
|
// Skip API call if result was zero\n\
|
|
beq v0, zero, skipcall\n\
|
|
nop\n\
|
|
// restore the arg regs for API call\n\
|
|
lw a0, 4(sp)\n\
|
|
lw a1, 8(sp)\n\
|
|
lw a2, 12(sp)\n\
|
|
lw a3, 16(sp)\n\
|
|
\n\
|
|
// fix stack\n\
|
|
addu sp, 4\n\
|
|
nop\n\
|
|
// make API call\n\
|
|
jal v0\n\
|
|
nop\n\
|
|
j callpostlude\n\
|
|
nop\n\
|
|
skipcall: \n\
|
|
\n\
|
|
// fix stack (from RA store)\n\
|
|
addu sp, 4\n\
|
|
\n\
|
|
callpostlude:\n\
|
|
\n\
|
|
// make room for RA and arg regs\n\
|
|
subu sp, 5*4\n\
|
|
\n\
|
|
// Set up args for postlude\n\
|
|
or a0, v0, zero\n\
|
|
or a1, sp, zero\n\
|
|
addu a1, 16\n\
|
|
nop\n\
|
|
\n\
|
|
// call postlude\n\
|
|
jal _postlude\n\
|
|
nop\n\
|
|
\n\
|
|
// restore RA\n\
|
|
lw ra, 16(sp)\n\
|
|
\n\
|
|
// fixup stack\n\
|
|
addu sp, 5*4\n\
|
|
nop\n\
|
|
\n\
|
|
// return to caller of API\n\
|
|
j ra\n\
|
|
\n\
|
|
.end wrapit\n\
|
|
\n\
|
|
\n\
|
|
#define ZAPI(id, name) \\\n\
|
|
.text ;\\\n\
|
|
.globl z##name ; \\\n\
|
|
.ent z##name ;\\\n\
|
|
z##name: ;\\\n\
|
|
ori t0,zero,id ;\\\n\
|
|
j wrapit ; \\\n\
|
|
nop ; \\\n\
|
|
.end z##name ;\n\
|
|
\n\
|
|
%a ZAPI (%i,%A) ;\n\
|
|
\n\
|
|
.text ; \n\
|
|
.globl zWrapperNothing ;\n\
|
|
.ent zWrapperNothing ;\n\
|
|
zWrapperNothing: ;\n\
|
|
ori t0, zero, %c ;\n\
|
|
j wrapit ;\n\
|
|
nop ;\n\
|
|
\n\
|
|
.end zWrapperNothing ;\n\
|
|
\n\
|
|
.set reorder\n\
|
|
"
|