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

Выпуск № 925
от 10.12.2007, 16:05

Вопрос № 112.332

Здравствуйте эксперты. У меня вопрос про прерывание от звуковой карты, т.е. я хотел бы узнать, при каких условиях оно вызывается?

Отправлен: 04.12.2007, 16:59 Вопрос задал: Мясников Антон Евгеньевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Алин Сергей Владимирович Здравствуйте, Мясников Антон Евгеньевич! Насколько я помню в BIOS не имеет прерываний звуковой карты.

Ответ отправил: Алин Сергей Владимирович (статус: 1-ый класс) Ответ отправлен: 04.12.2007, 17:50 Оценка за ответ: 3 Комментарий оценки: Оно просто не имеет фиксированного номера. Номер указывается в переменной окружения "BLASTER" или в в диспетчере устройств на вкладке ресурсы

Вопрос № 112.355

Хочу изучать ассемблер, прочел по этому предмету много всяких текстов, но на практике у меня ничего не получается изначально. Ответов компиляторов было только два, это fotal error и (если в командной сроке) "не правильное имя " и тому подобное. Устанавливал TASMы и MASMы разных версий но результаты аналогичные. Много раз пытался найти, что-нибудь по работе с TASMом типа русского хэлпа - все безполезно (видимо страшный дефицит). Поэтому прошу уважаемых экспертов указать мне на мою ошибку или подсказать где добыть соответствующую информацию. Спасибо.

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

Отвечает: Алин Сергей Владимирович Здравствуйте, Yrsoch! Попробуйте сделать след. образом: Правой кнопкой по "Мой компьютер", "Свойства". На в кладке "Дополнительно" внизу есть кнопка "Переменные среды". Нажимаем, возникает окошко. Найдите во втором списке переменную "PATCH" И нажмите по ней два раза. У меня напримерв значение переменной идёт: "%SystemRoot%system32;%SystemRoot%;%SystemRoot%System32Wbem;g:program filesorlandrokerin;G:Program FilesBorlandDelphi7Bin;G:Program FilesBorlandDelphi7ProjectsBpl". Вам же нужно сделать след. образом: исследуйте содержимое вашей переменной. Все переменные если вы заметили, отделнны друг от друга знаком ";". Так вот, все переменные, начинающиеся с "%SystemRoot%" нужно вынести вперёд (НЕ ЗАПУТАЙТЕСЬ С ;!!!). Все остальные (начинающиеся не с "%SystemRoot%") - назад. После чего можете проверив правильность расставления ;, можно добавить после последней переменной точку с запятой, и прописать путь к подкаталогу /bin/ в папке с TASM (Наприм ер у меня это G: asm5BIN). Имя переменной - TASM. Всё, на этом первая часть настройки заканчивается. Теперь идём в X:WINDOWSsystem32, (где X - имя логического диска, на котором установленна Windows) и находим там cmd.exe. Копируем в G: asm5BIN. Запускаем и вводим "tasm namefile.asm", где namefile.asm - имя исходного файла, который должен лежать в в G: asm5BIN. После данной команды в директории в G: asm5BIN должен появится файл "namefile.obj". P.S. Что бы TASM сгенерировал ещё и листинг компиляции, введите команду "tasm /l namefile.asm" P.S.S. Помоему на WASM.ru был русский help к TASM. -------- Надеюсь, вы поняли, что G: asm5BIN - это в моём частном случае. У вас TASM лежит навреняка в другой директории.

Ответ отправил: Алин Сергей Владимирович (статус: 1-ый класс) Ответ отправлен: 05.12.2007, 07:13

Вопрос № 112.372

Здравствуйте!)помогите пожалуйста мне написать программу, которая получает из системы текущее время и после преобразования в символьную форму выводит его на экран; с некоторыми ограничениями: COM - программа; Ввод с клавиатуры: 1) средствами DOS; г) Вывод на экран: 1) в текстовом режиме; д) Динамическое распределение памяти: 1) определение размера программы; Заранее спасибо)... Извините я уже задавала этот вопрос...но не знала ограничений тогда...

