a2a4868825
The DHGR program is sort of a hack as it first switches to double (aka 80 col) text mode to prepare for double graphics mode. Therefore only one additional soft switch access is necessary after using TGI to generally switch to hires.
37 lines
683 B
C
37 lines
683 B
C
// cl65 -t apple2 --start-addr 0x4000 hgrshow.c
|
|
|
|
#include <tgi.h>
|
|
#include <conio.h>
|
|
#include <fcntl.h>
|
|
#include <string.h>
|
|
#include <unistd.h>
|
|
#include <dirent.h>
|
|
|
|
void main (void)
|
|
{
|
|
DIR *dir;
|
|
struct dirent *ent;
|
|
|
|
tgi_install (a2_hi_tgi);
|
|
tgi_init ();
|
|
|
|
dir = opendir (".");
|
|
while (ent = readdir (dir)) {
|
|
char *ext;
|
|
int hgr;
|
|
|
|
ext = strrchr (ent->d_name, '.');
|
|
if (!ext || strcasecmp (ext, ".hgr"))
|
|
continue;
|
|
|
|
hgr = open(ent->d_name, O_RDONLY);
|
|
read(hgr, (void*)0x2000, 0x2000);
|
|
close(hgr);
|
|
|
|
if (cgetc () == '\r')
|
|
break;
|
|
}
|
|
closedir (dir);
|
|
|
|
tgi_uninstall ();
|
|
}
|