L     P##TABLE                    // ACC1 := Ptr to start of table
      LAR1                              // AR1 := Ptr to start of table
      L     W#16#0                      // ACC1 := 0
      L     W [AR1,P#0.0]               // Memory reference byte 0..1 ; ACC2 := 0
      ==I                               // if(memory reference byte 0..1 = DB#)
      JZ    IF01                        // {
      T     #BLOCK_NO                   //   ACC1 := DB#
      OPN   DB [#BLOCK_NO]              //   Open DB#
IF01: NOP   0                           // }
      L     D [AR1,P#2.0]               // ACC1 := Starting address of table
      LAR1                              // AR1 := Starting address of table

// Check if table is full

      L     W [AR1,P#0.0]               // ACC1 := TABLE[0]   // max len
      L     W [AR1,P#2.0]               // ACC2 := TABLE[1]   // # of entries
      >I                                // if(max_len > # of entries)
      JCN   FAIL                        // { FAIL }

// Increment # of entries in the table  


      L     1                           // TABLE[1] := TABLE[1] - 1
      +I                                //   .
      T     W [AR1,P#2.0]               //   // 指向入口地址指針+1  ---》 指針  等同于 入口地址+1  .

// Insert data into table

      L     1                           // AR1 := addr of TABLE[TABLE[1] + 1]
      +I                                //   .
      SLD   4                           // ERI 8/8/01 RQ 241572     雙子左移指令
      TAR1                              // ERI 8/8/01 RQ 241572
      +D                                // ERI 8/8/01 RQ 241572
      LAR1                              // ERI 8/8/01 RQ 241572
      L     #DATA                       // ACC1 := DATA
      T     W [AR1,P#0.0]               // TABLE[TABLE[1] + 1] := DATA
      SET                               // RL0 := 1
      JU    SBR                         //   .
FAIL: CLR                               // RLO := 0
SBR:  SAVE                              // Set BR indicating function success or failure