analog input processing

****************************************************************************

(c)1998-2010 copyright by 

****************************************************************************

AnI.zip

全部代码见附件

      L     0

      L     #UnitNo

      >I    

      JC    FE01

      L     "IntD".UnitQuantCnt

      <D    

      JC    UMax

      L     #UnitNo

      +     1

      T     "IntD".UnitQuantCnt

UMax: L     #UnitNo

      SLD   1

      L     "UOrg".UDBOff

      +D    

      SLD   3

      LAR1  

      L     DBW [AR1,P#0.0]

      T     #UnitDBNo

      L     0

      <=I   

      JC    FE02

      OPN   DB [#UnitDBNo]

      L     DBW    8

      >=I   

      T     #DVDBNo

      JC    FE03

      L     P##AnIRec

      LAR1  

      L     W [AR1,P#0.0]

      T     #DDBNo

      L     DBW   18

      <>I   

      JC    FE09

      L     D [AR1,P#2.0]

      LAR2  

      SRD   3

      OPN   DB [#DDBNo]

      L     DBW    4

      -I    

      L     DBW    2

      /I    

      T     #RecNo

      L     0

      ==I   

      JC    FE05

      L     DBD [AR2,P#0.0]

      T     #AnI.UnitNo

      L     DBD [AR2,P#4.0]

      T     #AnI.AnINo

      L     DBD [AR2,P#8.0]

      L     DW#16#FB3FC0EF

      AD    

      T     LD     8

      L     DBD [AR2,P#12.0]

      L     DW#16#3C8011

      AD    

      T     LD    12

      L     DBD [AR2,P#16.0]

      T     #AnI.Val

      L     DBD [AR2,P#20.0]

      T     #AnI.LScal

      L     DBD [AR2,P#24.0]

      T     #AnI.HScal

      L     DBD [AR2,P#28.0]