VPF::Ответьте на вопрос плиз. - Форум программистов

ShadowMaster

Дата 8.5.2006, 21:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 6.5.2006

Репутация: нет
Всего: нет

У меня есть прога, которая удваивает информацию которая есть в файле 1.txt и переносить удвоенную информацию в файл 2.txt. Подскажите плиз где в ней поставить условие чтобы она удваивала только буквы 'a' а не всю информацию.
Заранее спасибо

Код


include macro.lib
stec segment 'stack'
 dw 256 dup(?)
stec ends
data segment

 filename db '1.txt'
 handle dw ?

 filename2 db '2.txt'
 handle1 dw ?

 str db 1024 dup (' ')
 buflen equ $-str
 strlen dw ?
 str2 db 1024 dup (' ')
 cp2 dw 80

 mes0 db 'Soderzjimoe 1ogo faila:$'
 mes1 db 'Soderzjimoe 2ogo faila:$'
data ends
code segment 'code'
 begin proc far
  assume cs:code,ds:data,ss:stec
  mov ax,data
  mov ds,ax
  cls
  move_cursor 0,0

  mov ah,3dh
  mov al,2
  lea dx,filename
  int 21h
  mov handle,ax
  
  mov ah,3fh
  mov bx,handle
  mov cx,buflen
  lea dx,str
  int 21h

  mov strlen,ax

  mov ah,3eh
  mov bx,handle
  int 21h

  mov cx,strlen
  mov bx,cx
  mov al,'$'
  mov str[bx],al
  message mes0
  crlf
  message str
  crlf
  crlf

  lea di,str
  lea si,str2
  mov cx,strlen
  
 m1:
   mov al,[di]
   mov [si],al
   inc si
   inc cp2
   inc di
 loop m1

   mov al,' '
   mov [si],al
   inc si
  lea di,str
  mov cx,strlen
;  add cx,1
 m2:
   mov al,[di]
   mov [si],al
   inc si
   inc cp2
   inc di
  m3:
  loop m2
 
  message mes1
  crlf
  message str2
  crlf
  mov al,' '
  mov [si],al

  mov cx,0
  mov ah,3ch
  mov al,0
  lea dx,filename2
  int 21h
  mov handle1,ax

  mov ah,40h
  mov bx,handle1
  mov cx,cp2
  lea dx,str2
  int 21h

  mov ah,3eh
  mov bx,handle1
  int 21h

  mov ah,4ch
  int 21h
 ret
 begin endp
code ends
end begin

Exekutor

Дата 10.5.2006, 18:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 440
Регистрация: 1.11.2005
Где: Казахстан. Костан ай

Репутация: нет
Всего: 4

ShadowMaster, Хоть бы комментарии расставил, что-ли...

--------------------

[color=blue][size=2]En taro addun, ma sol larinas[/size][/color]

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Asm: Общие вопросы \| Следующая тема »