Отправлен: 04.12.2007, 22:43 Вопрос задала: Badbyy (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Алин Сергей Владимирович Здравствуйте, Badbyy! Прям сам код я вам дать насмогу, ибо отправляю вам ответ с КПК и ассемблера у под рукой нет, что бы проверить правильность кода. А вот рассказать как эту задачку решить расскажу. Раз это ком программа, то вы должны будете выделить место под PSP, соот: [ORG 0x0100] Ввод с клавиатуры делается достаточно просто, с помощью JMP - бесконечный цикл. Размер программы считается очень просто, просто считываем смещения меток - и считаем. Про динамическое распределение памяти - это вы загнули. Зачем оно вам здесь?

Ответ отправил: Алин Сергей Владимирович (статус: 1-ый класс) Ответ отправлен: 05.12.2007, 07:22

Отвечает: Boriss Здравствуйте, Badbyy! Я писал подобную пограмму в ответ на вопрос 111015. Посмотрите - если что не так, исправим :)) Приложение: model tiny .386 .code org 100h start: mov AX, 3 int 10h @1: CALL timer mov AH, 0Bh int 21h or AL, AL jz @@1 int 20h timer proc mov AH, 2Ch int 21h cmp CH, h jne @@write cmp CL, m jne @@write cmp DH, s je @@exit @write: CALL Write @exit: ret timer endp Write proc mov h, CH mov m, CL mov s, DH mov DX, clock_crd xor BH, BH mov AH, 2 int 10h mov AL,h CALL WriteAL mov AL,':' int 29h mov AL,m CALL WriteAl mov AL, ':' int 29h mov AL,s CALL WriteAL ret Write endp WriteAL proc xor AH, AH mov BL, 10 div BL add AL, '0' int 29h xchg AL, AH add AL, '0' int 29h ret WriteAL endp h db 100 m db 100 s db 100 clock_crd dw 1847h end start Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск Факультет Электронной Техники WWW: Программирование на Паскале ---- Ответ отправлен: 10.12.2007, 10:39

Вопрос № 112.430

Здравствуйте уважаемые Эксперты! Помогите пожалуйста разобраться с двоично-десятичными числами, никак не могу решить задачку: Написать программу преобразования в двоичную форму упакованного четырёхразрядного двоично-десятичного числа (введённого с клавиатуры) и вывода результата на экран в двоичном виде. программа должна состоять из сегментов данных, кода и стека. TASM И ещё... как можно очистить экран?

Отправлен: 05.12.2007, 12:50 Вопрос задал: Лакин Илья михайлович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Лакин Илья михайлович! Cмотрите приложение. Посмотрите функции 06h / 07h прерывания 10h Удачи! Приложение: MASM;IDEAL or MASM szBcdNumber equ 5 MODEL small stack 50 .186 DATASEG dbBcdMax db szBcdNumber dbBcdLen db ? dbBcd db szBcdNumber dup(?) dbBcdBin db 13,10,'Bcd pack code:$' dbBinBcd db 13,10,'Binary code:$' dbBcdNumber db 13,10,'Enter BCD code:$' CODESEG start: mov ax,@DATA mov ds,ax mov es,ax ;приглашаем ввести BCD число mov ah,09 mov dx,offset dbBCDnumber int 21h ;вводим как строку только 4 символа mov ah,0ah mov dx,offset dbBcdMax int 21h ;настраиваемся на введенную строку xor di,di xor ch,ch mov cl,dbBcdLen mov si,offset dbBcd cld ;упаковываем BCD число ascii2Bcd: shl di,4 lodsb and ax,0fh add di,ax loop ascii2Bcd ;в di-упакрванное BCD число mov ah,09 mov dx,offset dbBcdBin int 21h ;выводим BCD число в 2-ой системе mov ax,di call OutBinCode ;выводим сообщение mov ah,09 mov dx,offset dbBinBcd int 21h ;переводим в 2-ую систему старший байт mov bx,di mov al,bh call Bcd2Hex mov dl,al xor dh,dh ;старший байт умножаем на 100 call mulDx10 call mulDx10 ;переводим младший байт mov al,bl call Bcd2Hex xor ah,ah ;в АХ BCD число переведенное в 2-ую систему add ax,dx ;выводим его call OutBinCode ;выход mov ah,4ch int 21h ;распаковываем BCD число Bcd2Hex: xor ah,ah shl ax,4 shr al,4 aad ret ;выводим слово по битно OutBinCode: mov cx,16 ;цикл вывода 1-го бита OutBin: shl ax,1 push ax mov al,30h adc al,00 int 29h pop ax loop OutBin ret ;умножаем на 10 MulDx10: shl dx,1 mov ax,dx shl dx,2 add dx,ax ret end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 05.12.2007, 18:29 Оценка за ответ: 5 Комментарий оценки: Спасибо!!!

Вопрос № 112.446

