*
* $Id$
*
* $Log$
* Revision 1.1  1996/02/15 17:53:41  mclareni
* Initial revision
*
*
        TITLE JBIT (X,LX)
;#
; CERN PROGLIB# M421    JBIT            .VERSION KERNPDP  1.00  750903
;#
        WORD=0
        LSHIFT=1
        SEARCH HELP
#include "reentr.inc"
        HELLO( JBIT)
        MOVN    LSHIFT,@1(16)
        MOVE    WORD,@(16)
        LSH     WORD,1(LSHIFT)
        ANDI    WORD,1
        GOODBY
        PRGEND
#ifdef CERNLIB_TCGEN_JBIT
#undef CERNLIB_TCGEN_JBIT
#endif
