*DECK             NBITCT
FUNC NBITCT((I));  # CALCULATE NBITS FOR CONSTANT I # 
BEGIN 
    ITEM I,J,K,L; 
    J=0;
    IF I LS 0 THEN
        BEGIN 
        I=-I; J=1;
        END 
    K=1; L=1; 
NB10: 
    IF K LS I THEN
        BEGIN 
        K=K+K+1; L=L+1; 
        GOTO NB10;
        END 
    NBITCT=L+J; 
END 
TERM
