/****************************************************************
  WHAT: RSP SCALAR UNIT Jxx INSTRUCTION TEST GENERATOR
  SCCS: @(#)jal.c	1.1 03 Aug 1994
  FILE:	jal.c
   WHO:	Project Reality - Evan Y. Wang
   (C):	1994 Silicon Graphics, Inc.
 ****************************************************************/
#include <stdio.h>
#include "software.h"
#include "gen.h"
#include "suregre.h"

#define	MAX_TCS	MAX_JAL_TCS

#define GenCase()	fprintf(outp,JALTempl,CurTcNo,ip->name,rT)

/*			    ChkJAL(  n,Op,   rT); */
PRIVATE	char *JALTempl = "\tChkJAL(%2d,%s,r%-2d)\n";

int JalGen(outp, ip)
    FILE *outp;
    I_TABLE *ip;
{
    int r = rT;

    do {
	FILE_SPLIT {
	    GenCase();
	    UpdRegID();
	}
    } while (CurTcNo++, r != rT);
    return CurTcNo = 0;

}   /* JalGen */