/* Programm zum Testen der Junior Prommer Hardware
 * (c) Merlin Computer   KICKSTART
 * erstellt am 18.4.88
 * Gerald Carda
 *
 * Aztec C 3.6
 * cc pruf.c +C +D
 * as junior -N -C -D
 * as typtab -N -C -D
 * ln pruf.o junior.o typtab.o -lcl
 */

#include "junior.h"

struct pruf
{
  char *IDString;
  UWORD SraDaten;
  UWORD SrbDaten;
};

struct pruf prufarray[24] =
{
  {(char *)"Abgleichen der Prog.Sp. 25 V  Pin 1",144,0},
  {(char *)"Spannungstest           21 V  Pin 1",80,0},
  {(char *)"Spannungstest         12.5 V  Pin 1",48,0},
  {(char *)"Spannungstest            5 V  Pin 1",16,0},
  {(char *)"Spannungstest          4.3 V  Pin 1",1,0},
  {(char *)"Spannungstest            0 V  Pin 1",0,0},
  {(char *)"Spannungstest            5 V  Pin 2",0,32},
  {(char *)"Spannungstest            0 V  Pin 2",0,0},
  {(char *)"Spannungstest            5 V  Pin 20",0,1},
  {(char *)"Spannungstest            0 V  Pin 20",0,0},
  {(char *)"Spannungstest            5 V  Pin 21",0,8},
  {(char *)"Spannungstest            0 V  Pin 21",0,0},
  {(char *)"Spannungstest           25 V  Pin 22",128,4},
  {(char *)"Spannungstest          4.3 V  Pin 22",0,2},
  {(char *)"Spannungstest            0 V  Pin 22",0,0},
  {(char *)"Spannungstest           25 V  Pin 23",136,0},
  {(char *)"Spannungstest          4.3 V  Pin 23",0,16},
  {(char *)"Spannungstest            0 V  Pin 23",0,0},
  {(char *)"Spannungstest            5 V  Pin 26",0,0},
  {(char *)"Spannungstest            0 V  Pin 26",0,64},
  {(char *)"Spannungstest            5 V  Pin 27",0,128},
  {(char *)"Spannungstest            0 V  Pin 27",0,0},
  {(char *)"LED Test              LED leuchtet",2,0},
  {(char *)"LED Test              LED aus",0,0}
};

main()
{
   int i,error;

   if(GetParPort()!=0)
     {
       puts("Parallel Port belegt");
       exit(10);
     }
   if(GetTimer()!=0)
     {
       puts("Timer nicht erreichbar !?");
       exit(15);
     }

   puts("Funktiontest Junior Prommer Hardware");
   puts("");
   puts("Nach erfolgter Messung weiter mit <RETURN>");
   puts("Bitte KEIN Eprom einsetzen");
   puts("");
   puts("<RETURN> -> Start");
   getchar();

   for(i=0;i<=23;i++)
     {
        printf("Test Nr. %d %s   \n",i,prufarray[i].IDString);
        Junior((UWORD)0,(UWORD)prufarray[i].SraDaten,(UWORD)1);
        Junior((UWORD)0,(UWORD)prufarray[i].SrbDaten,(UWORD)2);
        puts("");
        puts("Weiter mit <RETURN>");
        getchar();
     }

   FreeTimer();
   FreeParPort();
   exit(0);
}