RFpro.ru: Ассемблер? Это просто! Учимся программировать

Если выпуск не отображается корректно, то вы можете прочесть его на сайте

Реклама Отказаться от рекламы

RFpro.ru: Ассемблер? Это просто! Учимся программировать Хостинг портала RFpro.ru: Московский хостер Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64 РАССЫЛКИ ПОРТАЛА RFPRO.RU Чемпионы рейтинга экспертов в этой рассылке Boriss Статус: Академик Рейтинг: 2483 • повысить рейтинг » _Ayl_ Статус: Профессионал Рейтинг: 1963 • повысить рейтинг » vladisslav Статус: 6-й класс Рейтинг: 1233 • повысить рейтинг » / КОМПЬЮТЕРЫ И ПО / Программирование / Assembler (Ассемблер) Номер выпуска: 1370 Дата выхода: 12.07.2010, 20:30 Администратор рассылки: Лысков Игорь Витальевич, Старший модератор Подписчиков / экспертов: 233 / 64 Вопросов / ответов: 1 / 1 IRC-канал по теме: #assembler Вопрос № 179396: Уважаемые эксперты, подправьте, пожалуйста, программу, данную ниже. Она выводит на экран прямоугольник, который можно перемещать стрелками, а при нажатии на Пробел должна выводить три движущихся к верхнему края экрана спрайта, по достижении которого ... Вопрос № 179396: Уважаемые эксперты, подправьте, пожалуйста, программу, данную ниже. Она выводит на экран прямоугольник, который можно перемещать стрелками, а при нажатии на Пробел должна выводить три движущихся к верхнему края экрана спрайта, по достижении которого спрайты исчезают. У меня выводится только один спрайт, и он не двигается. Где-то ошибся я, а где не пойму. Вроде каждая из процедур по-отдельности работает нормально. Процедуры Draw proc и DrawSprite proc практически одинаковы, за исключением количества передаваемых параметров в стеке и нескольких команд привязки спрайтов к маске. Отправлен: 04.07.2010, 20:16 Вопрос задал: Adsorores, Посетитель Всего ответов: 1 Страница вопроса » Отвечает Зенченко Константин Николаевич, Модератор : Здравствуйте, Adsorores. Смотрите приложение. Вопросы задавайте в мини-форум. Удачи! Приложение: locals @@ model tiny, C OBJ_MASK struc next dw ?;указатель на следующий объект ;координаты x dw ?;горизонталь y dw ?;вертикаль ;прирощение координат d_x dw ?;горизонталь d_y dw ?;вертикаль ;информация img dw ?;изображение img_x dw ?;горизонталь img_y dw ?;вертикаль img_z dw ?;адрес в памяти видеобуфера ;методы обработки method_A dw ?;первый метод method_B dw ?;второй метод method_C dw ?;третий метод OBJ_MASK ends code startup 186 keyE equ 1 mov ax,12h;vga 640х480х16 int 10h ;свой обработчик mov ax,3509h int 21h mov old09o,bx mov old09s,es mov ax,2509h mov dx,offset new09 int 21h ;открываем порт mov dx, 03CEh;индексный порт графического контроллера mov ax, 0F01h;разрешение установки/сброса out dx, ax ;настраиваесмся на вывод mov ax, 0a000h mov es, ax ;основной цикл праограммы mov bx,offset obj_A MainLoop: CALL Main_Loop , method_A CALL Dalay CALL Main_Loop , method_B CALL CheckKey CALL Main_Loop , method_C cmp byte ptr DataKey[KeyE] , 1 jnz MainLoop ;востанавливаем страрый обработчик mov dx,old09o mov ds,old09s mov ax,2509h int 21h ;выходим в ДОС mov ax, 0003h int 10h mov ax, 4c00h int 21h ; ;обработчик прерывания клавиатуры ; :-) old09o dw ? old09s dw ? DataKey db 256 dup (0) New09: pusha xor bx,bx in al,60h mov bl,al mov byte ptr DataKey[ bx ],1 xor bl,80h mov byte ptr DataKey[ bx ],0 in al,61h push ax or al,80h out 61h,al pop ax out 61h,al mov al,20h out 20h,al popa iret ; ;подпроаграмма организации просмотра списка объектов в системе Main_Loop proc CallProc:word push bx ;цикл просмотра Loop_Main: mov si , CallProc mov si, [bx + si] call si mov bx , [ bx ].next or bx , bx jnz Loop_Main pop bx ret Main_Loop endp ;объект номер 1 obj_A Obj_Mask <offset obj_B,100,200,0,0,offset img_A,sz_img_A_x,sz_img_A_y,?,offset Show,offset Hide,offset Move> ;объект номер 2 obj_B Obj_Mask <offset obj_C,100,200, 0,-2,offset img_B,sz_img_B_x,sz_img_B_y,?,offset Blank,offset Blank,offset Blank> ;объект номер 5 obj_E Obj_Mask <offset obj_F,100,200, 0,-2,offset img_B,sz_img_B_x,sz_img_B_y,?,offset Blank,offset Blank,offset Blank> ;объект номер 8 obj_H Obj_Mask <offset obj_I,100,200,0,-2,offset img_B,sz_img_B_x,sz_img_B_y,?,offset Blank,offset Blank,offset Blank> ;объект номер 3 obj_C Obj_Mask <offset obj_D,100,200,-1,-2,offset img_B,sz_img_B_x,sz_img_B_y,?,offset Blank,offset Blank,offset Blank> ;объект номер 6 obj_F Obj_Mask <offset obj_G,100,200,-1,-2,offset img_B,sz_img_B_x,sz_img_B_y,?,offset Blank,offset Blank,offset Blank> ;объект номер 9 obj_I Obj_Mask <offset obj_J,100,200,-1,-2,offset img_B,sz_img_B_x,sz_img_B_y,?,offset Blank,offset Blank,offset Blank> ;объект номер 4 obj_D Obj_Mask <offset obj_E ,100,200, 1,-2,offset img_B,sz_img_B_x,sz_img_B_y,?,offset Blank,offset Blank,offset Blank> ;объект номер 7 obj_G Obj_Mask <offset obj_H ,100,200, 1,-2,offset img_B,sz_img_B_x,sz_img_B_y,?,offset Blank,offset Blank,offset Blank> ;объект номер 10 obj_J Obj_Mask < 0 ,100,200,1,-2,offset img_B,sz_img_B_x,sz_img_B_y,?,offset Blank,offset Blank,offset Blank> ; ;подпрограмма задержки отбражения объектов на экране Dalay proc const_Wait_A equ 5000 const_Wait_B equ 20000 mov cx , const_Wait_A Loop_A: push cx mov cx , const_Wait_B Loop_B: loop Loop_B pop cx loop Loop_A ret Dalay endp ; ;основной объект img_A db 09,09,09,09,09,10,10,10,10,10,10,09,09,09,09,09 sz_img_A_x equ $ - img_A ;короткая запись для данного спрайта db 9 dup (sz_img_A_x dup(09)) comment ~ db 09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09;1 db 09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09;2 db 09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09;3 db 09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09;4 db 09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09;5 db 09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09;6 db 09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09;7 db 09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09;8 db 09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09;9 ~ sz_img_A_y equ ($ - img_A) / sz_img_A_x ; ;спрайт клавиши "пробел" img_B db 10,10,10,10,10,10 sz_img_B_x equ $ - img_B ;короткая запись для данного спрайта db 9 dup(sz_img_B_x dup(10)) comment ~ db 10,10,10,10,10,10;1 db 10,10,10,10,10,10;2 db 10,10,10,10,10,10;3 db 10,10,10,10,10,10;4 db 10,10,10,10,10,10;5 db 10,10,10,10,10,10;6 db 10,10,10,10,10,10;7 db 10,10,10,10,10,10;8 db 10,10,10,10,10,10;9 ~ sz_img_B_y equ ($ - img_B) / sz_img_B_x ; ;подпрограмма контроля выхода за пределы экрана Move proc max_x equ 500 max_y equ 400 call Control , y , [ bx ].d_y , max_y call Control , x , [ bx ].d_x , max_x ret Move endp ; ;подпрограмма контроля положения на экране Control proc dataPoint:word , dataPlus:word , Maximum:word mov di , dataPoint mov ax , [ bx + di ] add ax , dataPlus jz @@A cmp ax , Maximum ja @@A ;в пределах экрана записываем новое значение координаты mov [ bx + di ],ax ret ;вышли за пределы экрана ;проверяем первый объект, да - пропускаем @A: mov ax,offset img_A cmp ax,[ bx ].img jz @@B ;закрываем объект mov [ bx ].method_A , offset Blank mov [ bx ].method_B , offset Blank mov [ bx ].method_C , offset Blank @B: ret Control endp ; ;подпрограмма заглушка закрывающая объекты Blank proc ret Blank endp ; ;контроль нажатых клавиш CheckKey proc KeyS equ 39h; KeyU equ 48h; KeyD equ 50h; KeyR equ 4Dh; KeyL equ 4BH; ;начинаем проверку направления движения основного спрайта call CheckDirect , d_x , KeyL , KeyR call CheckDirect , d_y , KeyU , KeyD ;проверяем кнопку пуск cmp byte ptr DataKey [ KeyS ] , 1 jnz @@C ;нажата - создаем объекты Call SetObject , [ bx ].x , [ bx ].y ;закрываем нажатие @C: mov byte ptr DataKey [ KeyS ] , 0 ret CheckKey endp ; ;контроль направления движения CheckDirect proc dd_a:word , key_one:word , key_two:word xor ax , ax ;смещение в массивах mov si , key_one mov di , key_two ;считаем смещение напралвения движения sub al , DataKey [ si ] add al , DataKey [ di ] ;разширяем до слова cbw ;записываем текущее направление mov si , dd_a mov [ bx + si ] , ax ret CheckDirect endp ; ;подпрограмма инициализации трех объектов SetObject proc c_x:word , c_y:word push bx ;готовимся к циклу открытия спрайтов mov cx , 3 mov di , c_x mov si , c_y mov ax , offset Blank ;проверяем окончание наличия слотов спрайта @XX: mov bx , [ bx ].next or bx , bx jz @@YY ;прорускаем занятый слот спрайта @ZZ: cmp ax , [ bx ].method_A jnz @@XX ;То, чего у Вас нет :-) ;присваиваем новые координаты mov [ bx ].x , di mov [ bx ].y , si ;устанавливаем методы обработки mov [ bx ].method_A , offset Show mov [ bx ].method_B , offset Hide mov [ bx ].method_C , offset Move loop @@XX @YY: pop bx ret SetObject endp ; ;подпрограмма стирания спрайта на экране Hide proc call Draw , [ bx ].x , 0 , [ bx ].img_x, [ bx ].img_y , [ bx ].img_z ret Hide endp ; ;подпрограмма рисования спрайта на экране Show proc ;общие вычисления для рисования-стирания mov ax , [ bx ].y mov cx , 80 xor dx , dx mul cx mov cx , [ bx ].x shr cx , 3 add ax , cx mov [ bx ].img_z , ax call Draw , [ bx ].x , [ bx ].img , [ bx ].img_x , [ bx ].img_y , [ bx ].img_z ret Show endp ; ;подпрограмма рисования-стирания спрайта Draw proc yy:word , images:word , szImageX:word , szImageY: word , buffer:word push bx mov cx , yy and cl , 7 mov ax , 8008h shr ah , cl mov dx , 03CEh mov si , images mov di , buffer ; @AA: push di push ax mov bx , szImageX ; @BB: push ax xor ax , ax or si , si jz @@CC mov ah , [ si ] inc si ;выводим бит на экран @CC: out dx , ax pop ax push ax out dx , ax xchg es: [ di ] , al ;следующий бит pop ax ror ah , 1 adc di , 0 dec bx jnz @@BB ;следующая строка pop ax pop di add di , 80 dec szImageY jnz @@AA pop bx ret Draw endp END ----- Итерация от человека. Рекурсия — от Бога. — Л. Питер Дойч Ответ отправил: Зенченко Константин Николаевич, Модератор Ответ отправлен: 12.07.2010, 11:55 Номер ответа: 262503 Украина, Киев Тел.: +38-097-953-66-19 Адрес: Украина, Киев Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"? Отправить SMS #thank 262503 на номер 1151 (Россия) | Еще номера » Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.) Оценить выпуск » Нам очень важно Ваше мнение об этом выпуске рассылки! Задать вопрос экспертам этой рассылки » Скажите "спасибо" эксперту, который помог Вам! Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА на короткий номер 1151 (Россия) Номер ответа и конкретный текст СМС указан внизу каждого ответа. Полный список номеров » * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов) ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются. *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании. © 2001-2010, Портал RFpro.ru, Россия Авторское право: ООО "Мастер-Эксперт Про" Автор: Калашников О.А. | Программирование: Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2010.6.16 от 26.05.2010 Обсудить выпуск

