.model small
.stack 100h
include pr.inc
.data

param dw 7777h   
rez_str db 12 dup(0)
out_file db '.\out.txt',0
file_handle dw ?
name_in db '.\inp.txt',0
out2 db 'Введите цвет символов: ',24h
seek dw 2
atr dw 159

.code

start:

mov ax,@data
mov ds,ax


mov ax,offset name_in
push ax
mov ax,seek
push ax
mov ax,offset param
push ax
call _inp

mov ax,offset rez_str;передача по адресу
push ax
mov ax,param;передача по значению
push ax
call _foo
add sp,4;очистка стека

mov ax,offset rez_str
push ax
mov ax,offset out2
push ax
call _out

mov ah,4ch
int 21h
end start