1    /*
2     * Generic 64bit-to-32bit unary floating point operation.  Provide an
3     * "instr" line that specifies an instruction that performs "s0 = op d0".
4     *
5     * For: double-to-int, double-to-float
6     */
7    /* unop vA, vB */
8    mov     r3, rINST, lsr #12          @ r3<- B
9    mov     r9, rINST, lsr #8           @ r9<- A+
10    VREG_INDEX_TO_ADDR(r3, r3)          @ r3<- &vB
11    fldd    d0, [r3]                    @ d0<- vB
12    FETCH_ADVANCE_INST(1)               @ advance rPC, load rINST
13    and     r9, r9, #15                 @ r9<- A
14    $instr                              @ s0<- op
15    GET_INST_OPCODE(ip)                 @ extract opcode from rINST
16    VREG_INDEX_TO_ADDR(r9, r9)          @ r9<- &vA
17    fsts    s0, [r9]                    @ vA<- s0
18    GOTO_OPCODE(ip)                     @ jump to next instruction
19