ASMB,R,Q,C * NAME: SYCON * SOURCE: 92070-18269 * RELOC: 92070-1X269 * PGMR: HLC * * * **************************************************************** * * (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 92070-1X269 REV.1941 790606 ENT SYCON EXT .ENTR,REIO * * ROUTINE TO WRITE A MESSAGE TO THE SYSTEM CONSOLE (LU 1) * * CALLING SEQUENCE: CALL SYCON(BUFFER,LENGTH) * IBUF NOP BUFFER IBUFL NOP BUFFER LENGTH SYCON NOP ENTRY JSB .ENTR GET PARAMETER ADDRESSES DEF IBUF JSB REIO REIO WRITE DEF *+5 DEF .2 WRITE REQUEST DEF LU LU 1 DEF IBUF,I BUFFER TO BE WRITTEN DEF IBUFL,I BUFFER LENGTH JMP SYCON,I RETURN .2 DEC 2 LU DEC 1 END