module Haxor
  module Vm
    class Stack < Subsystem
      def push(addr)
        value = @vm.subsystem(:mem).read addr
        push_value value
      end

      def push_value(value)
        sp = @vm.subsystem(:cpu).reg Vm::Cpu::Core::REG_STACK
        sp -= Consts::WORD_SIZE
        @vm.subsystem(:cpu).reg Vm::Cpu::Core::REG_STACK, sp
        @vm.subsystem(:mem).write sp, value
      end

      def pop(addr)
        value = pop_value
        @vm.subsystem(:mem).write addr, value
      end

      def pop_value
        sp = @vm.subsystem(:cpu).reg Vm::Cpu::Core::REG_STACK
        value = @vm.subsystem(:mem).read sp
        sp += Consts::WORD_SIZE
        @vm.subsystem(:cpu).reg Vm::Cpu::Core::REG_STACK, sp

        value
      end
    end
  end
end