Процедуры, прерывания [FASM]

@Satansoft · Регистрация: 27.02.2012

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

Составить процедуру, которая представляет на экране текст из нескольких предложений в виде отдельных фраз с заголовком – нумерацией, например:
Предложение-1:
…………………
Предложение-2:
…………………
и т.д.
использовать эту процедуру для решения следующей задачи: ввести текст из нескольких предложений и вывести его на экран в заданном виде, закончив в главной программе завершающей строкой, выделив её цветом или мерцанием.

У FASM бзик на процедуры? ибо классический синтаксис не работает, использую обыкновенные метки с ret

Выделил то, что не понятно или не реализовано.

Впервые сталкиваюсь с прерываниями и процедурами и как следствие, творение рук моих не работает... где ошибся?

Assembler

format PE Console 4.0
entry Start
 
include 'win32a.inc'
 
section '.data' data readable writeable
 
Maxlen db 255
Actlen db ?
buffer rb 256
line db 'String $'
eline db 'ardos $',05h
 
section '.text' code readable executable
 
Start:
xor eax,eax
xor edx,edx
xor ebx,ebx  
call input
call head
 
call endline
 
input:
mov ah, 0Ah
lea dx, [Maxlen]
int 21h
ret
 
head:
lea dx, [line]
mov ah,09h
int 21h
ret
 
endline:
lea dx, [eline]
mov ah,09h
int 21h
mov ax, 1003h
mov bl, 1
int 10h
 
Exit:
  invoke  ExitProcess, 0
 
section '.idata' import data readable
 
  library kernel, 'KERNEL32.DLL'
 
  import kernel,\
    ExitProcess, 'ExitProcess'

@rotas · 14.11.2013, 02:26

Satansoft, путь решение этой проблемы мне видится таким:
o Разобраться с основными архитектурными различиями MS DOS и Windows.
o Какие бывают режими работы процессора.
o Все же определиться, под какую платформу нужно написать программу.
Не иначе.

@Satansoft · 14.11.2013, 02:33 **[ТС]**

Сообщение от rotas

путь решение этой проблемы мне видится таким

это DOS: прерывания и FASM'овские особенности объявления процедур. В то время, как процедуры относительно ясны, в использовании прерываний я юный падаван, от того требуется взор опытного мастера-джедая.

@rotas · 14.11.2013, 03:05

Satansoft,

format PE Console 4.0

это DOS:

Наблюдается некое понятийное расхождение.
Почитайте прилагающуюся к fasm справочку, особенно главу 2.4.1 MZ executable.

@XiloManX · 14.11.2013, 04:53

Товарищ rotas уже всё сказал. Но попробую по другому объяснить.

Процедуры DOS'осовские, а заголовок и конец Windows'кий. Так работать, не будет!

Если пишешь для DOS, то всё должно быть DOS'овское. Тоже правило и для других осей.

@Satansoft · 14.11.2013, 23:02 **[ТС]**

Видимо я изначально понимал о чем речь, но ось у меня x64 и х16 программы не работают, из положения можно выйти используя API и высокоуровневые функции?

Добавлено через 4 часа 54 минуты
Новая версия фолианта, который даже в отладчике не проверишь из-за 64-битности, DOSbox же и вовсе зависает.
Ввод/вывод синтаксически верен? НЕ ясен нюанс максимальной и фактической длины строки на ввод...как система вообще различает где что?

Assembler

format MZ
 
use32
org 100h
 
Maxlen db 255
Actlen db ?
buffer rb 256
line db 'String $'
eline db 'ardos $',05h
 
Start:
xor eax,eax
xor edx,edx 
call input
call head
call task
call endline
 
input:
mov ah, 0Ah
movsx dx, [Maxlen]
int 21h
ret
 
head:
movsx dx, [line]
mov ah,09h
int 21h
ret
 
task:
movsx dx, [Maxlen]
int 21h
ret
 
endline:
movsx dx, [eline]
mov ah,09h
int 21h
mov ax, 1003h
mov bl, 1
int 10h
 
Exit:
mov ax, 4C00h
int 21h

@XiloManX · 15.11.2013, 00:15

Сообщение от Satansoft

Видимо я изначально понимал о чем речь, но ось у меня x64 и х16 программы не работают, из положения можно выйти используя API и высокоуровневые функции?

Да, можно на API написать.

Сообщение от Satansoft