Здравствуйте! у меня вопрос как мне сделать ввод и вывод отрицательных чисел... Тут у меня ввод и вывод числа... to_ASCII PROC NEAR MOV ASCII,' ' MOV ASCII+1,' ' xor bx,bx mov cx,0010 lea si,ascii-1 mov bl,3 mov ax,binv c20: cmp ax,0010 jb c30 xor dx,dx div cx or dl,30h mov [si+bx],dl dec bx jmp c20 c30: or al,30h mov [si+bx],al RET to_ASCII ENDP vvod_from_ASCII PROC NEAR mov binv,00 mov mul10,1 MOV CX,0010 LEA SI,NUMB-1 XOR BX,BX MOV BL,READ B20: MOV AL,[SI+BX] AND AX,000Fh mul mul10 add binv,ax mov ax,mul10 mul cx mov mul10,ax dec bx jnz b20 ret vvod_from_ASCII ENDP Приложение: TITLE CODSG SEGMENT PARA 'CODE' lab PROC ASSUME CS:CODSG,DS:CODSG,SS:CODSG,ES:NOTHING ORG 100h ;----------------------------------------- MOV AL,01 MOV AH,03 INT 10h MOV AX,0600h MOV BH,07 MOV CX,0000 MOV DX,184Fh INT 10h ;------------------------------------------ MOV AH,02 MOV BH,00 MOV DH,4 MOV DL,44 INT 10H MOV AH,09 LEA DX,VIVOD2 INT 21H MOV AH,02 MOV BH,00 MOV DH,5 MOV DL,40 INT 10H MOV AH,09 LEA DX,VIVOD1 INT 21H MOV AH,02 MOV BH,00 MOV DH,6 MOV DL,43 INT 10H MOV AH,09 LEA DX,VIVOD3 INT 21H ;-----------------------------------------Y MOV DX,0404h CALL kyrsor MOV AH,09 LEA DX,S_Y INT 21h MOV DX,0411h CALL kyrsor CALL CLEAR_REG CALL VVOD ;----------------------------------------- CALL VVOD_FROM_ASCII MOV AX,BINV MOV Y,AX ;----------------------------------------- ;Vvod ;*************************** CALL CLEAR_REG MOV ax,y mov M,AX ;*************************** ;----------------------------------------- ;-----------------------------------------M CALL CLEAR_REG MOV AX,M mov binv,AX CALL to_ASCII MOV DX,0604h CALL kyrsor MOV AH,09 LEA DX,OTV INT 21h ;----------------------------------------- MOV DX,0608h CALL kyrsor MOV AH,09 LEA DX,ASCII INT 21h ;----------------------------------------- MOV AH,00 INT 16h int 20h RET lab ENDP kyrsor PROC NEAR MOV AH,02 MOV BH,00 INT 10h RET kyrsor ENDP CLEAR_REG proc NEAR xor ax,ax xor bx,bx xor cx,cx xor dx,dx ret CLEAR_REG endp simvol PROC NEAR MOV AH,09h MOV CX,01h MOV BL,02 INT 10h RET simvol ENDP vvod proc near MOV AH,0Ah LEA DX,PEREM INT 21h RET vvod endp to_ASCII PROC NEAR MOV ASCII,' ' MOV ASCII+1,' ' xor bx,bx mov cx,0010 lea si,ascii-1 mov bl,3 mov ax,binv c20: cmp ax,0010 jb c30 xor dx,dx div cx or dl,30h mov [si+bx],dl dec bx jmp c20 c30: or al,30h mov [si+bx],al RET to_ASCII ENDP vvod_from_ASCII PROC NEAR mov binv,00 mov mul10,1 MOV CX,0010 LEA SI,NUMB-1 XOR BX,BX MOV BL,READ B20: MOV AL,[SI+BX] AND AX,000Fh mul mul10 add binv,ax mov ax,mul10 mul cx mov mul10,ax dec bx jnz b20 ret vvod_from_ASCII ENDP mul10 dw 1 binv dw 0 X dw ? Y dw ? K dw ? M dw ? CHI dw ? ZNA dw ? MUN dw ? UMN dw ? S_K DB 'Vvedite K :$' S_X DB 'Vvedite X :$' S_Y DB 'Vvedite Y :$' OTV DB 'M = $' ViVod1 DB 'M = E ----- + k $' ViVod2 DB 'k y^2 $' ViVod3 DB 'n=1 x+n $' ASCII DB 3 DUP(' '),'$' perem LABEL BYTE MAXLN DB 3 READ DB ? NUMB DB 3 DUP('$') CODSG ENDS END LAB

