Mobile automata [from cellular automata]

Given a mobile automaton with rules in the form used on page 887, a cellular automaton which emulates it can be constructed using

MAToCA[rules_] := Append[Flatten[Map[g, rules]], {_, _, x_, _, _} -> x]

g[{a_, b_, c_} -> {d_, e_}] := {{_, a, b+2, c, _} -> d, If[e==1, {a, b+2, c, _, _} -> c+2, {_, _, a, b+2, c} -> a+2]}

This specific definition assumes that the mobile automaton has two possible colors for each cell; it yields a cellular automaton with four possible colors for each cell. An initial condition with a single 2 surrounded by 0's corresponds to all cells being white in the mobile automaton.