Вопрос № 175099:
   

   Здравствуйте, уважаемые эксперты!
помогите написать программу::

при нажатии клавиши F или ALT+F осуществить поиск меток тома на всех логических дисках и вывести их в текстовый файл, который будет назван по текущему системному времени

если можно, прошу листинг с комментами)
Операционная система : MS-DOS, запущенная в Microsoft Virtual PC  на Win XP SP 1
предпочтительней среда MASM

в приложении прилагаю код обработки нажатия клавиш F или ALT+F
(возможно эта информация будет
полезной
текущее системное время
mov ah,2Ch  в AH всегда указывается номер функции
int 21h   вызываем прерывание 21h – сервис 
получения сист. информации)

  
   

   Отправлен: 10.12.2009, 05:31

   Вопрос задал: apm-020, Посетитель 

   Всего ответов: 1

   Страница вопроса »
   

    Отвечает Лысков Игорь Витальевич, Модератор :

    Здравствуйте, apm-020.
Программа в приложении.
Что непонятно, спрашивайте в мини-форуме.       
     

     Приложение:

     assume cs:CSEG,ds:CSEG,es:CSEG,ss:CSEG
CSEG segment
 org 100h
Start:
 mov ah,9
 mov dx,offset String
 int 21h
Next_key:
 mov ah,8 ;ждем клавишу (лучше использовать ДОС-овскую функцию,
 int 21h ; т.к. она дает расширенные коды)
 cmp al,\'f\' ;f
 jz F_pressed
 cmp al,21h ;alt-f
 jne Next_key

F_pressed:  ;поехали :)
 lea dx,DTA
 mov ah,1ah
 int 21h ;сначала поменяем DTA, необходимую для поиска

 call open_file ;создадим и откроем файл с именем текущей даты
 mov di,ax ;сохраним handle файла

 mov si,1 ;начинаем обход всех дисков с A:
MLoop:
 mov bx,si ;Флоппи и флеш-диски и другие removable не рассматриваем
 mov ax,4408h
 int 21h
 jc MNext ;если ошибка (например, устройства нет вообще)
 test ax,ax
 jz MNext ;0-removable

 mov ax,4409h;также обойдем CD, DVD, SUBST и сетевые диски
 int 21h
 jc MNext
 test dh,10010000b ;бит 15 - subst-drive, бит 12 - remote-drive
 jnz MNext
   ;Ура! Hard-drive: узнаем имя тома и выведем в файл
 lea bx,buffer ;буфер для строки
 xchg bx,di  ;bx = handle файла, di = адрес буфера
 mov ax,\':@\'  ;заготовка для \'A:\' для буковки диска
 add ax,si  ;1 - \'A\',...
 stosw   ;в буфер
 mov word ptr path,ax;одновременно формируем строку для поиска имени тома
 mov al,\' \'  ;отделим пробелом
 stosb

 lea dx,path  ;ищем
 mov ah,4eh
 mov cx,8  ;volume label !
 int 21h
 jc MNext  ;ошибка...
 push si  ;в si у нас номер устройства, сохраним в стеке
 lea si,DTA+1eh ;адрес имени тома в DTA (заканчивается 0)
CopyLoop:
 lodsb   ;скопируем в буфер
 test al,al
 jz endl
 stosb
 jmp CopyLoop
endl:
 pop si
 mov ax,0a0dh ;конец строки
 stosw
 lea dx,buffer ;адрес буфера
 mov cx,di
 sub cx,dx  ;длина строки
 mov ah,40h
 int 21h  ;пишем в файл
 mov di,bx  ;сохраним handle файла
MNext:
 inc si  ;на следующее устройство
 cmp si,\'Z\'-\'A\'+1 ;до \'Z\'
 jbe MLoop
 
 mov ah,3eh  ;закроем файл
 int 21h

 lea dx,Finish ;выведем строку
 mov ah,9
 int 21h

 mov ah,0  ;и ждем нажатия на клавишу
 int 16h
 
 mov ax,4c00h
 int 21h

open_file proc  ;формируем имя файла из текущего времени
 mov ah,2ch  ;запрос времени
 int 21h
 mov al,ch  ;часы
 aam   ;хитрая команда :) превращает число из al в неупакованный BCD
 xchg al,ah  ; надо поменять местами (пусть в al будет старшая цифра)
 or ax,\'00\'  ;превратим числа в символы
 mov hours,ax ;сохраним

 mov al,cl  ;аналогично с минутами
 aam
 xchg al,ah
 or ax,\'00\'
 mov minutes,ax

 lea dx,FName ;имя файла
 mov cx,0  ;без атрибутов
 mov ah,3ch  ;создаем и открываем одновременно
 int 21h
 ret   ;вернем в ax handle файла
open_file endp

String db \'Press f or alt+f:$\'
Finish db 0dh,0ah,\'MISSION COMPLETE. press any key$\'

FName label byte
hours dw 0
 db \'_\'
minutes dw 0
 db \'.txt\',0

path db \'a:\*.*\',0
DTA db 43 dup (0)
buffer db 17 dup (0)

CSEG ends
 end Start


