RusFAQ.ru: программирование на языке Assembler

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler

Выпуск № 381
от 24.02.2006, 17:36

Вопрос № 35.702

Добрых суток, господа Программу для практики из главы №4 tasm не ассемблирует Пишет *** Error***NF.asm (14) Near jump or call to defferent cs и т.д Если есть ошибка, то где она? С уважением Kont Kontovich Приложение: CSEG segment org 100h Begin: mov ax,0B800h mov es,ax mov di,o mov al,1 mov ah,31 mov cx,2000 Часть программы из главы №4 Next_face: mov es:[di],ax add di,2 loop Next_face mov ah,10h и т.д

Отправлен: 18.02.2006, 20:10 Вопрос задал: Kont kontovich (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Евгений Иванов Здравствуйте, Kont kontovich! Проставь модель. Model use16 tiny,pascal --------- Что имеем - не храним, потерявши - плачем

Ответ отправил: Евгений Иванов (статус: Профессор) Отправлен: 18.02.2006, 20:53 Оценка за ответ: 1 Комментарий оценки: Уважаемый Евгений Иванов. Я не понял ваш ответ. Проставить модель - где?

Отвечает: Пан Павел Константинович Здравствуйте Kont Kontovich. Как у вас дела? Вот, попробуйте так: С, Уважением MnEm0n!C Приложение: ;******************************* CSEG segment assume cs:CSEG,ds:CSEG,ss:CSEG,es:CSEG ;<= Поставте ;вот это org 100h Begin: mov ax,0B800h mov es,ax mov di,0 ;<= Посмотрите сюда, здесь, вы Поставили ;букву 'o', а надо цифру 0, если хотите букву 'o', то надо ;так (mov di,'o') mov al,1 mov ah,31 mov cx,2000 ;Часть программы из главы №4 <===== сделайте вот так ;т.е. закомментируйте ;строку (Часть программы из главы №4) Next_face: mov es:[di],ax add di,2 loop Next_face mov ah,10h и т.д CSEG ends ; <=== OK! end Begin ;<=== OK! --------- Hello Worlds

Ответ отправил: Пан Павел Константинович (статус: 1-ый класс) Отправлен: 18.02.2006, 23:02 Оценка за ответ: 5 Комментарий оценки: Большое спасибо, заработало

Вопрос № 35.726

Добрый день, Уважаемые Эксперты! Очень прошу помочь, так как сам никак не могу справиться. Проблема вот в чем: пишу программу, которая должна загружать BMP рисунок. Пока написал только программу, считывающую информацию из заголовка BMP и переходящую в 640x480, но она уже не работает :(. На донном этапе она должна хотябы перейти в видеорежим, подождать нажатия любой кнопки, вернуться в старый видеорежим и выйти, но вместо этого прога вылетает. Исходник вместе с картинкой я запаковал и кинул сюда: http://webfile.ru/820167 так как он довольно большой. Заранее спасибо, с Уважением zloy_pes.

Отправлен: 19.02.2006, 11:33 Вопрос задал: Zloy_pes (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Евгений Иванов Здравствуйте, Zloy_pes! Совершенно случайно нашёл :) http://sarin2-0.livejournal.com/19277.html А вообще есть структурка BMP. Вот мой исходник, он загружает картинку. Потом выводи её на экран. Переделать для ДОС - пару минут. Вывод - BMP хранится - 1 точка - 4 байта. Приложение: ;---------------------------------------------------- ; Загружает картинку из файла,создаёт палитру для неё ; Если имя файла 0 или пустое,то загружает из указанного ; ресурса (номер или адрес имени) ; OUT=> EAX-номер картинки,0-ошибка ; ECX-номер палитры. ; EDX-адрес BITMAPINFOHEADER ; proc LoadBitmapFromFileOrResource ARG @@NameFile:dword,@@NameRes:dword LOCAL @@hFile:dword,@@bf:BITMAPFILEHEADER,@@Read:dword,@@bi:BITMAPINFOHEADER, @@NumColors:dword,@@hPal:dword,@@hBmp:dword,@@hPal1:dword, @@hmemPal:dword,@@hDC:dword,@@hmemBI:dword,@@bRes:byte USES esi,edi,ebx sub ebx,ebx mov [@@bRes],bl mov [@@hPal],ebx mov [@@hFile],ebx mov [@@hBmp],ebx mov [@@hmemPal],ebx mov [@@hmemBI],ebx mov [@@hDC],ebx mov eax,[@@NameFile] or eax,eax jz @@DoBoolRes cmp [b eax],0 jnz @@DontRes @DoBoolRes: inc [@@bRes] Call FindResource,[hInst],[@@NameRes],RT_BITMAP or eax,eax jz @@exitErr mov [@@hFile],eax Call LoadResource,[hInst],eax or eax,eax jz @@exitErr Call LockResource,eax or eax,eax jz @@exitErr mov [@@Read],eax xchg esi,eax lea edi,[@@bi] sub ecx,ecx mov cl,size BITMAPINFOHEADER mov ebx,ecx rep movsb mov [@@Read],esi jmp @@h1 @DontRes: Call CreateFile,[@@NameFile],GENERIC_READ,FILE_SHARE_READ,ebx,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_SEQUENTIAL_SCAN,ebx cmp eax,INVALID_HANDLE_VALUE jz @@exitErr mov [@@hFile],eax lea ecx,[@@bf] lea edx,[@@Read] mov bl,size BITMAPFILEHEADER Call ReadFile,eax,ecx,ebx,edx,0 or eax,eax jz @@exitErr cmp [@@Read],ebx jnz @@exitErr cmp [@@bf.bfType],'MB' jnz @@exitErr lea ecx,[@@bi] lea edx,[@@Read] sub ebx,ebx mov bl,size BITMAPINFOHEADER Call ReadFile,[@@hFile],ecx,ebx,edx,0 or eax,eax jz @@exitErr cmp [@@Read],ebx jnz @@exitErr @h1: sub ecx,ecx mov dl,cl cmp [@@bi.biSize],ebx jz @@m1 cmp [@@bi.biSize],size BITMAPCOREHEADER jnz @@exitErr inc dl mov cx,[(t BITMAPCOREHEADER @@bi).bcBitCount] jmp @@m2 @m1: mov cx,[@@bi.biBitCount] mov eax,[@@bi.biClrUsed] or eax,eax jnz @@m3 @m2: sub eax,eax cmp cl,8 ja @@m3 inc eax shl eax,cl @m3: mov [@@NumColors],eax or dl,dl jz @@m5 push eax movzx edi,[(t BITMAPCOREHEADER @@bi).bcHeight] movzx eax,[(t BITMAPCOREHEADER @@bi).bcWidth] push eax mov ax,[(t BITMAPCOREHEADER @@bi).bcPlanes] mov [@@bi.biSize],ebx mov [@@bi.biPlanes],ax pop [@@bi.biWidth] mov [@@bi.biHeight],edi mov [@@bi.biBitCount],cx sub eax,eax mov [@@bi.biCompression],eax ;BI_RGB mov [@@bi.biSizeImage],eax mov [@@bi.biXPelsPerMeter],eax mov [@@bi.biYPelsPerMeter],eax pop eax mov [@@bi.biClrUsed],eax mov [@@bi.biClrImportant],eax sub eax,eax mov al,size BITMAPCOREHEADER cmp [@@bRes],0 jz @@m3_1 mov [@@Read],eax jmp @@m5 @m3_1: sub eax,ebx push ecx edx Call SetFilePointer,[@@hFile],eax,0,FILE_CURRENT pop edx ecx cmp eax,-1 jz @@exitErr @m5: mov bl,dl cmp [@@bi.biSizeImage],0 jnz @@m6 mov eax,[@@bi.biWidth] mul ecx add eax,31 shr eax,5 shl eax,2 mul [@@bi.biHeight] mov [@@bi.biSizeImage],eax @m6: mov eax,[@@NumColors] cmp [@@bi.biClrUsed],0 jnz @@m7 mov [@@bi.biClrUsed],eax @m7: shl eax,2 ;*size RGBQUAD add eax,[@@bi.biSize] Call GlobalAlloc,GPTR,eax or eax,eax jz @@exitErr mov [@@hmemBI],eax xchg eax,edi push edi mov dl,bl mov ecx,[@@bi.biSize] lea esi,[@@bi] rep movsb pop edi mov esi,edi add esi,[@@bi.biSize] mov eax,[@@NumColors] cmp eax,ecx ;ecx=0 jz @@m8 or dl,dl jz @@infoheader lea ebx,[eax+eax*2] ;* size RGBTRIPLE cmp [@@bRes],0 jz @@m7_2 push esi edi mov edi,esi mov ecx,ebx mov esi,[@@Read] rep movsb mov [@@Read],esi pop edi esi jmp @@h3 @m7_2: lea edx,[@@Read] Call ReadFile,[@@hFile],esi,ebx,edx,0 or eax,eax jz @@exitErr cmp [@@Read],ebx jnz @@exitErr @h3: mov ecx,[@@NumColors] dec ecx @m7_1: lea eax,[ecx+ecx*2] ;* size RGBTRIPLE mov eax,[esi+eax] and eax,0FFFFFFh mov [esi+ecx*4],eax ;*4 => *RGBQUAD dec ecx cmp ecx,-1 jnz @@m7_1 cmp [@@bRes],0 jz @@m8 jmp @@m10 @infoheader: shl eax,2 ;*size RGBQUAD xchg eax,ebx cmp [@@bRes],0 jz @@m7_3 push esi edi mov edi,esi mov ecx,ebx mov esi,[@@Read] rep movsb mov [@@Read],esi pop edi esi jmp @@m10 @m7_3: lea edx,[@@Read] Call ReadFile,[@@hFile],esi,ebx,edx,0 or eax,eax jz @@exitErr cmp [@@Read],ebx jnz @@exitErr @m8: mov eax,[@@bf.bfOffBits] or eax,eax jz @@m10 Call SetFilePointer,[@@hFile],eax,0,FILE_BEGIN cmp eax,-1 jz @@exitErr @m10: mov eax,[@@NumColors] or eax,eax jz @@m12 push eax shl eax,2 ;*size PALETTEENTRY add eax,size LOGPALETTE Call GlobalAlloc,GPTR,eax pop ecx or eax,eax jz @@exitErr mov [@@hmemPal],eax xchg eax,ebx mov [(t LOGPALETTE ebx).palNumEntries],cx sub edx,edx @z1: mov al,[(t RGBQUAD esi+edx*4).rgbRed] mov [(t LOGPALETTE ebx+edx*4).palPalEntry.peRed],al mov al,[(t RGBQUAD esi+edx*4).rgbGreen] mov [(t LOGPALETTE ebx+edx*4).palPalEntry.peGreen],al mov al,[(t RGBQUAD esi+edx*4).rgbBlue] mov [(t LOGPALETTE ebx+edx*4).palPalEntry.peBlue],al mov [(t LOGPALETTE ebx+edx*4).palPalEntry.peFlags],PC_NOCOLLAPSE ;? 0 inc edx dec ecx jnz @@z1 @z5: mov [(t LOGPALETTE ebx).palVersion],300h Call CreatePalette,ebx or eax,eax jz @@exitErr mov [@@hPal],eax jmp @@m14 @m12: cmp [@@bi.biBitCount],8 jna @@m14 inc ah ;eax=256 mov [@@NumColors],eax push eax shl eax,2 ;*size PALETTEENTRY add eax,size LOGPALETTE Call GlobalAlloc,GPTR,eax pop ecx or eax,eax jz @@exitErr mov [@@hmemPal],eax xchg eax,ebx mov [(t LOGPALETTE ebx).palNumEntries],cx sub eax,eax mov edx,eax mov ecx,eax @x1: mov [(t LOGPALETTE ebx+edx*4).palPalEntry.peRed],ch mov [(t LOGPALETTE ebx+edx*4).palPalEntry.peGreen],cl mov [(t LOGPALETTE ebx+edx*4).palPalEntry.peBlue],ah mov [(t LOGPALETTE ebx+edx*4).palPalEntry.peFlags],PC_NOCOLLAPSE ;? 0 add ch,32 jnz @@x2 add cl,32 jnz @@x2 add ah,64 @x2: inc edx cmp edx,[@@NumColors] jc @@x1 jmp @@z5 @m14: mov eax,[@@NumColors] shl eax,2 ;*size RGBQUAD add eax,[@@bi.biSize] push eax add eax,[@@bi.biSizeImage] Call GlobalReAlloc,edi,eax,GHND pop ecx or eax,eax jz @@exitErr mov edi,eax add eax,ecx mov ebx,[@@bi.biSizeImage] cmp [@@bRes],0 jz @@m15 push esi edi xchg edi,eax mov ecx,ebx mov esi,[@@Read] rep movsb mov [@@Read],esi pop edi esi jmp @@h4 @m15: lea edx,[@@Read] Call ReadFile,[@@hFile],eax,ebx,edx,0 or eax,eax jz @@exitErr ;! cmp [@@Read],ebx ; jnz @@exitErr @h4: Call GetDC,0 mov [@@hDC],eax xchg eax,ebx cmp [@@hPal],0 jz @@m20 Call SelectPalette,ebx,[@@hPal],FALSE mov [@@hPal1],eax Call RealizePalette,ebx @m20: mov eax,[@@NumColors] shl eax,2 ;*size RGBQUAD add eax,[@@bi.biSize] add eax,edi Call CreateDIBitmap,ebx,edi,CBM_INIT,eax,edi,DIB_RGB_COLORS or eax,eax jz @@exitErr mov [@@hBmp],eax cmp [@@hPal],0 jz @@m21 Call SelectPalette,ebx,[@@hPal1],FALSE @m21: Call GlobalReAlloc,edi,size BITMAPINFOHEADER,GHND or eax,eax jz @@exitErr mov [@@hmemBI],eax jmp @@ret @exitErr: mov [@@hBmp],0 @ret: mov esi,[@@hBmp] sub ebx,ebx or esi,esi jnz @@s7 cmp [@@hPal],ebx jz @@s8 Call DeleteObject,[@@hPal] @s8: cmp [@@hmemBI],ebx jz @@s7 Call GlobalFree,[@@hmemBI] @s7: cmp [@@hDC],ebx jz @@s6 Call ReleaseDC,0,[@@hDC] @s6: cmp [@@hmemPal],ebx jz @@s5 Call GlobalFree,[@@hmemPal] @s5: cmp [@@hFile],ebx jz @@s4 cmp [@@bRes],0 jnz @@s4 Call CloseHandle,[@@hFile] @s4: xchg eax,esi mov ecx,[@@hPal] mov edx,[@@hmemBI] ret endp --------- Что имеем - не храним, потерявши - плачем

Ответ отправил: Евгений Иванов (статус: Профессор) Отправлен: 19.02.2006, 13:44 Оценка за ответ: 5

Отвечает: PRiSon Здравствуйте, Zloy_pes! В вашей программе попробуйте увеличить стек скажим до 100h. У меня переходит в режим.(640х480). Удачи!!! --------- Стремление - значит получится.

Ответ отправил: PRiSon (статус: 3-ий класс) Отправлен: 20.02.2006, 14:06

Вопрос № 35.727

Здравствуйте эксперты, вопрос по Fams'у. Компилировал программу из восьмого урока из рассылки О.А.Калашникова (см.приложение). При компиляции fasm выводит ошибку: [12]: mov dx, Buffer error: undefined symbol. Приложение: org 100h _start: mov ax, 3D00h mov dx, File_name int 21h jc Error_file mov [Handle], ax mov ah, 3Fh mov cx, 0FDE8h mov dx, Buffer int 21h mov ax, 3Eh mov bx, [Handle] int 21h mov dx, Mess_ok Out_prog: mov ah, 9 int 21h int 20h Error_file: mov dx, Mess_error jmp Out_prog Handle dw 0 Mess_ok db 'File has been loaded into memory!' , 24h Mess_error db "Can't open file " File_name db 'c:msdos.sys', 0, 24h Buffer equ $

Отправлен: 19.02.2006, 12:17 Вопрос задал: I-x2n (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Беляев Валерий (ака seaman) Здравствуйте, I-x2n! Вы похоже не читали мой ответ на ваш предыдущий вопрос! Вы пишете: Buffer equ $ Это не определение метки, а директива ассемблеру, заменять все "$" на "Buffer"! Еще раз: Чтобы выделить память под буфер и определить метку, равную адресу этого буфера надо нечто типа: Buffer db 100 dup ? Резервируем память 100 байт, неинициализированные.

Ответ отправил: Беляев Валерий (ака seaman) (статус: 3-ий класс) Отправлен: 19.02.2006, 15:20

Отвечает: Пан Павел Константинович Здравствуйте, I-x2n! Как дела у вас? Попробуйте так: mov dx, Buffer ;==> надо так (mov dx,offset Buffer или так lea dx,Buffer) С, Уважением MnEm0n!C Приложение: org 100h _start: mov ax, 3D00h mov dx, File_name int 21h jc Error_file mov [Handle], ax mov ah, 3Fh mov cx, 0FDE8h mov dx, Buffer ;<== надо так (mov dx,offset ;Buffer или так lea dx,Buffer) int 21h mov ax, 3Eh mov bx, [Handle] int 21h mov dx, Mess_ok Out_prog: mov ah, 9 int 21h int 20h Error_file: mov dx, Mess_error jmp Out_prog Handle dw 0 Mess_ok db 'File has been loaded into memory!' , 24h Mess_error db "Can't open file " File_name db 'c:msdos.sys', 0, 24h Buffer equ $ --------- Hello Worlds

Ответ отправил: Пан Павел Константинович (статус: 1-ый класс) Отправлен: 19.02.2006, 23:14 Оценка за ответ: 4 Комментарий оценки: > надо так mov dx,offset Buffer fasm не поддерживает "Оператор offset"

Вопрос № 35.729

Здравствуйте эксперты, вопрос по Fasm'у. Проблема с компиляцией программы из 8 урока из рассылки О.А.Калашникова (см.приложение). При компиляции выдается следующая ошибка H:..prog08.asm [12]: mov dx, Buffer error: undefined symbol. Приложение: org 100h _start: mov ax, 3D00h mov dx, File_name int 21h jc Error_file mov [Handle], ax mov ah, 3Fh mov cx, 0FDE8h mov dx, Buffer int 21h mov ax, 3Eh mov bx, [Handle] int 21h mov dx, Mess_ok Out_prog: mov ah, 9 int 21h int 20h Error_file: mov dx, Mess_error jmp Out_prog Handle dw 0 Mess_ok db 'File has been loaded into memory!' , 24h Mess_error db "Can't open file " File_name db 'c:msdos.sys', 0, 24h Buffer equ $

Отправлен: 19.02.2006, 12:29 Вопрос задал: I-x2n (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Евгений Иванов Здравствуйте, I-x2n! Пробуй строчку Buffer equ $ заменить на Buffer: удачи. --------- Что имеем - не храним, потерявши - плачем

Ответ отправил: Евгений Иванов (статус: Профессор) Отправлен: 19.02.2006, 12:55

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.14 (бета) от 09.02.2006

---

В избранное