ASMB,Q,C
      HED <#OFF> OFF PROGRAM SUBROUTINE    *(C) HEWLETT-PACKARD CO. 1980* 
      NAM #OFF,7 91750-1X219 REV.2013 800418 L
      EXT .ENTR,MESSS 
      ENT #OFF
*    NAME:   #OFF 
*    SOURCE: 91750-18219
*    RELOC:  91750-1X219
*    PGMR:   D.W.T. [ 04/14/80 ]
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  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.       *
*  ***************************************************************
*  #OFF TERMINATES A PROGRAM
* 
*  #OFF  CALLING SEQUENCE:
* 
*     JSB #OFF
*     DEF *+2 
*     DEF NAME      ADDRESS OF 3-WORD ASCII PROGRAM NAME ARRAY. 
* 
      SKP 
      SUP           [SUPPRESS EXTENDED LISTING] 
NAME  NOP           ASCII NAME ADDR.
#OFF  NOP 
      JSB .ENTR     OBTAIN DIRECT ADDRESSES.
      DEF NAME      DEFINE PARAMETER STORAGE AREA.
      DLD "OF       GET "OF, "
      DST MBUF      STORE IT IN MESSAGE BUFFER
      LDA NAME,I    GET PASSED PROGRAM NAME 
      STA MBUF+2
      ISZ NAME      UP ADDR 
      DLD NAME,I
      DST MBUF+3
      DLD "FL       GET ",FL "
      DST MBUF+5
      JSB MESSS     CALL MESSAGE PROCESSOR TO TERMINATE PROG
       DEF *+3
       DEF MBUF 
       DEF K13
      JMP #OFF,I    RETURN
* 
MBUF  BSS 7 
"OF   ASC 2,OF, 
"FL   ASC 2,,FL 
K13   DEC 13
      END 
                                                                                                                                                                                                                                                      