各位大師們：Any要查找相等的編號

  L     P##Any

      LAR1

      L B [ AR1 , P#1.0 ]

      L     16#8

      <>I

      JC    _001

      L     0

      L W [ AR1 , P#4.0 ]

      ==I

      JC    _002

      T     #數(shù)據(jù)塊編號

      OPN DB [ #數(shù)據(jù)塊編號]

_002: L W [ AR1 , P#2.0 ]

      T     #數(shù)據(jù)長度

      L D [ AR1 , P#6.0 ]

      LAR1

      L     #數(shù)據(jù)長度

next: T     #temp1

      L D [ AR1 , P#0.0 ]

      T     "Tag_14"

      L     "Tag_14"

      L     REAL

      ==I

      JC    _003

      +AR1  P#4.0

      L     #temp1

      LOOP  next

_003: FP    "Tag_3"

      JCN   _004

      L     "Tag_14"

      L     P#4.0

      /D

      +     1

      T     #out



_004: NOP 0

_001: NOP 0

各位看看著段程序怎么修改

各位大師們怎么找出地址指針編號。 不如數(shù)組  DB100.DBD0(1)    DB100.DBD4(4)  DB100.DBD8(8)...............................
“