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

Выпуск № 939
от 28.12.2007, 04:35

Вопрос № 115.397

Здравствуйте уважаемые эксперты. Простите за назойливость. я уже задавал вопросы 115160 и 115164. Написал программу выводящую в зависимости от состояния флага if сообщение в видеобуфер. Она имеет защиту от повторной установки/выгрузки из памяти. Резидент устанавливается при параметре /add и выгружается при /ren Резидент активизируется из другой программы содержащей прерывание 3Fh: Seg1 SEGMENT ASSUME CS:Seg1 ORG 100h ;Начало программы с 0100h V: int 3fh ;Команда вызова резидентной программы mov AX,4C00h ;Выход в DOS int 21h Seg1 ENDS ;Конец сегмента END V ;Полный конец Суть вопроса. Программа не всегда корректно определяет параметры загрузки. (т е символы после слэша) В эмуляторе ХР работает, а в досе 6.22 нет. И еще ни как не пойму почему не отображаются сообщения: ok_interupt db 'IF-разрешен$' no_interupt db 'IF-запрещен$' Помогите пожалуста разобратся. Мне ее скоро сдавать а она толком не работает... Приложение: Text SEGMENT ASSUME SS: Text, DS : Text, CS :Text, ES :Text org 100h ; начало программы с 100h main proc jmp init ; переход на инициализирующую часть main endp old_2Fh dd 0 ; старый адрес Int 2Fh old_3fh dd 0 ; старый адрес Int 3fh ok_interupt db 'IF-разрешен$' no_interupt db 'IF-запрещен$' ;--------------- обработка прерывания 2Fh ------------------------- NewProc_2Fh proc cmp AH, 0C8h ; если в вызове указана не наша функция, то выходим jne Go_Old2Fh cmp AL, 0 ; если функция проверки состояния, то сообщаем о том, что программа висит в памяти je SetOk cmp AL, 01h ; если функция выгрузки, то выгружаем программу je Exit_2F Go_Old2Fh: ; преходим на следующий обработчик прерывания 2Fh jmp CS:old_2Fh SetOk: mov AL, 0FFh ; cообщаем, что программа висит в памяти iret ; и выходим из прерывания Exit_2F: ; выгрузка программы push AX push DX ; сохраняем регистры push DS mov AX, 253fh ; восстановление старого обработчика прерывания 09h lds DX, CS:old_3fh int 21h mov AX, 252Fh ; восстановление старого обработчика прерывания 2Fh lds DX, CS:old_2fh int 21h mov ES, CS:[2Ch] ; освобождение памяти mov AH, 49h int 21h push CS pop ES mov AH, 49h int 21h pop DS ; восстановляем регистры pop DX pop AX iret ; и выходим из прерывания NewProc_2Fh endp ;--------------- обработка прерывания 3Fh ------------------------- NewProc_3fh proc push AX ;сохраняем АХ в стек pushF ; регистор флагов в стек pop AX ; регистор флагов в ах mov BX, AX mov ax,0b800h ;настраиваемся на видео буфер mov es,ax xor di,di ;левый верхний угол mov ah,1ah ;цвет зеленое на синем фоне cld ; устанавливаем df=0 это необходимо для того чтобы stosw работала как инкремент test BX, 1000000000b ; проверяем флаг IF jnz one_if ; есле IF=1, то переход mov al,no_interupt stosw jmp Exit_3Fh one_if: mov al,ok_interupt stosw Exit_3Fh: pop AX iret NewProc_3fh endp ;------------------ инициирующая часть ---------------------------- init proc mov CL, ES:80h ; чтение из PSP:80h кол-во символов cmp CL, Lgth_Load+2 ; сравнение с длиной команды загрузки и ' /' jge Params ; если >= переход на обработку jmp Go_MesNoParams ; нет или мало парметров, инф-ционное сообщение Params: ; обработка параметров xor CH, CH ; теперь кол-во символов в регистре CX mov DI, 81h ; поиск символа '/' начиная с PSP:81h mov AL, '/' repne scasb mov BX, DI ; в BX - заносится адрес первого символа ключа mov SI, offset KeyLoad ; DS:SI - поле KeyLoad mov CX, Lgth_Load ; в CX - заносится длина ключа загрузки repe cmpsb ; сравнение командной строки с ключом загрузки jne Go_UnLoad ; если строки не одинаковые, переходим на сравнение с ключом выгрузки jmp Install ; иначе переходим к установке Go_UnLoad: mov SI, offset KeyUnLoad ; DS:SI - поле KeyUnLoad mov DI, BX ; в DI - заносится адрес '/' mov CX, Lgth_UnLoad ; в CX - заносится длина ключа выгрузки repe cmpsb ; сравнение командной строки с ключом выгрузки jne Go_MesNoParams ; если не одинаковые, выдаем инф-ционное сообщение jmp Uninstall ; иначе переходим к выгрузке Install: ; установка программы ;------------------------------------- проверка на повторную загрузку mov AX, 0C800h ; функция 0C800h прерывания 2Fh int 2Fh cmp AL, 0FFh ; сравнить полученный результат с 0FFh je Go_MesRun ; программа уже загружена, и выдаем об этом сообщение ;------------------------------------- сохранение старого и установка нового обработчика прерывания int 2Fh mov AX, 352Fh ; получить в ES:BX старый адрес обработчика int 21h mov Word Ptr CS:old_2Fh, BX ; и сохранить в переменную old_2F mov Word Ptr CS:old_2Fh+2, ES mov AX, 252Fh ; установка нового адреса mov DX, offset NewProc_2Fh int 21h ;------------------------------------- сохранение старого и установка нового обработчика прерывания int 3fh mov AX, 353fh ; получить в ES:BX старый адрес обработчика int 21h mov Word Ptr old_3fh, BX ; и сохранить в переменную old_3f mov Word Ptr old_3fh+2, ES mov AX, 253fh ; установка нового адреса mov DX, offset NewProc_3fh int 21h mov AH, 09h ; вывод сообщения об установки lea DX, Mes_Load int 21h mov AX, 3100h ; завершить и оставить резидентной mov DX, (init-main+10Fh)/16 ; часть размером (init-main+10Fh)/16 int 21h Uninstall: ; удаление программы ;------------------------------------- проверка на повторную выгрузку mov AX, 0C800h ; функция 0C800h прерывания 2Fh int 2Fh cmp AL, 0FFh ; сравнить полученный результат с 0FFh jne Go_MesUnRun ; программа уже выгружена, и выдаем об этом сообщение ;------------------------------------- завершаем программу, сообщаем об этом и выходим mov AH, 09h ; сообщение, что программа выгружена lea DX, Mes_UnLoad int 21h mov AX, 0C801h ; вызов выгрузки программы int 2Fh jmp Exit Go_MesRun: ; сообщение, что программа уже загружена mov AH, 09h lea DX, Mes_Run int 21h jmp Exit Go_MesUnRun: ; сообщение, что программа уже выгружена mov AH, 09h lea DX, Mes_UnRun int 21h jmp Exit Go_MesNoParams: ; сообщение об отсутствии или неверности параметров командной строки mov AH, 09h lea DX, Mes_NoParams int 21h Exit: ; выход из программы mov AX, 4C00h int 21h KeyLoad db 'add' ; ключ загрузки Lgth_Load = $-KeyLoad ; длина ключа загрузки $-текущий адрес KeyUnload db 'rem' ; ключ выгрузки Lgth_Unload = $-KeyUnload ; длина ключа выгрузки $-текущий адрес Mes_NoParams db 10, 13, 9, 'Format of a call: tsr.com /add or /rem', 10, 13 db 9, '/inst - Loading TSR in memory;', 10, 13 db 9, '/unin - Unloading TSR from memory;', 10, 13, '$' Mes_Run db 10, 13, 'The program is already loaded in memory', 10, 13, '$' Mes_UnRun db 10, 13, 'The program is not loaded in memory', 10, 13, '$' Mes_Load db 10, 13, 'The program is loaded in memory', 10, 13, '$' Mes_UnLoad db 10, 13, 'The program is unloaded from memory', 10, 13, '$' init endp Text ends end main

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Lammer! Теперь стало понятно, чего хотелось... Смотри текст, кое-что подправил, кое-что добавил... Пара замечаний: 1) пропустил вызов ранее загруженного резидента. Я для вызова добавил параметр /mes 2) запускать лучше всего в командном интерпретаторе command.com cmd.exe не отображает результат прямой записи в память. 3) параметры прекрасно определяются...(/add, /rem, /mes) 4) остальное поймешь по тексту Удачи! Приложение: Text SEGMENT ASSUME SS: Text, DS : Text, CS :Text, ES :Text org 100h ; начало программы с 100h main proc jmp init ; переход на инициализирующую часть main endp old_2Fh dd 0 ; старый адрес Int 2Fh old_3fh dd 0 ; старый адрес Int 3fh ok_interupt db 'IF-on$' ; исправил на английские фразы, no_interupt db 'IF-off$' ; чтобы на заморачиваться с кодировками... ;--------------- обработка прерывания 2Fh ------------------------- NewProc_2Fh proc cmp AH, 0C8h ; если в вызове указана не наша функция, то выходим jne Go_Old2Fh cmp AL, 0 ; если функция проверки состояния, то сообщаем о том, что программа висит в памяти je SetOk cmp AL, 01h ; если функция выгрузки, то выгружаем программу je Exit_2F Go_Old2Fh: ; преходим на следующий обработчик прерывания 2Fh jmp CS:old_2Fh SetOk: mov AL, 0FFh ; cообщаем, что программа висит в памяти iret ; и выходим из прерывания Exit_2F: ; выгрузка программы push AX push DX ; сохраняем регистры push DS mov AX, 253fh ; восстановление старого обработчика прерывания 09h lds DX, CS:old_3fh int 21h mov AX, 252Fh ; восстановление старого обработчика прерывания 2Fh lds DX, CS:old_2fh int 21h mov ES, CS:[2Ch] ; освобождение памяти mov AH, 49h int 21h push CS pop ES mov AH, 49h int 21h pop DS ; восстановляем регистры pop DX pop AX iret ; и выходим из прерывания NewProc_2Fh endp ;--------------- обработка прерывания 3Fh ------------------------- NewProc_3fh proc push AX bx si di ;сохраняем ВСЕ используемые регистры в стек pushF ; регистор флагов в стек pop BX ; регистор флагов в bх (минуя AX) mov ax,0b800h ;настраиваемся на видео буфер mov es,ax xor di,di ;левый верхний угол mov ah,1ah ;цвет зеленое на синем фоне cld ; устанавливаем df=0 это необходимо для того чтобы stosw работала как инкремент test BX, 1000000000b ; проверяем флаг IF jnz one_if ; есле IF=1, то переход lea si,no_interupt ;адрес строки jmp copy_text one_if: lea si,ok_interupt ;аналогично copy_text: ;цикл по переписи строки на экран mov al, cs:[si] ;читаем один байт cmp al, '$' ;проверка на конец строки je Exit_3Fh stosw ;пишем два inc si ; на следующий jmp copy_text Exit_3Fh: pop di si bx AX iret NewProc_3fh endp ;------------------ инициирующая часть ---------------------------- init proc mov CL, ES:80h ; чтение из PSP:80h кол-во символов cmp CL, Lgth_Load+2 ; сравнение с длиной команды загрузки и ' /' jge Params ; если >= переход на обработку To_MesNoParams: ; Если будет далеко, то сначала перейдем сюда... jmp Go_MesNoParams ; нет или мало парметров, инф-ционное сообщение Params: ; обработка параметров xor CH, CH ; теперь кол-во символов в регистре CX mov DI, 81h ; поиск символа '/' начиная с PSP:81h mov AL, '/' repne scasb jne To_MesNoParams ; '/' не найден (прямо на Go_MesNoParams далеко) mov BX, DI ; в BX - заносится адрес первого символа ключа ;проверим на параметр 'mes' mov SI, offset KeyMess ; DS:SI - поле KeyMess mov CX, Lgth_Mess ; в CX - заносится длина ключа вызова repe cmpsb ; сравнение командной строки с ключом вызова jne Go_Load ; если строки не одинаковые, переходим на сравнение с ключом загрузки jmp Message ; иначе переходим к вызову резидента Go_Load: mov SI, offset KeyLoad ; DS:SI - поле KeyLoad mov DI, BX ; в DI - заносится адрес параметра mov CX, Lgth_Load ; в CX - заносится длина ключа загрузки repe cmpsb ; сравнение командной строки с ключом загрузки jne Go_UnLoad ; если строки не одинаковые, переходим на сравнение с ключом выгрузки jmp Install ; иначе переходим к установке Go_UnLoad: mov SI, offset KeyUnLoad ; DS:SI - поле KeyUnLoad mov DI, BX ; в DI - заносится адрес параметра mov CX, Lgth_UnLoad ; в CX - заносится длина ключа выгрузки repe cmpsb ; сравнение командной строки с ключом выгрузки jne To_MesNoParams ; если не одинаковые, выдаем инф-ционное сообщение jmp Uninstall ; иначе переходим к выгрузке Message: ;вызов резидента mov AX, 0C800h ; функция 0C800h прерывания 2Fh int 2Fh cmp AL, 0FFh ; сравнить полученный результат с 0FFh jne Go_MesUnRun ; программа не загружена int 3fh ; вызовем резидент! mov ah,10h ; подождем нажатие на клавишу int 16h ; (можно убрать, можно зациклить на нажатии, а выходить по ESC, что-то еще...) jmp exit ; и выходим Install: ; установка программы ;------------------------------------- проверка на повторную загрузку mov AX, 0C800h ; функция 0C800h прерывания 2Fh int 2Fh cmp AL, 0FFh ; сравнить полученный результат с 0FFh je Go_MesRun ; программа уже загружена, и выдаем об этом сообщение ;------------------------------------- сохранение старого и установка нового обработчика прерывания int 2Fh mov AX, 352Fh ; получить в ES:BX старый адрес обработчика int 21h mov Word Ptr CS:old_2Fh, BX ; и сохранить в переменную old_2F mov Word Ptr CS:old_2Fh+2, ES mov AX, 252Fh ; установка нового адреса mov DX, offset NewProc_2Fh int 21h ;------------------------------------- сохранение старого и установка нового обработчика прерывания int 3fh mov AX, 353fh ; получить в ES:BX старый адрес обработчика int 21h mov Word Ptr old_3fh, BX ; и сохранить в переменную old_3f mov Word Ptr old_3fh+2, ES mov AX, 253fh ; установка нового адреса mov DX, offset NewProc_3fh int 21h mov AH, 09h ; вывод сообщения об установки lea DX, Mes_Load int 21h mov AX, 3100h ; завершить и оставить резидентной mov DX, (init-main+10Fh)/16 ; часть размером (init-main+10Fh)/16 int 21h Uninstall: ; удаление программы ;------------------------------------- проверка на повторную выгрузку mov AX, 0C800h ; функция 0C800h прерывания 2Fh int 2Fh cmp AL, 0FFh ; сравнить полученный результат с 0FFh jne Go_MesUnRun ; программа уже выгружена, и выдаем об этом сообщение ;------------------------------------- завершаем программу, сообщаем об этом и выходим mov AH, 09h ; сообщение, что программа выгружена lea DX, Mes_UnLoad int 21h mov AX, 0C801h ; вызов выгрузки программы int 2Fh jmp Exit Go_MesRun: ; сообщение, что программа уже загружена mov AH, 09h lea DX, Mes_Run int 21h jmp Exit Go_MesUnRun: ; сообщение, что программа уже выгружена mov AH, 09h lea DX, Mes_UnRun int 21h jmp Exit Go_MesNoParams: ; сообщение об отсутствии или неверности параметров командной строки mov AH, 09h lea DX, Mes_NoParams int 21h Exit: ; выход из программы mov AX, 4C00h int 21h KeyMess db 'mes' ; ключ вызова Lgth_Mess = $-KeyMess ; длина ключа вызова $-текущий адрес KeyLoad db 'add' ; ключ загрузки Lgth_Load = $-KeyLoad ; длина ключа загрузки $-текущий адрес KeyUnload db 'rem' ; ключ выгрузки Lgth_Unload = $-KeyUnload ; длина ключа выгрузки $-текущий адрес Mes_NoParams db 10, 13, 9, 'Format of a call: tsr.com /add, /rem or /mes', 10, 13 db 9, '/add - Loading TSR in memory;', 10, 13 db 9, '/rem - Unloading TSR from memory;', 10, 13 db 9, '/mes - Form message from TSR.', 10, 13, '$' Mes_Run db 10, 13, 'The program is already loaded in memory', 10, 13, '$' Mes_UnRun db 10, 13, 'The program is not loaded in memory', 10, 13, '$' Mes_Load db 10, 13, 'The program is loaded in memory', 10, 13, '$' Mes_UnLoad db 10, 13, 'The program is unloaded from memory', 10, 13, '$' init endp Text ends end main --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 24.12.2007, 11:44 Оценка за ответ: 5 Комментарий оценки: Спасибо за помощь! А параметр mеs я убрал. По условию резидент должен быть запущен из другой программы.

Вопрос № 115.428

помогите пжта разобраться в программе, очень надо...чтобы я поняла ее... прямо каждую строчку...что и зачем, почему я и сама ищу в учебниках...но там много нету... Приложение: program segment assume CS:program, DS:program org 100h ; Директива для com программы (если быть точнее, ; то это выделение 256 байт под PSP) Begin: ; Метка начала программы lea DI, msg_razmer[21] mov AX, word ptr _razmer call razmer_IN_BYTES mov ah, 2ch ; 2сh - ф-ция получения времени int 21h ; Получим системное время xor ax,ax mov al, ch ; в ch у нас часы. Поместим в рег. ah для вывода call outAX10 ; mov al, ':' ; Выведем разделитель ":" int 29h ; с помощью ф-ции ДОСа ; Далее аналогично для минут и секунд. mov ah, 2ch int 21h xor ax,ax mov al, cl call outAX10 ; Выводим показания минут mov al, ':' int 29h mov ah, 2ch int 21h xor ax,ax mov al, dh call outAX10 ; Выводим показания секунд mov AH, 09 lea DX, msg_razmer int 21h mov AX, 4C00h ; int 21h ; Процедура по выводу значения регистра на экран (старшой части регистра ax) outAX10: ;вывод в 10-ой mov bx,10 xor cx,cx ; divAA: xor dx,dx div bx ; push dx ; inc cx ; or ax,ax ;ах=ах jnz divAA outAA: pop ax ; or al,30h int 29h loop outAA ; ret ; выход из процедуры и возврат в основной код ; функция перевода числового значения в строковой тип razmer_IN_BYTES proc push CX push DX mov CX,0010 ; ‘A: cmp AX,0010 ; jb CB ; xor DX,DX ; div CX ; or DL,30H mov [DI],DL ; dec DI jmp ‘A CB: or AL,30H ; mov [DI],AL ; pop DX pop CX ret razmer_IN_BYTES endp msg_razmer db 13,10 db "Razmer programmi: bytes",13,10,"$" _razmer = ($-program-100h) program ends end Begin ; Типа конец :)

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Badbyy! Коментарии в приложении. Удачи! Приложение: program segment assume CS:program, DS:program org 100h ; Директива для com программы (если быть точнее, ; то это выделение 256 байт под PSP) Begin:;Метка начала программы ;вычисляем эффективный адрес указтеля lea DI,msg_razmer[23];исправленно т.к. указатель DI устанавливается на позицию в строке без учета 2-х байт(13,10) в начале строки mov AX,word ptr _razmer;получаем размер программы call razmer_IN_BYTES;вызываем процедуру формирования строки mov ah,2ch; 2сh - ф-ция получения времени int 21h; Получим системное время xor ax,ax mov al,ch;в ch у нас часы. Поместим в рег. ah для вывода call outAX10; вызываем процедуру вывода числа в 10-ой форме mov al,':';Выведем разделитель ":" int 29h; с помощью ф-ции ДОСа ; Далее аналогично для минут и секунд. mov ah,2ch int 21h xor ax,ax mov al,cl call outAX10;Выводим показания минут mov al,':' int 29h mov ah,2ch int 21h xor ax,ax mov al,dh call outAX10;Выводим показания секунд mov AH,09 lea DX,msg_razmer int 21h mov AX,4C00h;завершаем программу int 21h ;Процедура по выводу значения регистра на экран outAX10: ;вывод в 10-ой mov bx,10;ставим основание системы xor cx,cx;счетчик цифр в числе divAA: xor dx,dx;сбрасываем регистр div bx;делим число на 10 push dx;сохраняем в стеке остаток от деления inc cx;увеличиваем счетчик or ax,ax;проверяем ах=ах=0 jnz divAA;пока число ax>0 переходим outAA: pop ax;извлекаем из стека цифру or al,30h;готовим цифру для вывода int 29h loop outAA;повторить пока счетчик cx>0 ret;выход из процедуры и возврат в основной код ; функция перевода числового значения в строковой тип razmer_IN_BYTES proc push CX;сохраняем используемые регистры push DX mov CX,0010;ставим основание системы СA: cmp AX,0010;проверяем регистр jb CB;если АХ меньше 10, переходим xor DX,DX;сбрасываем регистр div CX;делим число or DL,30H;преобразовываем в символьный вид mov [DI],DL;записываем символ в строку dec DI;переходим к следующей позиции jmp СA CB: or AL,30H;преобразовываем в символьный вид mov [DI],AL;записываем символ pop DX;востанавливаем ранее сохраненные регистры pop CX ret;выход из процедуры razmer_IN_BYTES endp msg_razmer db 13,10;эти байты не учитывались при индексировании db "Razmer programmi: bytes",13,10,"$" _razmer = ($-program-100h) program ends end Begin ; Типа конец :) --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 27.12.2007, 12:43

