新手求注释

      T     #Pointer1
      L     P#0.0
      >=D   
      )     
      A(    
      L     P##End_Pointer
      LAR1  
      L     D [AR1,P#2.0]
      LAR1  

      L     #Pointer1
      >D    
      )     
      )     
      JNB   _004
nxt1: NOP   0
      TAR1  
      L     P#2.0
      -D    
      LAR1  

      OPN   #DB_No1
      L     DBW [AR1,P#0.0]
      T     DBW [AR1,P#2.0]
      L     0
      T     DBW [AR1,P#0.0]

      OPN   #DB_No2
      L     DBW [AR1,P#0.0]
      T     DBW [AR1,P#2.0]
      L     0
      T     DBW [AR1,P#0.0]

      TAR1  
      L     #Pointer1
      <=D   
      JNB   nxt1
      S     #TBPB_***
      L     0
      T     #XTB_Num
_004: NOP   0