/*
  Copyright 2011 Jose Sebastian Reguera Candal

  This program is free software: you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  (at your option) any later version.

  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/
:- module(asm, [assemble/2]).


assemble(Insts, Bytes) :-
        phrase(asm(Insts), Bytes).


asm([]) -->
        [].
asm([I|Is]) -->
        asm_inst(I),
        asm(Is).


asm_inst(ldc(N)) -->
        { Op is 0x40 \/ N }, 
        [Op].
asm_inst(sum) -->
        [0x25, 0xF2].