1%default {"preinstr":"", "result":"a0", "chkzero":"0"}
2    /*
3     * Generic 32-bit "lit16" binary operation.  Provide an "instr" line
4     * that specifies an instruction that performs "result = a0 op a1".
5     * This could be an MIPS instruction or a function call.  (If the result
6     * comes back in a register other than a0, you can override "result".)
7     *
8     * If "chkzero" is set to 1, we perform a divide-by-zero check on
9     * vCC (a1).  Useful for integer division and modulus.
10     *
11     * For: add-int/lit16, rsub-int, mul-int/lit16, div-int/lit16,
12     *      rem-int/lit16, and-int/lit16, or-int/lit16, xor-int/lit16
13     */
14    /* binop/lit16 vA, vB, +CCCC */
15    FETCH_S(a1, 1)                         #  a1 <- ssssCCCC (sign-extended)
16    GET_OPB(a2)                            #  a2 <- B
17    GET_OPA4(rOBJ)                         #  rOBJ <- A+
18    GET_VREG(a0, a2)                       #  a0 <- vB
19    .if $chkzero
20    # cmp a1, 0; is second operand zero?
21    beqz      a1, common_errDivideByZero
22    .endif
23    FETCH_ADVANCE_INST(2)                  #  advance rPC, load rINST
24
25    $preinstr                              #  optional op
26    $instr                                 #  $result <- op, a0-a3 changed
27    GET_INST_OPCODE(t0)                    #  extract opcode from rINST
28    SET_VREG_GOTO($result, rOBJ, t0)       #  vA <- $result
29