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