Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!rutgers!ames!elroy!mahendo!jplgodo!wlbr!etn-rad!jru
From: jru@etn-rad.UUCP (John Unekis)
Newsgroups: comp.sys.ibm.pc
Subject: waiting for astrotit, something else
Message-ID: <276@etn-rad.UUCP>
Date: Fri, 4-Sep-87 19:26:29 EDT
Article-I.D.: etn-rad.276
Posted: Fri Sep  4 19:26:29 1987
Date-Received: Sun, 6-Sep-87 03:07:29 EDT
Reply-To: jru@etn-rad.UUCP (0000-John Unekis)
Distribution: comp.sys.ibm.pc
Organization: Eaton Inc. IMSD, Westlake Village, CA
Lines: 263

For those of you who tried to use the rotor program and couldnt see the
animation, I have put in a fix. The Hercules card(and clones) power up 
with the second page of memory disabled. Hercules includes a program 
HGC.COM on floppy which when placed in your autoexec.bat file will
turn this memory on at boot time. Many clone makers do not include this
so that the animation will not work on their systems unless some other
graphics routine has turned on the memory. In order to remedy this I
have placed a write to port 3BF with a value of 3 to turn on the 
memory. Sorry I didn't put this in right at first.

--------------------------------------------------------------------
Disclaimer: Its all my fault.   ihnp4!wlbr!etn-rad!jru

#include <stdio.h>
char n1[4][8192],n2[4][8192],n3[4][8192],n4[4][8192];
struct memm {
char nn[4][8192];
} ;