DOSbox же и вовсе зависает.

И немудрено! Код не правельный, изначально.

Сообщение от Satansoft

НЕ ясен нюанс максимальной и фактической длины строки на ввод...как система вообще различает где что?

Мне пока тоже.

@Satansoft · 15.11.2013, 00:20 **[ТС]**

Сообщение от XiloManX

И немудрено! Код неправильный, изначально.

Можно конкретней на примере кода?

@XiloManX · 15.11.2013, 00:31

Сообщение от Satansoft

Можно конкретней на примере кода?

Ну например, строка 3. DOS 16 битная. Во-вторых, адрес передаётся без скобочек. Ещё строки 13 и 14, неверны.

@Satansoft · 15.11.2013, 00:38 **[ТС]**

Сообщение от XiloManX

DOS 16 битная.

Assembler

use16

Сообщение от XiloManX

Во-вторых, адрес передаётся без скобочек

(пример для ввода)

Assembler

input:
mov dx, buf
mov ah, 0Ah
int 21h
ret

Сообщение от XiloManX

Ещё строки 13 и 14, неверны.

там лишь обнуления регистров, в чем ошибка?

@Satansoft · 15.11.2013, 00:40 **[ТС]**

После корректировок ругается на содержимое регистра сегмента кода.

@XiloManX · 15.11.2013, 00:53

Сообщение от Satansoft

Цитата Сообщение от XiloManX Посмотреть сообщение
Ещё строки 13 и 14, неверны.
там лишь обнуления регистров, в чем ошибка?

В 16 битном режиме, 32 битные регистры не используются по определению.

Добавлено через 11 минут
Строки: 22, 27, 33, 38, тоже не в тему. Зачем расширять знаком, адрес?

@Satansoft · 15.11.2013, 00:54 **[ТС]**

Как организовывается ввод?

Функция 0Ah 21h прерывания требует:
Максимальную длину буфера (без учета 0dh)
Действительную длину буфера и сам буфер (с учетом 0dh)

Но как компилятор ориентируется где что?
Вариант объявления:

Assembler

1
2
3

Maxlen db 255
Actlen db 0
buf db 256 dup ?

ввод:

Assembler

input:
mov dx, buf
mov ah, 0Ah
int 21h
ret

Добавлено через 54 секунды
Актуальный код:

Assembler

format MZ
 
use16
org 100h
 
Maxlen db 255
Actlen db 0
buf db 256 dup ?
line db 'String$'
eline db 'ardos$',05h
 
Start:
xor ax,ax
xor dx,dx 
call input
call head
call task
call endline
 
input:
mov dx, buf
mov ah, 0Ah
int 21h
ret
 
head:
mov dx, line
mov ah,09h
int 21h
ret
 
task:
mov dx, Maxlen
mov ah,09h
int 21h
ret
 
endline:
mov dx, eline
mov ah,09h
int 21h
mov ax, 1003h
mov bl, 1
int 10h
 
Exit:
mov ax, 4C00h
int 21h

Сообщение от XiloManX

Строки: 22, 27, 33, 38, тоже не в тему. Зачем расширять знаком, адрес?

Уже записывается адрес.

@XiloManX · 15.11.2013, 01:14

Как я понял, должно быть так (для ф.0Ah 21h):

Assembler

 
 buf_max_len equ 255
 str_len: db 0
 buf: rb buf_max_len 
 
 mov [buf+0], buf_max_len  ; максимальный размер буфера.
 mov [buf+1], str_len         ; длина введённой строки текста "Actlen".
 
input:
mov dx, buf
mov ah, 0Ah
int 21h
ret

Сообщение от Satansoft

Уже записывается адрес.

Ну, тады ладно.

@Satansoft · 15.11.2013, 01:28 **[ТС]**

Сообщение от XiloManX

buf_max_len equ 255

Загоняет в этот самый буфер черт знает что... equ заменено на db

Сообщение от XiloManX

mov [buf+0], buf_max_len *; максимальный размер буфера.
*mov [buf+1], str_len * * * * ; длина введённой строки текста "Actlen".

Ругаецо на размерности... не понятно как это работает)

@XiloManX · 15.11.2013, 04:22

Nf-lf

Добавлено через 6 минут

Сообщение от Satansoft

Ругаецо на размерности... не понятно как это работает)

Спать хочу. Ошибки полезли.

