1 /* move-exception vAA */ 2 mov r2, rINST, lsr #8 @ r2<- AA 3 ldr r3, [rSELF, #THREAD_EXCEPTION_OFFSET] 4 mov r1, #0 @ r1<- 0 5 FETCH_ADVANCE_INST 1 @ advance rPC, load rINST 6 SET_VREG_OBJECT r3, r2 @ fp[AA]<- exception obj 7 GET_INST_OPCODE ip @ extract opcode from rINST 8 str r1, [rSELF, #THREAD_EXCEPTION_OFFSET] @ clear exception 9 GOTO_OPCODE ip @ jump to next instruction 10
