/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler (Ассемблер)

Выпуск № 976
от 13.02.2008, 03:35

Вопрос № 122.094

Здравствуйте! Обращаюсь к ВАМ как к последней надежде. Я пишу программу на асме, которая бы выводила кввадрат на экран и двигала бы его клавшами (верх, низ, ... тд.). В проге есть ошибки, я мучаюсь уже 2 недели, переделывая по всякому, прога или слетает, или работает как мне не надо. Посмотрите, пожалуйста ... Я расствавил везде комментарии :((( Приложение: .model tiny ; Модель памяти, используемая для COM .code ; Начало сегмента кода org 100h ; Начальное значение счетчика - 100h ;начальные координаты квадрата и счетчиков number1 dw 100 number2 dw 100 number3 dw 100 number4 dw 100 number5 dw 100 number6 dw 202 number7 dw 202 number8 dw 100 ;======================================================== number9 dw 100 number10 dw 100 number11 dw 100 number12 dw 100 number13 dw 100 number14 dw 202 number15 dw 202 number16 dw 100 ;======================================================== count1 dw 200 count2 dw 200 count3 dw 200 count4 dw 200 count5 dw 200 count6 dw 200 count7 dw 200 count8 dw 200 ;======================================================== begin: mov AX,12h ;переключение видеорежима int 10h MOV AH,0CH ;выводим точку MOV AL,3 ;цвет точки ;прорисовываем квадрат для начального изображения: ;==============GV mov CX, number1 ;верхняя горизонталь колонка mov DX, number2 ;строка label_1: inc cx int 10h cmp cx, count1 jle label_1 ;==============VL mov CX, number3 ;вертикаль левая колонка mov DX, number4 ;строка label_2: inc dx int 10h cmp dx, count2 jle label_2 ;=============GN mov CX, number5 ;горизонталь нижняя колонка mov DX, number6 ;строка label_3: inc cx int 10h cmp cx, count3 jle label_3 ;=============VP mov CX, number7 ;вертикаль правая колонка mov DX, number8 ;строка label_4: inc dx int 10h cmp dx, count4 jle label_4 ;======================================================== key_wait: mov ah,0 ;ждем клавишу int 16h cmp al,27 jmp quit ;если ESC, выходим test al,al ;проверка на 0 начало, jnz key_wait ;если да, переход на ждать клавишу int 21h cmp al,50h ;обработчики, 8 штук: je key_down ;для верх,низ, ... , верх-лево,низ-право, ... cmp al,48h jmp key_up cmp al,4Bh jmp key_left cmp al,4Dh jmp key_right cmp al,47h jmp key_home cmp al,49h jmp key_pgup cmp al,4Fh jmp key_end cmp al,51h jmp key_pgdn jmp key_wait ;прорисовываем квадрат по новым координатам, ;полученным из обработчиков draw: MOV AH,0CH MOV AL,3 ;==============GV mov CX, number1 mov DX, number2 label_1q: inc cx int 10h cmp cx, count1 jle label_1q ;==============VL mov CX, number3 mov DX, number4 label_2q: inc dx int 10h cmp dx, count2 jle label_2q ;=============GN mov CX, number5 mov DX, number6 label_3q: inc cx int 10h cmp cx, count3 jle label_3q ;=============VP mov CX, number7 mov DX, number8 label_4q: inc dx int 10h cmp dx, count4 jle label_4q ;================ jmp key_wait ;ждем новую клавишу key_down: call black ;вызываем закрас квадрата по старым координатам inc number2 ;изменение координат и счетчика inc number4 inc number6 inc number8 inc number10 inc number12 inc number14 inc number16 inc count2 inc count4 inc count6 inc count8 jmp draw ;переход на прорисовку квадрата с новыми координатами key_up: call black dec number2 dec number4 dec number6 dec number8 dec number10 dec number12 dec number14 dec number16 dec count2 dec count4 dec count6 dec count8 jmp draw key_left: call black dec number1 dec number3 dec number5 dec number7 dec number9 dec number11 dec number13 dec number15 dec count1 dec count3 dec count5 dec count7 jmp draw key_right: call black inc number1 inc number3 inc number5 inc number7 inc number9 inc number11 inc number13 inc number15 inc count1 inc count3 inc count5 inc count7 jmp draw key_home: call black dec number1 dec number2 dec number3 dec number4 dec number5 dec number6 dec number7 dec number8 dec number9 dec number10 dec number11 dec number12 dec number13 dec number14 dec number15 dec number16 dec count1 dec count2 dec count3 dec count4 dec count5 dec count6 dec count7 dec count8 jmp draw key_pgup: call black inc number1 dec number2 inc number3 dec number4 inc number5 dec number6 inc number7 dec number8 inc number9 dec number10 inc number11 dec number12 inc number13 dec number14 inc number15 dec number16 inc count1 dec count2 inc count3 dec count4 inc count5 dec count6 inc count7 dec count8 jmp draw key_end: call black dec number1 inc number2 dec number3 inc number4 dec number5 inc number6 dec number7 inc number8 dec number9 inc number10 dec number11 inc number12 dec number13 inc number14 dec number15 inc number16 dec count1 inc count2 dec count3 inc count4 dec count5 inc count6 dec count7 inc count8 jmp draw key_pgdn: call black inc number1 inc number2 inc number3 inc number4 inc number5 inc number6 inc number7 inc number8 inc number9 inc number10 inc number11 inc number12 inc number13 inc number14 inc number15 inc number16 inc count1 inc count2 inc count3 inc count4 inc count5 inc count6 inc count7 inc count8 jmp draw black proc ;закрашиваем квадрат (перед прорисовкой нового) MOV AH,0CH MOV AL,0 mov CX, number1 mov DX, number2 label_1w: inc cx int 10h cmp cx, count1 jle label_1w ;==============VL mov CX, number3 mov DX, number4 label_2w: inc dx int 10h cmp dx, count2 jle label_2w ;=============GN mov CX, number5 mov DX, number6 label_3w: inc cx int 10h cmp cx, count3 jle label_3w ;=============VP mov CX, number7 mov DX, number8 label_4w: inc dx int 10h cmp dx, count4 jle label_4w ;================ black endp quit: ;выходим из программы(по клавише ESC) ret end begin

Отправлен: 07.02.2008, 14:58 Вопрос задал: TechnoMan (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Zetasm Здравствуйте, TechnoMan! Мой вариант в прилжении. Код прцедур: ClearSquare и DrowSquare надо оптимизировать. Приложение: .model tiny ; Модель памяти, используемая для COM .code ; Начало сегмента кода org 100h ; Начальное значение счетчика - 100h begin: ; Переключение видеорежима mov AX, 12h int 10h ; Рисуем квадрат call DrowSquare jmp main_loop ; Обработчики left: call ClearSquare dec X1 dec X2 call DrowSquare jmp main_loop right: call ClearSquare inc X1 inc X2 call DrowSquare jmp main_loop up: call ClearSquare dec Y1 dec Y2 call DrowSquare jmp main_loop down: call ClearSquare inc Y1 inc Y2 call DrowSquare main_loop: ;Ожидание ввода mov ah, 10h int 16h cmp al, 1bh ; Esc je exit cmp ah, 4bh ; <- je left cmp ah, 4dh ; -> je right cmp ah, 48h ; ^ je up cmp ah, 50h ; v je down jmp main_loop exit: int 20h ;рисуем квадрат DrowSquare proc mov ax, 0C03h ;настройка int 10h mov CX, X1 loop1d: mov DX, Y1 loop2d: int 10h ;выводим точку inc DX cmp DX, Y2 jne loop2d inc CX cmp CX, X2 jne loop1d ret DrowSquare endp ;стираем квадрат ClearSquare proc mov ax, 0C00h ;настройка int 10h mov CX, X1 loop1c: mov DX, Y1 loop2c: int 10h ;выводим точку inc DX cmp DX, Y2 jne loop2c inc CX cmp CX, X2 jne loop1c ret ClearSquare endp ; Параметры квадрата X1 dw 20 ; 1------ Y1 dw 20 ; | | X2 dw 30 ; | | Y2 dw 30 ; ------2 end begin

Ответ отправил: Zetasm (статус: 1-ый класс) Ответ отправлен: 07.02.2008, 19:54 Оценка за ответ: 5 Комментарий оценки: У меня Masm611, и вот такие ошибки до 67 строки включительно: 1. must be in segment block с 69 строки: 2. invalid character in file 3. line too long На 95 строке сообщение, что очень много ошибок и процесс компиляции остановлен :( Но все равно спасибо, буду изучать. (Я думаю, что скорее всего, это у меня в настройках что-то)

Отвечает: Зенченко Константин Николаевич Здравствуйте, TechnoMan! Смотрите приложение. У функции 10h | 0Ch есть такое свойство, если старший бит AL установлен в 1, то при выводе точки используется операция XOR с текущим содержимым точки. Из-за него можно исключить процедуру чистки экрана от прямоугольника. Для вывода фигуры нужны только координаты верхнего левого угла. Удачи! Приложение: .model tiny ; Модель памяти, используемая для COM .code ; Начало сегмента кода org 100h ; Начальное значение счетчика - 100h start: equSizeH equ 100 equSizeV equ 50 .186 begin: mov AX,12h ;переключение видеорежима int 10h ;записываем начальные координаты mov ax,100 mov dwX,ax mov dwY,ax ;рисуем прямоугольник isLoop: call show ;ждем клавишу xor ax,ax int 16h ;анализируем клавишу ESC cmp ah,01 jz isStop ;запоминаем нажатую клавишу push ax ;чистим прямоугольник call show ;востанавливаем нажатую клавишу pop ax ;анализ нажатой клавиши call press ;цикл повтора jmp short isLoop isStop: ret ;начальные координаты dwX dw ? dwY dw ? ;размер прямоугольника countH dw ? countV dw ? ;устанавливаем режим show: mov ax,0c83h;выводим точку & цвет точки XOR ;загружаем координаты mov cx,dwX mov dx,dwY xor bx,bx ;рисуем горизонталь верхнюю, вправо mov [countH],equSizeH showTLine: pusha int 10h popa inc cx dec word ptr countH jnz showTLine ;рисуем вертикаль правую, вниз mov [countV],equSizeV showRLine: pusha int 10h popa inc dx dec word ptr countV jnz showRLine ;рисуем горизонталь нижнюю, влево mov [countH],equSizeH showBLine: pusha int 10h popa dec cx dec word ptr countH jnz showBLine ;рисуем вертикаль левую, вверх mov [countV],equSizeV showLLine: pusha int 10h popa dec dx dec word ptr countV jnz showLLine ret ;анализ клавиш press: cmp ah,4bh jz keyUp cmp ah,48h jz keyLeft cmp ah,50h jz keyRight cmp ah,4dh jz keyDown cmp ah,47h jz keyUpLeft cmp ah,4fh jz keyUpRight cmp ah,49h jz keyDownLeft cmp ah,51h jz keyDownRight ret ;сами обработчики KeyUpLeft: call keyLeft keyUp: dec word ptr dwX ret keyDownLeft: call keyDown keyLeft: dec word ptr dwY ret keyDownRight: call keyRight keyDown: inc word ptr dwX ret keyUpRight: call keyUp keyRight: inc word ptr dwY ret end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 07.02.2008, 23:18 Оценка за ответ: 5 Комментарий оценки: Спасибо Вам, дай Вам Бог Здоровья, извините, говорю как умею. Спасибо еще раз. Все получилось, буду разбираться :)))

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.70 от 17.01.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru