Передача массива в процедуру

result db 10 DUP(?) '$'

lea bp, result
call myProc

mov di, 0
mov dl, '0'
myLoop: mov BYTE PTR[bp][di], dl
inc dl
inc di
cmp di, 10
jne myLoop

    push ds
    mov dx,offset result
    push dx
    call myproc

myproc proc near
    push bp
    mov bp,sp
    mov sp,bp
    push ds
    push bx
    push ax
    push dx
    mov bx,ss:[bp+4]
    mov ax,ss:[bp+6]
    mov ds,ax
    mov dl,'0'
l1:
    mov ds:[bx], dl
    inc dl
    inc bx
    cmp dl,'9'
    jle l1
    pop dx
    pop ax
    pop bx
    pop ds
    pop bp
    ret  4
myproc endp

;MASM/TASM
.model compact
.286
.stack
.data
result db 10 DUP(?), '$'
.code
start:  mov ax, @data
    mov ds, ax
    push    ds
    push    offset result
    call    myProc
    mov dx, offset result
    mov ah, 9
    int 21h
    xor ax, ax
    int 16h
    mov ax, 4C00h
    int 21h
 
myProc: mov bp, sp
    les di, dword ptr ss:[bp+2]
    mov cx, 10
    mov al, '0'
@l: stosb
    inc al
    loop    @l
    ret
end start