/* * TI-68k Loading external file functions - The peTI-NESulator Project * ti68k/loadfile.c * * Created by Manoƫl Trapier. * Copyright (c) 2002-2019 986-Studio. * */ #define TIGCC_COMPAT #include /* Map a file in memory */ void *LoadFilePtr(char * filename) { void *RetPtr = NULL; FILE *fp; if ((fp = fopen(filename,"rb")) == NULL) return -1; /* TI Related stuff, very ugly, and need to be changed.. */ HeapLock(fp->handle); RetPtr = 2 + HeapDeref(fp->handle); fclose (fp); return RetPtr; }