-----
Удачи!    

    Ответ отправил: Лысков Игорь Витальевич, Модератор 

    Ответ отправлен: 14.12.2009, 11:38

Украина, Кировоград
Тел.: +380957525051
ICQ # 234137952 
Mail.ru-агент: igorlyskov@mail.ru 
Абонент Skype: igorlyskov 

Оценка ответа: 5
Комментарий к оценке:
ОТЛИЧНАЯ РАБОТА!
Великолепный эксперт и золотой души человек!
    

    

    
Как сказать этому эксперту "спасибо"?
    

    
Отправить SMS #thank 257709 
    на номер 1151 (Россия) | 
    Еще номера »
    
    

    
    
    
    
    
    

    
Отправить WebMoney:
    
    Неплохо (30 руб.)
    Хорошо (40 руб.)
    Отлично (55 руб.)
    БЛЕСТЯЩЕ! (80 руб.)
     
    
    
    
    
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
    
   

   
   Вопрос № 175157:
   

   Здравствуйте уважаемые эксперты! Помогите решить задание.   1 Ввод пятиразрядных чисел в ячейки ОЗУ. Программа должна обеспечить ввод последовательности ASCII-кодов десятичных цифр (не длиннее пяти), перекодировку в "8421", упаковку в десятичное число (первый введенный символ - старшая цифра) и размещение в ячейке ОЗУ. ASCII-коды не-цифр игнорировать
   

   Отправлен: 12.12.2009, 12:46

   Вопрос задал: Зотов Александр Петрович, Посетитель 

   Всего ответов: 1

   Страница вопроса »
   

    Отвечает Лысков Игорь Витальевич, Модератор :

    Здравствуйте, Зотов Александр Петрович.
Решение без перекодировки в "8421" в приложении.    
     

     Приложение:

     RD #0 ;сначала будет 0
wr R1 ;здесь будем накапливать наше число
RD #5 ;максимум 5 цифр
wr R5 ;сохраним
RDI #101 ;команда очистки буфера
out 1 ; для клавиатуры
RDI #102 ; команда сброса ошибки
out 1 ; для клавиатуры
RDI #10 ; команда разрешения МВУ
OUT 1 ; для клавиатуры без прерываний (по опросу)
RDI #103 ; команда установки посимвольного ввода
out 1 ; для клавиатуры
LOOP:IN 2 ; читаем регистр состояния клавиатуры
DIV #10 ; делим на 10, чтобы второй разряд готовности стал в первом разряде
WR R3 ; сохраним
DIV #2 ; разделим на 2
MUL #2 ; умножим на 2
SUB R3 ; отнимем сохранное
JZ LOOP ; если четное, то нет кода в буфере, идем на цикл
IN 0 ; считываем код с клавиатуры
wr R2 ; сохраним
jz SAVE ; было просто нажатие на "Завершить ввод"
sbi #48 ; <\'0\' ;проверим на цифру
js RESET ; игнорируем, на сброс клавиатуры
sbi #10 ; >\'9\'
jns RESET ; игнорируем, на сброс клавиатуры
adi #10 ;восстановим число 0-9
wr r2 ; сохраним
rd r1 ; наше число
mul #10 ; умножаем на 10
add r2 ; добавляем введенный символ
wr r1 ; и на сохранение
jrnz r5,RESET ; ждем максимум 5 цифр
SAVE:rd #100 ;адрес ячейки, куда запишем результат
wr r0 ; будем адресовать через R0
rd r1 ; введенное число
wr @r0 ; сохраняем в памяти
hlt ; останов
RESET:RDI #101 ; команда сброса
out 1 ; в клавиатуру
RDI #103 ; команда установки посимвольного ввода (сбрасывается при сбросе)
out 1 ; в клавиатуру
jmp LOOP ; на чтение состояния клавиатуры


-----
Удачи!    

    Ответ отправил: Лысков Игорь Витальевич, Модератор 

    Ответ отправлен: 14.12.2009, 13:40

Украина, Кировоград
Тел.: +380957525051
ICQ # 234137952 
Mail.ru-агент: igorlyskov@mail.ru 
Абонент Skype: igorlyskov 

Оценка ответа: 3
    

    

    
Как сказать этому эксперту "спасибо"?
    

    
Отправить SMS #thank 257713 
    на номер 1151 (Россия) | 
    Еще номера »
    
    

    
    
    
    
    
    

    
Отправить WebMoney:
    
    Неплохо (30 руб.)
    Хорошо (40 руб.)
    Отлично (55 руб.)
    БЛЕСТЯЩЕ! (80 руб.)
     
    
    
    
    
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
    
   

   
   Вопрос № 175161:
   

   Здравствуйте уважаемые эксперты! 

Код:
       ideal
        model tpascal

        codeseg

extrn  zero_divide:near, over:near
public add_proc,sub_proc,mul_proc,div_proc

proc add_proc near
     arg a:word, b:word, var1:dword
     push ds

     lds
 si, [var1]
     cwd
     mov  ax, [a]
     mov  bx, [b]
     add  ax, bx
     jo  @@overflow
     mov [si], ax
     jmp @@exit
@@overflow:
     call over
