Working with Projects
50 372 SPU 780 01EMAN May 2002
Emulation Solve
File Content
Example
ADD.ESF File Content Example:
Sub ADDINST (Network, Row, Col, TopTyp, TopVal, TopLen,
MidTyp, MidVal, MidLen, BotTyp, BotVal, BotLen, Spare1,
Spare2, Spare3)
dim State,TData,MData,Bdata
’is top input powered?
call LLEmulator.GetPowerFlow(Network,Row,Col-1,State)
If State<>0 then
’ get the value of top node
If (TopTyp=3) or (TopTyp=4) then
call LLEmulator.GetSingleRegisterData(TopTyp,TopVal,TData)
Else
TData=TopVal
End if
’get the value of middle node
If (MidTyp=3) or (MidTyp=4) then
call LLEmulator.GetSingleRegisterData(MidTyp,MidVal,MData)
Else
MData=MidVal
End if
BData=TData+Mdata
’overflow
If BData>9999 then
BData=BData-10000
call LLEmulator.SetPowerFlow(Network,Row,Col,1)
End if
’set value into bottom node
call LLEmulator.SetSingleRegisterData(BotTyp,BotVal,BData)
End if
End Sub
Note: Only emulation solve files for instructions currently not supported by the
Emulator are checked for by ProWORX 32. You cannot edit built-in instructions.