Перехватить прерывание ah=09h int 21h - изменить регистр символов

@Lici · Регистрация: 23.06.2016

Студворк — интернет-сервис помощи студентам

Задача: Перекрыть девятую функцию прерывания 21h таким образом, чтобы в выводимой строке маленькие буквы заменялись большими, а большие на маленькие. Не могу понять в чём у меня ошибка, да и толковой информации по обработке прерываний так и не нашёл. Пожалуйста, посмотрите следующий код, может хоть вы найдёте ошибку( Да и если не трудно, напишите где можно доходчиво почитать про обработку прерываний в ассемблере. Заранее спасибо за внимание!

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
.model small
.stack
.data
    a dw ?
    old_handler dd ?
    string db 255 dup(?), '$'
.code
    assume ds:@data, es:@data
int_handler proc
    cld
    lea di, string
    lea si, string
    mov cx, a
again:
    lods string
    cmp al, 'A'
    jbe big_to_small
    cmp al, 'Z'
    jae big_to_small
    cmp al, 'a'
    jbe small_to_big
    cmp al, 'z'
    jae small_to_big
    jmp just_label
big_to_small:
    add al, 32
    jmp just_label
small_to_big:
    sub al, 32
just_label:
    stos string
    loop again
    iret
int_handler endp
 
main:
    mov ax, @data
    mov ds, ax
 
    mov ax, 3509h
    int 21h
    mov word ptr old_handler, bx
    mov word ptr old_handler + 2, es
    
    mov ax, 2509h
    mov dx, seg int_handler
    mov ds, dx
    mov dx, offset int_handler
    int 21h
    
    cld
    lea di, string
    mov cx, 255
    mov a, 0
cycle:
    mov ah, 01h
    int 21h
    cmp al, 13
    je string_ok
    stos string
    inc a
    loop cycle
string_ok:
    mov ah, 09h
    int 21h
    
    lds dx, old_handler
    mov ax, 2509h
    int 21h  
    
    mov ax, 4c00h
    int 21h
end main

@Lici · 13.12.2016, 18:07 **[ТС]**

В общем я почти всё исправил, и вот с какими проблемами я столкнулся:
1)

Assembler
1
2
3
mov   dx,new21
;[...]
new21:

Не представляю как это возможно реализовать, может это навороченность FASM, но я не уточнял, в общем я в этом фрагменте сослался на процедуру.
2)Тут тоже не совсем понял как нужно восстановить вектор:

Assembler
1
jmp    far dword [old21]

В общем вот код, который получился:

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
.model small
.stack
.data
    a dw ?
    old21 dw 0,0
    string db 255 dup(?), '$'
.code
    assume ds:@data, es:@data
    
New21 proc 
    cmp ah, 09h
    jne @Boom
    cld
    lea di, string
    lea si, string
    mov cx, a
@compare:
    lodsb
    mov ah, al
    sub ah, 41h 
    cmp ah, 39h 
    ja @skip
    xor al, 20h
    stosb
@skip: 
    loop @compare
@Boom:
    iret
New21 endp
    
main:
    mov ax, @data
    mov ds, ax
 
    mov ax, 3521h
    int 21h
    mov word[old21], bx
    mov word[old21+2], es
    
    cld
    lea di, string
    mov cx, 255
    mov a, 0
cycle:
    mov ah, 01h
    int 21h
    cmp al, 13
    je string_ok
    stosb
    inc a
    loop cycle
string_ok:
    mov ax, 2521h
    call New21
    int 21h
    jmp far dword [old21]  
    
    mov ax, 4c00h
    int 21h
end main

@R71MT · 14.12.2016, 21:23

Сообщение от Lici

В общем вот код, который получился

Не правильно..
Указатель на обработчик смотрит в космос, нет вызова AH=9 (собственно, для чего и вся программа), etc. TASM'a у меня нет, протестить не могу, но на вскидку должно быть примерно так:

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
.386
.model small
.stack 100h
 
.data
    a        dw  0             ; длина строки
    string   db  255 dup('$')  ; приёмный буфер
 
.code
main:  
       mov   ax,@data
       mov   ds,ax
       mov   es,ax
 
; сохраняем оригинальный вектор(21h) в переменную 'old21'
       push  es
       mov   ax,3521h
       int   21h
       mov   word[old21],bx
       mov   word[old21+2],es
       pop   es
 
; устанавливаем свой обработчик(21h) на 'New21'
       mov   ax,2521h
       lea   dx,New21
       int   21h
 
; вводим строку..
       lea   di,string
@inp:  mov   ah,01h
       int   21h
       cmp   al,13
       je    @ok
       stosb
       inc   a            ;считаем длину строки
       jmp   @inp
 
@ok:   mov   ah,9         ;выводим строку на экран!
       lea   dx,string
       int   21h  
 
       xor   ax,ax        ;wait..
       int   16h
       mov   ax,4C00h     ;exit
       int   21h
end main
;-----------------------------------
New21  proc 
       cmp   ah,09h
       jne   @old         ;если не fn.09h
       lea   di,string
       mov   si,di
       mov   cx,a
@cmp:  lodsb
       mov   ah,al
       sub   ah,41h 
       cmp   ah,39h 
       ja    @skip
       xor   al,20h
@skip: stosb
       loop  @cmp
 
@old:  db    0EAh         ;опкод 'jmp far'
old21  dw    0,0          ;оригинальный вектор(21h)
New21  endp

Добавлено через 9 минут
ЗЫ// ..в обработчике - метку @skip нужно перенести выше, на stosb

ФедосеевПавел · 14.12.2016, 21:40

R71MT, поправить в собщении? на

Assembler
60
61
@skip: stosb
       loop  @cmp

