
;           Copyright Oliver Kowalke 2009.
;  Distributed under the Boost Software License, Version 1.0.
;     (See accompanying file LICENSE_1_0.txt or copy at
;           http://www.boost.org/LICENSE_1_0.txt)

;  ----------------------------------------------------------------------------------
;  |    0    |    1    |                                                            |
;  ----------------------------------------------------------------------------------
;  |   0x0   |   0x4   |                                                            |
;  ----------------------------------------------------------------------------------
;  |    <indicator>    |                                                            |
;  ----------------------------------------------------------------------------------
;  ----------------------------------------------------------------------------------
;  |    2    |    3    |    4     |    5    |    6    |    7    |    8    |    9    |
;  ----------------------------------------------------------------------------------
;  |   0x8   |   0xc   |   0x10   |   0x14  |   0x18  |   0x1c  |   0x20  |   0x24  |
;  ----------------------------------------------------------------------------------
;  |                          SEE registers (XMM6-XMM15)                            |
;  ----------------------------------------------------------------------------------
;  ----------------------------------------------------------------------------------
;  |   10    |   11    |    12    |    13   |    14   |    15   |    16   |    17   |
;  ----------------------------------------------------------------------------------
;  |   0x28  |  0x2c   |   0x30   |   0x34  |   0x38  |   0x3c  |   0x40  |   0x44  |
;  ----------------------------------------------------------------------------------
;  |                          SEE registers (XMM6-XMM15)                            |
;  ----------------------------------------------------------------------------------
;  ----------------------------------------------------------------------------------
;  |    18   |    19   |    20   |    21    |    22   |    23   |    24   |    25   |
;  ----------------------------------------------------------------------------------
;  |   0x48  |   0x4c  |   0x50  |   0x54   |   0x58  |   0x5c  |  0x60   |   0x64  |
;  ----------------------------------------------------------------------------------
;  |                          SEE registers (XMM6-XMM15)                            |
;  ----------------------------------------------------------------------------------
;  ----------------------------------------------------------------------------------
;  |    26   |    27   |    28    |   29    |    30   |    31   |    32   |    33   |
;  ----------------------------------------------------------------------------------
;  |   0x68  |   0x6c  |   0x70   |   0x74  |   0x78  |   0x7c  |   0x80  |   0x84  |
;  ----------------------------------------------------------------------------------
;  |                          SEE registers (XMM6-XMM15)                            |
;  ----------------------------------------------------------------------------------
;  ----------------------------------------------------------------------------------
;  |    34    |   35   |    36    |    37   |    38   |    39   |    40   |    41   |
;  ----------------------------------------------------------------------------------
;  |   0x88   |  0x8c  |   0x90   |   0x94  |   0x98  |   0x9c  |   0xa0  |   0xa4  |
;  ----------------------------------------------------------------------------------
;  |                          SEE registers (XMM6-XMM15)                            |
;  ----------------------------------------------------------------------------------
;  ----------------------------------------------------------------------------------
;  |    42   |    43   |    44    |    45   |    46   |    47   |    48   |    49   |
;  ----------------------------------------------------------------------------------
;  |   0xa8  |   0xac  |   0xb0   |   0xb4  |   0xb8  |   0xbc  |   0xc0  |   0xc4  |
;  ----------------------------------------------------------------------------------
;  | fc_mxcsr|fc_x87_cw|     <alignment>    |      fbr_strg     |      fc_dealloc   |
;  ----------------------------------------------------------------------------------
;  ----------------------------------------------------------------------------------
;  |    50   |   51    |    52    |    53   |    54   |    55   |    56   |    57   |
;  ----------------------------------------------------------------------------------
;  |   0xc8  |  0xcc   |   0xd0   |   0xd4  |   0xd8  |   0xdc  |   0xe0  |   0xe4  |
;  ----------------------------------------------------------------------------------
;  |      limit        |       base         |      R12          |        R13        |
;  ----------------------------------------------------------------------------------
;  ----------------------------------------------------------------------------------
;  |    58   |    59   |    60   |    61    |    62   |    63   |    64   |    65   |
;  ----------------------------------------------------------------------------------
;  |   0xe8  |   0xec  |   0xf0  |   0xf4   |   0xf8  |   0xfc  |  0x100  |  0x104  |
;  ----------------------------------------------------------------------------------
;  |        R14        |        R15         |       RDI         |       RSI         |
;  ----------------------------------------------------------------------------------
;  ----------------------------------------------------------------------------------
;  |    66   |   67    |    68    |   69    |    70   |  71     |    72   |    73   |
;  ----------------------------------------------------------------------------------
;  |  0x108  |  0x10c  |  0x110   |  0x114  |  0x118  |  0x11c  |  0x120  |  0x124  |
;  ----------------------------------------------------------------------------------
;  |        RBX        |         RBP        |        RIP        |       EXIT        |
;  ----------------------------------------------------------------------------------

; standard C library function
EXTERN  _exit:PROC
.code

; generate function table entry in .pdata and unwind information in
make_fcontext PROC EXPORT FRAME
    ; .xdata for a function's structured exception handling unwind behavior
    .endprolog

    ; first arg of make_fcontext() == top of context-stack
    mov  rax, rcx

    ; reserve 32byte shadow-space for context-function
    sub  rax, 028h

    ; shift address in RAX to lower 16 byte boundary
    ; == pointer to fcontext_t and address of context stack
    and  rax, -16

    ; reserve space for context-data on context-stack
    ; size for fc_mxcsr .. RIP + return-address for context-function
    ; on context-function entry: (RSP -0x8) % 16 == 0
    sub  rax, 0128h

    ; third arg of make_fcontext() == address of context-function
    mov  [rax+0118h], r8

    ; first arg of make_fcontext() == top of context-stack
    ; save top address of context stack as 'base'
    mov  [rax+0d0h], rcx
    ; second arg of make_fcontext() == size of context-stack
    ; negate stack size for LEA instruction (== substraction)
    neg  rdx
    ; compute bottom address of context stack (limit)
    lea  rcx, [rcx+rdx]
    ; save bottom address of context stack as 'limit'
    mov  [rax+0c8h], rcx
    ; save address of context stack limit as 'dealloction stack'
    mov  [rax+0c0h], rcx

    ; save MMX control- and status-word
    stmxcsr  [rax+0a8h]
    ; save x87 control-word
    fnstcw  [rax+0ach]

    ; compute abs address of label finish
    lea  rcx, finish
    ; save address of finish as return-address for context-function
    ; will be entered after context-function returns
    mov  [rax+0120h], rcx

    ; set indicator
    mov  rcx, 1
    mov  [rax], rcx

    ret ; return pointer to context-data

finish:
    ; 32byte shadow-space for _exit() are
    ; already reserved by make_fcontext()
    ; exit code is zero
    xor  rcx, rcx
    ; exit application
    call  _exit
    hlt
make_fcontext ENDP
END