crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

repl for dos: slighly more RAM; reduce string buffer sizes on startup

Browse source 
FossilOrigin-Name: 007af9e988b7b04708c65a1fd0f5868a3701f4df9d255558c2fdcbf2f7b353eb
This commit is contained in:
crc 2018-01-17 13:10:18 +00:00
parent 74159116c8
commit 1b12afda39
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
interfaces/dos/repl.c
View file

@ -53,7 +53,7 @@
---------------------------------------------------------------------*/ ---------------------------------------------------------------------*/
#define CELL long int /* Cell size (32 bit, signed integer */ #define CELL long int /* Cell size (32 bit, signed integer */
#define IMAGE_SIZE 10000 /* Amount of RAM. 10K cells due to */ #define IMAGE_SIZE 12000 /* Amount of RAM. 12K cells due to */
/* memory constraints */ /* memory constraints */
#define ADDRESSES 128 /* Depth of address stack */ #define ADDRESSES 128 /* Depth of address stack */
#define STACK_DEPTH 32 /* Depth of data stack */ #define STACK_DEPTH 32 /* Depth of data stack */
@ -379,6 +379,10 @@ int main(int argc, char **argv) {
ngaLoadImage("ngaImage"); ngaLoadImage("ngaImage");
update_rx(); update_rx();
retro_puts("RETRO Listener (c) 2016-2018, Charles Childers\n\n"); retro_puts("RETRO Listener (c) 2016-2018, Charles Childers\n\n");
evaluate("#81");
evaluate("!TempStringMax");
evaluate("#6");
evaluate("!TempStrings");
while(1) { while(1) {
Dictionary = memory[2]; Dictionary = memory[2];
read_token(stdin, input, 0); read_token(stdin, input, 0);