Связь программ на языке высокого уровня и языке ассемблера

code segment
assume cs:code
start:
l       equ     12
procoutnum proc far
        push    bp
        mov     bp,sp
        push    ax
        push    dx
        push    si
        sub     sp,6    ; в стеке отводим 6 байт под учет знака
        cmp     dh,1    ; вывод со знаком или без?
        jne     L0
        cmp     ax,0
        jge     L0
        mov     dh,2    ; если вывод со знаком и AX < 0
        neg     ax      ; то dh:=2 и ax:=abs(ax)
L0:     push    dx      ; сохранить dh(знак) и dl(ширина поля)пишем цифры в стек в обратном                         ; порядке 
        xor     si,si   ; обнулили si - в нем будет количество цифр
L1:     mov     dx,0    ; преобразуем число из ax (16 бит) в (dx,ax) (32 бита*)
        div     cs:ten    ; ax:=ax div 10; dx=ax mod 10
        add     dl,'0'    ; в dl ASCII код очередной цифры
        mov     [bp-l+si],dl     ; очередная цифра*-> стек
        inc     si      ; увеличили длину числа
        or      ax,ax      ; * а не равен ли ax нулю?
        jnz     L1
; если есть знак минус,пишем его в стек
        pop     dx
        cmp     dh,2
        jne     L2
        mov     byte ptr [bp-l+si],'-'
        inc     si   ; печать пробелов перед числом
L2:     mov     dh,0
        mov     ah,2    ;функция 2 прерывания 21h
L21:    cmp     dx,si
        jle     L3
        push    dx
        mov     dl,' '
        int     21h
        pop     dx
        dec     dx
        jmp     L21
;печать знака и числа*
L3:     dec     si
        mov     dl,[bp-l+si]
        int     21h
        or      si,si
        jnz     L3
;выход из процедуры
        add     sp,6
        pop     si
        pop     dx
        pop     ax
        pop     bp
        ret
ten     dw      10
procoutnum endp
 
fusion proc PASCAL m:dword, len:word
;   push bp
;   mov bp,sp
   mov  dx,len ;[bp+4]
   mov  di,word ptr m+2 ;[bp+8]
 
        cld
        cmp        dx,1
        jbe        sort_exit        ; выйти,если сортировать нечего
        dec        dx
sn_loop1:
        mov        cx,dx            ; установить длину цикла*
        xor        bx,bx            ; BX будет флагом обмена*
        mov        si,di            ; SI будет указывать на текущий элемент
sn_loop2:
        lodsw                       ; прочитать следующее слово
        cmp        ax,word ptr [si]
        jbe        no_swap          ; если элементы не в порядке,
        xchg       ax,word ptr [si] ; поменять их местами
        mov        word ptr [si-2],ax
        push cx
        push ax
        push si
        push dx
        mov cx, dx      ; помещаем в cx а*размер массива*
        inc cx
        mov dx,0005h      ; одновременно записываем в dh  и dl, в dl записываем 0,а в dh 5
        mov si,di
M1:    mov ax, word ptr [si]
        call procoutnum
        add si,2       ; переход к следующему элементу
        dec cx
        jnz  M1
        mov ah,02h
        mov dl,0dh
        int 21h
        mov dl,0ah
        int 21h
        pop dx
        pop si
        pop ax
        pop cx
 
        inc        bx               ; и установить флаг в 1,
no_swap: