Indirekte adressierung DB

FUNCTION_BLOCK FB 100
TITLE =Test
VERSION : 1.0


VAR_INPUT
  _DB    : INT ;      // aus MW
  Nummer : INT ;    // aus MW    
END_VAR
VAR_TEMP
  HM_DB : WORD ;    
  Wert : INT ;    
END_VAR
BEGIN
NETWORK
TITLE =

      SET   ; 
      SAVE  ; 
      =     L      4.1;   // Temp Variable
      L     #_DB;        // der DB aus MW (_DB)
      T     #HM_DB; 
      L     #HM_DB; 
      T     LW     6;     // Temp Variable
      L     #Nummer;    // welches Daten_word
      ITD   ; 
      L     L#8;               // Zeiger bereitstellen
      *D    ;                   // Zeiger bereitstellen     
      AUF   DB [LW 6];     // DB indirekt oeffnen
      LAR1  ;                  // ins Adressregister
      L     DBW [AR1,P#0.0];    // DW indirekt oeffnen von MW (Nummer )
      T     #Wert;                  // den Inhalt aus dem DW nach Wert
      SAVE  ; 
      BE    ; 
END_FUNCTION_BLOCK