eaw/286Racer
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
Files
master
286Racer/SOURCE/MEMTEST.C
Philip Smart 7daa2da009 First push
2020-03-02 12:12:12 +00:00

450 lines
9.7 KiB
C
Executable File
Raw Permalink Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
#include <windows.h>
#include <io.h>
#include <time.h>
#include <stddef.h>
WINDOWPTR w0, w1, w2;
main(argc,argv)
int argc;
char *argv[];
{
int key,flag;
unsigned char databyte;
v_smode(C8025);
w0 = wn_open(0,12,0,78,10,(BLUE<<4|WHITE),GREEN);
wn_puts(w0,2,20," TurboRacer 286 ");
wn_puts(w0,4,20," Memory Read/Write testing aid ");
wn_puts(w0,6,20," (C) March 1988, P.D. Smart ");
pause(2);
wn_close(w0);
w0 = wn_open(0,1,0,78,18,YELLOW,RED);
wn_wrap(w0,TRUE);
wn_scroll(w0,BIOS);
w1 = wn_open(1000,0,0,78,1,BOLD|YELLOW,BLACK);
w2 = wn_open(1000,21,0,80,4,CYAN,BLACK);
wn_wrap(w2,TRUE);
wn_scroll(w2,BIOS);
reset();
wn_clr(w1);
wn_puts(w1,0,25,"MEMORY READ/WRITE TESTER MENU");
while(1)
{
wn_clr(w0);
wn_puts(w0,2,30, "[A] - Read memory");
wn_puts(w0,4,30, "[B] - Write memory");
wn_puts(w0,6,30, "[C] - Partial memory test");
wn_puts(w0,8,30, "[D] - Full memory Test");
wn_puts(w0,10,30,"[E] - Search for value");
wn_puts(w0,12,30,"[F] - Reset accelerator");
wn_puts(w0,14,30,"[G] - Quit");
wn_puts(w0,17,14," Select option by pressing a bracketed key ");
wn_clr(w2);
key=' ';
while(key!='A'&&key!='a'&&key!='B'&&key!='b'&&key!='C'&&key!='c'
&&key!='D'&&key!='d'&&key!='E'&&key!='e'&&key!='f'
&&key!='F'&&key!='g'&&key!='G')
{
while(!kbhit())
{
if(readstat())
{
databyte=readbyte();
wn_printf(w2,"%c",databyte);
}
}
key=v_getch()&0xff;
}
switch(key)
{
case 'A':
case 'a':
readmem();
break;
case 'B':
case 'b':
writemem();
break;
case 'C':
case 'c':
parttest();
break;
case 'D':
case 'd':
fulltest();
break;
case 'E':
case 'e':
search();
break;
case 'F':
case 'f':
reset();
break;
case 'G':
case 'g':
W_exit(0);
break;
}
}
}
fulltest()
{
unsigned ss,bp,ds,bx,error;
unsigned char databyte;
FILE *fp1;
error=0;
if((fp1=fopen("FULLTEST.DAT","wb"))==NULL)
{
wn_printf(w0,"Can't open FULLTEST.DAT\n");
pause(2);
return(1);
}
wn_clr(w0);
wn_clr(w2);
if(readstat()) readbyte();
wn_printf(w2,"\nSending command to 286...");
writebyte(0x04);
wn_clr(w2);
wn_printf(w2,"Performing full test...");
while(1)
{
while(!readstat())
{
if(kbhit())
{
databyte=v_getch()&0xff;
if(databyte=='q' || databyte=='Q')
{
reset();
fclose(fp1);
return(1);
}
if(databyte==' ')
while(!kbhit());
}
}
ss=readword();
bp=readword();
ds=readword();
bx=readword();
databyte=readbyte();
wn_puts(w0,1,1,"SS:BP = ");
wn_printf(w0,"%04X:%04X",ss,bp);
if(databyte!=0)
{
error++;
fprintf(fp1,"SS=%04X, BP=%04X, DS=%04X, BX=%04X, AL=%02X - **ERROR**%c%c"
,ss,bp,ds,bx,databyte,0x0d,0x0a);
}
wn_puts(w0,2,1,"Errors = ");
wn_printf(w0,"%04X",error);
if(ss==0x8000 && bp==0xffff)
{
reset();
fclose(fp1);
return(1);
}
}
}
reset()
{
unsigned char databyte;
wn_clr(w2);
wn_clr(w0);
wn_putsa(w2,0,1,"RESETTING 8207 MEMORY CONTROLLER",YELLOW|BLINK);
outp(0x211,0x01);
pause(1);
outp(0x211,0x00);
wn_clr(w2);
wn_putsa(w2,0,1,"RESETTING 286 PROCESSOR",YELLOW|BLINK);
pause(1);
if(readstat()) readbyte();
outp(0x211,0x02);
wn_clr(w2);
wn_printf(w2,"Awaiting test result.....");
databyte=readbyte();
if(databyte!=0)
wn_printf(w2,"Failed, Error code=%02X\n",databyte);
else
{
wn_printf(w2,"PASSED.\n");
writebyte(0x05);
}
}
search()
{
unsigned ax,bx,ds;
unsigned char databyte;
char bufin[80];
if(readstat()) readbyte();
wn_printf(w2,"\nSending command to 286...");
writebyte(0x05);
wn_clr(w2);
wn_putsa(w0,10,36,"SEARCH FOR VALUE",YELLOW|BLINK);
wn_printf(w2,"\nEnter search value <00>: ");
wn_sync(w2,TRUE);
wn_fixcsr(w2);
wn_gets(w2,bufin,6,"0123456789AaBbCcDdEeFf");
if(bufin[0]==0x00) databyte=0x00;
else
{
sscanf(bufin,"%x",&databyte);
}
writebyte(databyte);
while(1)
{
ax=readword();
ds=readword();
bx=readword();
if(ax==0xffff)
return(1);
wn_printf(w2,"Failure at %04X:%04X, Byte read=%02X\n"
,ds,bx,ax&0x00ff);
if(kbhit())
{
databyte=v_getch()&0xff;
if(databyte=='q' || databyte=='Q' )
{
reset();
return(1);
}
if(databyte==' ')
while(!kbhit());
}
}
}
parttest()
{
unsigned ax,bx,ds;
unsigned char ercode;
if(readstat()) readbyte();
wn_printf(w2,"\nSending command to 286...");
writebyte(0x03);
wn_clr(w2);
wn_putsa(w0,6,36,"PARTIAL MEMORY TEST",YELLOW|BLINK);
wn_printf(w2,"286 running memory test...waiting\n");
ercode=readbyte();
ax=readword();
bx=readword();
ds=readword();
wn_printf(w2,"AX=%04X, BX=%04X, DS=%04X: ",ax,bx,ds);
switch(ercode)
{
case 0:
wn_printf(w2,"Memory test successful\n");
break;
case 1:
wn_printf(w2,"Failure writing 55AAH\n");
break;
case 2:
wn_printf(w2,"Failure writing AA55H\n");
break;
case 3:
wn_printf(w2,"Failure writing 00FFH\n");
break;
case 4:
wn_printf(w2,"Failure writing FF00H\n");
break;
case 5:
wn_printf(w2,"Failure writing byte 00 (1)\n");
break;
case 6:
wn_printf(w2,"Failure writing byte FF (1)\n");
break;
case 7:
wn_printf(w2,"Failure writing byte 00 (2)\n");
break;
case 8:
wn_printf(w2,"Failure writing byte FF (2)\n");
break;
}
pause(4);
}
readmem()
{
long start,end,i;
char bufin[80];
unsigned char cnt, databyte;
unsigned dataword;
wn_clr(w2);
wn_putsa(w0,2,36,"READ MEMORY",YELLOW|BLINK);
wn_printf(w2,"\nEnter start address <00000>: ");
wn_sync(w2,TRUE);
wn_fixcsr(w2);
wn_gets(w2,bufin,6,"0123456789AaBbCcDdEeFf");
if(bufin[0]==0x00) start=0x00000;
else
{
sscanf(bufin,"%lx",&start);
if(start>0xfffff) start=0xfffff;
}
wn_clr(w2);
wn_printf(w2,"\nEnter end address <00100>: ");
wn_sync(w2,TRUE);
wn_fixcsr(w2);
wn_gets(w2,bufin,6,"0123456789AaBbCcDdEeFf");
if(bufin[0]==0x00) end=0x00100;
else
{
sscanf(bufin,"%lx",&end);
if(end>0xfffff) end=0xfffff;
}
wn_clr(w2);
wn_printf(w2,"\nSending command to 286...");
if(readstat()) readbyte();
writebyte(0x01); /* Send command. */
dataword=(start>>4)&0xf000; /* Start segment. */
writeword(dataword);
dataword=start&0xffff; /* Start address. */
writeword(dataword);
dataword=(end>>4)&0xf000; /* End segment. */
writeword(dataword);
dataword=end&0xffff; /* End address. */
writeword(dataword);
wn_clr(w2);
wn_clr(w0);
cnt=16;
for(i=start;i<=end;i++)
{
if(cnt++>=15)
{
cnt=0;
wn_printf(w0,"\n%05lX ",i);
}
databyte=readbyte();
wn_printf(w0," %02X ",databyte);
if(kbhit())
{
databyte=v_getch()&0xff;
if(databyte=='q' || databyte=='Q')
{
reset();
break;
}
if(databyte==' ')
while(!kbhit());
}
}
}
writemem()
{
long start,end,i;
char bufin[80];
unsigned char cnt;
unsigned dataword,temp;
wn_clr(w2);
wn_putsa(w0,4,36,"WRITE MEMORY",YELLOW|BLINK);
wn_printf(w2,"\nEnter start address <00000>: ");
wn_sync(w2,TRUE);
wn_fixcsr(w2);
wn_gets(w2,bufin,6,"0123456789AaBbCcDdEeFf");
if(bufin[0]==0x00) start=0x00000;
else
{
sscanf(bufin,"%lx",&start);
if(start>0xfffff) start=0xfffff;
}
wn_clr(w2);
wn_printf(w2,"\nEnter end address <7FFFF>: ");
wn_sync(w2,TRUE);
wn_fixcsr(w2);
wn_gets(w2,bufin,6,"0123456789AaBbCcDdEeFf");
if(bufin[0]==0x00) end=0x7ffff;
else
{
sscanf(bufin,"%lx",&end);
if(end>0xfffff) end=0xfffff;
}
wn_clr(w2);
wn_printf(w2,"\nEnter data <00>: ");
wn_sync(w2,TRUE);
wn_fixcsr(w2);
wn_gets(w2,bufin,6,"0123456789AaBbCcDdEeFf");
if(bufin[0]==0x00) temp=0x00;
else
{
sscanf(bufin,"%x",&temp);
if(temp>0xff) temp=0x00ff;
}
wn_clr(w2);
wn_printf(w2,"\nSending command to 286...");
if(readstat()) readbyte();
writebyte(0x02); /* Send command. */
dataword=(start>>4)&0xf000; /* Start segment. */
writeword(dataword);
dataword=start&0xffff; /* Start address. */
writeword(dataword);
dataword=(end>>4)&0xf000; /* End segment. */
writeword(dataword);
dataword=end&0xffff; /* End address. */
writeword(dataword);
writebyte(temp); /* Data. */
}
pause(seconds)
int seconds;
{
unsigned cnt,cnt2;
for(cnt=0;cnt<seconds;cnt++)
for(cnt2=0;cnt2<30000;cnt2++);
}
W_exit(no)
int no;
{
wn_close(w1);
wn_close(w2);
wn_close(w0);
switch(no)
{
case 0:
break;
case 1:
break;
case 3:
break;
case 4:
break;
case 5:
break;
case 6:
break;
}
exit(no);
}

Reference in New Issue View Git Blame Copy Permalink