main()
{
FILE *fp;
char filename[80];
int i,j,k;
long rotate,r;
struct memm * mp;
char * p;
char * p1;
char * p2;

printf("Note , when done, any key followed by <cr> returns to dos\n");
printf("How Many Rotations? ");
scanf("%ld",&rotate);

mp = (struct memm *) 0xb8000000;

p = &n1[0][0];
strcpy(filename,"n1.img");
fp = fopen(filename,"rb");
if(fp == NULL)
 {
 printf("cant open file %s\n",filename);
 exit(0);
 }
i = 32764;
fread(p,i,1,fp);
fclose(fp);

p = &n2[0][0];
strcpy(filename,"n2.img");
fp = fopen(filename,"rb");
if(fp == NULL)
 {
 printf("cant open file %s\n",filename);
 exit(0);
 }
i = 32764;
fread(p,i,1,fp);
fclose(fp);

p = &n3[0][0];
strcpy(filename,"n3.img");
fp = fopen(filename,"rb");
if(fp == NULL)
 {
 printf("cant open file %s\n",filename);
 exit(0);
 }
i = 32764;
fread(p,i,1,fp);
fclose(fp);

p = &n4[0][0];
strcpy(filename,"n4.img");
fp = fopen(filename,"rb");
if(fp == NULL)
 {
 printf("cant open file %s\n",filename);
 exit(0);
 }
i = 32764;
fread(p,i,1,fp);
fclose(fp);

graphmode(2);

p = (char *) 0xb8000000;
strcpy(filename,"n1.img");
fp = fopen(filename,"rb");
if(fp == NULL)
 {
 printf("cant open file %s\n",filename);
 exit(0);
 }
i = 32764;
fread(p,i,1,fp);
fclose(fp);

i = 2400;
for(r=0;r<rotate;r++)
 {
 p = (char *) &(*mp).nn[0][4096];
 p1 = &n1[0][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[1][4096];
 p1 = &n1[1][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[2][4096];
 p1 = &n1[2][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[3][4096];
 p1 = &n1[3][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[0][4096];
 p1 = &n2[0][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[1][4096];
 p1 = &n2[1][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[2][4096];
 p1 = &n2[2][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[3][4096];
 p1 = &n2[3][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[0][4096];
 p1 = &n3[0][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[1][4096];
 p1 = &n3[1][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[2][4096];
 p1 = &n3[2][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[3][4096];
 p1 = &n3[3][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[0][4096];
 p1 = &n4[0][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[1][4096];
 p1 = &n4[1][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[2][4096];
 p1 = &n4[2][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[3][4096];
 p1 = &n4[3][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 }

scanf("%s",filename);
textmode();
}




graphmode(plane)
int plane;
{
outp(0x3bf,0x03);
if(plane == 1) {
outp(0x3b8,0x0002);
outp(0x3b4,0x0000);
outp(0x3b5,0x0035);
outp(0x3b4,0x0001);
outp(0x3b5,0x002d);
outp(0x3b4,0x0002);
outp(0x3b5,0x002e);
outp(0x3b4,0x0003);
outp(0x3b5,0x0007);
outp(0x3b4,0x0004);
outp(0x3b5,0x005b);
outp(0x3b4,0x0005);
outp(0x3b5,0x0002);
outp(0x3b4,0x0006);
outp(0x3b5,0x0057);
outp(0x3b4,0x0007);
outp(0x3b5,0x0057);
outp(0x3b4,0x0008);
outp(0x3b5,0x0002);
outp(0x3b4,0x0009);
outp(0x3b5,0x0003);
outp(0x3b4,0x000a);
outp(0x3b5,0x0000);
outp(0x3b4,0x000b);
outp(0x3b5,0x0000);
outp(0x3b4,0x000c);
outp(0x3b5,0x0000);
outp(0x3b4,0x000d);
outp(0x3b5,0x0000);
outp(0x3b8,0x000a);
}
if(plane == 2) {
outp(0x3b8,0x0002);
outp(0x3b4,0x0080);
outp(0x3b5,0x0035);
outp(0x3b4,0x0001);
outp(0x3b5,0x002d);
outp(0x3b4,0x0002);
outp(0x3b5,0x002e);
outp(0x3b4,0x0003);
outp(0x3b5,0x0007);
outp(0x3b4,0x0004);
outp(0x3b5,0x005b);
outp(0x3b4,0x0005);
outp(0x3b5,0x0002);
outp(0x3b4,0x0006);
outp(0x3b5,0x0057);
outp(0x3b4,0x0007);
outp(0x3b5,0x0057);
outp(0x3b4,0x0008);
outp(0x3b5,0x0002);
outp(0x3b4,0x0009);
outp(0x3b5,0x0003);
outp(0x3b4,0x000a);
outp(0x3b5,0x0000);
outp(0x3b4,0x000b);
outp(0x3b5,0x0000);
outp(0x3b4,0x000c);
outp(0x3b5,0x0000);
outp(0x3b4,0x000d);
outp(0x3b5,0x0000);
outp(0x3b8,0x008a);
}
}

textmode()
{
int i,j,k;
outp(0x3b8,0x0020);
outp(0x3b4,0x0000);
outp(0x3b5,0x0061);
outp(0x3b4,0x0001);
outp(0x3b5,0x0050);
outp(0x3b4,0x0002);
outp(0x3b5,0x0052);
outp(0x3b4,0x0003);
outp(0x3b5,0x000f);
outp(0x3b4,0x0004);
outp(0x3b5,0x0019);
outp(0x3b4,0x0005);
outp(0x3b5,0x0006);
outp(0x3b4,0x0006);
outp(0x3b5,0x0019);
outp(0x3b4,0x0007);
outp(0x3b5,0x0019);
outp(0x3b4,0x0008);
outp(0x3b5,0x0002);
outp(0x3b4,0x0009);
outp(0x3b5,0x000d);
outp(0x3b4,0x000a);
outp(0x3b5,0x000b);
outp(0x3b4,0x000b);
outp(0x3b5,0x000c);
outp(0x3b4,0x000c);
outp(0x3b5,0x0000);
outp(0x3b4,0x000d);
outp(0x3b5,0x0000);
outp(0x3b8,0x0028);
}