*DECK S$INFO
          IDENT S$INFO
          TITLE  S$INFO-ISSUE CONSOLE MESSAGE 
          COMMENT  ISSUE CONSOLE MESSAGE
          SPACE  3
  
**        S$INFO - ISSUE CONSOLE MESSAGE
* 
*         CALLING SEQUENCE - (FROM SYMPL) 
*         S$INFO(FORTYCHARACTERS) 
* 
*         GIVEN - 
* 
*         THE ADDRESS OF A 40-CHARACTER FIELD 
* 
*         DOES -
* 
*         PRINTS THE 40 CHARACTERS ON THE CONSOLE 
*         TO INFORM THE OPERATOR OF SORT 5'S STATUS 
  
          ENTRY S$INFO
S$INFO    SUBR
          SA1    X1 
          BX6    X1 
          SA6    STATUS 
          DUP    3,3
          SA1    A1+1 
          BX6    X1 
          SA6    A6+1 
          IFDEBUG 
          MESSAGE  STATUS,LOCAL,RECALL
          ELSE
          MESSAGE  STATUS,1,RECALL
          ENDIF 
          EQ     S$INFO 
STATUS    DATA   40H
          DATA   0       *LINE TERMINATOR 
          END 
