*DECK,RDYMSG
USETEXT CYBRDEF 
USETEXT MISC$ 
USETEXT GLOBALI 
      PROC RDYMSG(RDY)  ; 
      BEGIN # RDYMSG #
*IF DEF,IMS 
 #
*1DC  RDYMSG
* 
*     1. PROC NAME           AUTHOR              DATE 
*        RDYMSG              B. M. WEST          10 FEB 1977
* 
*     2. FUNCTIONAL DESCRIPTION.
*        RDYMSG PLACES THE READY MESSAGE ON THE CONSOLE"S OUTPUT CHAIN. 
*        IF SHUTDOWN IS IN PROGRESS, RDYMSG WILL CHAIN SHUT-DOWN-IN-
*        PROGRESS MESSAGE ON CONSOLE"S OUTPUT CHAIN BEFORE THE READY
*        MESSAGE. 
* 
*     3. METHOD USED. 
*        RDYMSG MESSAGE CALL CONSOLE TO PLACE MESSAGES ON CONSOLE"S 
*        OUTPUT CHAIN.
* 
*     4. ENTRY PARAMETERS. NONE.
* 
*     5. EXIT PARAMETERS. NONE. 
* 
*     6. COMDECKS CALLED. 
*        RBF$COM
* 
*     7. ROUTINES CALLED. 
*        CONSOLE
* 
*     8. DAYFILE MESSAGES. NONE.
* 
 #
*ENDIF
  
      XREF PROC CONSOLE;     # CHAINS MESSAGES ON THE CONSOLE"S TCB    #
      XREF PROC LINK;        # LINK - LINK PROCESSOR                   #
# 
      SEND READY MESSAGE
                                                                       #
      ITEM  RDY B;
      ITEM IDLEMSG C(22) = " SHUT DOWN IN PROGRESS";
      ITEM READYMSG C(6) ;
# 
      IF IDLE SHUTDOWN IN PROGRESS APPEND SHUTTING DOWN MESSAGE TO
      READY MESSAGE 
                                                                       #
      IF IDLESHUTDOWN 
      THEN
        BEGIN                # APPEND "SHUTTING DOWN" MESSAGE          #
        CONSOLE (IDLEMSG,NON$CRITICAL,22);
        END 
                             # PLACE "READY." MESSAGE ON OUTPUT CHAIN  #
        IF RDY AND NOT IDLESHUTDOWN 
        THEN READYMSG = "1READY" ;
        ELSE READYMSG = " READY" ;
      CONSOLE (READYMSG,NON$CRITICAL,6);
      RETURN; 
      END 
# 
      END OF RDYMSG 
                                                                       #
      TERM; 
