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