Добавлено через 5 минут
Щас всё будет.

Добавлено через 2 часа 29 минут
Вот, переделал малость. Работает, но без мерцания. Функцию мерцания надо делать отдельно. Та что используется, скорее всего, у тебя работать не будет (у меня, не работает). Может завтра сделаю, если получится, а сейчас спать буду (с ног валюсь).

Assembler

format MZ
 
use16
org 100h
 
Maxlen  equ  255
CRLF    equ  13,10
 
Start:
    mov [line+7], byte '1'
 
    call    input
    call    head
 
    call    task
    call    endline
 
    mov ah, 00h
    int 16h
 
    mov     ax, 4C00h
    int     21h
 
; FUNCTION AREA.
 
input:
    xor si, si
 
    mov cx, (Maxlen-3)
    
 .get_char:
;   xor al, al
 
    mov ah, 01h
    int 21h
 
    cmp al, 0dh
    je  .exit
 
    mov [buf+si], al
    inc si
 
    dec cx
    jnz .get_char
    
 .exit:
        mov     [buf+si+0], 13
        mov     [buf+si+1], 10
        mov     [buf+si+2], '$'
    ret
 
head:
    mov dx, line
    mov ah, 09h
    int 21h
    ret
 
task:
    mov dx, buf_max_len
    mov ah, 09h
    int 21h
    ret
 
endline:
    mov dx, eline
    mov ah, 09h
    int 21h
 
;       here must be function blinking.
 
        ret
 
; DATA AREA.
 
buf_max_len: db 'Max buffer length: 255', CRLF,'$'
line:        db 'String  :', CRLF
buf          rb  255         
eline:       db 'End of string', CRLF,'$'

@Satansoft · 15.11.2013, 15:55 **[ТС]**

Вы таки решили функцией посимвольного ввода реализовать?

Что за строки?

Сообщение от XiloManX

mov [line+7], byte '1'

Сообщение от XiloManX

.exit:
* * * * mov * * [buf+si+0], 13
* * * * mov * * [buf+si+1], 10
* * * * mov * * [buf+si+2], '$'

Сама программа не запускается, окно открывается и сразу гаснет...

@XiloManX · 15.11.2013, 16:06

Сообщение от Satansoft

Вы таки решили функцией посимвольного ввода реализовать?

Именно так.

Сообщение от Satansoft

mov [line+7], byte '1'

Пишет число 1, в строку line: db 'String :', CRLF.

Сообщение от Satansoft

.exit:
* * * * mov * * [buf+si+0], 13 ; возврат каретки.
* * * * mov * * [buf+si+1], 10 ; перевод строки.
* * * * mov * * [buf+si+2], '$' ; конец строки.

Сообщение от Satansoft

Сама программа не запускается, окно открывается и сразу гаснет...

Странно... у меня работает замечательно.

@Satansoft · 15.11.2013, 16:08 **[ТС]**

Сообщение от XiloManX

Странно... у меня работает замечательно.

На виртуалке мигнуло, в DOSbox выбило 2 раза String и висяк... панико-панико...

@XiloManX · 15.11.2013, 16:14

Вот скрины и бинарник.

@Satansoft 20 / 16 / 7 Регистрация: 27.02.2012 Сообщений: 742
	15.11.2013, 15:55 [ТС]	17
	Вы таки решили функцией посимвольного ввода реализовать? Что за строки? Сообщение от XiloManX mov [line+7], byte '1' Сообщение от XiloManX .exit: * * * * mov * * [buf+si+0], 13 * * * * mov * * [buf+si+1], 10 * * * * mov * * [buf+si+2], '$' Сама программа не запускается, окно открывается и сразу гаснет... 0

@XiloManX 644 / 148 / 31 Регистрация: 11.02.2013 Сообщений: 277
	15.11.2013, 16:06	18
	Сообщение от Satansoft Вы таки решили функцией посимвольного ввода реализовать? Именно так. Сообщение от Satansoft mov [line+7], byte '1' Пишет число 1, в строку line: db 'String :', CRLF. Сообщение от Satansoft .exit: * * * * mov * * [buf+si+0], 13 ; возврат каретки. * * * * mov * * [buf+si+1], 10 ; перевод строки. * * * * mov * * [buf+si+2], '$' ; конец строки. Сообщение от Satansoft Сама программа не запускается, окно открывается и сразу гаснет... Странно... у меня работает замечательно. 1

