- fread(memory, sizeof(WORD), memsize, fp);
+ prog->end = prog->start +
+ fread(sys->memory, sizeof(WORD), sys->memsize - prog->start, fp);
+ if(prog->end == sys->memsize) {
+ setcerr(201, NULL); /* Load object file - full of COMET II memory */
+ fprintf(stderr, "Execute error - %d: %s\n", cerr->num, cerr->msg);
+ status = false;
+ }