ASMB,R,L,C HED #DIAL: DIAL ROUTINE FOR RJE * (C) HEWLETT-PACKARD CO.1978 * NAM #DIAL,2,20 91780-16014 REV.1840 780725 ENT #DIAL EXT EXEC SUP * * NAME: #DIAL * SOURCE: 91780-18014 * RELOC: 91780-16014 * PGMR: C. HAMILTON ( 11/09/76 ) * * MODIFIED BY: * * ***************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978. 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. * * ***************************************************************** * * #DIAL PRINTS A MESSAGE FOR MANUAL DIALING * * ** USERS MAY REPLACE THIS MODULE WITH APPROPRIATE AUTO-DIAL SOFTWARE ** * #DIAL LDA 1,I GET AND SAVE PARAM.#1: STA SYSLU ESTABLISH THE CONSOLE LU. INB POINT TO THE SECOND PARAMETER. LDA 1,I GET PARAM.#2: + =DIAL, - =DISCONNECT. SSA IF NEGATIVE, JMP DISC. DISCONNECT (BYPASS THE MESSAGE). * DIAL. EQU * POSITIVE: ESTABLISH CONNECTION. * JSB EXEC DIAL (PRINT MESSAGE). DEF *+5 DEF C2 DEF SYSLU DEF MESSA DEF MESSL * DISC. EQU * DISCONNECT. * JSB EXEC TERMINATE DEF *+2 THE DEF C6 PROGRAM. * * CONSTANTS * SYSLU OCT 1 C2 OCT 2 C6 OCT 6 MESSA ASC 9, RJE: DIAL REMOTE MESSL DEC -18 * END #DIAL