13 lines
190 B
Plaintext
13 lines
190 B
Plaintext
# Quellkode: let mod(a,b) { a - (a / b) * b } in mod(14,5)
|
|
# Annahmen: a→stack[0], b→stack[1], PP=0, FP=0, TOP=-1
|
|
INVOKE 2 MOD 0
|
|
HALT
|
|
|
|
MOD: LOAD 1 0
|
|
LOAD 1 0
|
|
DIV
|
|
LOAD 2 0
|
|
MUL
|
|
SUB
|
|
RETURN
|