Курсовая работа: Конкатенація строк Assembler

str2 db 64 dup(?)

a dq ?

b dq ?

.code

start:

call arithm

print chr$(13,10)

call string

invoke Sleep, 2000d

exit

arithm proc

LOCAL hInput :DWORD

LOCAL hOutPut :DWORD

LOCAL nRead1 :DWORD

LOCAL nRead2 :DWORD

LOCAL str3[15] :BYTE

invoke GetStdHandle, STD_OUTPUT_HANDLE

mov hOutPut, eax

invoke GetStdHandle, STD_INPUT_HANDLE

mov hInput , eax

invoke szLen, offset strNum1

invoke WriteConsole, hOutPut, offset strNum1, eax, NULL, NULL

invoke ReadConsole, hInput , ADDR str1, 10d, ADDR nRead1, NULL

xor eax, eax

invoke szLen, offset strNum2

invoke WriteConsole, hOutPut, offset strNum2, eax, NULL, NULL

invoke ReadConsole, hInput, ADDR str2, 10d, ADDR nRead2, NULL

xor eax, eax

invoke StrToFloat, ADDR str1, offset a