35 lines
738 B
ArmAsm
Executable File
35 lines
738 B
ArmAsm
Executable File
********************************
|
|
* Math macros used by Jewel of *
|
|
* Kaldun source: *
|
|
* Uses: *
|
|
* GENERAL.MAC *
|
|
* MATH *
|
|
********************************
|
|
|
|
IMULW MAC
|
|
MOVW ]1;NUM1
|
|
MOVW ]2;NUM2
|
|
JSR IMUL
|
|
MOVW RESULT;]3
|
|
EOM
|
|
|
|
IDIVW MAC
|
|
MOVW ]1;NUM1
|
|
MOVW ]2;NUM2
|
|
JSR IDIV
|
|
MOVW RESULT;]3
|
|
EOM
|
|
|
|
IMODW MAC
|
|
MOVW ]1;NUM1
|
|
MOVW ]2;NUM2
|
|
JSR IDIV
|
|
MOVW NUM1;]3
|
|
EOM
|
|
|
|
IDIVMODW MAC
|
|
IDIVW ]1;]2;]3
|
|
MOVW NUM1;]4
|
|
EOM
|
|
|