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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 15.09.2010, 20:54   #1
bookkc
Форумчанин
 
Регистрация: 16.05.2009
Сообщений: 199
По умолчанию Расставить комментарии

Вот программа, нужна помощь с коментариями, проще говоря кому не лень помочь студенту розставить коментарии, а то самому ещё знаний не хватает, только начинаем учить, где знаю, там розставлю и выложу позже, а кому не лень плиз, помогите!!!

Кто хоть что-то знает, прошу помощи розставить хоть то что знаете, не всё некотрые строчки я и сам знаю

Код:
.model small
.386
.stack
.code
jmp @start

buf db 255, 0, 255 dup (0)
s_inputstring db 'Input string :$'
s_keypress db 0Dh, 0Ah, 'Press any key to exit$'
log_position dw 0
max_position dw 0
out_position dw 12

; ===================== Waiting timer
WaitTimer proc near
push es
push ax
xor ax, ax
mov es, ax
mov ax, es:[46Ch]
@waiting:
cmp ax, es:[46Ch]
jz @waiting
pop ax
pop es
ret
WaitTimer endp

; ===================== Running string output
OutRunString proc near
pusha
push es
cld
mov ax, 0B800h
mov es, ax
mov ax, Out_Position
imul ax, ax, 160 ; Calculating offset
mov di, ax
mov si, ax
mov cx, 80
mov ax, 03420h
rep stosw ; Filling whole line by spaces
mov cx, 80 ; Characters to end of line
mov di, si
mov si, offset Buf + 2 ; First char of string
movzx bp, [si-1]
add bp, si ; Last char of string + 1
mov ax, Log_Position
cmp ax, cx
jnc @no_offset ; If position >= 80 then no need to offset string

sub cx, ax
add di, cx
add di, cx
mov cx, ax ; Calc offset and length
jmp short @outstr
@no_offset:
sub ax, cx
add si, ax ; Calc first output character
@outstr:
jcxz @outend
mov ah, 034h
mov al, [si]
stosw ; Out character
inc si
cmp si, bp ; If end of line or end of string then exit
jz @outend
dec cx
jmp short @outstr
@outend:
pop es
popa
retn
OutRunString endp

; ========================= MAIN CODE ================================
@start:
push cs
pop ds
mov ax, 3 ; Videomode 80x25
int 10h
mov dx, offset s_inputstring
mov ah, 9
int 21h
mov ah, 0Ah
mov dx, offset buf
int 21h ; Buffered input
mov dx, offset s_keypress
mov ah, 9
int 21h
movzx ax, byte ptr buf + 1
add ax, 80
mov Max_Position, ax
@work:
call WaitTimer ; Waiting 1/18 sec.
inc Log_Position
mov ax, Log_Position
cmp ax, Max_Position ; If LogPos > MaxPos then LogPos = 0
jnz @skip
mov Log_Position, 0
@skip:
call OutRunString ; Out running string
mov ah, 0Bh
int 21h
or al, al ; If not key pressed, then continue
jz @work

mov ah, 0Ch
int 21h ; Flush key buffer

mov ax, 4C00h
int 21h

end @start
bookkc вне форума
Старый 15.09.2010, 21:26   #2
ex.cluz
Участник клуба
 
Аватар для ex.cluz
 
Регистрация: 15.01.2010
Сообщений: 1,325
По умолчанию

Цитата:
Розставить
[OFFTOP]
Решил заглянуть, что тут за розы ставить надо, а их тут и нет, один ассемблер...
[/OFFTOP]
Грибы - они разные. Один тебя накормит, другой тебе кино покажет...
Редактор журнала "
[ПРОграммист]"
Yan's Home Digital Lab
ex.cluz вне форума
Старый 16.09.2010, 04:18   #3
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,206
По умолчанию

Цитата:
а то самому ещё знаний не хватает, только начинаем учить,
Ну да, заметно. Русскому языку вас тоже там не учат.
Цитата:
где знаю, там розставлю и выложу позже
Ну да, конечно. Судя по тем комментариям, которые Вы сейчас поставили в коде, сильно сомневаюсь, что они и в дальнейшем от Вас появятся там.
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума
Старый 16.09.2010, 08:04   #4
bookkc
Форумчанин
 
Регистрация: 16.05.2009
Сообщений: 199
По умолчанию

Якщо ти такий розумний, я тобi можу на Українськiй мовi все написати, але не факт що ти зрозумiєш!!!

Так понятно ? Коментарии я розставил у себя. И вообще, не нравится, не заходите в эту тему. Типо умные тут все собрались...
bookkc вне форума
Старый 16.09.2010, 09:09   #5
Mikl___
Участник клуба
 
Регистрация: 11.01.2010
Сообщений: 1,139
По умолчанию

bookkc
всі росіяни такі розумні, але їм чогось не подобається, і вони не заходять в цю тему. А хохли такі хитрі, але вони самі не знають куди поставити коментарі
Mikl___ вне форума
Старый 16.09.2010, 10:00   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
bookkc
Чтоб расставить комментарии в программе необходимо знать что она делает, а ты даже не указал для чего она.
Поскольку тема перешла в словесную перепалку закрываю. И давайте договоримся - нечего тут межсоциально умничать, я тоже могу назвать кацапом любого кто она территории России живет, от этого лучше не станет.
I'm learning to live...
Stilet вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Word. Расставить случайные числы в начале абзаца Maxxusha Microsoft Office Word 9 16.07.2010 20:55
Расставить пробелы dukesoteg Помощь студентам 0 10.06.2010 18:30
Расставить подытоги в сплошной таблице Иванов_ДМ Microsoft Office Excel 7 03.08.2009 18:37
Как расставить корабли в морском бое? Vsadnik Общие вопросы C/C++ 1 24.12.2008 16:28
Как правильно расставить, Application? valerij Microsoft Office Excel 12 12.06.2008 00:16