; Programme 3: Calcul de la factorielle d'un nombre (recursif)

; Initialisation
cst A, 10        ; A = 10 (calculer 10!)
cst B, 1         ; B = 1 (facteur initial)
cst C, done      ; C = adresse de done
cst D, main      ; D = adresse de main
jmp D            ; Sauter à main

; Fonction factorielle
factorial:
    jz A, C          ; Si A == 0, sauter à done
    mul B, B, A      ; B = B * A
    cst D, 1         ; D = 1
    sub A, A, D      ; A = A - D = A - 1
    cst D, factorial ; D = adresse de factorial
    call D           ; Appel récursif
    done:
    ret

main:
    cst D, factorial ; D = adresse de factorial
    call D
    cst A, 1
    cst D, 0