avremu/avr.bitops.tex

\def\avr@zeroes{00000000}
\def\avr@ones{11111111}

\def\avr@bin@map#1#2#3{% BitMacro, Bitstring, Output Macro
  \def\avr@bin@foreach@helper##1##2##3##4##5##6##7##8##9\@nnil{%
    #1{##1}#1{##2}#1{##3}#1{##4}#1{##5}#1{##6}#1{##7}#1{##8}%
    \ifx&##9&\else%
      \avr@bin@foreach@helper ##9\@nnil%
    \fi%
  }%
  \edef\@tempa{#2}%
  \edef#3{\expandafter\avr@bin@foreach@helper \@tempa\@nnil}%
}



\def\avr@bin@zipmap#1#2#3#4{% Bitmacro{A}{B}, A, B, OutputMacro
  \def\avr@bin@zipmap@helper##1##2##3;##4##5##6;{%
    #1{##1}{##4}#1{##2}{##5}%
    \ifx&##3&%
      \ifx&##6&\else\avr@error{Wrong Arguments to ZipMap}\fi%
    \else%
      \avr@bin@zipmap@helper ##3;##6;%
    \fi%
  }%
  \edef\@tempa{#2;#3;}%
  \edef#4{\expandafter\avr@bin@zipmap@helper\@tempa}%
}

\csdef{avr@bit@negate@0}{1}
\csdef{avr@bit@negate@1}{0}
\def\avr@bit@negate#1{\csuse{avr@bit@negate@#1}}
% \avr@bin@negate{A}{\result} -> \result = ~A
\def\avr@bin@negate{\avr@bin@map{\avr@bit@negate}}

\def\avr@bit@id#1{#1}
% \avr@bin@id{A}{\result} -> \result = A
\def\avr@bin@id{\avr@bin@map{\avr@bit@id}}

\csdef{avr@bit@mask@00}{.}
\csdef{avr@bit@mask@01}{0}
\csdef{avr@bit@mask@10}{.}
\csdef{avr@bit@mask@11}{1}
\def\avr@bit@mask#1#2{\csuse{avr@bit@mask@#1#2}}
% \avr@bin@mask{value}{mask}{\result} -> \result = ...
\def\avr@bin@mask{\avr@bin@zipmap{\avr@bit@mask}}

\csdef{avr@bit@and@00}{0}
\csdef{avr@bit@and@01}{0}
\csdef{avr@bit@and@10}{0}
\csdef{avr@bit@and@11}{1}
\def\avr@bit@and#1#2{\csuse{avr@bit@and@#1#2}}
% \avr@bin@and{A}{B}{\result} -> \result = A & B
\def\avr@bin@and{\avr@bin@zipmap{\avr@bit@and}}

\csdef{avr@bit@or@00}{0}
\csdef{avr@bit@or@01}{1}
\csdef{avr@bit@or@10}{1}
\csdef{avr@bit@or@11}{1}
\def\avr@bit@or#1#2{\csuse{avr@bit@or@#1#2}}
% \avr@bin@or{A}{B}{\result} -> \result = A | B
\def\avr@bin@or{\avr@bin@zipmap{\avr@bit@or}}

\csdef{avr@bit@xor@00}{0}
\csdef{avr@bit@xor@01}{1}
\csdef{avr@bit@xor@10}{1}
\csdef{avr@bit@xor@11}{0}
\def\avr@bit@xor#1#2{\csuse{avr@bit@xor@#1#2}}
% \avr@bin@xor{A}{B}{\result} -> \result = A | B
\def\avr@bin@xor{\avr@bin@zipmap{\avr@bit@xor}}

% \avr@bin@getbit bs:byte, bitnum, \result -> \result = (bs >> bitnum)& 1
\def\avr@bin@getbit#1#2#3{%
  \avr@count@tmpa=7%
  \advance\avr@count@tmpa by -#2\relax%
  \def\avr@bin@getbit@helper##1##2\@nnil{%
    \ifnum \avr@count@tmpa = 0%
      \def#3{##1}%
    \else%
      \advance\avr@count@tmpa by -1\relax%
      \avr@bin@getbit@helper##2\@nnil%
    \fi%
  }%
  \edef\@tmpa{#1}%
  \expandafter\avr@bin@getbit@helper\@tmpa\@nnil%
}

