Fakultšt iterativ: 10!

ORG 0H
MOV @result,1
MOV @counter,2
L0
MOV TOS,10
MOV TOS,1
MOV R0,TOS
MOV R1,TOS
CMP R0,R1
JGE L0_FALSE
L0_TRUE
L1
MOV TOS,@counter
MOV TOS,10
MOV R0,TOS
MOV R1,TOS
CMP R1,R0
JGT L1_ENDE
MOV TOS,@result
MOV TOS,@counter
MOV R1,TOS
MOV R0,TOS
MUL R0,R1
MOV TOS,R0
MOV @result,TOS
MOV TOS,@counter
MOV TOS,1
MOV R1,TOS
MOV R0,TOS
ADD R0,R1
MOV TOS,R0
MOV @counter,TOS
JMP L1
L1_ENDE
JMP L0_ENDE
L0_FALSE
L0_ENDE
MOV TOS,@result
PRN TOS
HALT
result DS 1
counterDS 1
END