ASMB,R,L,C
*     NAME:   SPACI 
*     SOURCE: 92070-18129 
*     RELOC:  92070-16129 
*     PGMR:   D.J.W.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1976.  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 SPACI,7  92070-1X129  REV.1941  790711
* 
* 
*  THIS SUBROUTINE OUTPUTS A BLANK LINE TO THE COMMAND DEVICE IF
*  INTERACTIVE, ELSE TO THE LIST DEVICE.  NO ERROR CHECKING IS DONE.
* 
*  CALLING SEQUENCE:  JSB SPACI 
* 
*  ON RETURN:         A-REG = FMP ERROR CODE
* 
      ENT SPACI 
      EXT DRKEI 
* 
A     EQU 0 
B     EQU 1 
* 
SPACI NOP 
      LDA SPACI     GET DUMMY ADDRESS 
      CLB           AND MESSAGE LENGTH
      JSB DRKEI     OUTPUT A BLANK LINE 
      JMP SPACI,I   RETURN
      END 
                                                                                                                                                                                                                        