11452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee /* 21452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee * Signed 64-bit integer multiply, "/2addr" version. 31452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee * 41452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee * See op_mul_long for an explanation. 51452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee * 61452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee * We get a little tight on registers, so to avoid looking up &fp[A] 71452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee * again we stuff it into rINST. 81452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee */ 91452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee /* mul-long/2addr vA, vB */ 101452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee mov r1, rINST, lsr #12 @ r1<- B 111452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee ubfx r9, rINST, #8, #4 @ r9<- A 12ace690f5e440930d7bbad97fdbfdc3eb65e230bebuzbee VREG_INDEX_TO_ADDR r1, r1 @ r1<- &fp[B] 13ace690f5e440930d7bbad97fdbfdc3eb65e230bebuzbee VREG_INDEX_TO_ADDR rINST, r9 @ rINST<- &fp[A] 141452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee ldmia r1, {r2-r3} @ r2/r3<- vBB/vBB+1 151452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee ldmia rINST, {r0-r1} @ r0/r1<- vAA/vAA+1 161d011d9306fd4ff57d72411775d415a86f5ed398Bill Buzbee mul ip, r2, r1 @ ip<- ZxW 171d011d9306fd4ff57d72411775d415a86f5ed398Bill Buzbee umull r1, lr, r2, r0 @ r1/lr <- ZxX 181d011d9306fd4ff57d72411775d415a86f5ed398Bill Buzbee mla r2, r0, r3, ip @ r2<- YxX + (ZxW) 191452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee mov r0, rINST @ r0<- &fp[A] (free up rINST) 201452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee FETCH_ADVANCE_INST 1 @ advance rPC, load rINST 211d011d9306fd4ff57d72411775d415a86f5ed398Bill Buzbee add r2, r2, lr @ r2<- r2 + low(ZxW + (YxX)) 221452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee GET_INST_OPCODE ip @ extract opcode from rINST 231d011d9306fd4ff57d72411775d415a86f5ed398Bill Buzbee stmia r0, {r1-r2} @ vAA/vAA+1<- r1/r2 241452bee8f06b9f76a333ddf4760e4beaa82f8099buzbee GOTO_OPCODE ip @ jump to next instruction 25