ASMB,L * * NAME: RSHIF * SOURCE: 92070-18296 * RELOC: 92070-16296 * PGMR: DAVE NEFF * **************************************************************** * (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 RSHIF 92070-1X296 REV.2001 790914 EXT .ENTR ENT RSHIF PARMB BSS 1 STORAGE FOR ADDRESS OF PASSED PARAMETER RSHIF NOP JSB .ENTR PICK UP PASSED ADDRESS DEF PARMB LDA PARMB,I GET THE INTEGER ARS SHIFT RIGHT 1 BIT AND =B77777 CLEAR SIGN BIT IF STILL SET STA PARMB,I RETURN THE RESULT JMP RSHIF,I RETURN TO CALLING ROUTINE END