ASMB,Q,C
* 
*  ***************************************************************
*  * (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.       *
*  ***************************************************************
* 
*     SOURCE PART NUMBER : 92067-18421
* 
*     RELOCATABLE PART NUMBER : 92067-16361 
* 
*     PROGRAMER(S)   : J.M.N. 
* 
* 
* 
*     MBYTE,LBYTE 
*     FORTRAN CALLABLE SUBROUTINE 
*     TO GET UPPER BYTE (MBYTE) OR
*     LOWER BYTE (LBYTE) OF THE 
*     PASSED PARAMETER. 
* 
*     CALLING SEQUENCE: 
*       IUPPER=MBYTE(IWORD) 
*       ILOWER=LBYTE(IWORD) 
* 
      NAM MBYTE,7 92067-16361 REV.1940 780822 
      ENT MBYTE,LBYTE 
* 
MBYTE NOP 
      DLD MBYTE,I   GET RETURN ADDRESS
      LDB B,I       AND PARAMETER 
      BLF,BLF       SWAP BYTES
      JMP BYTE
* 
LBYTE NOP 
      DLD LBYTE,I   GET RETURN ADDRESS
      LDB B,I       AND PARAMETER 
BYTE  SWP 
      AND B377
      JMP B,I 
B377  OCT 377 
B     EQU 1 
      END 
                                                                                