ConcatProc.asm

.386
.model flat, stdcall
option casemap :none

include C:\masm32\include\windows.inc
include C:\masm32\include\masm32.inc
include C:\masm32\include\kernel32.inc
includelib \masm32\lib\masm32.lib
includelib \masm32\lib\kernel32.lib

ConcatStrings PROTO :DWORD, :DWORD, :DWORD
ExitFunction PROTO

.data
    String1Prompt db "Primera cadena: ",0
    String2Prompt db "Segunda cadena: ",0
    OutputInfo db "Cadena concatenada: ",0
    String1 db 100 DUP(0)
    String2 db 100 DUP(0)
    FinalString db 200 DUP(0)
        
.code
start:
    invoke StdOut, addr String1Prompt
    invoke StdIn, addr String1,99
    invoke StdOut, addr String2Prompt
    invoke StdIn, addr String2,99
    invoke StripLF, addr String1
    invoke StripLF, addr String2

    ; Invocar procedimiento ConcatStrings.
    invoke ConcatStrings, addr String1, addr String2, addr FinalString

    ; Pintar el resultado por pantalla.
    invoke StdOut, addr OutputInfo
    invoke StdOut, addr FinalString

    ; Invocar el procedimiento ExitFunction.
    invoke ExitFunction


    ConcatStrings PROC Input1:DWORD, Input2:DWORD, Output:DWORD
        ;Concatenar String1 a Output
        invoke szappend, Output, Input1, 0
    
        ;Concatenar String2 a Output
        invoke szappend, Output, Input2, eax
        ret
    ConcatStrings endp

    


    ExitFunction PROC
        invoke ExitProcess,0
        ret
    ExitFunction endp

end start