ХАНДЫФАР

Программа, которая вставляет пробел, когда символ в верхнем регистре следует за символом в нижнем.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string db _"TheQuickBrownFox$"
8. ____strlen equ ($-string)
9. ____newstr db _strlen+4 dup(24h)
10. data ends
12. code segment public
13. ____assume ds:data, cs:code
15. ____main proc
16. ________mov ____ax, seg data
17. ________mov ____ds, ax
18. ________mov ____es, ax
20. ________mov ____cx, strlen
21. ________lea ____di, es:[newstr]
22. ________lea ____si, ds:[string]
23. ________call____ChangeString
25. ________mov ____ah, 09h
26. ________lea ____dx, ds:[newstr]
27. ________int ____21h
29. ________mov ____ax, 4C00h
30. ________int ____21h
31. ____main endp
33. ____ChangeString proc
34. ________push ___ax
35. ________push ___cx
36. ________push ___si
37. ________push ___di
39. ________jmp ____Continue
41. ____CheckStringLoop:
42. ________cmp ____byte ptr[si], 41h
43. ________jb _____Continue
45. ________cmp ____byte ptr[si], 5Ah
46. ________ja _____Continue
48. ________cmp ____byte ptr[si-1], 61h
49. ________jb _____Continue
51. ________cmp ____byte ptr[si-1], 7Ah
52. ________ja _____Continue
54. ________mov ____byte ptr[di], 20h
56. ________mov ____al, byte ptr[si]
57. ________mov ____byte ptr[di+1], al
59. ________inc ____si
60. ________add ____di, 2
61. ________loop ___CheckStringLoop
63. ____Continue:
64. ________movsb
65. ________loop ___CheckStringLoop
67. ________pop ____di
68. ________pop ____si
69. ________pop ____cx
70. ________pop ____ax
71. ________ret
72. ____ChangeString endp
74. code ends
75. end main

Программа, которая вставляет пробел, когда символ в верхнем регистре следует за символом в нижнем.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string db _"TheQuickBrownFox$"
8. ____strlen equ ($-string)
9. ____newstr db _strlen+4 dup(24h)
10. data ends
12. code segment public _________________; Начало сегмента кода
13. ____assume ds:data, cs:code
15. ____main proc _______________________; Начало процедуры main
16. ________mov ____ax, seg data_________; Получаем адрес сегмента памяти данных и сохраняем его в ax
17. ________mov ____ds, ax_______________; Передаём адрес сегмента памяти данных из регистра ax в ds
18. ________mov ____es, ax_______________; Передаём адрес сегмента памяти данных из регистра ax в es
20. ________mov ____cx, strlen___________; Копируем длину байтового массива string в регистр cx
21. ________lea ____di, es:[newstr]______; Загружаем адрес переменной newstr в регистр es:di
22. ________lea ____si, ds:[string]______; Загружаем адрес переменной string в регистр ds:si
23. ________call____ChangeString_________; Вызываем процедуру ChangeString
25. ________mov ____ah, 09h______________; Копируем значение функции вывода строки в регистр ah
26. ________lea ____dx, ds:[newstr]______; Загружаем адрес переменной newstr в регистр ds:dx
27. ________int ____21h__________________; Вызываем прерывание
29. ________mov ____ax, 4C00h____________; Копируем значение функции завершения в ah а значение в al
30. ________int ____21h__________________; Вызываем прерывание
31. ____main endp _______________________; Конец процедуры main
33. ____ChangeString proc________________; Начало процедуры ChangeString
34. ________push ___ax___________________; Сохраняем значение регистра ax в стеке
35. ________push ___cx___________________; Сохраняем значение регистра cx в стеке
36. ________push ___si___________________; Сохраняем значение регистра si в стеке
37. ________push ___di___________________; Сохраняем значение регистра di в стеке
39. ________jmp ____Continue_____________; Выполняем безусловный переход на метку Continue
41. ____CheckStringLoop:
42. ________cmp ____byte ptr[si], 41h____; Сравниваем значение в регистре si с 'A'
43. ________jb _____Continue_____________; Если значение в si ниже чем 'A', то прыгаем на Continue
45. ________cmp ____byte ptr[si], 5Ah____; Сравниваем значение в регистре si с 'Z'
46. ________ja _____Continue_____________; Если значение в si выше чем 'Z', то прыгаем на Continue
48. ________cmp ____byte ptr[si-1], 61h__; Сравниваем значение в регистре si-1 с 'a'
49. ________jb _____Continue_____________; Если значение в si-1 ниже чем 'a', то прыгаем на Continue
51. ________cmp ____byte ptr[si-1], 7Ah__; Сравниваем значение в регистре si-1 с 'z'
52. ________ja _____Continue_____________; Если значение в si-1 выше чем 'z', то прыгаем на Continue
54. ________mov ____byte ptr[di], 20h____; Копируем значение пробела в регистр di
56. ________mov ____al, byte ptr[si]_____; Копируем значение в регистре si в регистр al
57. ________mov ____byte ptr[di+1], al___; Копируем значение регистра al в регистр di+1
59. ________inc ____si___________________; Увеличиваем индекс si на 1
60. ________add ____di, 2________________; Увеличиваем индекс di на 2
61. ________loop ___CheckStringLoop______; Выполняем цикл пока регистр CX≠0
63. ____Continue:
64. ________movsb________________________; Копируем значение из ds:si в es:di. SI++, DI++
65. ________loop ___CheckStringLoop______; Выполняем цикл пока регистр CX≠0
67. ________pop ____di___________________; Выталкиваем значение из стека в регистр di
68. ________pop ____si___________________; Выталкиваем значение из стека в регистр si
69. ________pop ____cx___________________; Выталкиваем значение из стека в регистр cx
70. ________pop ____ax___________________; Выталкиваем значение из стека в регистр ax
71. ________ret__________________________; Возврат из процедуры
72. ____ChangeString endp________________; Конец процедуры ChangeString
74. code ends ___________________________; Конец сегмента кода
75. end main ____________________________; Конец файла. Точкой входа указывается процедура main