|
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <math.h>
#include <stdlib.h>
struct reg {
char reg_name[3]; /*레지스터 이름을 변수로 선언*/
char reg_num[4]; /*레지스터 번호를 변수로 선언*/
} Reg[20]; /* 레지스터에 대한 이름과 번호를 저장하는 구조체 */
struct ins {
char instruct[6]; /*인스트럭션을 변수로선언*/
char dest[2]; /*어드레스 모드를 변수로 선언*/
char sour[2]; /*어드레스 모드를 변수로 선언*/
char word_type[2]; /*워드 타입을 변수로 선언*/
char ins_code[3]; /*인스트럭션 코드정보를 변수로 선언*/
char ins_len[2]; /*인스트럭션 길이를 변수로 선언*/
char mod_reg[9]; /*레지스터 모드 지정*/
} Instr[100]; /* 각 인스트럭션의 정보를 보관하는 구조체 */
int MaxI;
struct symbol_tbl{
char symbol[10]; /*심볼 테이블 지정*/
char word_type[2]; /*워드 타입 지정*/
int lc;
char data[10]; /*데이터 지정*/
} Symbol[30]; /* 심볼 테이블 */
int MaxS;
struct sentence{
char label[10];
char _operator[10];
char operand[3][10];
} Sen;
int LC;
/* 화일에서 레지스터와 인스트럭션의 정보를 읽는다. */
void Initialize(){
int i=0,j=1;
FILE *regi,*inst; /*레지스터와 인스트럭션 정보 읽어온다*/
regi=fopen("reg.tbl","r"); /*레지스터 테이블 읽어온다*/
inst=fopen("inst.tbl","r"); /*인스트럭션 테이블 읽어온다*/
while(!feof(regi)){
fscanf(regi,"%s %s\n",Reg[i].reg_name,Reg[i].reg_num);
i++;
} /* 레지스터 테이블을 작성한다. */
while(!feof(inst)){
fscanf(inst,"%6s%2s%2s%4s%3s%2s%9s\n",Instr[j].instruct,Instr[j].dest,
Instr[j].sour,Instr[j].word_type,Instr[j].ins_code,Instr[j].ins_len,Instr[j].mod_reg);
j++;
} /* 명령어 테이블을 작성한다. */
MaxI=j-1;
fclose(regi);
fclose(inst);
}
int Analyze(char *operand){
int i=0;
char *regist[] = {"AX","BX","CX","DX","AL","BL","CL","DL","AH","BH","CH","DH",0X00};
/* 레지스터의 이름을 저장 */
if(isdigit(operand[0])) return 0; /* immediate 어드레스 모드를 지정 */
else
while(regist[i]!= 0x00) /*레지스터 i가 0x00이 아닐동안...,*/
if(!strcmp(operand,regist[i])){ /*레지스터 모드를 지정 */
if(i<4) return 1; /*만약,i가 4보다 작다면 1(번지)로 돌아간다*/
else return 2; /*그렇지 않다면 2(번지)로 돌아간다*/
}
else i++; /*그렇지 않다면 i를 증가*/
return 3; /* 3(번지)으로 돌아간다*/
}
#define MAX_INS 1 /* 명령어의 최대 개수를 지정 */
int Add_Chk(char *sen) /* 오퍼랜드의 어드레스 모드를 판정 */
{
register k = MaxI;
int i=0, j=0, l=0, wp=0;
char op[5][10], *opcode[] = {"mov",""};
while(sen[wp]!='\n'){
while(sen[wp] == ' ' || sen[wp] == '\t' || sen [wp] == ',') wp++;
/* 공백 , 탭 , 콤마는 통과 */
while(sen[wp]!=' '&&sen[wp]!='\t'&&sen[wp]!='\n'&&sen[wp]!=','){
*(op[j]+1)=sen[wp];
i++;
wp++;
}
*(op[j]+i)='\0';
i=0;
j++;
}
i=0;
while(strcmp(opcode[i],"")) /*오퍼랜드 코드가 공백인지 비교..,*/
if(strcmp(opcode[i],op[0]))i++; /*만약,오퍼랜드가 0이면 i증가*/
else{ /*그렇지 않다면..,*/
strcpy(Sen._operator,op[0]);/*op[0]을 Sen._operator에 저장*/
for(l=1;l<j;l++)strcpy(Sen.operand[l-1],op[l]);
break;
}
if(i==MAX_INS){
strcpy(Sen.label,op[0]);
strcpy(Sen._operator,op[1]);
for(l=2;l<j;l++)strcpy(Sen.operand[l-2],op[l]);
} /* 한문장을 분석하여 레이블, 오퍼레이터와 오퍼랜드로 분류한다 */
strcpy(Instr[0].instruct,op[0]); /* OP코드를 저장 */
switch(Analyze(op[1])){
case 0: strcpy(Instr[0].dest,"i"); /*i를 instr[0].dest에 저장*/
break;
case 1: strcpy(Instr[0].dest,"r"); /*r을 instr[0].dest에 저장*/
strcpy(Instr[0].word_type,"w"); /*w를 instr[0].word_type에 저장*/
break;
case 2: strcpy(Instr[0].dest,"r"); /*r을 instr[0].dest에 저장*/
strcpy(Instr[0].word_type,"b"); /*b를 instr[0].word_type에 저장*/
break;
case 3: strcpy(Instr[0].dest,"m"); /*m을 instr[0].dest에 저장*/
break;
}
switch(Analyze(op[2])){
case 0: strcpy(Instr[0].sour,"i"); /*i를 instr[0].sour에 저장*/
break;
case 1: strcpy(Instr[0].sour,"r"); /*r를 instr[0].sour에 저장*/
strcpy(Instr[0].word_type,"w"); /*w를 instr[0].word_type에 저장*/
break;
case 2: strcpy(Instr[0].sour,"r"); /*r를 instr[0].sour에 저장*/
strcpy(Instr[0].word_type,"b"); /*b를 instr[0].word_type에 저장*/
break;
case 3: strcpy(Instr[0].sour,"m"); /*m를 instr[0].sour에 저장*/
break;
}
while(stricmp(Instr[k].instruct,Instr[0].instruct) /*instr[k]구조체와 instr[0]구조체비교*/
||strcmp(Instr[k].dest,Instr[0].dest)
||strcmp(Instr[k].sour,Instr[0].sour)
||strcmp(Instr[k].word_type,Instr[0].word_type))
k--;
return k;
}
void PassI(char *buf){
int i;
static int j = 0;
i = Add_Chk(buf);
if(i){
printf("%04X: %s",LC,buf);
LC+=atoi(Instr[i].ins_len);
}
else{ /*비교문*/
if(!stricmp(Sen._operator,"dw")) /*Sen._operator가 dw라면..,*/
strcpy(Symbol[j].word_type,"w"); /*w를 symbol[j].word_type에 복사*/
else if(!stricmp(Sen._operator,"db")) /*Sen._operator가 db라면..,*/
strcpy(Symbol[j].word_type,"b"); /*b를 Symbol[j].word_type에 복사*/
strcpy(Symbol[j].symbol,Sen.label); /*Sen.label를 Symbol[j].symbol에 복사*/
strcpy(Symbol[j].data,Sen.operand[0]); /*Sen.operand[0]를 Symbol[j].data에 복사*/
Symbol[j].lc=LC;
printf("%04X: %s",LC,buf);
if(*Symbol[j].word_type == 'w') LC += 2; /* *Symbol[j].word_type이 w므로 위치 계수기를 2로 지정*/
else if(*Symbol[j].word_type == 'b') LC += 1;/* *Symbol[j].word_type이 b이므로 위치계수기 1로 지정*/
j++;
}
}
int btoi(char *dig){
register i=0, ret=0;
while(*(dig + i)!= '\0'){
if(*(dig + i) == '1') ret+=pow(2,strlen(dig + i)-1);
i++;
}
return ret;
}
void PassII(char *buf){
int i,j = 0,k = 0;
i = Add_Chk(buf);
if(i){
printf("%04x: %3s",LC,Instr[i].ins_code);
if(!strcmp(Instr[i].dest,"r")){ /*Instr[i].dest가 r이라면..,*/
while(stricmp(Reg[j].reg_name,Sen.operand[0]))/*레지스터와오퍼랜드[0]비교*/
j++;
strncpy(strchr(Instr[i].mod_reg,'?'),Reg[j].reg_num,3);
}
j = 0;
if(!strcmp(Instr[i].sour,"r")){ /*Instr[i].sour가 r이라면..,*/
while(stricmp(Reg[j].reg_name,Sen.operand[1])) /*레지스터와 오퍼랜드[1] 비교*/
j++;
strncpy(strchr(Instr[i].mod_reg,'?'),Reg[j].reg_num,3);
}
if(strcmp(Instr[i].dest,"m")&&strcmp(Instr[i].sour,"m"))
printf(" %02X %s",btoi(Instr[i].mod_reg),buf);
else{
if(!strcmp(Instr[i].dest, "m")) /*Instr[i].dest가 m 이라면..,*/
while(strcmp(Symbol[k].symbol,Sen.operand[0])) k++; /* 비교해서*k값 증가*/
else if(!strcmp(Instr[i].sour,"m")) /*Instr[i].sour가 m 이라면..,*/
while(strcmp(Symbol[k].symbol,Sen.operand[1])) k++; /* 비교해서 k값 증가*/
printf(" %02X %04X %s",btoi(Instr[i].mod_reg),Symbol[k].lc,buf);
}
LC+=atoi(Instr[i].ins_len);
}
else{
k=0;
while(strcmp(Symbol[k].symbol,Sen.label)) k++;
if(!strcmp(Symbol[k].word_type,"w")) /*Symbol[k].word_type이 w이면 실행*/
printf("%04X:%04X %20s",LC,atoi(Symbol[k].data),buf);
if(!strcmp(Symbol[k].word_type,"b")) /*Symbol[k].word_typeㅣ b이면 실행*/
printf("%04X: %02X %20s",LC,atoi(Symbol[k].data),buf);
if(*Symbol[k].word_type=='w') LC +=2;/**Symbol[k].word_type이 w이면 위치계수기 2로지정*/
else if(*Symbol[k].word_type == 'b') LC +=1;/**Symbol[k].word_type이 b이면 위치계수기 1로지정*/
}
}
void main(){
char buf[50];
FILE *in;
in = fopen("test1.asm","r");
Initialize();
printf("\nPass1:\n");
while(1){
fgets(buf, 30, in);
if(feof(in)) break;
PassI(buf);
} /* 패스 1 */
rewind(in);
LC=0; /*위치계수기*/
printf("\nPass2:\n");
while(1){
fgets(buf,30,in);
if(feof(in)) break;
PassII(buf);
}
fclose(in);
}
|
205
3,392
2006-05-20 23:26:27
닉네임
