s segment
org 100h
assume cs:s,ds:s
;код программы
begin:
;Ввод имени файла
mov dx,offset priglash1 ;загрузка начального адреса строки в DX
mov ah,9h ; Вывод "введите строку"
int 21h
; ВНИМАНИЕ! Для последующего вывода строки в конце её должен быть $
lea dx,fname ;ввод строки в память
mov ah,0ah
int 21h
;ввод сторки
mov dx,offset priglash2 ;загрузка начального адреса строки в DX
mov ah,9h ; Вывод "введите строку"
int 21h
; ВНИМАНИЕ! Для последующего вывода строки в конце её должен быть $
lea dx,bufout ;ввод строки в память
mov ah,0ah
int 21h
;не лезть сюда
mov ah,3ch ;функция создания файла
mov cx,0 ;атрибут-0
mov dx,offset fname+2 ;адрес имени файла
int 21h
mov handle,dx ;сохраняем в dx дескриптор файла
mov ah,40h ;функция записи в файл
mov bx,handle ;дескриптор
mov cx,buflen ;число записываемых файлов
mov dx,offset bufout ;адрес данных
int 21h
mov ah,3eh ;функция закрытия файла
mov bx,handle ;дескриптор
int 21h
mov ah,10h ;функция ожидания
int 16h
int 20h ;выход из программы
;данные
priglash1 db 'Введите имя файла>','$'
priglash2 db 7,10,13,'Введите строку>','$'
bufout db 20,?,20 dup (?) ,'$'
buflen=$-bufout
handle dw 0
fname db 8,?,8 dup (?) ,0
s ends
end begin
