From ee93649392db518df79b822c704ce09da1dda065 Mon Sep 17 00:00:00 2001
From: Tito Hinostroza <dev_null_1@hotmail.com>
Date: Wed, 12 Jun 2019 23:13:35 -0500
Subject: [PATCH] Add files via upload

---
 P6502utils.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/P6502utils.pas b/P6502utils.pas
index 366cd0b..4989de8 100644
--- a/P6502utils.pas
+++ b/P6502utils.pas
@@ -1175,7 +1175,7 @@ begin
   Result := false;  //valor por defecto
   if size=0 then exit;
   maxRam := CPUMAXRAM;
-  for i:=0 to CPUMAXRAM-1 do begin  //verifica 1 a 1, por seguridad
+  for i:=iRam to maxRam-1 do begin  //verifica 1 a 1, por seguridad
     if HaveConsecRAM(i, size, maxRam) then begin
       //encontró del tamaño buscado
       UseConsecRAM(i, size);  //marca como usado