XProfan

!{$iq}

AsmStart eintest()

    NEU STRUCT
    wordnr1   dw   ?
    wordnr2   dw   ?
    longnr1   dd   ?
    stringnr1 db   256 dup (?)
    NEU ENDS
    .data?
    neustrukt NEU <>
    .data
    variable  dd  0
    einstring db  "Test",0
    .code
    mov neustrukt.wordnr2, 128
    lea ebx,variable
    mov neustrukt.longnr1, ebx
    mov al,0
    mov neustrukt.stringnr1,al
    invoke lstrcat, addr neustrukt.stringnr1, addr einstring
    PrintDec neustrukt.wordnr1
    PrintDec neustrukt.wordnr2
    PrintDec neustrukt.longnr1
    PrintString neustrukt.stringnr1
    PrintDec SIZEOF neustrukt

AsmEnd()

End