@@exit:
     pop  ds
     ret
endp add_proc

proc sub_proc near
     arg a:word, b:word, var1:dword
     push ds

     lds  si, [var1]
     cwd
     mov  ax, [a]
     mov  bx, [b]
     sub  ax, bx
     jo  @@overflow
     mov [si], ax
     j
 mp @@exit
@@overflow:
     call over
@@exit:
     pop  ds
     ret
endp sub_proc

proc mul_proc near
     arg a:word, b:word, var1:dword
     push ds

     lds  si, [var1]
     cwd
     mov  ax, [a]
     mov  bx, [b]
     imul bx
     jo  @@overflow
     mov [si], ax
     jmp @@exit
@@overflow:
     call over
@@exit:
     pop  ds
     ret
endp mul_proc

proc div_proc near
     arg a:word, b:word, var1:dword
     push ds


    lds  si, [var1]
     mov  ax, [a]
     mov  bx, [b]
     cmp  bx, 0
     je   @@zero
     cwd
     idiv bx
     mov [si], ax
     jmp @@exit
@@zero:
     call zero_divide
@@exit:
     pop  ds
     ret
endp div_proc

     end


Вот это пример программы с асм. процедурами, которые используются паскаль-программой. Меня интересует почему после входа в каждую из процедур мы заносим в стек значение регис
 тра DS, а в метке выхода выталкиваем его. Также почему перед меткой нужно ставить два cимвола @. Объясните пожалуйста. Спасибо большое. 

P.S. Среда DOS\Win32
   

   Отправлен: 12.12.2009, 14:16

   Вопрос задал: Николай // Programmator , Студент 

   Всего ответов: 2

   Страница вопроса »
   

    Отвечает Лысков Игорь Витальевич, Модератор :

    Здравствуйте, Николай // Programmator .
1) Паскалевские программы считают, что регистр DS указывает на сегмент данных, 
поэтому процедуры на других языках, в частности, на Ассемблере, не должны нарушать принятый порядок.
Теперь смотрим на все подпрограммы, и что мы видим? Везде стоит команда lds, которая загружает
длинный указатель, и, соответственно, портит DS! Отсюда и необходимость сохранить где-то DS, например, в стеке!
2)Символами @@ отмечаются локальные метки, которые действуют
внутри PROC...ENDP.
Обратите внимание, что во всех процедурах одни и те же имена меток. И никаких конфликтов!
Вообще говоря, это справедливо только в режиме IDEAL. В режиме MASM это не пройдет. 
Там надо еще указать явно LOCALS @@. Т.е., явно объявить все метки, начинающиеся с указанных, локальными.    

-----
Удачи!    

    Ответ отправил: Лысков Игорь Витальевич, Модератор 

    Ответ отправлен: 12.12.2009, 18:02

Украина, Кировоград
Тел.: +380957525051
ICQ # 234137952 
Mail.ru-агент: igorlyskov@mail.ru 
Абонент Skype: igorlyskov 

Оценка ответа: 5
Комментарий к оценке:
Спасибо Вам большое за подробный и ясный ответ!
    

    

    
Как сказать этому эксперту "спасибо"?
    

    
Отправить SMS #thank 257641 
    на номер 1151 (Россия) | 
    Еще номера »
    
    

    
    
    
    
    
    

    
Отправить WebMoney:
    
    Неплохо (30 руб.)
    Хорошо (40 руб.)
    Отлично (55 руб.)
    БЛЕСТЯЩЕ! (80 руб.)
     
    
    
    
    
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
    
    Отвечает Колесников Иван Владимирович, 3-й класс :

    Здравствуйте, Николай // Programmator .
push/pop DS - мы сохраняем регистр DS на входе и восстанавливаем на выходе, т. к. его значение изменяется lds. Для программы на Паскале разрушение значения этого регистра приведёт к невозможности обратится к сегменту данных.
@@ - префикс локальных меток, которые не должны быть доступны вне процедур.    
    

    Ответ отправил: Колесников Иван Владимирович, 3-й класс 

    Ответ отправлен: 12.12.2009, 18:04

Оценка ответа: 4
    

    

    
Как сказать этому эксперту "спасибо"?
    

    
Отправить SMS #thank 257642 
    на номер 1151 (Россия) | 
    Еще номера »
    
    

    
    
    
    
    
    

    
Отправить WebMoney:
    
    Неплохо (30 руб.)
    Хорошо (40 руб.)
    Отлично (55 руб.)
    БЛЕСТЯЩЕ! (80 руб.)
     
    
    
    
    
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
    
 

 

 Оценить выпуск »

 Нам очень важно Ваше мнение об этом выпуске рассылки!
 

 

 
  
Задать вопрос экспертам этой рассылки »
 

 
Скажите "спасибо" эксперту, который помог Вам!

 
 Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА

 на короткий номер 1151 (Россия)

 Номер ответа и конкретный текст СМС указан внизу каждого ответа.
 

 Полный список номеров »
 
 

 
 * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
 (полный список тарифов)

 ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.

 *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
 

 
 
 

 
© 2001-2009, Портал RFpro.ru, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2009.6.12 от 30.11.2009