Miroirs/retroforth
1
0
Fork 0
mirror of https://git.sr.ht/~crc_/retroforth synced 2024-11-16 19:48:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

c# repl: fix queries for depth

Browse source 
FossilOrigin-Name: a29450314060402a1995635bbb545006bb0626ccfe9618a2b51bc13a98d7621a
This commit is contained in:
crc 2017-11-22 15:43:54 +00:00
parent 8005f95107
commit 507398f431
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
interfaces/repl.cs
View file

@ -70,7 +70,7 @@ namespace Nga
ip = 0;
data = new int[128];
address = new int[1024];
memory = new int[524288 * 16];
memory = new int[(524288 * 16) + 1];
loadImage();
if (memory[0] == 0) {
Console.Write("Sorry, unable to find ngaImage\n");
@ -210,11 +210,11 @@ namespace Nga
case OpCodes.VM_FETCH:
x = data[sp];
if (x == -1)
data[sp] = sp;
data[sp] = sp - 1;
else if (x == -2)
data[sp] = rsp;
data[sp] = rsp - 1;
else if (x == -3)
data[sp] = 1000000;
data[sp] = 524288 * 16;
else
data[sp] = memory[x];
break;
@ -338,7 +338,7 @@ public void executeFunction(int cell) {
}
ip++;
if (rsp == 0)
ip = 1000000;
ip = 524288 * 16;
}
}