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 
                                                                                                                                          