@Satansoft 20 / 16 / 7 Регистрация: 27.02.2012 Сообщений: 742
	15.11.2013, 16:08 [ТС]	19
	Сообщение от XiloManX Странно... у меня работает замечательно. На виртуалке мигнуло, в DOSbox выбило 2 раза String и висяк... панико-панико... 0

@rotas 336 / 18 / 1 Регистрация: 15.05.2012 Сообщений: 22
	14.11.2013, 02:26	2
	Satansoft, путь решение этой проблемы мне видится таким: o Разобраться с основными архитектурными различиями MS DOS и Windows. o Какие бывают режими работы процессора. o Все же определиться, под какую платформу нужно написать программу. Не иначе. 1

@Satansoft 20 / 16 / 7 Регистрация: 27.02.2012 Сообщений: 742
	14.11.2013, 02:33 [ТС]	3
	Сообщение от rotas путь решение этой проблемы мне видится таким это DOS: прерывания и FASM'овские особенности объявления процедур. В то время, как процедуры относительно ясны, в использовании прерываний я юный падаван, от того требуется взор опытного мастера-джедая. 0

@rotas 336 / 18 / 1 Регистрация: 15.05.2012 Сообщений: 22
	14.11.2013, 03:05	4
	Satansoft, format PE Console 4.0 это DOS: Наблюдается некое понятийное расхождение. Почитайте прилагающуюся к fasm справочку, особенно главу 2.4.1 MZ executable. 2

@XiloManX 644 / 148 / 31 Регистрация: 11.02.2013 Сообщений: 277
	14.11.2013, 04:53	5
	Товарищ rotas уже всё сказал. Но попробую по другому объяснить. Процедуры DOS'осовские, а заголовок и конец Windows'кий. Так работать, не будет! Если пишешь для DOS, то всё должно быть DOS'овское. Тоже правило и для других осей. 2

@XiloManX 644 / 148 / 31 Регистрация: 11.02.2013 Сообщений: 277
	15.11.2013, 00:15	7
	Сообщение от Satansoft Видимо я изначально понимал о чем речь, но ось у меня x64 и х16 программы не работают, из положения можно выйти используя API и высокоуровневые функции? Да, можно на API написать. Сообщение от Satansoft DOSbox же и вовсе зависает. И немудрено! Код не правельный, изначально. Сообщение от Satansoft НЕ ясен нюанс максимальной и фактической длины строки на ввод...как система вообще различает где что? Мне пока тоже. 0

@Satansoft 20 / 16 / 7 Регистрация: 27.02.2012 Сообщений: 742
	15.11.2013, 00:20 [ТС]	8
	Сообщение от XiloManX И немудрено! Код неправильный, изначально. Можно конкретней на примере кода? 0

@XiloManX 644 / 148 / 31 Регистрация: 11.02.2013 Сообщений: 277
	15.11.2013, 00:31	9
	Сообщение от Satansoft Можно конкретней на примере кода? Ну например, строка 3. DOS 16 битная. Во-вторых, адрес передаётся без скобочек. Ещё строки 13 и 14, неверны. 1

@Satansoft 20 / 16 / 7 Регистрация: 27.02.2012 Сообщений: 742
	15.11.2013, 00:40 [ТС]	11
	После корректировок ругается на содержимое регистра сегмента кода. Миниатюры 0

@XiloManX 644 / 148 / 31 Регистрация: 11.02.2013 Сообщений: 277
	15.11.2013, 00:53	12
	Сообщение от Satansoft Цитата Сообщение от XiloManX Посмотреть сообщение Ещё строки 13 и 14, неверны. там лишь обнуления регистров, в чем ошибка? В 16 битном режиме, 32 битные регистры не используются по определению. Добавлено через 11 минут Строки: 22, 27, 33, 38, тоже не в тему. Зачем расширять знаком, адрес? 1

@Satansoft 20 / 16 / 7 Регистрация: 27.02.2012 Сообщений: 742
	15.11.2013, 01:28 [ТС]	15
	Сообщение от XiloManX buf_max_len equ 255 Загоняет в этот самый буфер черт знает что... equ заменено на db Сообщение от XiloManX mov [buf+0], buf_max_len ; максимальный размер буфера. mov [buf+1], str_len * * * * ; длина введённой строки текста "Actlen". Ругаецо на размерности... не понятно как это работает) 0