4 6 7 8 5, Assembly

Language: Layout:

section .data
        msg1 db 10,"Enter elements of array"
        msglen1 equ $-msg1
        
        msg2 db 10,"elements of array:"
        msglen2 equ $-msg2
        
        msg3 db 10,"No of positive elements are"
        msglen3 equ $-msg3
        
        msg4 db 10,"No of negative elements are"
        msglen4 equ $-msg4
        
        nwln db 10
        cnt db 0
        pcnt db 0
        ncnt db 0
        arr1 times 80 db 0
        
        
section .bss                    
    num resb 5                             
    buff resb 4
    
    %macro input 2              ;input macro                    
        mov eax,3                           
        mov ebx,0
        mov ecx,%1                  
        mov edx,%2                  
        int 80h
    %endmacro

%macro output 2             ;output macro                    
        mov eax,4                       
        mov ebx,1
        mov ecx,%1                  
        mov edx,%2                  
        int 80h
    %endmacro       
    
    
section .text                   
    global _start                 
     
    _start:     
    
                                  ;print msg1
           output msg1,msglen1
           mov byte[cnt],5          ;counter:5 elements
           mov edi,arr1              ;ESI pointing to array variable
       l1: input num,5              ;accept element of array
           mov esi,num
            call ascii_original      ;call to proc
           mov [edi],bx           ; store converted element to array
           inc edi                  ;increment index to store next element
           inc edi
           dec byte[cnt]            ; decrement counter
           jnz l1 
                 
           
                                
                                  ;print msg2
           output msg2,msglen2
           mov byte[cnt],5          ;dsiplay array 2 elements
           mov esi,arr1
       l2: mov bx,[esi]
            call original_ascii
           output nwln,1
           inc esi
           inc esi
           dec byte[cnt]
           jnz l2
           
           
                        ;check array elements for positive & negative
           mov esi,arr1
           mov byte[cnt],5
           
       l3: mov ax,[esi]
           and ax,8000h
           jz l4  
           inc byte[ncnt]
           jmp l5 
       l4: inc byte[pcnt]
       l5: inc esi
           inc esi
           dec byte[cnt]
           jnz l3    
           
           output msg3,msglen3
           add byte[pcnt],30h
           output pcnt,1
           
           output msg4,msglen4
           add byte[ncnt],30h
           output ncnt,1
           
           mov eax,1
           mov ebx,0
           int 80h
           
           
           
   ascii_original:                      ;procedure defination
            mov eax,0
            mov ebx,0
            mov ecx,4               
         up1:rol bx,4
             mov al,[esi]             
             cmp al,39h         
             jbe down1
             sub al,07
        down1:sub al,30h
              add bx,ax 
              inc esi
              loop up1
   ret
   
   original_ascii:                     ;procedure defination      
             mov edx,0
             mov ecx,4
             mov edi,buff        
         up2:rol bx,4
             mov dl,bl
             and dl,0fh            
             cmp dl,09h              
             jbe down2
             add dl,07h
       down2:add dl,30h
             mov [edi],dl           
             inc edi
             loop up2
             output buff,4
   ret

Show compiler warnings [ + ] Show input
Compilation time: 0.24 sec, absolute running time: 10.04 sec, cpu time: 0 sec, memory peak: 0 Mb, absolute service time: 10,29 sec