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

Весенняя сервисная акция от Skoda! Подготовь авто к лету всего за 799 руб.

RFpro.ru: Ассемблер? Это просто! Учимся программировать Нажмите, если рассылка отображается некорректно или без картинок

Реклама

Хостинг портала RFpro.ru: Московский хостер Профессиональный хостинг на базе Linux x64 и Windows x64 РАССЫЛКИ ПОРТАЛА RFPRO.RU Чемпионы рейтинга экспертов в этой рассылке Boriss Статус: Академик Рейтинг: 2059 • повысить рейтинг » _Ayl_ Статус: Практикант Рейтинг: 1859 • повысить рейтинг » vladisslav Статус: 5-й класс Рейтинг: 1182 • повысить рейтинг » / КОМПЬЮТЕРЫ И ПО / Программирование / Assembler (Ассемблер) Номер выпуска: 1322 Дата выхода: 15.04.2010, 22:00 Администратор рассылки: Лысков Игорь Витальевич, Модератор Подписчиков / экспертов: 417 / 70 Вопросов / ответов: 2 / 2 IRC-канал по теме: #assembler Вопрос № 177613: Здравствуйте. У меня семестр. работа. Нужно написать программу: вращение куба в пространстве. Главное, чтобы программа была простая для понимание (без всяких лишних операций, вращение куба с постоянной небольшой скоростью) и обязательно должны быть к... Вопрос № 177797: Добрый день Уважаемые эксперты. Помогите пожалуйста исправить ошибки в программе. Я использую 32-разрядный процессор AMD Athlon 1,8 Ghz. Операционная система: Windows XP SP3 Информация о компиляторе: Microsoft (R) Macro Assembler Vers... Вопрос № 177613: Здравствуйте. У меня семестр. работа. Нужно написать программу: вращение куба в пространстве. Главное, чтобы программа была простая для понимание (без всяких лишних операций, вращение куба с постоянной небольшой скоростью) и обязательно должны быть комментарии к каждому действию. Использовать TASM. Отправлен: 02.04.2010, 23:26 Вопрос задал: rmka, Посетитель Всего ответов: 1 Страница вопроса » Отвечает Лысков Игорь Витальевич, Модератор : Здравствуйте, zaharchenko-r. Вот Вам искомая программа. Можете поэксперементировать, вращать вокруг любой оси... Довольно подробно прокомментировано, разберетесь и с ассемблером, и с математикой. Удачи! Приложение: ;Используемые формулы для вращения ; Вокруг оси x ; ; YT = Y * COS(xang) - Z * SIN(xang) ; ; ZT = Y * SIN(xang) + Z * COS(xang) ; ; Y = YT ; ; Z = ZT ; ; ; ; Вокруг оси y ; ; XT = X * COS(yang) - Z * SIN(yang) ; ; ZT = X * SIN(yang) + Z * COS(yang) ; ; X = XT ; ; Z = ZT ; ; ; ; Вокруг оси x ; ; XT = X * COS(zang) - Y * SIN(zang) ; ; YT = X * SIN(zang) + Y * COS(zang) ; ; X = XT ; ; Y = YT ; ;Структура для хранения одной вершины куба POINT3D struc xx dw ? yy dw ? zz dw ? POINT3D ends ;структура для хранения координат вершины куба на проскости POINT2D struc xx dw ? yy dw ? POINT2D ends ;макро вызова п/п рисования линии по номерам вершин куба PRLINE macro num1, num2, colour mov bx, num2 shl bx, 2 push colour push [POINT2D ptr bx+si].yy push [POINT2D ptr bx+si].xx mov bx, num1 shl bx, 2 push [POINT2D ptr bx+si].yy push [POINT2D ptr bx+si].xx call Line add sp, 10 endm .model tiny, C ; модель памяти и порядок вызова параметров .386 ; нужно для команды fsincos .code ; сегмент кода .startup ; точка входа mov ax, 0013h ; vga 320x200x256 int 10h mov ax, @DATA mov ds, ax ; инициируем сегмент данных mov ax, 0a000h mov es, ax ; es - сегмент видео ;установим глобальные переменные mov [DeltaX], 1 ; скорость вращения (приращение угла) mov [DeltaY], 1 ; mov [DeltaZ], 1 ; ;переменные, используемые для расчета координат на эране mov [Xoff], 256 ; пропорции куба mov [Yoff], 256 mov [Zoff], 300 ; расстояние от взгляда MainLoop: call MainProgram ; рисуем куб один раз mov ah, 1 ; проверяем на код клавиши int 16h jz MainLoop mov ah, 0 int 16h cmp ah, 1 ; по Esc выходим jne MainLoop ;выход в DOS mov ax, 0003h ; назад в текстовый режим int 10h mov ax, 4c00h ; bye-bye int 21h ;подпрограммы ;расчет новых углов для вращения ;делаем простой инкремент углов на Delta_ ;при переходе через 360 обнуляем UpdateAngles PROC mov ax, [XAngle] add ax, [DeltaX] cmp ax, 360 ; проверяем 0..359 jb set_XAngle sub ax, 360 set_XAngle: mov [XAngle], ax mov ax, [YAngle] add ax, [DeltaY] cmp ax, 360 ; проверяем 0..359 jb set_YAngle sub ax, 360 set_YAngle: mov [YAngle], ax mov ax, [ZAngle] add ax, [DeltaZ] cmp ax, 360 ; проверяем 0..359 jb set_ZAngle sub ax, 360 set_ZAngle: mov [ZAngle], ax ret UpdateAngles ENDP ;расчет новых 3D координат для выбранного угла ;вращаем вокруг какой-либо оси, меняются 2 оставшиеся координаты ;(смотри формулы в начале и дальше) ;параметрами являются адреса координат и угол ;новые координаты записываются на то же место CalcRotation PROC uses si di, coord1:word, coord2:word, angle:word ;преобразуем градусы в радианы fild angle ;угол fldpi ;пи fmulp ;угол*пи fdiv c180 ;угол*пи/180 ;найдем sin и cos fsincos ;st=sin, st(1)=cos ;адреса координат mov di, coord1 mov si, coord2 fild word ptr [di] ;первая координата (пусть, для определенности, x) fmul st, st(1) ;x * cos(a) fild word ptr [si] ;вторая координата (y) fmul st, st(3) ;y * sin(a) fsubp ;x * cos(a) - y * sin(a) fild word ptr [di] ;x fmul st, st(3) ;x * sin(a) fild word ptr [si] ;y fmul st, st(3) ;y * cos(a) faddp ;x * sin(a) + y * cos(a) fistp word ptr [si] ;y = x * sin(a) + y * cos(a) fstp st(1) ;уберем из стека sin fstp st(1) ; и cos fistp word ptr [di] ;x = x * cos(a) - y * sin(a) ret CalcRotation endp ;вращаем точку вокруг выбранных осей ;si указывает на структуру POINT3D RotatePoint PROC ;читаем 3D координаты во временные переменные mov ax, [POINT3D ptr si].xx mov [X], ax mov ax, [POINT3D ptr si].yy mov [Y], ax mov ax, [POINT3D ptr si].zz mov [Z], ax ;вращаем вокруг оси x ; YT = Y * COS(xang) - Z * SIN(xang) ; ZT = Y * SIN(xang) + Z * COS(xang) ; Y = YT ; Z = ZT ; call CalcRotation, offset [Y], offset [Z], [XAngle] ;вращаем вокруг оси y ; XT = X * COS(yang) - Z * SIN(yang) ; ZT = X * SIN(yang) + Z * COS(yang) ; X = XT ; Z = ZT call CalcRotation, offset [X], offset [Z], [YAngle] ;вращаем вокруг оси z ; XT = X * COS(zang) - Y * SIN(zang) ; YT = X * SIN(zang) + Y * COS(zang) ; X = XT ; Y = YT call CalcRotation, offset [X], offset [Y], [ZAngle] ret RotatePoint endp ;преобразуем 3D координаты вершин куба в 2D координаты на экране ;используем переменные [X], [Y], [Z] ;результат пишем по адресу [di], в элемент POINT2D Conv3Dto2D PROC mov ax, [Xoff] ; Xoff*X / Z+Zoff = экранное X mov bx, [X] imul bx mov bx, [Z] add bx, [Zoff] ; расстояние от глаз idiv bx add ax, [Mx] ; центр экрана mov [POINT2D ptr di].xx, ax ; сохраним экранное X mov ax, [Yoff] ; Yoff*Y / Z+Zoff = экранное Y mov bx, [Y] imul bx mov bx, [Z] add bx, [Zoff] ; расстояние от глаз idiv bx add ax, [My] ; центр экрана mov [POINT2D ptr di].yy, ax ; сохраним экранное Y ret Conv3Dto2D ENDP ;основная подпрограмма расчета и рисования MainProgram PROC call UpdateAngles ; расчитываем новые углы lea di, Cube2D ; адрес 2D координат на экране lea si, Cube ; адрес 3D координат вершин куба mov cx, MaxPoints ; число вершин ConvLoop: call RotatePoint ; вращаем вершины call Conv3Dto2D ; 3D в 2D add si, size POINT3D ; на следующую 3D вершину add di, size POINT2D ; на следующую 2D вершину loop ConvLoop ;рисуем lea si, Cube2D ;адрес координат вершин на экране ;по всем ребрам ;задаем номера вершин и цвет ;(при желании можно раскрасить все ребра в разые цвета) PRLINE 0, 1, 11 PRLINE 1, 2, 11 PRLINE 2, 3, 11 PRLINE 3, 0, 11 PRLINE 0, 4, 11 PRLINE 1, 5, 11 PRLINE 2, 6, 11 PRLINE 3, 7, 11 PRLINE 4, 5, 11 PRLINE 5, 6, 11 PRLINE 6, 7, 11 PRLINE 7, 4, 11 call DELAY ; пауза ;вытираем все ребра цветом 0(черным)! PRLINE 0, 1, 0 PRLINE 1, 2, 0 PRLINE 2, 3, 0 PRLINE 3, 0, 0 PRLINE 0, 4, 0 PRLINE 1, 5, 0 PRLINE 2, 6, 0 PRLINE 3, 7, 0 PRLINE 4, 5, 0 PRLINE 5, 6, 0 PRLINE 6, 7, 0 PRLINE 7, 4, 0 ret MainProgram ENDP ;рисуем линию (x1,y1)-(x2,y2) цветом color Line proc uses di bx, x1:word, y1:word, x2:word, y2:word, color:byte local i:word, \ ;для работы со сопроцессором delta_x:word, \ ;длина проекции на ось абсцисс delta_y:word, \ ;длина проекции на ось ординат incx:word, \ ;приращение по X incy:word ;приращение по Y ;определим длину проекции на ось абсцисс и шаг по оси X mov ax, x2 sub ax, x1 ;ax=x2-x1; ;определим шаг по X (+1 если вперед, -1 если назад, 0 если не меняется) mov incx, 0 ;пусть incx=0 test ax, ax ;ax=delta_x jz set_delta_x ;не меняется jg set_x_1 ;вперед? dec incx ;назад, значит incx=-1 neg ax ;найдем ax=abs(delta_x) jmp set_delta_x ;на сохранение set_x_1: inc incx ;вперед, значит incx=1; set_delta_x: mov delta_x, ax ;delta_x = abs(x2-x1) ;определим длину проекции на ось ординат и шаг по оси Y mov ax, y2 sub ax, y1 ;ax=y2-y1; ;определим шаг по Y (+1 если вперед, -1 если назад, 0 если не меняется) mov incy, 0 ;пусть incy=0 test ax, ax ;ax=delta_y jz set_delta_y ;не меняется jg set_y_1 ;вперед? dec incy ;назад, значит incy=-1 neg ax ;найдем ax==abs(delta_y) jmp set_delta_y ;на сохранение set_y_1: inc incy ;вперед, значит incy=1; set_delta_y: mov delta_y, ax ;delta_y=abs(y2-y1) ;определим большее из проекций как основное напрвление cmp ax, delta_x ;ax=delta_y jge from_y ;y будет основным cmp delta_x, 0 ;проверим, чтобы не было delta_x=0 (для точки), jz Line_ret ; иначе будет деление на 0 ;delta_x>delta_y && delta_x!=0 ;основное направление - по оси X fild delta_y fidiv delta_x ;st=k=(float)(delta_y/delta_x) ;for (int i=0;i<delta_x;i++) xor cx, cx ;cx=i jmp cmp_i_x ;на проверку i<delta_x x_loop: ;тело цикла mov i, cx ;запишем переменную цикла в память (для сопроцессора) fld st ;st=st(1)=k fimul i ;st=k*i fimul incy ;st=incy*k*i call floor ;округлим до целого в большую сторону fistp i ;сохраним в переменной mov ax, i ;относительный номер строки на экране add ax, y1 ;добавим до ординаты начальной точки mov dx, 320 ;получим индекс начала строки экрана в сегменте экрана imul dx ; для этого умножим на длину в байтах одной стоки mov bx, ax ;сохраним bx=y=(y1+floor(incy*k*i))*320 ;посчитаем X mov ax, incx ;X меняется ровно на шаг приращения, imul cx ; умноженному на индекс точки add ax, x1 ;добавим абциссу начальной точки ax=x=x1+incx*i add ax, bx ;сложим с индексом начала строки mov di, ax ;будем адресовать через di mov al, color ;цвет точки mov es:[di], al ;рисуем! inc cx ;на следующую точку cmp_i_x: cmp cx, delta_x ;дошли до конца? jl x_loop jmp Line_ret ;на выход from_y: ;вдоль оси Y fild delta_x fidiv delta_y ;st=k=(float)(delta_x/delta_y) ;for (int i=0;i<delta_y;i++) xor cx, cx ;cx=i jmp cmp_i_y ;на проверку i<delta_y y_loop: ;тело цикла mov ax, incy ;Y меняется ровно на шаг приращения, imul cx ; умноженному на индекс точки add ax, y1 ;добавим абциссу начальной точки ax=y=y1+incy*i mov dx, 320 ;получим индекс начала строки экрана в сегменте экрана imul dx ; для этого умножим на длину в байтах одной стоки mov bx, ax ;сохраним bx=y=(y1+incy*i)*320 ;посчитаем X mov i, cx ;запишем переменную цикла в память (для сопроцессора) fld st ;st=st(1)=k fimul i ;st=k*i fimul incx ;st=incx*k*i call floor ;округлим до целого в большую сторону fistp i ;сохраним в переменной mov ax, i ;относительный номер строки на экране add ax, x1 ;ax=x=x1+floor(incx*k*i) add ax, bx ;сложим с индексом начала строки mov di, ax ;будем адресовать через di mov al, color ;цвет точки mov es:[di], al ;рисуем! inc cx ;на следующую точку cmp_i_y: cmp cx, delta_y ;дошли до конца? jl y_loop Line_ret: fistp i ;удалим из сопроцессора k ret Line endp ;округление до целого в большую сторону ;округление по умолчанию, до ближайщего, не устраивает floor proc local CtrlWordOld:word, CtrlWordNew:word fstcw CtrlWordOld ;сохраним управляющее слово fclex ;сбросим исключения mov CtrlWordNew,0763h ;установим необходимое значение управляющего слова fldcw CtrlWordNew ;загружаем управляющее слово frndint ;округляем st до целого fclex ;сбросим исключения fldcw CtrlWordOld ;восстановим старое управляющее слово ret floor endp ;пауза ~40мс. Под Windows весьма условно, скорее всего будет больше time equ 4 ;число интервалов по 10мс DELAY: pusha ;сохраним все регистры mov ah,2dh ;сбросим "локальное" системное время (под nt+ все равно не поменяет) xor cx,cx xor dx,dx int 21h dl2: mov ah,2ch int 21h ;читаем время ;считаем сотни мс mov al,100 mul dh ;секунды умножаем на 100 -> ax = количество интервалов по 10мс xor dh,dh ;dx - число сотых xchg ax,dx ;поменяем местами mov cl,10 div cl ;ax = количество интервалов по 10мс из сотых add ax,dx ;складываем с количеством из секунд cmp ax,time ;сравним с ожидаемым интервалом jl dl2 ;ждем, если меньше popa ;восстановим все регистры ret .data c180 dd 180. ;180 градусов - для преобразоваия в радианы ;вершины нашего куба, центр - точка (0, 0, 0) Cube POINT3D <-40, -40, -40> POINT3D <-40, 40, -40> POINT3D < 40, 40, -40> POINT3D < 40, -40, -40> POINT3D <-40, -40, 40> POINT3D <-40, 40, 40> POINT3D < 40, 40, 40> POINT3D < 40, -40, 40> ;здесь будут экранные координаты вершин куба Cube2D POINT2D 8 dup (<>) X DW ? ;временные переменные для вычисления координат при вращении Y DW ? Z DW ? XAngle DW 0 ;углы поворота относительно осей YAngle DW 0 ZAngle DW 0 DeltaX DW ? ;инкремент по осям DeltaY DW ? DeltaZ DW ? Xoff DW ? ;пропорции по X Yoff DW ? ; и Y Zoff DW ? ;расстояние от глаз Mx DW 160 ;середина экрана My DW 100 MaxPoints EQU 8 ;число вершин END ----- Удачи! Ответ отправил: Лысков Игорь Витальевич, Модератор Ответ отправлен: 13.04.2010, 03:38 Номер ответа: 260786 Украина, Кировоград Тел.: +380957525051 ICQ # 234137952 Mail.ru-агент: igorlyskov@mail.ru Абонент Skype: igorlyskov Оценка ответа: 5 Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"? Отправить SMS #thank 260786 на номер 1151 (Россия) | Еще номера » Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.) Вопрос № 177797: Добрый день Уважаемые эксперты. Помогите пожалуйста исправить ошибки в программе. Я использую 32-разрядный процессор AMD Athlon 1,8 Ghz. Операционная система: Windows XP SP3 Информация о компиляторе: Microsoft (R) Macro Assembler Version 6.14.8444 Пишу программу, которая будет загружаться с дискеты, переходить в защищенный режим, выводить сообщение и переходить обратно в режим реальных адресов. В комментариях в первой строке написано. Много всего изменять пробовал, переписывать, ничего не помогло. Компилятор выдает кучу ошибок при попытке компилирования. После последнего моего редактирования остановился на одной ошибке: Код: C:\WASM\BIN>ml /c /coff rezh.asm Microsoft (R) Macro Assembler Version 6.14.8444 Copyright (C) Microsoft Corp 1981-1997. All rights reserved. Assembling: rezh.asm rezh.asm(12) : fatal error A1010: unmatched block nesting Может я что-то пропустил или недоглядел, пожалуйста, помогите исправить ошибки. Заранее благодарен. Ссылка на .asm файл в приложении. Отправлен: 10.04.2010, 18:16 Вопрос задал: Dimon4ik, 5-й класс Всего ответов: 1 Страница вопроса » Отвечает Лысков Игорь Витальевич, Модератор : Здравствуйте, Dimon4ik. Подправленная программа в приложении Ошибки помечены !!!!!!!!!!!!!!!!!!!!!!!! Устранены только синтаксические ошибки! На рабоспособность не проверял! Приложение: ;Данная программа должна переходить из реального режима в защищенный режим, вывести сообщение и потом снова перейти в режим реальных адресов. descr struc ;структура для описания дескриптора limit dw 0 ;поле предела сегмента (биты 0-1 5 дескриптора, биты 0-1 5 предела) base_1 dw 0 ;поле базового адреса (биты 1 6-31 дескриптора, биты 0-1 5 адреса) base_2 db 0 ;поле базового адреса (биты 32-39 дескриптора, биты 16-23 адреса) attr db 0 ;поле аттрибутов (включая 40-43 биты типа, 44 бит системного дескриптора, 45-46 биты ;уровня привилегий, 47 бит присутствия дескриптора) lim_attr db 0 ;поле предела сегмента и аттрибутов (включая 48-51 биты предела (1 6-1 9), ;52 бит доступности, 53 флаг 64-битного сегмента кода, ;54 бит бит размера сегмента по умолчанию, 55 бит гранулярности сегмента) base_3 db 0 ;поле базового адреса (биты 56-63 дескриптора, биты 24-31 адреса) завершение описания ;структуры descr ends ;!!!!!!!!!!!!!!!!!!! gdt_seg segment para public \'data\' use16 gdt_0 descr <0,0,0,0,0,0> ;никогда не используется gdt_8 descr <0,0,0,0,0,0> ;описываем саму gdt gdt_ldt_10 descr <0,0,0,0,0,0> ;не используем gdt_ds_18 descr <0,0,0,0,0,0> ;дескриптор сегмента данных gdt_es_vbf_20 descr <0,0,0,0,0,0> ;дескриптор видеобуфера gdt_ss_28 descr <0,0,0,0,0,0> ;дескриптор сегмента стека gdt_cs_30 descr <0,0,0,0,0,0> ;дескриптор сегмента кода gdt_size=$-gdt_0-1 gdt_seg ends point struc ;структура для описания псевдодескриптора gdtr lim dw 0 ;1 6-битный предел сегмента дескриптора adr dd 0 ;32-битный базовый адрес дескриптора point ends ;!!!!!!!!!!!! ;завершение описания структуры data segment para public \'data\' use16 ;!!!!!!!!!!!!!!!!!!!!! point_gdt point <gdt_size,0> hello db \'Hello\' ;!!!!!!!!!!!!!!!!!!!! hel_size equ $-hello ;!!!!!!!!!!!!!!!!!!!! data ends ;!!!!!!!!!!!!!!!!!!!!! 386p ;!!!!!!!!!!!!!!!!!!!!!!! code segment para public \'code\' use16 ;!!!!!!!!!!!!!!!!!!!!! assume ds:gdt_seg ;!!!!!!!!!!!!!!!! main proc ;!!!!!!!!!!!!!!! mov ax,gdt_seg ;инициализация сегмента GDT mov ds,ax mov gdt_8.limit, gdt_size ;загрузка размера сегмента GDT xor eax,eax mov ax,gdt_seg ;загрузка 1 6-битного адреса сегмента GDT shl eax,4 ;получение физического 20-разрядного адреса сегмента GDT mov gdt_8.base_1,ax ;загрузка младщих 1 6 бит базового адреса сегмента GDT rol eax,16 ;циклический сдвиг влево на 16 бит - старшие 1 6 бит адреса GDT становятся младшими mov gdt_8.base_2,al ;загрузка 1 7-23 бита базового адреса сегмента GDT, биты 24-31 остаются нулевыми mov gdt_8.attr,92h ;10010010 - Р=1 (сегмент в ОЗУ), DPL=00, S=l (сегмент в памяти не системный), 1=0 (сегмент данных или стека), ED=0 (сегмент данных), W=l (запись разрешена), А=0 (бит доступа) assume ds:data mov ax,data ;Инициализация сегмента данных mov ds,ax xor eax,eax mov ax,gdt_seg ;Загружаем адрес сегмента GDT shl eax,4 ;Получение физического 20-разрядного сегмента адреса GDT mov point_gdt.adr,eax;!!!!! ;Заполняем поле адреса указателя point_gdt(поле размера сегмента заполняется автоматически при инициализации GDT) lgdt point_gdt ;Загружаем Gdtr cli ;Запрещаем прерывания mov eax,cr0 ;Переходим в защищенный режим or al,1 mov cr0,eax ;настройка сегментных регистров ;моделирование команды дальнего перехода на сегмент кода в защищеном режиме (jmp cs:offset protect) db 0eah ;машинный код команды jmp dw offset protect ;смещение метки перехода в сегменте команд dw 30h ;селектор сегмента кода в таблице GDT protect: ;загрузить селекторы для остальных регистров mov ax,18h mov ds,ax ;загружаем селектор для сегмента данных mov ax,20h mov es,ax ;загружаем селектор для сегмента видеобуфера mov ax,28h mov ss,ax ;загружаем селектор для сегмента стека ;Работаем в защищенном режиме ;Выводим строку в видеобуфер mov cx,hel_size ;Длина сообщения mov si, offset hello ;Адрес строки сообщения mov di,1640 ;Начальный адрес видеобуфера для вывода mov ah,07h ;Атрибут выводимых символов(серый на черном) outst: ;Цикл вывода символов строки в видеобуфер mov al,[si] mov es:[di],ax inc si inc di inc di loop outst ;Возврат в реальный режим ;Формирование дискрипторов для реального режима assume ds:gdt_seg ;!!!!!!!!!!!!!!!! mov ax,8h mov ds,ax ;Загружаем селектор для сегмента mov gdt_ds_18.limit, 0ffffh ;Ограничиваем размер сегмента данных 64 кбайтами mov gdt_es_vbf_20.limit,0ffffh ;Ограничиваем размер сегмента видеобуфера 64 кбайтами mov gdt_ss_28.limit,0ffffh ;Ограничиваем размер сегмента стека 64 кбайтами mov gdt_cs_30.limit,0ffffh ;Ограничиваем размер сегмента кода 64 кбайтами assume ds:data mov ax,18h ;Загрузка теневого дискриптора сегмента данных mov ds,ax mov ax,20h ;Загрузка теневого дискриптора сегмента видеобуфера mov es,ax mov ax,28h ;Загрузка теневого дискриптора сегмента стека mov ss,ax ;Моделирование команды дальнего перехода на сегмент кода (jmp cs:offset jump) db 0eah dw offset jump dw 30h jump: mov eax,cr0 ;Переключение в реальный режим and al,0feh ;Обнуление нулевого бита CR,0 mov cr0,eax ;Моделирование команды дальнего перехода на сегмент кода (jmp cs:offset r_mode) db 0eah dw offset r_mode dw code r_mode: mov ax,data ;Инициализация сегмента данных в реальном режиме mov ds,ax mov ax,stk ;Инициализация сегмента стека в реальном режиме mov ss,ax sti ;Разрешение прерываний mov ax,4c00h ;Окончание работы программы int 21h main endp code ends stk segment para public \'stack\' use16 ;!!!!!!!!!!!!!!!!!! dw 128 dup(?) stk ends end main ----- Удачи! Ответ отправил: Лысков Игорь Витальевич, Модератор Ответ отправлен: 11.04.2010, 01:54 Номер ответа: 260754 Украина, Кировоград Тел.: +380957525051 ICQ # 234137952 Mail.ru-агент: igorlyskov@mail.ru Абонент Skype: igorlyskov Оценка ответа: 5 Комментарий к оценке: Большое спасибо за исправления кода программы, за отличный пример программы, а также за отличную консультацию. Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"? Отправить SMS #thank 260754 на номер 1151 (Россия) | Еще номера » Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.) Оценить выпуск » Нам очень важно Ваше мнение об этом выпуске рассылки! Задать вопрос экспертам этой рассылки » Скажите "спасибо" эксперту, который помог Вам! Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА на короткий номер 1151 (Россия) Номер ответа и конкретный текст СМС указан внизу каждого ответа. Полный список номеров » * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов) ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются. *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании. © 2001-2010, Портал RFpro.ru, Россия Авторское право: ООО "Мастер-Эксперт Про" Автор: Калашников О.А. | Программирование: Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2010.6.14 от 03.03.2010

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

Все дело в размере! Easy Curves - первый тренажер для женской груди!   Скачай журнал "Сам себе мастер" Кухня в деревенском стиле. Обустройство узкой ванны. Шторы в детской.   MegaSeo: рассылка о продвижении в Интернет Советы и подсказки в поисковом продвижении: подпишись, что бы знать больше

Банки! Кредитные продукты! Самая свежая информация о банковских продуктах!<>www.crednews.ru Споры вокруг Windows 7! Новая версия операционной системы Windows 7 - в чем ее обвиняют?<>luxury-info.ru Скачать программы а также игры, новости и драйвера с прямыми ссылками. Всё работает.<>soft.mydiv.net

Я - Красивая!! Целлюлиту - Нет!! Здесь Вы найдете наиболее полную и качественную информацию по вопросам возникновения, профилактики и лечения целлюлита и проблем лишнего веса. Также рассматриваются все вопросы здорового правильного питания и образа жизни. Золотые рассылки Subscribe.Ru подписаться по почте | на сайте >>>

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