Interface

IN: RD_LADDR      Word

      RD_RECORD    Any

      WR_LADDR     Word

      WR_RECORD   Any

TEMP: RD_Temp    Any

           WR_Temp   Any

           AD_Temp    DWord

           Count          Int

Network 1

//将input_buff指向的ANY区域传递给RD_Temp

      L P##RD_RECORD

      LAR1  

      L     P##RD_Temp

      T     #AD_Temp

      L     W [AR1,P#0.0]

      T     LW [#AD_Temp]

      L     #AD_Temp

      L     P#2.0

      +D    

      T     #AD_Temp

      L     D [AR1,P#2.0]

      T     LD [#AD_Temp]

      L     #AD_Temp

      L     P#4.0

      +D    

      T     #AD_Temp

      L     D [AR1,P#6.0]

      T     LD [#AD_Temp]

Network 2

//将output_buff指向的ANY区域传递给WR_Temp

      L P##WR_RECORD     

      LAR1  

      L     P##WR_Temp

      T     #AD_Temp

         L     10

_000: T     #Count

         L     B [AR1,P#0.0]

         T     LB [#AD_Temp]

         L     P#1.0

         +AR1  

         L     #AD_Temp

         +D    

         T     #AD_Temp

          L     #Count

          LOOP  _000

Network 3

CALL  "DPRD_DAT"

       LADDR  :=#RD_LADDR

       RET_VAL:=#RET_RD

       RECORD :=#RD_Temp

      NOP   0

 CALL  "DPWR_DAT"

       LADDR  :=#WR_LADDR

       RECORD :=#WR_Temp

       RET_VAL:=#RET_WR

      NOP   0