| %def op_move_from16(is_object="0"): | |
| /* for: move/from16, move-object/from16 */ | |
| /* op vAA, vBBBB */ | |
| FETCH r1, 1 @ r1<- BBBB | |
| mov r0, rINST, lsr #8 @ r0<- AA | |
| FETCH_ADVANCE_INST 2 @ advance rPC, load rINST | |
| GET_VREG r2, r1 @ r2<- fp[BBBB] | |
| GET_INST_OPCODE ip @ extract opcode from rINST | |
| .if $is_object | |
| SET_VREG_OBJECT r2, r0 @ fp[AA]<- r2 | |
| .else | |
| SET_VREG r2, r0 @ fp[AA]<- r2 | |
| .endif | |
| GOTO_OPCODE ip @ jump to next instruction |