///////////////////////////////////////////////////////////////
//	PL/0 ASM Interpreter 0.1 (2003.12.27) [Source File]
//	Author:Dwing
///////////////////////////////////////////////////////////////
#include<stdio.h>	//For <printf> ...
#include<string.h>	//For <strcmp>
///////////////////////////////////////////////////////////////
typedef struct		//匯編指令格式
{
	char			opr;	//指令操作碼
	char			lvl;	//級數(shù)
	unsigned short	adr;	//地址碼/操作數(shù)
}ASM;
enum{OP_LIT,OP_LOD,OP_STO,OP_CAL,OP_INT,OP_JMP,OP_JPC,OP_OPR};
enum{
	OPR_RET,OPR_NEG,OPR_ADD,OPR_SUB,OPR_MUL,OPR_DIV,
	OPR_ODD,OPR_NUL,OPR_EQL,OPR_NE ,OPR_LT ,OPR_LGE,
	OPR_LG ,OPR_LTE,OPR_WRT,OPR_WRN,OPR_RED
};
///////////////////////////////////////////////////////////////
int getbase(short *s,int base,int lvl)	//取基址
{
	while(lvl--) base=s[base];
	return base;
}
///////////////////////////////////////////////////////////////
int _main()	//Program Entry
{
	int i,num;
	char b[4];
	ASM a[16384];
	FILE *fp;
	fp=fopen("temp.pl0","rb");
	if(!fp)
	{
		printf("PL/0 ASM Interpreter 0.1\n");
		printf("Can't open \"temp.pl0\"!\n");
		return 0;
	}
	fscanf(fp,"%u",&num);
	for(i=0;i<num;i++)
	{
		fscanf(fp,"%*4u:%s%u%u",b,&a[i].lvl,&a[i].adr);
		if(!strcmp(b,"LIT")) a[i].opr=OP_LIT;
		if(!strcmp(b,"LOD")) a[i].opr=OP_LOD;
		if(!strcmp(b,"STO")) a[i].opr=OP_STO;
		if(!strcmp(b,"CAL")) a[i].opr=OP_CAL;
		if(!strcmp(b,"INT")) a[i].opr=OP_INT;
		if(!strcmp(b,"JMP")) a[i].opr=OP_JMP;
		if(!strcmp(b,"JPC")) a[i].opr=OP_JPC;
		if(!strcmp(b,"OPR")) a[i].opr=OP_OPR;
	}
	fclose(fp);

	short s[16384]={0},bp=0,sp=3,ip=0;
	do{
		switch(a[ip].opr)
		{
		case OP_INT:sp+=a[ip].adr;								break;
		case OP_LIT:s[++sp]=a[ip].adr;							break;
		case OP_LOD:s[++sp]=s[getbase(s,bp,a[ip].lvl)+a[ip].adr];break;
		case OP_STO:s[getbase(s,bp,a[ip].lvl)+a[ip].adr]=s[sp--];break;
		case OP_JMP:ip=a[ip].adr-1;								break;
		case OP_JPC:if(!s[sp--]) ip=a[ip].adr-1;				break;
		case OP_CAL:
			s[sp++]=getbase(s,bp,a[ip].lvl);//靜態(tài)鏈
			s[sp++]=bp;						//動態(tài)鏈
			s[sp++]=ip+1;						//返回地址
			bp=sp-3;
			ip=a[ip].adr-1;
			break;
		case OP_OPR:
			switch(a[ip].adr)
			{
	//過程返回
			case OPR_RET:sp=bp; ip=s[bp+2]-1; bp=s[bp+1]; break;
	//棧頂元素取負(fù)數(shù)
			case OPR_NEG:s[sp]=-s[sp];break;
	//次棧頂和棧頂相加,結(jié)果為棧頂
			case OPR_ADD:sp--;s[sp]=s[sp]+s[sp+1];break;
	//次棧頂和棧頂相減,結(jié)果為棧頂
			case OPR_SUB:sp--;s[sp]=s[sp]-s[sp+1];break;
	//次棧頂和棧頂相乘,結(jié)果為棧頂
			case OPR_MUL:sp--;s[sp]=s[sp]*s[sp+1];break;
	//次棧頂和棧頂相除,結(jié)果為棧頂
			case OPR_DIV:sp--;s[sp]=s[sp]/s[sp+1];break;
	//棧頂是否為奇數(shù),結(jié)果入棧(0或1)
			case OPR_ODD:s[sp]=s[sp]&1;break;
	//次棧頂和棧頂是否相等,結(jié)果入棧(0或1)
			case OPR_EQL:sp--;s[sp]=(s[sp]==s[sp+1]);break;
	//次棧頂和棧頂是否不等,結(jié)果入棧(0或1)
			case OPR_NE: sp--;s[sp]=(s[sp]!=s[sp+1]);break;
	//次棧頂是否比棧頂小,結(jié)果入棧(0或1)
			case OPR_LT: sp--;s[sp]=(s[sp]<s[sp+1]);break;
	//是否次棧頂大于等于棧頂,結(jié)果入棧(0或1)
			case OPR_LGE:sp--;s[sp]=(s[sp]>=s[sp+1]);break;
	//是否次棧頂大于棧頂,結(jié)果入棧(0或1)
			case OPR_LG: sp--;s[sp]=(s[sp]>s[sp+1]);break;
	//是否次棧頂小于等于棧頂,結(jié)果入棧(0或1)
			case OPR_LTE:sp--;s[sp]=(s[sp]<=s[sp+1]);break;
	//打印棧頂元素
			case OPR_WRT:printf("%u",s[sp--]);break;
	//打印回車
			case OPR_WRN:putchar('\n');break;
	//從鍵盤讀取數(shù)
			case OPR_RED:putchar('?');scanf("%u%*c",&s[++sp]);break;	 
			}
		}
		ip++; //得到下條指令 
	}while(ip);
	printf("\nProgram terminated!\nPress ENTER to return...");
	getchar();
	return 0;
}
///////////////////////////////////////////////////////////////