Вопрос № 115.462

Уважаемые эксперты, у меня возник еще один вопрос. Проблема такая: программа выводит только целую часть, а надо чтобы она выводила и целую часть и остаток. Буду очень благодарен, если кто то поможет. Заранее спасибо. Приложение: .model small .stack 4000h .data string_bin_byt label byte string_bin_word label word string_bin_dword dq 09ffeh string_pack dt 0 len_string_pack=$-string_pack adr_string_pack dd string_pack string db 20 dup (0) len_string=$-string adr_string dd string a dw 27 b db -5 .code begin: mov ax,@data mov ds,ax mov es,ax mov ax,a idiv b cbw mov word ptr string_bin_dword,ax finit fild string_bin_dword fbstp string_pack lds si,adr_string_pack add si,len_string_pack-2 les di,adr_string mov cx,9 cycl: xor ax,ax std lodsb shl ax,4 rol al,4 or ax,3030h xchg ah,al cld stosw loop cycl mov bx,1 mov cx,len_string lds dx,adr_string mov ah,40h int 21h mov ah,4ch xor al,al int 21h end begin

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Malder! Смотрите приложение. Вы делили на байт т.е. остаток от деления находился в AH, и следующей командой (CBW) затирали его. Удачи! Приложение: .model small .186 .stack 4000h .data a dw 270 b dw -5 code begin: mov ax,@data mov ds,ax mov es,ax ;само деление со знаком mov ax,a idiv b ;запоминаем остаток от деления push dx ;вывод целого со знаком call outNumber ;вывод разделителя mov al,'.' int 29h ;вывод остатка pop ax call outNumber ;выход mov ah,4ch xor al,al int 21h ;проверяем знак outNumber: or ax,ax ;если число положительное переходим jns noMinus ;выводим знак минус push ax mov al,'-' int 29h pop ax ;преобразовываем в прямой код dec ax not ax ;теперь в АХ абсолютное значение ;будем делить на 10 и считать цифры для оператора loop noMinus: mov bx,10 xor cx,cx ;делим на 10 число в АХ div10: xor dx,dx div bx ;запоминаем остаток от деления в стеке в нужном порядке push dx ;считаем количество цифр в стеке inc cx ;повторяем пока АХ больше 0 or ax,ax jnz div10 ;извлекаем цифру из стека out10: pop ax ;переводим в символ и выводим or al,30h int 29h ;повторяем пока СХ больше 0 loop out10 ret end begin --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 27.12.2007, 12:36

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