Substitute of peek and pock for s7-300?

[andreGO]

Hello guys. So the problem is this. Basically I want to pass a variable number of bits from one byte to another. For example to pass the first 3 bits of mw0 to the last 3 bits of mw4 but in a dynamic form.

In the siemens s7-1200 I was using peek and pock

  #temp_varW:=PEEK_WORD(area:=#IN_TYPE_OF_MEM, dbNumber:=#IN_NUM_READ_DB, byteOffset:=#temp_start);
    POKE(area:=16#84,dbNumber:=#IN_NUM_SEND_DB,byteOffset:=(#temp_db_pos_byte),value:=#temp_varW);
    #temp_i:=#temp_i+1;
    #temp_start:=#temp_start+2;
    #temp_db_pos_byte:=#temp_db_pos_byte+2;

Someone as any idea how to do it ?

Regards

 

[L D[AR2P#0.0]]

Note that MW0 and MW4 are not bytes, so I'm assuming MB0 amd MB4

Source code for a block to do the bit copy:

FUNCTION FC 300 : VOID
TITLE =
VERSION : 0.1


VAR_INPUT
  wDBSrc : WORD ;    
  dwAreaSrc : DWORD ;    
  wDBDest : WORD ;    
  dwAreaDest : DWORD ;    
  iBitCount : INT ;    
END_VAR
VAR_TEMP
  iLoopCount : INT ;    
  wSRCDB : WORD ;    
  wDESTDB : WORD ;    
END_VAR
BEGIN
NETWORK
TITLE =

      L     #dwAreaSrc; 
      LAR1  ; 
      L     #dwAreaDest; 
      LAR2  ; 
      L     #wDBSrc; 
      T     #wSRCDB; 
      L     #wDBDest; 
      T     #wDESTDB; 
      L     #iBitCount; 
LLL:  T     #iLoopCount; 
      OPN   DB [#wSRCDB]; 
      A      [AR1,P#0.0]; 
      OPN   DB [#wDESTDB]; 
      =      [AR2,P#0.0]; 
      +AR1  P#0.1; 
      +AR2  P#0.1; 
      L     #iLoopCount; 
      LOOP  LLL; 
END_FUNCTION

 

[L D[AR2P#0.0]]

Example call:

      L     P#M 0.0
      T     #dwAreaSrc
      L     P#M 4.5
      T     #dwAreaDest
      CALL  FC   300
       wDBSrc    :=W#16#0
       dwAreaSrc :=#dwAreaSrc
       wDBDest   :=W#16#0
       dwAreaDest:=#dwAreaDest
       iBitCount :=3

 

[andreGO]

HAHA cool! It's not exactly what I want but you gave me a big big help with this code.
Really tks a lot

Best Regards from PORTO