11452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee    /*
21452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee     * Generic 64-bit floating point "/2addr" binary operation.  Provide
31452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee     * an "instr" line that specifies an instruction that performs
41452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee     * "d2 = d0 op d1".
51452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee     *
61452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee     * For: add-double/2addr, sub-double/2addr, mul-double/2addr,
71452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee     *      div-double/2addr
81452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee     */
91452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee    /* binop/2addr vA, vB */
101452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee    mov     r3, rINST, lsr #12          @ r3<- B
11ace690f5e440930d7bbad97fdbfdc3eb65e230bebuzbee    ubfx    r9, rINST, #8, #4           @ r9<- A
121452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee    VREG_INDEX_TO_ADDR r3, r3           @ r3<- &vB
1350cf600419109c9cbb0686edc6f7456c13ef7f08buzbee    CLEAR_SHADOW_PAIR r9, ip, r0        @ Zero out shadow regs
14ace690f5e440930d7bbad97fdbfdc3eb65e230bebuzbee    fldd    d1, [r3]                    @ d1<- vB
151452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee    VREG_INDEX_TO_ADDR r9, r9           @ r9<- &vA
161452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee    FETCH_ADVANCE_INST 1                @ advance rPC, load rINST
171452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee    fldd    d0, [r9]                    @ d0<- vA
181452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee    $instr                              @ d2<- op
191452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee    GET_INST_OPCODE ip                  @ extract opcode from rINST
201452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee    fstd    d2, [r9]                    @ vAA<- d2
211452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee    GOTO_OPCODE ip                      @ jump to next instruction
22