Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:assem / задачи на экзамен / 5
.txt 5. Написать процедуру замены в символьном массиве всех встречающихся символов $ на пробелы.
model small
data_sg segment
a db 'asd$tyu&$qwe'
n=$-a
.stack 100h
data_sg ends
code_sg segment
assume cs:code_sg, ds:data_sg
gulko proc
xor si,si
m2:
mov al,a[si]
cmp al,'$'
jne m1
mov al,' '
mov a[si],al
m1:
inc si
cmp si,n
jl m2
ret
gulko endp
start:
mov ax,data_sg
mov ds,ax
call sergey
mov ax,4c00h
int 21h
ret
code_sg ends
end start
model small
data_sg segment
a db 'asd$tyu&$qwe'
n=$-a
.stack 100h
data_sg ends
code_sg segment
assume cs:code_sg, ds:data_sg
gulko proc
xor si,si
m2:
mov al,a[si]
cmp al,'$'
jne m1
mov al,' '
mov a[si],al
m1:
inc si
cmp si,n
jl m2
ret
gulko endp
start:
mov ax,data_sg
mov ds,ax
call sergey
mov ax,4c00h
int 21h
ret
code_sg ends
end start