給位大俠：
         那位幫小弟解釋一下程序在這里先謝了
//開關量采樣
      L     P#0.0
      LAR1  
      L     P#0.0
      LAR2  

      L     57
n1:   T     #loopjsq

      CLR  
      L     PIB [AR1,P#0.0]
      OPN   "I/0_ADDRESS"
      T     DBB [AR2,P#0.0]
      L     P#1.0
      +AR1  
      +AR2  
      L     #loopjsq
      LOOP  n1