A7d0: SET   

      =     #tmpStatus.Err

      L     1

      T     #tmpStatus.Cat

      L     L#-2147483618

      T     #tmpStatus.ID

      JU    A001

A7d1: L     #tmp_Address

      AD    DW#16#FFFF

      T     #GET_PART.ID

      L     #Offset

      T     #GET_PART.OFFSET

      L     8

      T     #GET_PART.LEN

      L     DW#16#10020008

      T     DID [AR2,P#54.0]

      L     DIW [AR2,P#34.0]

      T     DIW [AR2,P#58.0]

      L     DID [AR2,P#36.0]

      T     DID [AR2,P#60.0]

      +AR2  P#40.0

      UC    "GETIO_PART"

      +AR2  P#8152.0

      A     #GET_PART.ERROR

      JCN   A7d2

      SET   

      =     #tmpStatus.Err

      L     4

      T     #tmpStatus.Cat

      L     #GET_PART.STATUS

      T     #tmpStatus.ID

      JU    A001

A7d2: L     DIW [AR2,P#34.0]

      T     LW   114

      TAK   

      OPN   DB [LW 114]

      L     DID [AR2,P#36.0]

      LAR1  

      TAK   

      CLR   

      A      [AR1,P#32.0]

      JCN   A000