1    /*
2     * Generic 64-bit double-precision floating point binary operation.
3     * Provide an "instr" line that specifies an instruction that performs
4     * "d2 = d0 op d1".
5     *
6     * for: add-double, sub-double, mul-double, div-double
7     */
8    /* doubleop vAA, vBB, vCC */
9    FETCH r0, 1                         @ r0<- CCBB
10    mov     r9, rINST, lsr #8           @ r9<- AA
11    mov     r3, r0, lsr #8              @ r3<- CC
12    and     r2, r0, #255                @ r2<- BB
13    VREG_INDEX_TO_ADDR r3, r3           @ r3<- &vCC
14    VREG_INDEX_TO_ADDR r2, r2           @ r2<- &vBB
15    fldd    d1, [r3]                    @ d1<- vCC
16    fldd    d0, [r2]                    @ d0<- vBB
17    FETCH_ADVANCE_INST 2                @ advance rPC, load rINST
18    $instr                              @ s2<- op
19    CLEAR_SHADOW_PAIR r9, ip, lr        @ Zero shadow regs
20    GET_INST_OPCODE ip                  @ extract opcode from rINST
21    VREG_INDEX_TO_ADDR r9, r9           @ r9<- &vAA
22    fstd    d2, [r9]                    @ vAA<- d2
23    GOTO_OPCODE ip                      @ jump to next instruction
24