Отправлен: 05.12.2007, 14:02 Вопрос задал: Миляев А. В. (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Boriss Здравствуйте, Миляев А. В.! Исправлять чужое - долго, тем более, что в минифоруме писал кое-что В приложении код программы, в котором две процедуры: ввод и вывод Приложение: .model tiny LOCALS @@ .code org 100h start: mov ax, 3 int 10h mov ax, a CALL inputInAX mov a, ax mov al, ' ' int 29h mov ax, a CALL writeDEC int 20h inputInAX proc push bx ; sign push cx ; 10 push dx ; push si ; summ push di ; for save mov cx, 10 xor si, si xor bx, bx mov ah, 8 int 21h cmp al, '-' jne @@1 int 29h inc bx @1: mov ah, 8 int 21h cmp al, 13 je @@end_of_input cmp al, '0' jb @@1 cmp al, '9' ja @@1 @0: sub al, '0' xor ah, ah mov di, ax mov ax, si mul cx jc @@end_of_input mov si, ax mov ax, di add al, '0' int 29h add si, di jmp @@1 @end_of_input: or bx, bx jz @@2 neg si @2: mov ax, si pop di pop si pop dx pop cx pop bx ret inputInAX endp writeDEC proc ; word in AX is signed integer push ax push bx ; 10 push cx push dx test ax, 8000h jz @@1 push ax mov al, '-' int 29h pop ax neg ax @1: xor cx, cx mov bx, 10 @2: xor dx, dx div bx push dx inc cx or ax, ax jnz @@2 @3: pop ax add al, '0' int 29h LOOP @@3 pop dx pop cx pop bx pop ax ret writeDEC endp a dw ? end start --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск Факультет Электронной Техники WWW: Программирование на Паскале ---- Ответ отправлен: 06.12.2007, 14:29 Оценка за ответ: 5

Отвечает: Зенченко Константин Николаевич Здравствуйте, Миляев А. В.! Cмотрите приложение. Две функции: read:-ввод числа со знаком; write:-вывод числа со знаком; Удачи! Приложение: model tiny .code .186 num_align equ 6 org 100h start: ;программа-тест функций mov ah,09 mov dx,offset inLine int 21h ;вводим число call read ;сообщение mov ah,09 mov dx,offset outLine int 21h ;выводим число mov ax,di call write ;выход ret ;функция вывода с выравниваем ;write(ax:num_align) write: push cx push bx ;проверяем знак mov bl,20h xor cx,cx or ax,ax jns no_minus mov bl,'-' dec ax not ax ;abs(ax)-теперь у нас в АХ абсолютное значение ;делим число на 10 и сохраняем в стеке no_minus: xor dx,dx div word ptr decimal push dx inc cx or ax,ax jnz no_minus ;выводим знак или пробел push cx call ok_align mov al,bl int 29h pop cx ;извлекаем из стека 10-е цифры и выводим их write_number: pop ax or al,30h int 29h loop write_number pop bx pop cx ret ;выравниваем начало вывода числа пробелами ok_align: mov al,20h int 29h inc cx cmp cx,num_align jnz ok_align ret ; decimal dw 10 inLine: db 13,10,'input number:$' outLine: db 13,10,'number:$' ;read(di:integer) read: xor di,di xor cx,cx xor si,si ;цикл ввода числа isLoop: mov ah,07 int 21h ;нажата ли клавиша ENTER cmp al,13 jz isStop ;нажата ли клавиша минус cmp al,'-' jnz checkA ;если минус не первый не выводим or cx,cx jnz isLoop ;ставим флаг минуса mov si,80h ;выводим минус outKey: int 29h jmp short checkB ;контролируем цифры checkA: cmp al,'9' ja isLoop cmp al,'0' jb isLoop ;умножаем DI на 10 shl di,1 mov dx,di shl di,2 add di,dx ;выводим цифру push ax int 29h pop ax ;добавляем в число and ax,0fh add di,ax ;конролируем длинну ввода checkB: inc cx cmp cx,num_align jb isLoop or di,di jns isLoop ;тут должен быть обработчик ошибки ввода isError: ;проверяем флаг минуса isStop: or si,si jz isExit ;преобразовываем в доп.код not di inc di ;возврат из функции isExit: ret end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 06.12.2007, 16:19 Оценка за ответ: 5

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