Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 30.11.2010, 19:47   #1 (permalink)
5iver
Member
 
Аватар для 5iver
 
Регистрация: 11.01.2010
Сообщений: 22
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 43
Arrow Создание файла в Turbo assembler

Здравствуйте. Требуется написать 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
5iver вне форума   Ответить с цитированием

Старый 30.11.2010, 19:47
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Дам вам темы в которых возможно есть ответы на интересующие вас вопросы

Turbo Prolog
ASSEMBLER,BASIC не могу скачать
Любимый Assembler
Стек в Turbo Pascal

Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 22:00.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.