Peripherial I/O Step 7, indirect adressing ?

userxyz · Nov 4, 2008

Hi,

What I need is:

I'm writing a function. At the outside of the block I just want the parameter P_OFFSET_BYTE.

PIB256
PIB257
PIB258
...

These adresses are the ones that I wanna read.

So, on the P_OFFSET_BYTE parameter I will enter 256 (INT).
The rest has to be done in the function.

But how can I call PIB256, PIB257, etc... when I only have an integer offsetbyte ?

Thanks

L D[AR2P#0.0] · Nov 4, 2008

Here's an example FC

Code:

FUNCTION FC 1 : VOID
TITLE =
VERSION : 0.1

VAR_INPUT
  iOffset : INT ; 
END_VAR
VAR_TEMP
  abBytes : ARRAY  [1 .. 11 ] OF BYTE ; 
  iLoopCount : INT ; 
END_VAR
BEGIN
NETWORK
TITLE =for i=1 to 11 abBytes[i]=PIB[iOffset+i] 

	  LAR1  P#P  0.0; 
	  L	 #iOffset; 
	  SLD   3; 
	  +AR1  ; 
	  LAR2  P##abBytes; 
	  L	 11; 
Loop: T	 #iLoopCount; 
	  L	 B [AR1,P#0.0]; 
	  T	 B [AR2,P#0.0]; 
	  +AR1  P#1.0; 
	  +AR2  P#1.0; 
	  L	 #iLoopCount; 
	  LOOP  Loop; 

END_FUNCTION

userxyz · Nov 4, 2008

Hi

The SCL version that I see in the title is a little more understandable:
for i=1 to 11 abBytes=PIB[iOffset+i]

I think I'll use SCL to do the job.

About your code, can you explain it a little please ?

L D[AR2 said:

Here's an example FC

Code:

FUNCTION FC 1 : VOID TITLE = VERSION : 0.1 VAR_INPUT iOffset : INT ; END_VAR VAR_TEMP abBytes : ARRAY [1 .. 11 ] OF BYTE ; iLoopCount : INT ; END_VAR BEGIN NETWORK TITLE =for i=1 to 11 abBytes[i]=PIB[iOffset+i] LAR1 P#P 0.0; L #iOffset; SLD 3; +AR1 ; LAR2 P##abBytes; L 11; Loop: T #iLoopCount; L B [AR1,P#0.0]; T B [AR2,P#0.0]; +AR1 P#1.0; +AR2 P#1.0; L #iLoopCount; LOOP Loop; END_FUNCTION

Click to expand...

Peripherial I/O Step 7, indirect adressing ?

userxyz

Member

L D[AR2P#0.0]

Lifetime Supporting Member

userxyz

Member

Similar Topics