With VBAsm
.StartAsmDll "PR.ASM" '### INIT PROGRAM ASM WITH "NAME.ASM"
.GLOBAL1 "MyRout" .EXPORT "MyRout"
.STR1 "CIAO DW 0000" & vbCrLf & _ "COME DD 00000000" & vbCrLf & _ "STAI DB 00"
.STR1 "MyRout:" .ENTER "0,0" .MOV "EAX,[EBP+08]" '#### Parameter 1 in Call ByRef .MOV "ECX,[EBP+12]" '#### Parameter 2 in Call ByRef
.MOV "ESI,[ECX]" '### Param 2 in ESI .MOV "[EAX],ESI" '### ESI in Param 1 .LEAVE .RET "08"
.EndAsmDll '### CLOSE PROGRAM ASM
.Compile "PR.ASM" '### COMPILE PROGRAM WITH "NAME.ASM" SrcAsm = .RetAsm '### RETURN PROGRAM ASM SOURCE
End With |