Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.06.2011, 22:11   #1
Kroleg
Пользователь
 
Регистрация: 26.03.2011
Сообщений: 18
По умолчанию Как сохранять файлы???(Решение выражения)

Набрал в текстовом редакторе Начальную программу, которая решает выражение: ((D^2-A)^2\D^2+B)-20; с заданными числами A=10, B=4, D=-23. Нужно как-то через Norton Commander сохранить всё это в форматах asm, obj, lst, сделать листинг, и компанировать с помощью Link.exe.
Вот текст Начальной программы:
;-------------------------------------------- Поле стека -----------------
sseg segment 'stack'
db 128 dup (?)
sseg ends
;-------------------------------------------- Поля даних -----------------
dseg segment 'data'
text1 db 'Програма стартувала', 13, 10, '$'
text2 db '((D^2-A)^2\D^2+B)-20 = $'
A dw 0Ah
B dw 4
D dw 0E9h
rez dw ?
dseg ends
;-------------------------------------------- Текст програми -------------
cseg segment 'code'
assume cs:cseg, dsseg, ss:sseg

start proc far
mov ax, dseg
mov ds, ax
;-------------------------------------------------------------------------
m1: lea dx, text1

call WrStr

mov dx,offset text2
call WrStr
;-------------------------------------------------------------------------
m2: mov ax,d
mul ax
add ax,b
mov cx,ax
mov ax, D
mul ax
sub ax, A
mul ax
div cx
sub ax,20
mov rez,ax
;-------------------------------------------------------------------------
m3: mov dl, al
add dl, 30h
mov ah, 02h
Int 21h
;-------------------------------------------------------------------------
m4: mov ah, 4ch
Int 21h
Start endp
;-------------------------------------------------------------------------
WrStr proc near
mov ah, 09h
int 21h
ret
WrStr endp
;-------------------------------------------------------------------------
Cseg ends
end start
Возможно есть где-то ошибки... Помогите кому по силам...
Kroleg вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Решение выражения ((D^2-A)^2\D^2+B)-20. Kroleg Помощь студентам 3 27.06.2011 19:40
Решение логическоего выражения TRIZER Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 7 17.05.2011 12:22
Как сохранять ключ Умагаджи Общие вопросы Delphi 4 06.02.2011 13:16
Сохранять изображения и файлы в базу данных Paradox hoba БД в Delphi 20 29.11.2009 00:55
решение выражения на паскале bonys91 Помощь студентам 2 02.04.2009 22:18