1
0
mirror of synced 2024-07-03 10:18:56 +02:00
avremu/avr.io.tex
Christian Dietrich 24fbf1c376 ADIW & SBIW
2014-09-29 00:47:17 +02:00

83 lines
1.6 KiB
TeX

%%
%% The IO Subsystem
%%
\def\avr@io@init{%
\def\avr@UDR{}%
}
% OUT
\def\avr@instr@OUT#1#2#3{% A, R
\def\@@A{#2}
\avr@bin@msb@del{\@@A}{\@@A}{\@@a}%
\avr@bin@msb@del{\@@A}{\@@A}{\@@b}%
\avr@code@set{10111\@@a\@@b#3\@@A}{#1}%
}
\csdef{avr@instr@10111}#1#2#3#4#5#6#7#8\@nnil{%
\def\@@A{#1#2#8}%
\avr@reg@get{#3#4#5#6#7}{\avr@Rr}%
\avr@debug{OUT \@@A <- \avr@Rr}%
\avr@io@set{\avr@Rr}{\@@A}%
\avr@pc@inc%
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% IO Handlers
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% #1=Value, #2=Addr
\def\avr@io@set#1#2{%
\ifcsdef{avr@io@#2@set}{%
\csuse{avr@io@#2@set}{#1}%
}{%
\avr@io@set@default{#1}{#2}%
}%
}
% #1=Addr, #2=\result
\def\avr@io@get#1#2{%
\ifcsdef{avr@io@#1@get}{%
\csuse{avr@io@#1@get}{#2}%
}{%
\avr@io@get@default{#1}{#2}%
}%
}
\def\avr@io@set@default#1#2{%
\avr@error{IO Port #2 is not defined (OUT #1)}%
}
\def\avr@io@get@default#1#2{%
\avr@error{IO Port #1 is not defined (IN)}%
}
\csdef{avr@io@111111@set}#1{%
\avr@debug{ SREG=#1}%
\avr@sreg@set{#1}%
}
\csdef{avr@io@111110@set}#1{\avr@stack@SPH@set{#1}}
\csdef{avr@io@111101@set}#1{\avr@stack@SPL@set{#1}}
\csdef{avr@io@001100@set}#1{%
\avr@bin@tocount{#1}{\avr@count@tmpa}%
\avr@ascii{\the\avr@count@tmpa}{\@@char}%
\avr@debug{UDR: #1=\the\avr@count@tmpa}%
\xdef\avr@UDR{\avr@UDR \@@char}%
}
% SPDR
\csdef{avr@io@001111@set}#1{%
\csdef{avr@io@001111}{#1}%
}
\csdef{avr@io@001111@get}#1{%
\xdef#1{\csuse{avr@io@001111}}%
}
%%% Local Variables:
%%% mode: latex
%%% TeX-master: "avr.tex"
%%% End: