:ED,TSE01,5
               /R,75
      REP 9                                      (D)
/R,375
NUMPT EQU STLCK                                  (D)
/E
                                              :ED,TSE04,5
              /R,252
      JSB SERRS+10,I    NONE FOUND               (D)
/E
                                               :ED,TSE05,5
                                 /R,284
      LDA MLINK     MORE IN BUFFER               (D)
      ADA .+?MASK-?LINK  SET COM FLAG FOR        (D)
      LDA 0,I              MUX                   (D)
      IOR MPCOM                                  (D)
      STA MPCOM                                  (D)
      JMP SCHEN,I                                (D)
/D,285,289
/R,318
      LDA 1         NO, CHECK                    (D)
      INA           STATEMENT                    (D)
      LDA 0,I       LENGTH AND                   (D)
      ADB, 0        SET (B) TO POINT             (D)
      JSB STLCK     TO THE                       (D)
      JMP FNDP1     NEXT STATEMENT               (D)
/D,319,323
/E              