*
* $Id$
*
* $Log$
* Revision 1.1  1996/02/15 17:53:13  mclareni
* Initial revision
*
*
LOCF     CSECT
*
* CERN PROGLIB#         LOCF            .VERSION KERNIBM  1.09  820119
*
#if defined(CERNLIB_QMIBMXA)
*        SPLEVEL  SET=2
LOCF     AMODE ANY
LOCF     RMODE ANY
#endif
         L     15,0(1)
         LA    15,0(15)
         LR    0,15          . R0 = BYTE - ADR
         SRA   0,2           . R0 = WORD - ADR
         BCR   15,14
         END
#ifdef CERNLIB_TCGEN_LOCF
#undef CERNLIB_TCGEN_LOCF
#endif
