Создание каталога. Имя каталога вводится с клавиатуры

@menreys · Регистрация: 29.01.2017

Author24 — интернет-сервис помощи студентам

за что отвечает первая строка и на что flat assembler может ругаться ссылаясь на эту строку, можно ли преобразовать этот код для создания каталога?

Assembler

st segment para 'stack'  
db 256 dup(0)
st ends
cod segment para public 'code'
assume ss:st;cs:cod;es:data;ds:data
start push ds
mov ax,0
push ax
mov ax,offset data
mov dx,ax
call pro
retf
start endp
;--------------------------------------------------------
pro proc near
mov dx,offset str
mov ah,09h      
int 21h
;--------------------------------------------------------
mov dx,offset ndir
mov ah,0Ah              
int 21h
;--------------------------------------------------------
mov ah,0
mov bx,dx
mov al,1[bx]           
add bx,ax               
mov 2[bx],ah
;--------------------------------------------------------
add dx,2
mov ah,30h       
int 21h
;--------------------------------------------------------
jnc k
mov dx,offset strerr   
mov ah,09h
int 21h
;--------------------------------------------------------
k: ret
pro endp
cod ends
data segment para public 'data'
ndir db 80 dup(0)
str db 'Ввести имя каталога :',0dh,0ah,'$'
strerr db 'Ошибка',0dh,0ah,'$'
data ends
end start

@menreys · 06.12.2017, 15:13 **[ТС]**

за что отвечает первая строка и на что flat assembler может ругаться ссылаясь на эту строку, можно ли преобразовать этот код для создания каталога?

Assembler

st segment para 'stack'  
db 256 dup(0)
st ends
cod segment para public 'code'
assume ss:st;cs:cod;es:data;ds:data
start push ds
mov ax,0
push ax
mov ax,offset data
mov dx,ax
call pro
retf
start endp
;--------------------------------------------------------
pro proc near
mov dx,offset str
mov ah,09h      
int 21h
;--------------------------------------------------------
mov dx,offset ndir
mov ah,0Ah              
int 21h
;--------------------------------------------------------
mov ah,0
mov bx,dx
mov al,1[bx]           
add bx,ax               
mov 2[bx],ah
;--------------------------------------------------------
add dx,2
mov ah,30h       
int 21h
;--------------------------------------------------------
jnc k
mov dx,offset strerr   
mov ah,09h
int 21h
;--------------------------------------------------------
k: ret
pro endp
cod ends
data segment para public 'data'
ndir db 80 dup(0)
str db 'Ввести имя каталога :',0dh,0ah,'$'
strerr db 'Ошибка',0dh,0ah,'$'
data ends
end start

ФедосеевПавел · 06.12.2017, 19:20

Данный исходник для другого компилятора - tasm. Для FASM нужно менять все служебные слова и что-то ещё в синтаксисе.
Пример подобной программы https://www.cyberforum.ru/fasm/thread1882005.html

@Constantin Cat · 06.12.2017, 20:04

Сообщение от ФедосеевПавел

для другого компилятора - tasm

Вы только на половину правы, masm ЭТО тоже проглотит.
ЭТО потому, что с ГРУБЫМИ ошибками и все они в начале программы:

Assembler

steck segment para 'stack'  - st зарезервированное слово за сопроцессором
db 256 dup(0)
steck ends -см. выше
cod segment para public 'code'
assume ss:steck,cs:cod,es:data,ds:data - см. выше, и ; - это комментарий :)
start proc - конец подпрограммы есть, а начало

добавил миниатюру

ФедосеевПавел Модератор 8476 / 4335 / 1642 Регистрация: 01.02.2015 Сообщений: 13,461 Записей в блоге: 8
	06.12.2017, 19:20	3
	Данный исходник для другого компилятора - tasm. Для FASM нужно менять все служебные слова и что-то ещё в синтаксисе. Пример подобной программы https://www.cyberforum.ru/fasm/thread1882005.html 0

	06.12.2017, 20:04