ASMB,R,L
* 
* NAME: &OPSYS
* RELOC: 92071-1X024
* PGMR : D. L. M. 
* 
*  ***********************************************************
*  * COPYRIGHT 1980 HEWLETT-PACKARD CO. ALL RIGHTS RESEVED   *
*  * NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, DUPLICATED  *
*  * OR TRANSLATED INTO ANOTHER PROGRAM LANGUAGE WITHOUT THE *
*  * EXPRESS WRITTEN CONSENT OF THE HEWLETT-PACKARD CO.      *
*  ***********************************************************
* 
*  THIS ROUTINE RETURNS THE OPSY VALUE FOR THE
*   CURRENTLY EXECUTING OPSYSTEM
* 
      NAM OPSYS,7   92071-1X024 REV.2041 800507 
      ENT OPSYS 
      EXT .OPSY 
OPSYS NOP           ENTRY POINT 
      JSB .OPSY     CALL THE ROUTINE
      LDB OPSYS,I   GET THE RETURN ADDRESS
      JMP 1,I         AND JUMP TO IT
      END 
                                                                                                                                                                                                                              