sany516
級(jí)別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 83 個(gè)
工控威望: 156 點(diǎn)
下載積分: 2867 分
在線時(shí)間: 84(小時(shí))
注冊(cè)時(shí)間: 2019-11-14
最后登錄: 2024-10-19
查看sany516的 主題 / 回貼
樓主  發(fā)表于: 2021-05-12 17:14
//S

      L     P##S_W_No
      LAR1  

      L     W [AR1,P#0.0]
      T     #S_DB_No                    // Source DB NUMBER

      L     #Repl_No
      L     1
      -I    
      L     2
      *I    
      SLW   3
      L     D [AR1,P#2.0]
      +D    
      LAR1                              // Source End Address

//D
      L     P##D_W_No
      LAR2  

      L     W [AR2,P#0.0]
      T     #D_DB_No                    // Destination DB NUMBER

      L     #Repl_No
      L     1
      -I    
      L     2
      *I    
      SLW   3
      L     D [AR2,P#2.0]
      +D    
      LAR2                              // Destination End Address

      OPN   DB [#S_DB_No]
      OPN   DI [#D_DB_No]

      L     #Repl_No
next: T     #Loop_Count                 // REPLICATION FACTOR

      L     W [AR1,P#0.0]
      T     W [AR2,P#0.0]

      TAR1  
      L     P#2.0
      -D    
      LAR1  

      TAR2  
      L     P#2.0
      -D    
      LAR2  

      L     #Loop_Count
      LOOP  next