; Search max absolute value

org 100h
   
   mov ax, array      ; AX = array
   mov cx, 7          ; CX = 7 (array length)
   
    cycle:
    






    loop cycle
    
    mov ax, 4C00h    ;
    int 21h          ; return to OS

array dw 5,-2,7,4,3, 0, -9   ; define arary
max dw ?                     ; define max

; Search min absolute value

org 100h
    
    lea bx, array                         ; bx = array_address
    mov cx, array_length                  ; cx = counter = array_length
    mov ax, [bx]                          ; ax = first element of array
    mov max, ax                           ; max = first element of array
    xor dx, dx                            ; dx = 0
        
        cycl:
           mov ax, [bx]                   ; ax = element of array 
           cmp ax, 0                      ; if ax >= 0
           jge polojitelnoe               ; then go to point "polojitelnoe" 
           neg ax                         ; else reverse
        polojitelnoe:
           cmp ax, dx                     ; if ax >= 0
           jbe pass                       ; then go to point "pass"
           mov dx, ax                     ; else dx = ax, dx is max
        pass:
           inc bx                         ; bx = bx + 1 (increment bx)
           inc bx                         ; bx = bx + 1 (increment bx)
        loop cycl
        
    mov max, dx                           ; max = dx

    int 21h                               ; return to OS

array dw 4, -3, 1, -9, 0, 2, 7, 5, 3      ; define array
array_length = ($ - array)/2              ; calc array 
max dw ?                                  ; empty variable for max