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