*
* $Id$
*
* $Log$
* Revision 1.1  1996/02/15 17:50:54  mclareni
* Initial revision
*
*
|--> IDENT: locf
| CERN PROGLIB# N100    LOCF            .VERSION KERNALT  1.03  880701
| ORIG. 28/06/88  JZ
 
        .text
        .globl  _locf_
        | JAD = LOCF (VAR)              lword adr of VAR
_locf_:
        movl    a0@, d0         | d0   = lad   byte adr
        asrl    #2, d0          | ladr = lad / 4
        rts
#ifdef CERNLIB_CCGEN_LOCF
#undef CERNLIB_CCGEN_LOCF
#endif
#ifdef CERNLIB_TCGEN_LOCF
#undef CERNLIB_TCGEN_LOCF
#endif
#ifdef CERNLIB_ALTGS_LOCFF
#undef CERNLIB_ALTGS_LOCFF
#endif
