Создание файла в Turbo assembler

5iver · 30.11.2010, 19:47

Здравствуйте. Требуется написать com-программу создающую файл, При этом имя файла и информацию в нем надо ввести с клавиатуры. Программу написал но она не хочет создавать файл. Посмотрите пожалуйста где ошибка. Заранее спасибо.

Цитата:

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

30.11.2010, 19:47
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Дам вам темы в которых возможно есть ответы на интересующие вас вопросы Turbo Prolog ASSEMBLER,BASIC не могу скачать Любимый Assembler Стек в Turbo Pascal

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070