micro lab 6

array macro digit

    MOV SI,OFFSET digit
    CALL search;

endm


org 100h
.data
    insert db 'insert value$'
    value db 'how many value you want to insert?$'
   message db 'Enter 5 value $'
   msg2 db 'Enter a value for search$'
   y db 'found$'
   n db 'not found$'

   dd db 'Digit$'

   arr dw '?'
.code
main proc
       mov ax,@data
       mov ds,ax



       mov dx,offset value
       mov ah,09h
       int 21h



       mov ah,01h
       int 21h
       mov dl,al
       sub dl,48


       mov si,offset arr
       mov cl,dl
       loop1:
            MOV AH,01H
            INT 21H
            MOV BL,AL
            mov [si],bl
            inc si
            loop loop1

        mov ah,02;
        mov dl,10
        int 21h
        mov dl,13
        int 21h



       mov cl,dl
       array arr

       ret

main endp

search proc
        mov ah,02;
        mov dl,10
        int 21h
        mov dl,13
        int 21h

      mov dx,offset msg2
      mov ah,09h
      int 21h

      MOV AH,01H
      INT 21H
      MOV BL,AL
      loop2:
        cmp bl,[si]
        je show

        inc si
        loop loop2


      jmp no_found

       show:

        mov ah,02;
        mov dl,10
        int 21h
        mov dl,13
        int 21h

        mov ah,02
        mov dl,[si]
        int 21h

        mov dx,offset y
        mov ah,09h;
        int 21h
        ret
      no_found:

        mov ah,02;
        mov dl,10
        int 21h
        mov dl,13
        int 21h

        mov ah,02
        mov dl,bl
        int 21h

        mov dx,offset n
        mov ah,09h
        int 21h
        ret




search endp



end main