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 
                                                        