gr-sim: add hgr_view HGR viewing program

gr-sim/hgr/Makefile

@@ -6,8 +6,15 @@ SDL_LIBS= `sdl-config --libs`
 SDL_INCLUDE= `sdl-config --cflags`
 GR_SIM = ../gr-sim.a
 
-all:	lines image_load
+all:	lines image_load hgr_view
 
+###
+
+hgr_view:	hgr_view.o $(GR_SIM)
+	$(CC) $(LFLAGS) $(SDL_LIBS) -o hgr_view hgr_view.o $(GR_SIM)
+
+hgr_view.o:	hgr_view.c
+	$(CC) $(CFLAGS) -c hgr_view.c
 
 ###
 
@@ -29,4 +36,4 @@ lines.o:	lines.c
 
 
 clean:	
-	rm -f *~ *.o lines image_load
+	rm -f *~ *.o lines image_load hgr_view

gr-sim/hgr/hgr_view.c

@@ -0,0 +1,43 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+
+#include <fcntl.h>
+
+#include "gr-sim.h"
+
+int main(int argc, char **argv) {
+
+	int ch,fd;
+
+	if (argc<1) {
+		fprintf(stderr,"Usage: hgr_view FILENAME\n");
+		fprintf(stderr,"  where FILENAME is an 8k AppleII HIRES image\n\n");
+	}
+
+	grsim_init();
+
+	home();
+
+	hgr();
+	/* Show all 280x192, no bottom text */
+	soft_switch(MIXCLR);
+
+	fd=open(argv[1],O_RDONLY);
+	if (fd<0) {
+		printf("Error opening!\n");
+		return -1;
+	}
+	read(fd,&ram[0x2000],8192);
+	close(fd);
+
+	grsim_update();
+
+	while(1) {
+		ch=grsim_input();
+		if (ch) break;
+		usleep(100000);
+	}
+
+	return 0;
+}