XProfan

!.data
variable  dd   0,0
cadena db "Probetext",0
.code
lea ebx,variable
mov ax,128
mov [ebx+2],ax
lea edx,cadena
mov [ebx+4],edx

!{$iq}
CLS

AsmStart eintest()

    NEU STRUCT
    wordnr1   WORD   ?
    wordnr2   WORD   ?
    longnr1   DWORD  ?
    NEU ENDS
    .data?
    neustrukt NEU <>
    .data
    variable  dd  0
    .code
    mov neustrukt.wordnr2, 128
    lea ebx,variable
    mov neustrukt.longnr1, ebx

AsmEnd

WaitInput
End

.data
COUNTED_ANSI_STRING dw 0,0,0,0
cadena db "Probetext",0
.code
lea ebx,COUNTED_ANSI_STRING
mov ax,11
mov [ebx+2],ax
mov [ebx+0],ax
lea edx,cadena
mov [ebx+4],edx

mov ax,[ebx]
PrintDec ax
mov ax,[ebx+2]
PrintDec ax
mov eax,[ebx+4]
PrintStringByAddr eax