ASMB,Q,C
      NAM #OFF,7  91750-1X218 REV.2013 800418 MEF 
      HED <#OFF> OFF PROGRAM SUBROUTINE     *(C) HEWLETT-PACKARD CO. 1980*
      ENT #OFF
      EXT EXEC,.ENTR
      SUP 
*    NAME:   #OFF 
*    SOURCE: 91750-18218
*    RELOC:  91750-1X218
*    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 
NAME  NOP           ASCII NAME ADDR.
#OFF  NOP           ENTRY/EXIT
      JSB .ENTR     OTBAIN DIRECT ADDRESSES 
      DEF NAME      DEFINE PARAMETER STORAGE AREA.
      JSB EXEC      CALL EXEC TO DO THE FUNCTION
       DEF *+3
       DEF K6N
       DEF NAME,I 
      NOP           IGNORE ERROR RETURN 
      JMP #OFF,I    RETURN
* 
K6N   OCT 100006
      END 
                      