@R71MT · 14.12.2016, 21:48

ФедосеевПавел, я заметил уже после 5-ти минут.. Хорошо-бы подправить, ато DI будет отставать

ФедосеевПавел · 14.12.2016, 22:06

Поправил.
Я в таких случаях добавляю сообщение и снова даются 5 минут.

@Ethereal · 14.12.2016, 23:51

Сообщение от Lici

И как же мне исправить ошибку?)

Перехватываешь прерывание 21h и

Сообщение от Ethereal

В обработчике прерывания проверяешь значение AH и если оно то, что собираешься перекрыть - обрабатываешь сам, а нет так передаешь управление дальше по цепочке обработчиков прерываний.

Добавлено через 3 минуты

Сообщение от R71MT

New21 proc
cmp ah,09h
jne @old ;если не fn.09h
lea di,string
mov si,di
mov cx,a
@cmp: lodsb
mov ah,al
sub ah,41h
cmp ah,39h
ja @skip
xor al,20h
@skip: stosb
loop @cmp
@old: db 0EAh ;опкод 'jmp far'
old21 dw 0,0 ;оригинальный вектор(21h)
New21 endp

Как ты вольно пишешь обработчики прерываний. Регистры cx si di испоганил и еще считаешь, что имея выставленный флаг направления функцию 9 прерывания 21h вызвать не могут.

Добавлено через 1 минуту
Да еще и передаешь на старый обработчик int 21h какое попало AH. Исполняй MS-DOS какую попало функцию, исполняй.

Добавлено через 13 минут
Вот мой вариант обработчика прерывания :

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
ISR:    pushf
        cmp     ah, 9
        jne     @@@
        push    bx
        mov     bx, dx
@:      mov     al, [bx]
        cmp     al, '$'
        je      @@
        cmp     al, 'A'
        jb      Next
        cmp     al, 'Z'
        jbe     Change
        cmp     al, 'a'
        jb      Next
        cmp     al, 'z'
        ja      Next
Change: xor     byte ptr [bx], 20h
Next:   inc     bx
        jmp     @
 
@@:     pop     bx
        ;AL можно портить потому, что функция 9 int_21h сама его испортит
@@@:    popf
        db      0EAh
old_off dw      ?
old_seg dw      ?

@R71MT · 15.12.2016, 05:44

Сообщение от Ethereal

Регистры cx si di испоганил

..кому они нужны эти регистры? И флаги тут не зачем сохранять.
А вот AH - то это да.. Нужно было сохранить на входе только АХ

@Ethereal · 16.12.2016, 03:26

Ну, мой обработчик можно сразу резидентом повесить. И он простой и короткий.

Сообщение от R71MT

..кому они нужны эти регистры? И флаги тут не зачем сохранять.

Да любая резидентная программа, что обращается к функциям MS-DOS, повесится, если 21h-е прерывание будет похабить регистры, которые не должно трогать. Короче, когда-то существовало искусство программирования под MS-DOS. Но тут приходит поколение пользователей DosBox и начинает писать так, что волосы дыбом становятся.

@R71MT · 16.12.2016, 06:56

Сообщение от Ethereal

Да любая резидентная программа

Непонял, при чём резидентная программа, когда после AH=9 идёт выход из программы?
Ясно, что это код не для резидента, а чисто для этого случая

Сообщение от Ethereal

Но тут приходит поколение пользователей DosBox

..даже не знаю, что это такое.

Сообщение от Ethereal

Короче, когда-то существовало искусство программирования под MS-DOS.

Твой код с кучей проверок явно не тянет на искусство..

@Constantin Cat · 17.12.2016, 03:39

R71MT, обработчик прервания, любого, аппаратного-программоного, и т.д. прерывает программу, которая выполняется в данный момент. Скажите какая вероятность, что прерывание произойдет(юзер кофе на клаву пролил, выключил/включил блок питания на ноуте и т.п.) в момент выолнения цикла и строковых команд.

Нормальный обработчик не портит регистры без надобности, тут я согласен с Ethereal.

@R71MT · 17.12.2016, 06:33

Constantin Cat, ясно. Хорошо что напомнили, ато уже начал подзабывать такие тонкости..

Новые блоги и статьи Все статьи Все блоги /
Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .

@R71MT Эксперт Hardware 6215 / 2449 / 403 Регистрация: 29.07.2014 Сообщений: 3,180 Записей в блоге: 4
	14.12.2016, 21:48
	ФедосеевПавел, я заметил уже после 5-ти минут.. Хорошо-бы подправить, ато DI будет отставать 1

ФедосеевПавел Модератор 8665 / 4502 / 1670 Регистрация: 01.02.2015 Сообщений: 13,933 Записей в блоге: 13
	14.12.2016, 22:06
	Поправил. Я в таких случаях добавляю сообщение и снова даются 5 минут. 0

@Constantin Cat 3410 / 1829 / 489 Регистрация: 28.02.2015 Сообщений: 3,696
	17.12.2016, 03:39
	R71MT, обработчик прервания, любого, аппаратного-программоного, и т.д. прерывает программу, которая выполняется в данный момент. Скажите какая вероятность, что прерывание произойдет(юзер кофе на клаву пролил, выключил/включил блок питания на ноуте и т.п.) в момент выолнения цикла и строковых команд. Нормальный обработчик не портит регистры без надобности, тут я согласен с Ethereal. 1

@R71MT Эксперт Hardware 6215 / 2449 / 403 Регистрация: 29.07.2014 Сообщений: 3,180 Записей в блоге: 4
	17.12.2016, 06:33
	Constantin Cat, ясно. Хорошо что напомнили, ато уже начал подзабывать такие тонкости.. 1