mov dl,svalue
pusha

call open_file
mov svalue,00h ;обнуляем адрес для записи

mov bx,handle ;описатель файла (дескриптор)
mov cx,1 ;читаем один байт из файла (в одну ячейку памяти)
mov dx,offset tek_el ;читаем в переменную tek_el
int 21h

call writeSR ;запишем из переменной tek_el в ячейку по адресу svalue
inc svalue ;перейдем на следующую ячейку
cmp svalue,40h ;сравним с конечным адресом для записи.
jne cycl2 ;не равно, прыжок на чтение следующего байта из файла

call close_file ;прочитано 40h байт. Закроем файл

;вывод сообщения
mov kolonka,0
mov stroka,47
call print_position
mov color,0Ah
mov bp,offset message8
mov cx,dlmessage8
call print_string
call press_key
call clear_string

call scr_page

popa
mov svalue,dl
ret