\def\avr@bin@setbit#1#2#3#4{%
  \def\@tempa{}%
  \avr@count@tmpa=7%
  \advance\avr@count@tmpa by -#2\relax%
  \def\avr@bin@setbit@helper##1##2\@nnil{%
    \ifnum \avr@count@tmpa = 0%
      \xdef\@tempa{\@tempa #3##2}%
    \else%
      \advance\avr@count@tmpa by -1\relax%
      \xdef\@tempa{\@tempa ##1}%
      \avr@bin@setbit@helper##2\@nnil%
    \fi%
  }%
  \edef\@tmpb{#1}%
  \expandafter\avr@bin@setbit@helper\@tmpb\@nnil%
  \edef#4{\@tempa}
}

% \avr@bin@btw bs:byte, \result -> \result = 00000000+bs
\def\avr@bin@btw#1#2{\xdef#2{00000000#1}}
\def\avr@bin@btw@sign#1#2{%
  \avr@bin@getbit{#1}{7}{\@tmpa}%
  \xdef#2{\@tmpa\@tmpa\@tmpa\@tmpa\@tmpa\@tmpa\@tmpa\@tmpa#1}%
}

\def\avr@bin@word@low#1#2{%
  \edef\@tempa{#1}%
  \edef#2{\expandafter\avr@bin@word@low@helper\@tempa\@nnil}%
}
\def\avr@bin@word@low@helper#1#2#3#4#5#6#7#8#9\@nnil{#9}

\def\avr@bin@word@high#1#2{%
  \edef\@tempa{#1}%
  \edef#2{\expandafter\avr@bin@word@high@helper\@tempa\@nnil}%
}
\def\avr@bin@word@high@helper#1#2#3#4#5#6#7#8#9\@nnil{%
  #1#2#3#4#5#6#7#8%
}

% \avr@bin@wtb bs:word, \result = ((uint8_t) bs)
\def\avr@bin@wtb{\avr@bin@word@low}

% \avr@bin@shiftleft bs:(byte|word), count, \result, \carry
% -> \result = bs << count; \carry = (bs >> count) & 1
\def\avr@bin@shiftleft#1#2#3#4{%
  \avr@count@tmpa=#2\relax%
  \edef#4{0}%
  \def\avr@bin@shiftleft@helper##1##2\@nnil{%
    \ifnum \avr@count@tmpa = 0%
      \edef#3{##1##2}%
    \else%
      \edef#4{##1}%
      \advance \avr@count@tmpa by -1\relax%
      \avr@bin@shiftleft@helper ##20\@nnil%
    \fi%
   }%
   \edef\@tempa{#1}%
   \expandafter\avr@bin@shiftleft@helper\@tempa\@nnil%
}

\def\avr@bin@shiftleft@barrel#1#2#3#4{%
  \avr@count@tmpa=#2\relax%
  \edef#4{0}%
  \def\avr@bin@shiftleft@helper##1##2\@nnil{%
    \ifnum \avr@count@tmpa = 0%
      \edef#3{##1##2}%
    \else%
      \edef#4{##1}%
      \advance \avr@count@tmpa by -1\relax%
      \avr@bin@shiftleft@helper ##2##1\@nnil%
    \fi%
   }%
   \edef\@tempa{#1}%
   \expandafter\avr@bin@shiftleft@helper\@tempa\@nnil%
}


% Delete LSB: bs, \result, \carry
\def\avr@bin@lsb@del#1#2#3{%
  \def\avr@bin@lsb@del@helper##1##2\@nnil{%
    \ifx&##2&%
      \edef#3{##1}%
    \else%
      \xdef#2{#2##1}% Append bit to result
      \avr@bin@lsb@del@helper ##2\@nnil%
    \fi%
  }%
  \edef\@tempa{#1}%
  \def#2{}%
  \expandafter\avr@bin@lsb@del@helper\@tempa\@nnil
}

% Get LSB: bs, \result
\def\avr@bin@lsb@get#1#2{%
  \def\avr@bin@lsb@get@helper##1##2\@nnil{%
    \ifx&##2&%
      \edef#2{##1}%
    \else%
      \avr@bin@lsb@get@helper ##2\@nnil%
    \fi%
  }%
  \edef\@tempa{#1}%
  \expandafter\avr@bin@lsb@get@helper\@tempa\@nnil
}

