*COMDECK MAIN 
_$J+? 
_*****************************
*                            *
*  BASE LEVEL 0 PROGRAM      *
*                            *
*****************************?
_***********************************************************************
*                                                                      *
**OVERVIEW- THIS IS THE BASE LEVEL 0 PROGRAM ENTERED AFTER LOADING     *
*           TO BEGIN INITIALIZATION.                                   *
*                                                                      *
**INPUT- REGISTERS R1-R4 SET UP FOR STACK MANAGEMENT.                  *
*                                                                      *
**OUTPUT- DYNAMIC STACK SET UP, INITIALIZATION BEGUN.                  *
*                                                                      *
**EXTERNAL SUBROUTINES-                                                *
*              1) LOCK             DISABLE INTERRUPTS                  *
*              2) PBLMASK          LOAD INTERRUPT MASK                 *
*              3) PINIT            BEGIN INITIALIZATION                *
***********************************************************************?
BEGIN 
  LOCK;                                     _DISABLE INTERRUPTS        ?
  PBLMASK;                                  _LOAD INTERRUPT MASK       ?
  PINIT;                                    _BEGIN INITIALIZATION      ?
END.
