1    /* rem-double/2addr vA, vB */
2    .extern fmod
3    ext     a2, rINST, 8, 4             # a2 <- A
4    ext     a3, rINST, 12, 4            # a3 <- B
5    GET_VREG_DOUBLE f12, a2             # f12 <- vA
6    GET_VREG_DOUBLE f13, a3             # f13 <- vB
7    jal     fmod                        # f0 <- f12 op f13
8    ext     a2, rINST, 8, 4             # a2 <- A
9    FETCH_ADVANCE_INST 1                # advance rPC, load rINST
10    GET_INST_OPCODE v0                  # extract opcode from rINST
11    SET_VREG_DOUBLE f0, a2              # vA <- f0
12    GOTO_OPCODE v0                      # jump to next instruction
13