-WORD loadassemble(const char *file, WORD start)
-{
- FILE *fp;
- WORD end;
-
- assert(file != NULL);
- if((fp = fopen(file, "rb")) == NULL) {
- perror(file);
- return 0;
- }
- end = start + fread(sys->memory + start, sizeof(WORD), sys->memsize - start, fp);
- if(end == sys->memsize) {
- setcerr(210, file); /* load - memory overflow */
- fprintf(stderr, "Load error - %d: %s\n", cerr->num, cerr->msg);
- }
- fclose(fp);
- return end;
-}
-