M2000 Compiler Task: Difference between revisions
m
→{{header|M2000 Interpreter}}
Line 674:
Append func, ne_:=lambda->{Return stack_, sp+1:=uint(if(eval(stack_, sp+1)<>eval(stack_, sp)->-1, 0)):sp++}
Append func, eq_:=lambda->{Return stack_, sp+1:=uint(if(eval(stack_, sp+1)=eval(stack_, sp)->-1, 0)):sp++}
Append func, prts_:=lambda->{Print #-2,
Append func, prti_:=lambda->{Print #-2, str$(sint(eval(stack_,sp)),0);:sp++}
Append func, prtc_:=lambda->{Print #-2, chrcode$(eval(stack_,sp));:sp++}
| |||