各位大师们：Any要查找相等的编号

  L     P##Any

      LAR1

      L B [ AR1 , P#1.0 ]

      L     16#2

      <>I

      JC    _001

      L     0

      L W [ AR1 , P#4.0 ]

      ==I

      JC    _002

      T     #数据块编号

      OPN DB [ #数据块编号]

_002: L W [ AR1 , P#2.0 ]

      T     #数据长度

      L D [ AR1 , P#6.0 ]

      LAR1

      L     #数据长度

next: T     #temp1

      L D [ AR1 , P#0.0 ]

      T     "Tag_14"

      L     "Tag_14"

      L     #byt

      ==I

      JC    _003

      +AR1  P#1.0

      L     #temp1

      LOOP  next

_003: FP    "Tag_3"

      JCN   _004

      L     "Tag_14"

      L     P#1.0

      /D

      +     1

      T     #out

_004: NOP 0

_001: NOP 0

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