%macro scall 4
	mov rax, %1
	mov rdi, %2
	mov rsi, %3
	mov rdx, %4
	syscall
%endmacro
section .data
	m1 db "Enter how many numbers you want to store : ",10
	l1 equ $-m1
	m2 db "Enter the number : ",10
	l2 equ $-m2
	m3 db "Array contents are : ",10
	l3 equ $-m3
	m4 db "Addition of array elements are : ",10
	l4 equ $-m4
	m5 db " ",10
	l5 equ $-m5
	
section .bss
	num resb 20
	cnt resb 20
	cnt1 resb 20
	cnt2 resb 20
	array resb 200
	char_ans resb 16
	
section .text
global _start
_start:
;---------------------accept array size-----------------
	scall 1,1,m1,l1
	scall 0,0,num,3
	call accept_proc
	
	mov [cnt], bx
	mov [cnt1], bx
	mov [cnt2], bx
;-------------accept array elements according to array size-------------	
	mov rbp, array
	
up1:
	scall 1,1,m2,l2
	scall 0,0,num,3
	call accept_proc
	mov [rbp], bx
	add rbp, 2
	dec byte[cnt]
	jnz up1
 
;------------------display array elements------------------	
	scall 1,1,m3,l3
	mov rbx, array
	
up2:
	mov ax, [rbx]
	call display_proc
	add rbx, 2
	dec byte[cnt1]
	jnz up2

 ;-------------addition of array elements-----------------------
	scall 1,1,m4,l4
back1:
	mov ax, 00h
	mov bx, 00h
	mov rsi, array
back2:
	add ax, [rsi]
	add rsi, 2
	dec byte[cnt2]
	jnz back2
	call display_proc

;------------------------exit------------------------------------
mov rax, 60
mov rdi, 0
syscall

;------------------------accept procedure------------------------
accept_proc:
	mov rsi, num
	mov rbx, 0
	mov rax, 0
	mov rcx, 2
back:
	rol rbx, 04
	mov al, [rsi]
	
	cmp al, 39h
	jbe next
	sub al, 07h
next:
	sub al, 30h
	add bx, ax
	inc rsi
	dec rcx
	jnz back
ret

;-----------------------display procedure-----------------
display_proc:
	mov rbp, char_ans
	mov rcx, 2
up3:
	rol al, 04
	mov dl, al
	and dl, 0Fh
	cmp dl, 09h
	jbe next1
	add dl, 07h
next1:
	add dl, 30h
	mov [rbp], dl
	inc rbp
	dec rcx
	jnz up3
	scall 1,1,char_ans,3
	scall 1,1,m5,l5
ret