1069     uptr->PHASE = Idle_Phase;                               /* idle the unit */  in tl_reset()
1154               && uptr->PHASE == Traverse_Phase) {           /*   and a gap is being traversed */  in tl_clear()
1200               && uptr->PHASE == Data_Phase)                     /*   that was not completed */  in tl_clear()
1203 …    uptr->PHASE = Stop_Phase;                           /* execute the stop phase of the command */  in tl_clear()
1210 …else if (uptr->PHASE != Idle_Phase) {               /* otherwise if the controller unit is executi…  in tl_clear()
1211         uptr->PHASE = Idle_Phase;                       /*   then idle it */  in tl_clear()
1746             CNTLR_UPTR->PHASE = Wait_Phase;             /*   then set up the wait phase */  in start_command()
1753             uptr->PHASE = Start_Phase;                  /*   so set up the start phase */  in start_command()
2053 const CNTLR_PHASE  phase  = (CNTLR_PHASE)  uptr->PHASE;     /* the current command phase */  in continue_command()
2083             uptr->PHASE = Idle_Phase;                   /*     and idle the unit */  in continue_command()
2088             uptr->PHASE = Start_Phase;                  /* set up the start phase */  in continue_command()
2112                 uptr->PHASE = Stop_Phase;               /* schedule the completion */  in continue_command()
2127 …              uptr->PHASE = Traverse_Phase;           /*   then schedule the gap traversal phase */  in continue_command()
2133                         uptr->PHASE = Data_Phase;               /*   so proceed to the data phase */  in continue_command()
2156 …               uptr->PHASE = Data_Phase;                   /*     then proceed to the data phase */  in continue_command()
2168 …                 uptr->PHASE = Traverse_Phase;               /*   then set up to traverse the it */  in continue_command()
2183 …                    uptr->PHASE = Traverse_Phase;       /*     then schedule the traversal phase */  in continue_command()
2189                         uptr->PHASE = Data_Phase;           /*   so schedule the data phase */  in continue_command()
2203 …                    uptr->PHASE = Traverse_Phase;       /*     then schedule the traversal phase */  in continue_command()
2209                         uptr->PHASE = Data_Phase;           /*   so schedule the data phase */  in continue_command()
2231                     uptr->PHASE = Traverse_Phase;       /*   and proceed to the rewinding phase */  in continue_command()
2265                 uptr->PHASE = Data_Phase;                   /* proceed to the data phase */  in continue_command()
2271                uptr->PHASE = Stop_Phase;                /* proceed to the completion phase */  in continue_command()
2279                     uptr->PHASE = Start_Phase;          /*   then try the spacing operation again */  in continue_command()
2281 …           uptr->PHASE = Data_Phase;           /*   proceed to the data phase to skip the record */  in continue_command()
2289 …            uptr->PHASE = Stop_Phase;                   /* motion is complete, so stop the drive */  in continue_command()
2310                 uptr->PHASE = Stop_Phase;               /*   then terminate the command */  in continue_command()
2324 …              uptr->PHASE = Stop_Phase;               /*   then set up the stop phase processing */  in continue_command()
2374 …              uptr->PHASE = Stop_Phase;               /*   then set up the stop phase processing */  in continue_command()
2424 …              uptr->PHASE = Stop_Phase;               /*   then set up the stop phase processing */  in continue_command()
2452 …             uptr->PHASE = Stop_Phase;               /*     and set up the stop phase processing */  in continue_command()
2460                 uptr->PHASE = Stop_Phase;               /* set up the stop phase processing */  in continue_command()
2469                     uptr->PHASE = Stop_Phase;               /*       then the command ends */  in continue_command()
2477 …             uptr->PHASE = Start_Phase;                  /* set up to space over the next record */  in continue_command()
2575 …              uptr->PHASE = Idle_Phase;               /*   but skip the normal completion action */  in continue_command()
2596         if (uptr->PHASE == Stop_Phase) {                /* if the stop completed normally */  in continue_command()
2650 uptr->PHASE = Idle_Phase;                               /*   and idle the unit */  in end_command()
2873             uptr->PHASE = Traverse_Phase;               /*   then traverse it first */  in call_tapelib()
2879             uptr->PHASE = Stop_Phase;                   /*   set up the stop phase processing */  in call_tapelib()
2897             uptr->PHASE = Traverse_Phase;               /* traverse the gap */  in call_tapelib()
3014 uptr->PHASE = Error_Phase;                              /* terminate the command */  in abort_command()
3034     uptr->PHASE = Idle_Phase;                           /*   then idle the tape drive */  in reject_command()
3047     uptr->PHASE = Error_Phase;                          /* set up the error phase */  in reject_command()
3155           opcode_names [uptr->OPCODE], phase_names [uptr->PHASE],  in activate_unit()