Code: Select all
DisableDebugger
Procedure ranasm()
aaaa:
a = (Random(100) * 5) + 2000
ProcedureReturn a
zzzz:
EndProcedure
MessageRequester("Result", Str(ranasm()))
bbbb:
a = (Random(100) * 5) + 2000
cccc:
Texte$ = "Code disasembled: " + Chr(13)
If ExamineAssembly(?l_ranasm_aaaa, ?l_ranasm_zzzz) ; doesn't work
;If ExamineAssembly(?bbbb, ?cccc) ; it works out a procedure
While NextInstruction()
Texte$ + RSet(Hex(InstructionAddress()), SizeOf(Integer)*2, "0")
Texte$ + " " + InstructionString() + Chr(13)
Wend
EndIf
MessageRequester("Result", Texte$)