X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=src%2Fassemble.c;h=dfc4aa25f6f6a74647dda4813ae667fef46b7abe;hp=2b2bb5d5920303a6895717a5fd3f10a5749ad2cd;hb=f34ec6671aa043a8d1a27ddb90e0bf9776ed27ac;hpb=a0ac17f859800b83d5013fd9323afeffa748fecc diff --git a/src/assemble.c b/src/assemble.c index 2b2bb5d..dfc4aa2 100644 --- a/src/assemble.c +++ b/src/assemble.c @@ -1,6 +1,9 @@ #include "casl2.h" #include "assemble.h" +/* アセンブルモード: src, label, onlylabel, asdetail, onlyassemble */ +ASMODE asmode = {false, false, false, false, false}; + /* 値を格納するポインタ */ WORD ptr; @@ -10,6 +13,37 @@ WORD lptr; /* 他のプログラムで参照する入口名 */ char *prog; +/* アセンブルのエラー定義 */ +CERRARRAY cerr_assemble[] = { + { 101, "label already defined" }, + { 102, "label table is full" }, + { 103, "label not found" }, + { 104, "label length is too long" }, + { 105, "no command in the line" }, + { 106, "operand mismatch in assemble command" }, + { 107, "no label in START" }, + { 108, "not command of operand \"r\"" }, + { 109, "not command of operand \"r1,r2\"" }, + { 110, "not command of operand \"r,adr[,x]\"" }, + { 111, "not command of operand \"adr[,x]\"" }, + { 112, "not command of no operand" }, + { 113, "operand too many in COMET II command" }, + { 117, "operand too many in DC" }, + { 118, "operand length too long" }, + { 119, "out of COMET II memory" }, + { 120, "GR0 in operand x" }, + { 121, "cannot get operand token" }, + { 122, "cannot create hash table" }, + { 123, "unclosed quote" }, + { 124, "more than one character in literal" }, + { 125, "not GR in operand x" }, +}; + +bool addcerrlist_assemble() +{ + return addcerrlist(ARRAYSIZE(cerr_assemble), cerr_assemble); +} + /* 汎用レジスタを表す文字列「GR[0-7]」から、レジスタ番号[0-7]をWORD値で返す */ /* 文字列が汎用レジスタを表さない場合は、0xFFFFを返す */ /* is_xがtrueの場合は指標レジスタ。GR0は、COMET IIの仕様により、エラー発生 */ @@ -24,7 +58,7 @@ WORD getgr(const char *str, bool is_x) return 0xFFFF; } r = (WORD)(*(str+2) - '0'); - /* 指標レジスタとして用いることはできない */ + /* GR0は指標レジスタとして用いることができない */ if(is_x == true && r == 0x0) { setcerr(120, NULL); /* GR0 in operand x */ return 0x0; @@ -56,13 +90,14 @@ WORD getadr(const char *prog, const char *str, PASS pass) bool writememory(WORD word, WORD adr, PASS pass) { bool status = false; + /* COMET IIメモリオーバーの場合 */ if(adr >= memsize) { setcerr(119, word2n(adr)); /* out of COMET II memory */ } if(cerrno == 0) { memory[adr] = word; - if(pass == SECOND && (&asmode)->asdetail == true) { + if(pass == SECOND && asmode.asdetail == true) { fprintf(stdout, "\t#%04X\t#%04X\n", adr, word); } status = true; @@ -95,7 +130,7 @@ void writestr(const char *str, bool literal, PASS pass) for(; ;) { /* 閉じ「'」がないまま文字列が終了した場合 */ if(*p == '\0') { - setcerr(123, str); /* illegal string */ + setcerr(123, str); /* unclosed quote */ break; } /* 「'」の場合、次の文字が「'」でない場合は正常終了 */ @@ -301,8 +336,8 @@ bool cometcmd(const CMDLINE *cmdl, PASS pass) status = true; } } - /* オペランド数2〜3。第2オペランドはアドレス、 - 第3オペランドは指標レジスタとして用いる汎用レジスタ */ + /* オペランド数2〜3。第2オペランドはアドレス、 */ + /* 第3オペランドは指標レジスタとして用いる汎用レジスタ */ else if(cmdl->opd->opdc == 2 || cmdl->opd->opdc == 3) { if((cmd = getcmdcode(cmdl->cmd, R_ADR_X_)) == 0xFFFF && (cmd = getcmdcode(cmdl->cmd, R_ADR_X)) == 0xFFFF) @@ -326,7 +361,7 @@ bool cometcmd(const CMDLINE *cmdl, PASS pass) status = true; } } else { - setcerr(113, cmdl->cmd); /* command not defined */ + setcerr(113, cmdl->cmd); /* operand too many in COMET II command */ return false; } } @@ -386,7 +421,7 @@ bool assembleline(const CMDLINE *cmdl, PASS pass) ; } else if(cerrno == 0) { - setcerr(113, cmdl->cmd); /* command not defined */ + setcerr(113, cmdl->cmd); /* operand too many in COMET II command */ } /* エラーが発生していないか確認 */ if(cerrno == 0) { @@ -409,22 +444,20 @@ bool assemble(const char *file, PASS pass) char *line; FILE *fp; - if(create_cmdtype_code() == false) { - return false; - } + addcerrlist_assemble(); if((fp = fopen(file, "r")) == NULL) { perror(file); return false; } for(; ;) { cmdl = malloc(sizeof(CMDLINE)); - line = malloc(LINESIZE+1); + line = malloc(LINESIZE + 1); if((line = fgets(line, LINESIZE, fp)) == NULL) { break; } lineno++; - if((pass == FIRST && (&asmode)->src == true) || - (pass == SECOND && (&asmode)->asdetail == true)) + if((pass == FIRST && asmode.src == true) || + (pass == SECOND && asmode.asdetail == true)) { printline(stdout, file, lineno, line); }