Also I get "Argument out of range" in the following code?:
Code: Select all
'==============================================================================
Sub Function TestAssembly(Dim Addr As LongWord) As LongWord
'==============================================================================
Dim LTemp As Word
LTemp = LoWord(Addr)
Asm
MOV TestAssembly_LTemp, W1 '<--- here out of range error...
End Asm
Result = 0
End Sub