Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:assem / задачи на экзамен / 25
.txt 25. Дан символьный массив из N элементов. Написать процедуру замены в нем всех чисел на пробелы.
data_sg segment
a db 'q','4','w','5','e','6','r'
n=$-a
data_sg ends
code_sg segment
assume cs:code_sg, ds:data_sg
sergey proc
xor si,si
m2:
mov al,a[si]
cmp al,'0'
jl m1
cmp al,'9'
jg m1
mov al,' '
mov a[si],al
m1:
inc si
cmp si,n
jl m2
ret
sergey endp
start:
mov ax,data_sg
mov ds,ax
call sergey
mov ax,4c00h
int 21h
ret
code_sg ends
end start
data_sg segment
a db 'q','4','w','5','e','6','r'
n=$-a
data_sg ends
code_sg segment
assume cs:code_sg, ds:data_sg
sergey proc
xor si,si
m2:
mov al,a[si]
cmp al,'0'
jl m1
cmp al,'9'
jg m1
mov al,' '
mov a[si],al
m1:
inc si
cmp si,n
jl m2
ret
sergey endp
start:
mov ax,data_sg
mov ds,ax
call sergey
mov ax,4c00h
int 21h
ret
code_sg ends
end start
Соседние файлы в папке задачи на экзамен