AR1和AR2使用

 CALL  "FB558" , DB558
       IN_barPosZeroSet     :=
       IN_barPosZeroReset   :=
       IN_StepFWD           :=
       IN_StepContinueFWD   :=
       IN_LastStepNumber    :=
       IN_DataToVideo       :=DB200.DBX0.0
       IN_RetentiveMemory   :=P#M 3000.0
       OUT_BilletInStepZero :=
       OUT_BilletInStep1    :=
       OUT_BarBeforeLastStep:=
       OUT_BarInLastStep    :=

//以下FB558程序

 TAR2                              //Make it work in case of multiple instance FB
      L     DW#16#FFFFFF                //Mask the AREA CODE (higher byte)
      AD    
      L     P##IN_DataToVideo
      +D    
      LAR1  
      L     0
      L     W [AR1,P#0.0]               //Retrieve the number of the destination DB (if any)
      ==I   
      JC    NoD0
      T     #scratchword
      OPN   DB [#scratchword]
NoD0: NOP   0
      L     D [AR1,P#2.0]               //Load "Area code", few zeros and address * 8
      T     #DataVideoPointer           //Save it

      LAR1  #DataVideoPointer

      L     D [AR1,P#0.0]
      T     #Tracking0_31

      L     D [AR1,P#4.0]
      T     #Tracking32_63

      L     D [AR1,P#8.0]
      T     #Tracking64_95

      L     D [AR1,P#12.0]
      L     DW#16#FF000000
      AD    
      T     #Tracking96_127