/JOB
//NAME Modulus
//POS
///NPOS 0,0,0,0,0,0
//ARGINFO
///ARGTYPE I,I,,,,,,
///COMMENT
Dividend
Divisor






//INST
///DATE 2020/04/20 13:56
///ATTR SC,RW
///GROUP1 RB1
///LVARS 0,5,0,5,0,0,0,0
NOP
' Remainder division function
' 
'--------Get Args---------
' Arg1 = Dividend
GETARG LI000 IARG#(1)
' Arg2 = Divisor
GETARG LI001 IARG#(2)
'--------------------------------
' 
' Is the input negative?
IFTHENEXP LI000<0
	 MUL LI000 -1
ENDIF
SET LI002  EXPRESS LI000 / LI001
SET LI002  EXPRESS LI002 * LI001
SET LI002  EXPRESS LI000 - LI002
IFTHENEXP LI002>LI001 OREXP LI002<0
	 SETUALM 8000 "Modulus function result invalid!" 0 SMODE=0
ENDIF
RET LI002
END