30 lines
804 B
NASM
30 lines
804 B
NASM
XOR R0 R0 R0
|
|
ADD R0 R0 #5 # n = 5
|
|
XOR R6 R6 R6
|
|
XOR R7 R7 R7
|
|
ADD R7 R7 #35 # SP = 40
|
|
STR R0 R7 # on empile n
|
|
CALL facto # on appelle facto dessus
|
|
JMP fin # on saute à la fin du programme
|
|
facto:
|
|
LD R1 R7 # on dépile n
|
|
JEQU R1 R6 ff # si n = 0, on retourne 1
|
|
SUB R2 R1 #1 # sinon, R2 prend n -1
|
|
ADD R7 R7 #1 # on incrémente le SP
|
|
STR R2 R7 # on empile n - 1
|
|
CALL facto # on appelle facto
|
|
LD R3 R7 # on dépile le résultat
|
|
SUB R7 R7 #1 # on décrémente le SP
|
|
LD R4 R7 # on dépile n
|
|
MUL R1 R3 R4 # on multiplie n avec facto(n-1)
|
|
STR R1 R7 # on empile facto(n)
|
|
RET # on retourne
|
|
ff:
|
|
XOR R3 R3 R3
|
|
ADD R3 R3 #1 # R3 = 1
|
|
STR R3 R7 # on empile facto(0) = 1
|
|
RET # on retourne
|
|
fin:
|
|
LD R1 R7 # on met le resultat final dans R1
|
|
stop:
|
|
JMP stop # boucle infinie de fin |