Как вам этот выпуск ?  Дайте свой отзыв  или  Оцените   5    4    3    2    1,   можно письмом:  5    4    3    2    1

Реклама Отказаться от рекламы Скачай "Фототехнику и видеокамеры" Обзоры и тесты. Предметная фотосъемка и макросъемка природы. Иконы 60 - 80-x.   Изделия из серебра с жемчугом Velada Verba (скидка до 40%) Регистрируйся в клубе и участвуй в акциях!   Вспомни детство! Аппарат для приготовления сахарной ваты - отличное угощение!

Рассылки 1C Программирование, 1С-франчайзинг Поддержка пользователей программ семейства 1С - Вся полезная информация для зарегистрированных пользователей программ семейства 1С: релизы, конфигурации, отчетность, документация и др. Подписаться:   на сайте    по почте

Группы «Фриланс» Вы привыкли работать, сидя в любимом кресле? Вам нравится самому быть себе начальником? А может быть, вы только собираетесь вступить в стройные ряды фрилансеров? В любом случае, эта группа для вас! «Единство всего мира и понимание его» Единство всего мира - это идея признанная наукой экологией более полувека. Однако, впервые эта идея была обнародована более 3300 лет тому назад в пятикн... «Фитнес и здоровье» Все о фитнесе и здоровом образе жизни

Подписан адрес: admin10383.deep@blogger.com Код этой рассылки: comp.prog.assembler Архив рассылки Отписаться:  На сайте  Почтой Поддержка подписчиков Убрать рекламу Другие рассылки этой тематики Другие рассылки этого автора Рассылка производится: Subscribe.Ru / ЗАО «Интернет-Проекты» / О компании / Политика конфиденциальности