my %opcode_map = (
  a => [0],
  (map +(
    "LD$_" => [1, $_],
    "TST$_" => [2, $_]
  ), 1 .. 6),
  b => [1]
);