Задача на MASM

[sew960i]

помогите написать программу на языке Ассемблер, которая
должна позволять ввести с клавиатуры значения строк S1 и S2 произвольной одинаковой длины.
Переписать из строки S1 в строку S2 сначала все четные элементы, а затем нечетные ( перепись делать в начало строки S2).
Вывести на экран массивы S1, S2 до и после преобразований.
---------------------------------
Пример:
заполняем 1 поле ввода: 948521034
заполняем 2 поле ввода: 743920196
результат:
1 messagebox: 948521034
2 messagebox: 451398204743920196

[Serge_Bliznykov]

во-первых, с таким подходом, Вам, имхо, в раздел Фриланс нужно..

а во-вторых, под какую ОС пишете код? вот это "1 messagebox... 2 messagebox" навевает мысли о том, что вы программируете оконное приложение под Win32, я прав?..

[sew960i]

да нужно на win32
вон у меня есть готовое решение на fasm, но мне нужно на masm...

format PE Console 4.0
entry Start

include 'include\win32a.inc'

section '.text' code readable executable

Start:

  invoke GetStdHandle, [STD_OUTP_HNDL]
  mov [hStdOut], eax
  invoke GetStdHandle, [STD_INP_HNDL]
  mov [hStdIn], eax
  invoke CharToOemA, conTitle,conTitle
  invoke SetConsoleTitleA, conTitle
  test eax, eax
  jz Exit
  invoke CharToOemA, tr,tr
  invoke SetConsoleTextAttribute,[hStdOut],7
  invoke WriteConsoleA, [hStdOut], tr, trLen, chrsWritten, 0
  invoke CharToOemA, mes,mes
  invoke SetConsoleTextAttribute,[hStdOut],10
  invoke WriteConsoleA, [hStdOut], mes, mesLen, chrsWritten, 0
  invoke ReadConsoleA, [hStdIn], readBuf, BufSize - 2, chrsRead, 0
  mov ecx,[chrsRead]
  sub ecx,2
  mov ebx,ecx
  mov esi,readBuf
  mov edi, str1
  rep movsb
  invoke WriteConsoleA, [hStdOut], mes2, mes2Len, chrsWritten, 0
  invoke ReadConsoleA, [hStdIn], readBuf, BufSize2 - 2, chrsRead, 0
  mov ecx,[chrsRead]
  sub ecx,2
  cmp ebx,ecx
  jne .MErr
  push ecx
  mov esi,readBuf
  mov edi, str2
  rep movsb
  call myScript
  add ebx,ebx
  invoke WriteConsoleA, [hStdOut],Ext , ExtLen, chrsWritten, 0
  invoke SetConsoleTextAttribute,[hStdOut],14
  invoke WriteConsoleA, [hStdOut], str4, ebx, chrsWritten, 0
  ;invoke WriteConsoleA, [hStdOut], Ext, ExtLen, chrsWritten, 0
  invoke ReadConsoleA, [hStdIn], readBuf, BufSize2 - 2, chrsRead, 0
  jmp Exit
  .MErr:
  invoke MessageBoxA,0,Ermess,TitErr,0
Exit:
  invoke  ExitProcess, 0
;########### процедура обратботки сток ########################  
  proc myScript
  push esi edi edx
  mov esi,str1	
  mov edi,str4
  mov edx,str3
  .m1:
  mov ax,[esi]
  cmp eax,0
  je .m2
  mov [edx],al
  shr ax,8
  mov [edi],al
  add esi,2
  inc edi 
  inc edx
  jmp .m1
.m2: 
  mov edi,str4
.m3:
  mov al,[edi]
  inc edi
  cmp al,0
  jne .m3
  dec edi
  mov esi,str3
.m4:  
  mov al,[esi]
  cmp al,0
  je .m5
  mov [edi],al
  inc esi
  inc edi
  jmp .m4
.m5:  
  mov esi,str2	
.m6:
  mov al,[esi]
  cmp al,0
  je .m7
  mov [edi],al
  inc esi
  inc edi
  jmp .m6
.m7:  
  pop esi edi edx
  ret
  endp
section '.data' data readable writeable
  NULL = 0
  endl	EQU  0dh,0ah
  conTitle    db 'programm',0
  tr  db 'Задание: Разработать программную систему на языке Ассемблер, которая',endl
      db  'должна позволять ввести с клавиатуры значения строк S1 и S2',endl
      db  'произвольной, одинаковой  длины.',endl
      db  'Переписать из строки S1 в строку S2 сначала все четные,',endl 
      db  'а затем нечетные (перепись делать в начало строки S2).',endl
      db 'Вывести на экран массивы S1, S2 до и после преобразований.',0
  trLen = $-tr
  mes db endl,'Введите строку S1', endl
  mesLen = $-mes
  mes2 db endl,'Введите строку S2', endl
  mes2Len = $-mes2
  Ext db endl, "После преобразования строка S2 имеет такой вид:", endl
  ExtLen = $-Ext
  xx dd 0
  TitErr db "Ошибка",0
  Ermess db "Строки имеют разную длинну",0
  str1 db 80 dup 0
  str2 db 80 dup 0
  str3 db 80 dup 0
  str4 db 160 dup 0
  hStdIn      dd 0
  hStdOut     dd 0
  chrsRead    dd 0
  chrsWritten dd 0
  BufSize     = 80
  BufSize2     = 80
  STD_INP_HNDL	dd -10
  STD_OUTP_HNDL dd -11

section '.bss' readable writeable

  readBuf  db ?

section '.idata' import data readable

  library kernel, 'KERNEL32.DLL',\
	  user32, 'USER32.DLL'
  import kernel,\
    SetConsoleTitleA, 'SetConsoleTitleA',\
    GetStdHandle, 'GetStdHandle',\
    WriteConsoleA, 'WriteConsoleA',\
    ReadConsoleA, 'ReadConsoleA',\
    ExitProcess, 'ExitProcess',\
    SetConsoleTextAttribute, 'SetConsoleTextAttribute'	
  import user32,\ 
    CharToOemA,'CharToOemA',\
    MessageBoxA,'MessageBoxA'

[sew960i]

уже не нужно. тему можно закрывать...