![]() |
1. Заголовок или название темы должно быть информативным
2. Все тексты программ должны помещаться в теги [CODE=asm] [/CODE]
3. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно, такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Ассемблера. Исключение только с согласия модератора.
5. НЕ используйте форум для личного общения! Все, что не относиться к обсуждению темы - на PM!
6. Проверяйте программы перед тем, как выложить их на форум!!
![]() |
St@senk@ |
![]()
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 48 Пол: Мужской Реальное имя: Максим Репутация: ![]() ![]() ![]() |
Здравствуйте, не подскажите ли Вы, как скомпилировать
procedure putpixel2 (x,y:word;col:byte);assembler;
asm
pusha
mov ax,0A000h
mov es,ax
mov ax,[y]
mul 320
mov di,ax
add di,[x]
mov al,[col]
cld
stosb
popa
end;
а то у меня по каким-то причинам Turbo Pascal 7, пишет ошибку в строке mul 320 Заранее благодарен -------------------- Три пути ведут к знанию: путь размышления - это путь самый благородный, путь подражания - это путь самый легкий и путь опыта - это путь самый горький.
Конфуций |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Ну, не знаю, насколько он работающий, но то что должен компилироваться - точно:
procedure putpixel2 (x,y:word;col:byte);assembler;
const a: word = 320;
asm
pusha
mov ax,0A000h
mov es,ax
mov ax,[y]
mul a
mov di,ax
add di,[x]
mov al,[col]
cld
stosb
popa
end
|
![]() ![]() |
![]() |
Текстовая версия | 20.07.2025 11:21 |