/*																				*/
/*																				*/
/*				File:		  	insget.c										*/
/*				Returns:	  	int - a single instruction				*/
/*				Parameters:													*/
/*																				*/
/*																				*/

#include <stdio.h>
#include <process.h>

#include "advm.h"
#include "ptri.h"
#include "values.h"

#include "decry2.h"


int insget()

	{
	static int buff[64];
	static int irec = 0;
	int inst;

	if (irec != rpt)
		if (fseek(dbi, (long)128*(rpt-1), 0) ||
			fread((char *)buff, sizeof(buff[0]), 64, dbi) != 64)
				{
				printf("Error while reading instructions in record %d.%03d after loc %d\n",
							rec2, rec1,bp);
				exit(1);
				}
	irec = rpt;
	array(buff, bpt-1);
	inst = decry2(buff[bpt-1],bpt);
	bpt++;
	if (bpt <= 64) return (inst);
	rpt++;
	bpt = 1;
	return (inst);
	}