*DECK,PHASE40 
          IDENT  PHASE40
          TITLE  PHASE40 - LOAD EDITOR
          COMMENT  PHASE40 - LOAD EDITOR
          SST 
          LIST   F,-R 
          SPACE  4
*         PHASE40 - PRIMARY OVERLAY FOR EDITOR
* 
          SPACE  4
          ENTRY  PHASE40
 PHASE40  BSSZ   0
          RJ     =XINIT40 
          JP     =XAFTPH40   RETURN TO CONTROL
          END    PHASE40
