ASMB,R
* 
*     NAME:   CNOPT 
*     SOURCE: 92070-18277 
*     RELOC:  92070-1X277 
*     PGMR:   C.H.W.
* 
*  **************************************************************** 
*  * (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 CNOPT,7  92070-1X277  REV.1941  790712
* 
* 
* 
      ENT CNOPT 
* 
      EXT EXEC
* 
* 
*  THIS SUBROUTINE IS LOADED FOLLOWING THE COMMAND LIBRARY FOR
*  NON-DS SYSTEMS.  IN DS, ANOTHER VERSION OF CNOPT CAN CONVERT 
*  CNOPT CALLS INTO REMOTE EXEC CALLS.  THIS VERSION CONVERTS THE 
*  ORIGNAL "JSB CNOPT" CALL INTO A "JSB EXEC".
CNOPT NOP 
      CCB 
      ADB CNOPT     POINT TO ADDR OF "JSB CNOPT"
      STB CNOPT     SAVE FOR RETURN 
      LDB JSBEX     GET A "JSB EXEC"
      STB CNOPT,I   STUFF IT IN ORIGINAL CALL 
      JMP CNOPT,I   REISSUE CALL AS AN EXEC 
* 
JSBEX JSB EXEC
* 
      END 
                                                                                                      