% Delete MSB: bs, \result,\carry
\def\avr@bin@msb@del#1#2#3{%
  \def\avr@bin@msb@del@helper##1##2\@nnil{%
    \edef#3{##1}%
    \edef#2{##2}%
  }%
  \edef\@tempa{#1}%
  \expandafter\avr@bin@msb@del@helper\@tempa\@nnil%
}

% Get MSB: bs, \carry
\def\avr@bin@msb@get#1#2{%
  \def\avr@bin@msb@get@helper##1##2\@nnil{%
    \edef#2{##1}%
  }%
  \edef\@tempa{#1}%
  \expandafter\avr@bin@msb@get@helper\@tempa\@nnil%
}

% Get Higher Nibble: bs, \result
\def\avr@bin@nibble@high#1#2{%
  \def\avr@bin@nibble@helper##1##2##3##4##5\@nnil{%
    \edef#2{##1##2##3##4}%
  }%
  \edef\@tempa{#1}%
  \expandafter\avr@bin@nibble@helper\@tempa\@nnil%
}

% Get Lower Nibble: bs, \result
\def\avr@bin@nibble@low#1#2{%
  \def\avr@bin@nibble@helper##1##2##3##4##5\@nnil{%
    \edef#2{##5}%
  }%
  \edef\@tempa{#1}%
  \expandafter\avr@bin@nibble@helper\@tempa\@nnil%
}

\def\avr@bin@shiftright#1#2#3#4{%
  \def\avr@bin@shiftright@helper##1\@nnil{%
    \ifnum \avr@count@tmpa = 0%
      \edef#3{##1}%
    \else%
      \avr@bin@lsb@del{##1}{\avr@bin@shiftright@bs}{\avr@bin@shiftright@carry}%
      \edef#4{\avr@bin@shiftright@carry}%
      \advance \avr@count@tmpa by -1\relax%
      \edef\@tempa{0\avr@bin@shiftright@bs}%
      \expandafter\avr@bin@shiftright@helper\@tempa\@nnil%
    \fi%
  }%
  \edef\@tempa{#1}%
  \edef#4{0}%
  \avr@count@tmpa=#2\relax%
  \expandafter\avr@bin@shiftright@helper\@tempa\@nnil%
}

\def\avr@bin@shiftright@arith#1#2#3#4{%
  \def\avr@bin@shiftright@helper##1\@nnil{%
    \ifnum \avr@count@tmpa = 0%
      \edef#3{##1}%
    \else%
      \avr@bin@msb@get{##1}{\avr@bin@shiftright@sign}%
      \avr@bin@lsb@del{##1}{\avr@bin@shiftright@bs}{\avr@bin@shiftright@carry}%
      \edef#4{\avr@bin@shiftright@carry}%
      \advance \avr@count@tmpa by -1\relax%
      \edef\@tempa{\avr@bin@shiftright@sign \avr@bin@shiftright@bs}%
      \expandafter\avr@bin@shiftright@helper\@tempa\@nnil%
    \fi%
  }%
  \edef\@tempa{#1}%
  \edef#4{0}%
  \avr@count@tmpa=#2\relax%
  \expandafter\avr@bin@shiftright@helper\@tempa\@nnil%
}

\def\avr@bin@shiftright@barrel#1#2#3#4{%
  \def\avr@bin@shiftright@helper##1\@nnil{%
    \ifnum \avr@count@tmpa = 0%
      \edef#3{##1}%
    \else%
      \avr@bin@lsb@get{##1}{\avr@bin@shiftright@sign}%
      \avr@bin@lsb@del{##1}{\avr@bin@shiftright@bs}{\avr@bin@shiftright@carry}%
      \edef#4{\avr@bin@shiftright@carry}%
      \advance \avr@count@tmpa by -1\relax%
      \edef\@tempa{\avr@bin@shiftright@sign \avr@bin@shiftright@bs}%
      \expandafter\avr@bin@shiftright@helper\@tempa\@nnil%
    \fi%
  }%
  \edef\@tempa{#1}%
  \edef#4{0}%
  \avr@count@tmpa=#2\relax%
  \expandafter\avr@bin@shiftright@helper\@tempa\@nnil%
}


%%% Local Variables: 
%%% mode: latex
%%% TeX-master: "avr.tex"
%%% End: