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