закоментировать 3 програми

title lab1
code segment
    assume cs:code,ds:code
 
    a dw 5
    x dw 3
    b dw 1
    j dw 6
    znam dw ?
    d dw ?
 
begin   proc    far
    push ds
    mov ax,0
    push ax
    mov ax,code
    mov ds,ax
 
    mov ax,j
    mov bx,5
    cmp ax,bx
    jl second
    mov bx,5
    mov cx,b
    sub cx,bx
    mov ax,5
    imul cx
    mov znam,ax
    mov ax,3
    mov bx,a
    imul bx
    mov bx,x
    imul bx
    idiv znam
    mov d,ax
    jmp short con
second: mov d,-10
con:    ret
 
begin   endp
code    ends
    end begin

Текс программы
title lab2
code segment
    assume cs:code,ds:code
 
    a dw 1,5,3,6,2,9
    n dw 6
 
begin   proc    far
    push ds
    mov ax,0
    push ax
    mov ax,code
    mov ds,ax
    
    mov cx,n
cycle1: push cx
    dec cx
    jcxz stop
    lea bx,a
cycle2: mov ax,0[bx]
    cmp ax,2[bx]
    jg next
    xchg ax,2[bx]
    mov [bx],ax
next: add bx,2
    loop cycle2
    pop cx
    loop cycle1
stop: nop
 
    ret
begin   endp
code    ends
    end begin

Текс программы
title lab2
code segment
    assume cs:code,ds:code
 
    a dw 1,5,3,6,2,9
    n dw 6
 
begin   proc    far
    push ds
    mov ax,0
    push ax
    mov ax,code
    mov ds,ax
    
    mov cx,n
cycle1: push cx
    dec cx
    jcxz stop
    lea bx,a
cycle2: mov ax,0[bx]
    cmp ax,2[bx]
    jg next
    xchg ax,2[bx]
    mov [bx],ax
next: add bx,2
    loop cycle2
    pop cx
    loop cycle1
stop: nop
 
    ret
begin   endp
code    ends
    end begin

title lab1
.code
org 100h 
begin:   cmp j,5
    jl second ; if j<5 goto second
    mov cx,b; cx = b
    sub cx,5 ; cx = b - 5
    imul ax,cx,5; ax = (b - 5)* 5
    mov znam,ax
    mov ax,3
    imul a; ax = 3*a
    imul x; ax = 3 * a* x
    cwd ; без этой команды деление будет неправильным 
    idiv znam; ax = ax/znam
    mov d,ax; d = ax
    jmp short con
second: mov d,-10
con:  ret ; выход из подпрограммы
    a dw 5
    x dw 3
    b dw 1
    j dw 6
    znam dw ?
    d dw ?
    end begin

title lab2
;пузырьковая сортировка массива А
.code
begin:  mov cx,n; количество элементов в массиве
cycle1: push cx
    dec cx; cx=cx-1
    jcxz stop; if cx=0 goto stop
    lea bx,a; в регистр ВХ адрес начала массива А
cycle2: mov ax,[bx]; сравниваем два соседних элемента
    cmp ax,[bx+2]
    jg next
    xchg ax,[bx+2]; если 1-ый элемент больше чем 2-ой обмениваем их местами
    mov [bx],ax
next: add bx,2; проверяем следующую пару элементов
    loop cycle2
    pop cx
    loop cycle1
stop: ret; выход из программы
a dw 1,5,3,6,2,9
    n dw 6
end begin

title lab3
code segment
    assume cs:code,ds:code,es:code
 
    a db 'aaaaa aaaaa a a'
    num dw 14
    n dw ?
 
begin   proc    far
    push ds
    mov ax,0
    push ax
    mov ax,code
    mov ds,ax
    mov es,ax
 
    mov cx,num
    mov ax,0
    mov dx,0
    lea di,a
    mov bx,0
    mov al,' '
    cld
cycle:  scasb
    jne nosp
    cmp bx,3
    jl  sb
    inc dx
sb: mov bx,0
    jmp next
nosp:   inc bx
next:   loop cycle
    mov n,dx
 
 
    ret
begin   endp
code    ends
    end begin