Форум программистов [Powered by Invision Power Board]

Код

sseg   segment        'STACK'
        db      64 dup(?)
sseg   ends
dseg    segment    'data'
A            dw     8, 2, 3, 6, -1, -1, -1, 2
nA        dw    8
B            dw     1, 0, 1, -2, -3, -2, 3
nB        dw    7
dlA            dw      ?
dlB             dw      ?
nomA            dw    ?
nomB            dw      ?
dseg    ends
code    segment    
    assume ds:dseg, cs:code    

work    proc    far
push    ds
xor     ax,ax
push    ax
mov     ax, dseg
mov    ds,ax


lea    bx,A
mov    cx,nA
lea     si,nomA
lea     di,dlA
call    lab1
lea         bx,B
mov         cx,nB 
lea         si,nomB
lea         di,dlB
call        lab1

lea  ax,A
push ax
lea  ax,nA
push ax
lea  ax,nomA
push ax
lea  ax,dlA
push ax
call lab2
;---------
lea  ax,B
push ax
lea  ax,nB
push ax
lea  ax,nomB
push ax
lea  ax,dlB
push ax
call lab2
ret  6
work endp
;---
lab1    proc    near
    push    si
      push  di
    mov    di,0
        mov     dx,0
        mov     bp,0
p3:
    mov    ax,[bx+di]
    cmp     ax,0
    jge     p13
        inc     dx
        jmp     p2 
p13:
        cmp    dx,3
        jne  p9
        mov  si,di
        jl         p1
p9:
mov          bp,dx
p1:       
             mov dx,0
p2:      
add        di,2
loop            p3

pop             di
mov             [di],bp
mov             di,si
pop             si
add             di,2
shr             di,1
sub             di, bp
mov             [si],di
ret
lab1    endp
;---
lab2 proc near
push bp
mov  bp,sp
push ax bx cx dx si di
mov  cx,[bp+4]
mov  di,[bp+6]
shl  di,1
mov  bx,[bp+10]

m1:  mov  bx,[bx+di]
     mov bx,0
     add di,2
loop m1
pop     di si dx cx bx ax bp
ret  6
lab2 endp
code   ends
end