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

Выпуск № 770
от 05.06.2007, 18:05

Вопрос № 89.358

У меня, когда открываю com-файл, просто черное окошко. Ну почему? :( Приложение: Теперь интересная программка (/003/PROG03.ASM) для практики, которая выводит в верхний левый угол экрана веселую рожицу на синем фоне: (01) CSEG segment (02) org 100h (03) _beg: (04) mov ax,0B800h (05) mov es,ax (06) mov di,0 (07) (08) mov ah,31 (09) mov al,1 (10) mov es:[di],ax (11) (12) mov ah,10h (13) int 16h (14) (15) int 20h (16) (17) CSEG ends (18) end _beg

Отправлен: 30.05.2007, 23:14 Вопрос задал: Покритюк Виталий Леонидович (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Покритюк Виталий Леонидович! Вставите строки: (03) _beg: ;-установка видео режима (03a) mov ax,03h (03b) int 10h ; (04) mov ax,0B800h Удачи! --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 31.05.2007, 10:26 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо!!!! Вы мне очень помогли!!! И ответ быстро пришел!!! СПАСИБО ОГРОМНОЕ!!!!

Отвечает: Tamashev Denis M Здравствуйте, Покритюк Виталий Леонидович! Я не пишу под DOS но мне кажется нету прирывания int 21h

Ответ отправил: Tamashev Denis M (статус: 4-ый класс) Ответ отправлен: 31.05.2007, 16:57 Оценка за ответ: 5

Отвечает: An42 Здравствуйте, Покритюк Виталий Леонидович! Если вы пользуетесь Far Manager для запуска программы, то действительно будет черный экран. Запустите программу из под Norton Commander, и действительно в верхнем левом углу будет на синем фоне белая рожица. Удачи

Ответ отправил: An42 (статус: 3-ий класс) Ответ отправлен: 01.06.2007, 08:12 Оценка за ответ: 5

Вопрос № 89.360

Помогите, пожалуйста! Зачёт горит. Есть строка длиной до ста символов, в которой несколько раз встречается слово "школьник". Сформировать строку, содеж. вместо указанного сочетания слово "студент".

Отправлен: 30.05.2007, 23:37 Вопрос задал: PingWIN (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Зенченко Константин Николаевич Здравствуйте, PingWIN! Смотрите приложение. Используются строковые команды их замена в коментариях Удачи! Приложение: MODEL small stack 100 .186 DATASEG strInpMax db 100; strInpLen db ? strInp db 100 dup(?) strOutA db 13,10 strOut db 200 dup(?) strSch db 'schoolboy' strSchLen equ $-strSch strStu db 'student' strStuLen equ $-strStu entrStr db 13,10,'please enter you string:$' CODESEG start: mov ax,@DATA mov ds,ax mov es,ax ;выводим приглашение ввести строку mov ah,09h mov dx,offset entrStr int 21h ;вводим строку mov ah,0ah mov dx,offset strInpMax int 21h cld ;настраиваемся для проверки и копирования mov si,offset strInp mov di,offset strOut xor ch,ch mov cl,strInpLen mov bx,offset strSch ;сама проверка и копирование str_find: lodsb ;+mov al,[si] ;+inc si ;проверяем совпадает ли первые символы да переход cmp al,[bx] jz yes_find ;нет идем дальше next_find: stosb ;+mov [di],al ;+inc di loop str_find ;пишем в конец строки метку "закончить вывод" для функции 0А mov al,'$' stosb ;+mov [di],al ;+inc di ;выводим результат mov ah,09h mov dx,offset strOutA int 21h ;выход в дос mov ah,4ch int 21h ;сохраняем состояние копирования yes_find: push bx push cx push si push ax mov cl,strSchLen-1 ;сама проверка yes_cmp: inc bx lodsb ;+mov al,[si] ;+inc si ;школьник ли это если нет переход cmp al,[bx] jnz no_find loop yes_cmp ;проверка на разделитель слов вдруг там школьники cmp byte ptr[si],'A' ;если разделитель нашли школьник jl yes_word ;ненашли востанавливаем состояние копирования no_find: pop ax pop si pop cx pop bx jmp short next_find ;начинаем копирование yes_word: pop ax;ax-уже не нужно pop ax;si-уже новое значение pop cx;изменяем счетчик на длину слова школьник sub cl,strSchLen push cx;запоминаем новое значение mov cx,strStuLen ;копируем слово студент mov bx,offset strStu ok_change: mov al,[bx] inc bx stosb ;+mov [di],al ;+inc di loop ok_change ;востанавливаем новое состояние копирования pop cx pop bx jmp short str_find end start --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 02.06.2007, 19:38

Вопрос № 89.435

Товарищи эксперты, посмотрите пожалуйста, где я напутал в моей программе, у меня вывод значений не происходит вообще (сумма исходных чисел, максимум из положительных и результат), да и ввод работает как-то криво.. уже отказался от одного макроса даже (pointer macro) и заменил на "perev db 0dh,0ah". Не знаю чего делать, всю голову сломал уже.. Приложение: ;Лабораторная работа №3. ;ТЕМА: Ввод-вывод и арифметическая обработка числовых данных. ;ЗАДАНИЕ: Написать программу, выполняющую ; -ввод массива целыx многозначныx чисел со знаком. При вводе осуществляется контроль допустимости вводимыx символов. Ввод предваряется текстовым приглашением. ; -арифметическую и логическую обработку массива чисел по заданию преподавателя. ; -преобразование числового результата в ASCII-строку и отображение на дисплее. ;Индивидуальное задание: (#1)Разделить сумму исходных чисел на максимум из положительных. .MODEL SMALL ;определение модели памяти .stack 100h ;сегмент стека размером в 256 байт ;pointer macro a,b,c ;положение курсора ; mov ah,02 ;bh=номер видеостраницы, dh=строка курсора, dl=столбец курсора. ; mov bh,a ; mov dh,b ; mov dl,c ; int 10h ;endm input_string macro ist ;ввод строки символов push ax push dx mov dx,offset ist mov ah,0Ah int 21h pop dx pop ax endm Out_string macro ost ;вывод сообщений на экран push ax push dx mov dx,offset ost mov ah,9 int 21h pop dx pop ax endm .data mess1 db 'Input the number (-29999;+29999): $' ;приглашение ввода числа mess_err1 db '<< Input error! >>$' ;сообщение "Ошибка ввода" mess_err2 db '<< Buffer overflow! >>$' ;сообщение "Переполнение буфера" mess2 db 'The sum total of input numbers: $' ;сообщение "Сумма исходных чисел" mess3 db 'Maximum of positive number: $' ;сообщение "Максимум из положительных" numbb label byte ;массив трактуется как байтовый numbers db 7,?,7 dup(0) ;вводимые числа massiv dw 5 dup(0) ;массив уже введеных чисел SumTot dw 0,'$' ;сумма исходных чисел MaxPos dw 0,'$' ;максимум из положительных Result dw 0,'$' ;результат деления flag_error EQU 1 ;константа = флаг ошибки out_str db 6 dup(' '),'$' perev db 0dh,0ah .code Start: mov ax,@data ;связь регистра DS с сегментом данных через AX mov ds,ax ;Видеосервис. Вызов Функции 0(ah), режим 3(al), очистка экрана. mov ah,00 mov al,03 int 10h ;цикл ввода xor di,di ;di - номер числа в массиве mov cx,5 ;в cx - размер массива input: push cx label_1: Out_string mess1 input_string numbers Out_string perev call DIAPAZON cmp bh,flag_error ;сравним bh и flag_error je err1 ;если равен -> сообщение об ошибке ввода call DOPUST cmp bh,flag_error je err1 call AscToBin inc di inc di pop cx loop input jmp label_2 err1: Out_string mess_err1 Out_string perev jmp label_1 ;здесь место для арифметической обработки ;например, процедуры получения суммы положительных, отрицательных, среднего, максимального label_2: ;сумма исходных чисел xor si,si xor ax,ax xor bx,bx mov si,2 mov cx,5 metka: mov bx,offset [numbers+si] add ax,bx ;jo ovr inc si inc si loop metka mov SumTot,ax Out_string mess2 call BinToAsc Out_string perev out_string SumTot xor si,si mov cx,5 mov si,2 kkk: mov ax,offset [numbers+si] cmp ax,0 jle sled cmp MaxPos,ax jle sled mov MaxPos,ax sled: inc si inc si loop kkk Out_string mess3 Out_string perev out_string MaxPos xor ax,ax xor dx,dx mov ax, SumTot sub dx,dx div MaxPos jo ovr mov Result,ax call BinToAsc Out_string perev out_string Result jmp exit mov ax,SumTot ;вывод результата на экран call BinToAsc Out_string out_str mov cx,6 ;очистка буфера вывода xor si,si clear: mov [out_str+si],' ' inc si loop clear mov ax,MaxPos call BinToAsc Out_string out_str ;вывод остальных результатов - аналогично, лучше организовать цикл ;... jmp quit ovr: Out_string mess_err2 ;вывод сообщения о переполнении quit:mov ah,7 int 21h mov ax,4C00h ;системный вызов DOS 4Ch: в АН помещается 4Ch, в AL - код возврата int 21h Wait_key proc ;процедура ожидания нажатия клавиши mov ah,10h int 16h ret Wait_key endp DIAPAZON proc ;проверка диапазона вводимых чисел (-29999;+29999) ;буфер ввода - numbers ;через bh возвращается флаг ошибки ввода. xor bh,bh cmp [numbers+1],5 ;если ввели менее 5 символов проверим их допустимость jb dop cmp [numbers+2],2dh ;если ввели 5 или более символов, проверим является ли первый минусом "-" jne plus ;если первый символ не "-", тогда проверим число символов cmp [numbers+1],6 ;если первый символ "-", а символов меньше 6 проверим допустимость символов jb dop jmp first ;иначе проверим первую цифру plus: cmp [numbers+1],6 ;введено 6 символов и первый символ не "-", тогда ошибка. je error1 ;ошибка! first: cmp [numbers+2],32h ;сравним первый символ с "2" jna dop ;если первый <=2 - проверим допустимость символов error1: mov bh,flag_error ;bh = flag_error dop: ret DIAPAZON endp DOPUST proc ;проверка допустимости вводимых символов ;буфер ввода - numbers ;через bh возвращается флаг ошибки ввода, si - номер символа в строке xor bh,bh xor ah,ah xor ch,ch mov si,2 mov cl,[numbers+1] ;в cl количество введенных символов over: mov al,[numbers+si] ;в al - первый и последующие символы cmp al,2dh ;является ли символ минусом jne testdop ;если не минус - проверка допустимости cmp si,2 ;если минус - является ли он первым символом jne error2 ;если минус не первый - ошибка! jmp lower testdop: ;является ли введенный символ цифрой cmp al,30h jb error2 cmp al,39h ja error2 lower: inc si loop over jmp exit error2: mov bh,flag_error ;при недопустимости символа bh = flag_error exit: ret DOPUST endp AscToBin proc ;преобразование строки в число ;в cx количество введенных символов ;в bx - номер символа начиная с последнего ;буфер чисел - massiv, в di - номер числа в массиве xor ch,ch mov cl,[numbers+1] xor bh,bh mov bl,cl dec bl mov si,1 ;в si вес разряда n1: mov al,[numbers+2]+bx xor ah,ah cmp al,2dh ;проверим знак числа je otr ;если число отрицательное sub al,30h mul si add [massiv+di],ax mov ax,si mov si,10 mul si mov si,ax dec bx loop n1 jmp n2 otr: neg [massiv+di] ;представим отрицательное число в дополнительном коде n2: ret AscToBin endp BinToAsc PROC ;преобразование числа в строку ;число передается через ax xor si,si add si,5 mov bx,10 push ax cmp ax,0 jnl m1 neg ax m1: cwd idiv bx add dl,30h mov [out_str+si],dl dec si cmp ax,0 jne m1 pop ax cmp ax,0 jge m2 mov [out_str+si],2dh m2: ret BinToAsc ENDP end Start

Отправлен: 31.05.2007, 14:10 Вопрос задал: Roman Aleksandrovich (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Стас Здравствуйте, Roman Aleksandrovich! (Здесь не доработанный текст проги, но дальше уже лень править) Так много помарок, что легче заново написать. Есть и глобальные непонятки, к примеру: 5 чисел по 29999 в сумме составят 149995, это больше слова (word) которое отведено под SumTot (и регистра AX кстати). Т.е. нужно ВСЕ переделывать под пару DX:AX и SumTot=DWORD. Выход по RET у Вас не работает, вероятно что-то в стеке забыли, мне лень было искать. Преобразование AscToBin не рабочее переписал по образу и подобию :) Вывод чисел на экран возможен только после перевода их в текст и печать этого текста, а не как у вас out_string SumTot. Остальное сравнивайте, смотрите, надеюсь помог. Приложение: ;Лабораторная работа №3. ;ТЕМА: Ввод-вывод и арифметическая обработка числовых данных. ;ЗАДАНИЕ: Написать программу, выполняющую ; -ввод массива целыx многозначныx чисел со знаком. При вводе осуществляется контроль допустимости вводимыx символов. Ввод предваряется текстовым приглашением. ; -арифметическую и логическую обработку массива чисел по заданию преподавателя. ; -преобразование числового результата в ASCII-строку и отображение на дисплее. ;Индивидуальное задание: (#1)Разделить сумму исходных чисел на максимум из положительных. .MODEL SMALL ;определение модели памяти .stack 100h ;сегмент стека размером в 256 байт ;pointer macro a,b,c ;положение курсора ; mov ah,02 ;bh=номер видеостраницы, dh=строка курсора, dl=столбец курсора. ; mov bh,a ; mov dh,b ; mov dl,c ; int 10h ;endm input_string macro ist ;ввод строки символов push ax push dx mov dx,offset ist mov ah,0Ah int 21h pop dx pop ax endm Out_string macro ost ;вывод сообщений на экран push ax push dx mov dx,offset ost mov ah,9 int 21h pop dx pop ax endm .data mess1 db 'Input the number (-29999;+29999): $' ;приглашение ввода числа mess_err1 db '<< Input error! >>$' ;сообщение "Ошибка ввода" mess_err2 db '<< Buffer overflow! >>$' ;сообщение "Переполнение буфера" mess2 db 'The sum total of input numbers: $' ;сообщение "Сумма исходных чисел" mess3 db 'Maximum of positive number: $' ;сообщение "Максимум из положительных" numbb label byte ;массив трактуется как байтовый numbers db 7,?,7 dup(0) ;вводимые числа massiv dw 5 dup(0) ;массив уже введеных чисел SumTotH dw 0 ;сумма исходных чисел старшая часть SumTotL dw 0 ;сумма исходных чисел младшая часть MaxPos dw 0 ;максимум из положительных Result dw 0 ;результат деления flag_error EQU 1 ;константа = флаг ошибки out_str db 6 dup(' '),'$' perev db 0dh,0ah,'$' .code Start: mov ax,@data ;связь регистра DS с сегментом данных через AX mov ds,ax ;Видеосервис. Вызов Функции 0(ah), режим 3(al), очистка экрана. mov ah,00 mov al,03 int 10h ;цикл ввода xor di,di ;di - номер числа в массиве mov cx,5 ;в cx - размер массива input: push cx label_1: Out_string mess1 input_string numbers Out_string perev call AscToBin call DIAPAZON cmp bh,flag_error ;сравним bh и flag_error je err1 ;если равен -> сообщение об ошибке ввода call DOPUST cmp bh,flag_error je err1 call AscToBin inc di inc di pop cx loop input jmp label_2 err1: Out_string mess_err1 Out_string perev jmp label_1 ;здесь место для арифметической обработки ;например, процедуры получения суммы положительных, отрицательных, среднего, максимального label_2: ;сумма исходных чисел xor si,si xor ax,ax xor bx,bx xor dx,dx mov si,0 mov cx,5 metka: mov bx,offset [massiv+si] add ax,bx adc dx,0 ;jo ovr inc si inc si loop metka mov SumTotL,ax mov SumTotH,dx Out_string mess2 call BinToAsc Out_string out_str Out_string perev xor si,si mov cx,5 mov si,0 kkk: mov ax,offset [massiv+si] cmp ax,0 jle sled cmp ax,MaxPos jle sled mov MaxPos,ax sled: inc si inc si loop kkk Out_string mess3 mov ax,MaxPos call BinToAsc Out_string out_str Out_string perev xor ax,ax xor dx,dx mov ax, SumTotL sub dx,dx div MaxPos jo ovr mov Result,ax call BinToAsc Out_string out_str Out_string perev mov ax,Result call BinToAsc Out_string out_str ;Exit mov ax,4c00h int 21h mov ax,SumTotL ;вывод результата на экран call BinToAsc Out_string out_str mov cx,6 ;очистка буфера вывода xor si,si clear: mov [out_str+si],' ' inc si loop clear mov ax,MaxPos call BinToAsc Out_string out_str ;вывод остальных результатов - аналогично, лучше организовать цикл ;... jmp quit ovr: Out_string mess_err2 ;вывод сообщения о переполнении quit:mov ah,7 int 21h mov ax,4C00h ;системный вызов DOS 4Ch: в АН помещается 4Ch, в AL - код возврата int 21h Wait_key proc ;процедура ожидания нажатия клавиши mov ah,10h int 16h ret Wait_key endp DIAPAZON proc ;проверка диапазона вводимых чисел (-29999;+29999) ;буфер ввода - numbers ;через bh возвращается флаг ошибки ввода. xor bh,bh cmp [numbers+1],5 ;если ввели менее 5 символов проверим их допустимость jb dop cmp [numbers+2],2dh ;если ввели 5 или более символов, проверим является ли первый минусом "-" jne plus ;если первый символ не "-", тогда проверим число символов cmp [numbers+1],6 ;если первый символ "-", а символов меньше 6 проверим допустимость символов jb dop jmp first ;иначе проверим первую цифру plus: cmp [numbers+1],6 ;введено 6 символов и первый символ не "-", тогда ошибка. je error1 ;ошибка! first: cmp [numbers+2],32h ;сравним первый символ с "2" jna dop ;если первый <=2 - проверим допустимость символов error1: mov bh,flag_error ;bh = flag_error dop: ret DIAPAZON endp DOPUST proc ;проверка допустимости вводимых символов ;буфер ввода - numbers ;через bh возвращается флаг ошибки ввода, si - номер символа в строке xor bh,bh xor ah,ah xor ch,ch mov si,2 mov cl,[numbers+1] ;в cl количество введенных символов over: mov al,[numbers+si] ;в al - первый и последующие символы cmp al,2dh ;является ли символ минусом jne testdop ;если не минус - проверка допустимости cmp si,2 ;если минус - является ли он первым символом jne error2 ;если минус не первый - ошибка! jmp lower testdop: ;является ли введенный символ цифрой cmp al,30h jb error2 cmp al,39h ja error2 lower: inc si loop over jmp exit error2: mov bh,flag_error ;при недопустимости символа bh = flag_error exit: ret DOPUST endp AscToBin proc ;преобразование строки в число ;в cx количество введенных символов ;в bx - номер символа начиная с последнего ;буфер чисел - massiv, в di - номер числа в массиве xor bx,bx xor ax,ax mov si,10 lp1: cmp bl,[numbers+1] jz ex1 n1: mov cl,[numbers+2]+bx cmp cl,'0' jb next1 cmp cl,'9' ja next1 sub cl,'0' xor dx,dx mul si xor ch,ch add ax,cx next1: inc bx jmp lp1 ex1: cmp [numbers+2],'-';проверим знак числа jnz ex2 neg ax ex2: mov [massiv+di],ax ;представим отрицательное число в дополнительном коде ret AscToBin endp BinToAsc PROC ;преобразование числа в строку ;число передается через ax xor si,si add si,5 mov bx,10 push ax cmp ax,0 jnl m1 neg ax m1: cwd idiv bx add dl,30h mov [out_str+si],dl dec si cmp ax,0 jne m1 pop ax cmp ax,0 jge m2 mov [out_str+si],2dh m2: ret BinToAsc ENDP end Start

Ответ отправил: Стас (статус: Специалист) Ответ отправлен: 31.05.2007, 18:03

Вопрос № 89.453

чуваки, помогите плиз Лаба: нужно ввести массив 4 на 3, затем вывести числа с массива, у которых i > j. В принципе у меня работает, но есть небольшой косяк, выводит 2 и 3-е число в первой строке, но также должно выводиться и 3-е число во 2 строке, но его не выводит. Предполагаю, что косяк на 78 или 86 строке листинга, т.е. с регистром si Приложение: model small .stack 100h .data prigl1 db 10,13, 'Vvedite massiv$' prigl2 db 10,13, 'Chisla, gde i > j: $' kol db 0 mas db 4 dup(3 dup (?)) newln db 10,13, '$' .code start: mov ax, @data mov ds, ax lea dx, prigl1 mov ah, 9h int 21h mov bx, 0 mov cx, 4 n_ln3: mov si, 0 push cx mov cx, 3 lea dx, newln mov ah, 9h int 21h str3: mov ah, 1h int 21h sub al, 30h mov mas [bx][si], al inc si loop str3 pop cx add bx, 3 loop n_ln3 mov bx, 0 mov cx, 4 n_ln2: mov si, 0 push cx mov cx, 3 lea dx, newln mov ah, 9h int 21h str2: mov dl, mas [bx][si] add dl, 30h mov ah, 2h int 21h mov dl, 9h int 21h inc si loop str2 pop cx add bx, 3 loop n_ln2 lea dx, prigl2 mov ah, 9h int 21h mov bx, 0 mov cx, 4 n_ln1: mov si, 0 push cx mov cx, 3 str1: cmp bx, si jae next mov dl, mas [bx][si] add dl,30h mov ah, 2h int 21h next: inc si loop str1 pop cx add bx, 3 loop n_ln1 mov ah, 4Ch int 21h end start

Отправлен: 31.05.2007, 16:00 Вопрос задал: Beerb0x (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: An42 Здравствуйте, Beerb0x! Предлагаю свою реализацию программы: >макрос dos21 служит для вывода сообщений, вывода символов, звукового сигнала >макрос bios16 служит для ввода символов клавиатуры и фильтрации только цифровых клавиш >макрос massiv служит для заполнения массива и чтения массива >процедура c10numbers служит для определения чисел массива для i > j Если я правильно понял, то i это номер строки, а j номер столбца Процедура содержит рекурсивный цикл для определения индекса массива для которого номер строки больше номера столбца. Краткие пояснения в программе. Удачи Приложение: title 89453 dos21 macro ahfun,dxadres,dlsumbol mov ah,ahfun ifnb <dxadres> mov dx,offset dxadres endif ifnb <dlsumbol> mov dl,dlsumbol endif int 21h endm bios16 macro LOCAL b10,b20,exit b10: mov ah,00 int 16h cmp al,39h ja b20 cmp al,30h jb b20 dos21 02h,,al jmp exit b20: dos21 02h,,07h jmp b10 exit: endm massiv macro a_b,b_a LOCAL loop_1,exit_1 loop_1: ifnb <a_b> bios16 mov mas[bx][si],al endif ifnb <b_a> mov al,byte ptr mas[bx][si] dos21 02h,,al dos21 02h,,09h endif inc si dec cl jne loop_1 add bl,col dec ch je exit_1 dos21 09h,newln sub si,si mov cl,col jmp loop_1 exit_1: endm .model small .stack 40h .data prigl1 db 'Vvedite massiv 4x3$' prigl2 db 'Chisla, gde i > j: $' row db 4 ;4 строки col db 3 ;3 столбца mas db 4 dup(3 dup (?)) newln db 0dh,0ah,'$' .code begin: mov ax,@data mov ds,ax sub bx,bx sub si,si mov cl,col mov ch,row dos21 09h,prigl1 dos21 09h,newln massiv a_b ;Заполнение массива dos21 09h,newln dos21 09h,newln mov cl,col mov ch,row sub bx,bx sub si,si massiv ,b_a ;Чтение массива dos21 09h,newln dos21 09h,newln call c10numbers ;Процедура определения чисел ; для i > j mov ax,4c00h int 21h c10numbers proc dos21 09h,prigl2 cmp row,1 ;Если 1-на строка то jbe exit_2 ; выход mov bx,0h mov si,0h mov di,1h ;Счетчик для цикла mov cx,1h add bl,col cycl: dos21 02h,,byte ptr mas[bx][si] dos21 02h,,20h inc si inc di loop cycl mov cx,di mov si,0 mov al,col ;Для определеня числа шагов цикла inc al cmp cl,al ;Определения условия выхода из цикла ja exit_2 add bl,col jmp cycl exit_2: ret c10numbers endp end begin

Ответ отправил: An42 (статус: 3-ий класс) Ответ отправлен: 01.06.2007, 15:04

Вопрос № 89.463

Расскажите пожалуйста о процессе загрузки в память EXE программы(в подробностях). Оч срочно надо! если можно, ответ киньте на мыло prochell@tut.by

Отправлен: 31.05.2007, 17:05 Вопрос задал: Kot-Narkot (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Kot-Narkot! Посмотрите эти статьи по MS-DOS: Загрузчик процесса .EXE MS-DOS MZ-формат В Уроках Iczelion'а можно найти описание PE-формата и что делает загрузчик Windows. Удачи! --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 31.05.2007, 21:15

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