Calculate Mean Variance in ASM, Assembly

Language: Layout:

section .data

msg1: db 10,'Mean :'
len1: equ $-msg1

msg2: db 10,'Standard deviation :'
len2: equ $-msg2

msg3: db 10,'Varience :'
len3: equ $-msg3

array: dd 111.5,516.11,115.73,515.53,122.45
arrcnt: dw 5
hdec: dq 100
dpoint db '.'

section .bss
disbuff resb 1
mean resd 1
varience resd 1
resbuff rest 1

%macro mcall 4
mov rax,%1
mov rdi,%2
mov rsi,%3
mov rdx,%4
syscall
%endmacro

section .text
global _start

_start:

FINIT
FLDZ

mov rbx,array
mov rsi,00
xor rcx,rcx
mov cx,[arrcnt]

up:
    FADD dword[RBX+RSI*4]
    inc rsi
    loop up
    
    FIDIV word[arrcnt]
    FST dword[mean]
    
    mcall 1,1,msg1,len1
    call dispres
    
    mov rcx,00
    mov cx,[arrcnt]
    mov rbx,array
    mov rsi,00

FLDZ
    
up1:
    FLD dword[array+RSI*4]
    FSUB dword[mean]
    FMUL st0
    FADD
    inc rsi
    
    loop up1
    
    FIDIV dword[arrcnt]
    FST dword[varience]
    FSQRT
    
    mcall 1,1,msg2,len2
    call dispres
    
    FLD dword[varience]
    
    mcall 1,1,msg3,len3
    call dispres
    
    mov rax,60
    mov rdi,00
    syscall
   
dis8_proc:
    mov rdi,disbuff
    mov rcx,2
    
back:
    rol bl,4
    mov al,bl
    and al,0Fh
    cmp al,09
    jbe iii
    add al,07h
    
iii:
    add al,30h
    mov [rdi],al
    inc rdi
    loop back
    
ret

dispres:
    FIMUL dword[hdec]
    FBSTP tword[resbuff]
    xor rcx,rcx
    mov rcx,09h
    mov rsi,resbuff+9
    
up2:
    
    push rcx
    push rsi
    
    mov bl,[rsi]
    call dis8_proc
    
    mcall 1,1,disbuff,2    
    
    pop rsi
    dec rsi
    pop rcx
    
    loop up2
    
    mcall 1,1,dpoint,1
    mov bl,[resbuff]
    call dis8_proc
    
    mcall 1,1,disbuff,2
    
ret

Show compiler warnings [ + ] Show input
Compilation time: 0.24 sec, absolute running time: 0.14 sec, cpu time: 0 sec, memory peak: 3 Mb, absolute service time: 0,38 sec