ASMB,R,L,C
*     NAME:   SYCON 
*     SOURCE: 92067-18341 
*     RELOC:  92067-16268 
*     PGMR:   B.L.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
*  ***************************************************************
* 
      NAM SYCON,7 92067-1X341 REV.2013 780921 
      ENT SYCON 
      EXT .ENTR     PARAMETER ADDRESS FETCH ROUTINE 
      EXT XLUEX     EXTENDED EXEC CALL
* 
*  ROUTINE TO WRITE A MESSAGE TO THE SYSTEM CONSOLE (LU 1)
* 
*  CALLING SEQUENCE:  JSB SYCON 
*                     DEF *+3 
*                     DEF IBUF      BUFFER TO BE WRITTEN
*                     DEF IBUFL     BUFFER LENGTH 
* 
IBUF  NOP           BUFFER
IBUFL NOP           BUFFER LENGTH 
SYCON NOP           ENTRY 
      JSB .ENTR     GET PARAMETER ADDRESSES 
      DEF IBUF
      JSB XLUEX     EXTENDED EXEC WRITE 
      DEF *+5 
      DEF .2        WRITE REQUEST 
      DEF LU        LU 1, WITH NO SWITCH OPTION 
      DEF IBUF,I    BUFFER TO BE WRITTEN
      DEF IBUFL,I   BUFFER LENGTH 
      JMP SYCON,I   RETURN
.2    DEC 2 
LU    OCT 100001
      OCT 0 
      END 
                                                                                                                                            