4 * @brief ファイルストリームの現在行を番号付きで表示する
8 * @param *stream ファイルストリーム
9 * @param *filename ファイル名
13 void printline(FILE *stream, const char *filename, int lineno, char *line);
18 * アドレスには、リテラル/10進定数/16進定数/アドレス定数が含まれる
23 * @param *str アドレスを表す文字列
24 * @param pass アセンブラが何回目かを表す数
26 WORD getadr(const char *prog, const char *str, PASS pass);
29 * @brief 汎用レジスタを表す文字列からレジスタ番号を返す
31 * @brief 文字列が汎用レジスタを表さない場合は、0xFFFFを返す
33 * is_xがtrueの場合は指標レジスタとなり、GR0が指定された場合はCOMET IIの仕様によりエラー発生
35 * @return レジスタ番号[0-7]を表すWORD値
37 * @param *str 汎用レジスタを表す文字列。「GR0」「GR1」・・・「GR7」のいずれか
38 * @param is_x trueの場合は指標レジスタ
40 WORD grword(const char *str, bool is_x);
45 * リテラルには、10進定数/16進定数/文字定数が含まれる
47 * @param *str リテラル。定数の前に等号(=)をつけて記述される
48 * @param pass アセンブラが何回目かを表す数
50 WORD getliteral(const char *str, PASS pass);
53 * @brief アドレス値をメモリに書き込む
59 * @param pass アセンブラが何回目かを表す数
61 void writememory(WORD word, WORD adr, PASS pass);
68 * @param *str アドレスを表す文字列。リテラル/10進定数/16進定数/アドレス定数が含まれる
69 * @param literal リテラルの場合はtrue
70 * @param pass アセンブラが何回目かを表す数
72 void writestr(const char *str, bool literal, PASS pass);
79 * @param str アドレスを表す文字列。10進定数/16進定数/アドレス定数が含まれる
80 * @param pass アセンブラが何回目かを表す数
82 void writedc(const char *str, PASS pass);
85 * @brief アセンブラ命令STARTの処理
86 * @relatesalso Casl2cmd
90 * @param *cmdl 1行分のラベル・コマンド・オペランド
91 * @param pass アセンブラが何回目かを表す数
93 void assemble_start(const CMDLINE *cmdl, PASS pass);
97 * @relatesalso Casl2cmd
101 * @param *cmdl 1行分のラベル・コマンド・オペランド
102 * @param pass アセンブラが何回目かを表す数
104 void assemble_ds(const CMDLINE *cmdl, PASS pass);
107 * @brief アセンブラ命令ENDの処理
108 * @relatesalso Casl2cmd
112 * @param *cmdl 1行分のラベル・コマンド・オペランド
113 * @param pass アセンブラが何回目かを表す数
115 void assemble_end(const CMDLINE *cmdl, PASS pass);
118 * @brief アセンブラ命令DCの処理
119 * @relatesalso Casl2cmd
123 * @param *cmdl 1行分のラベル・コマンド・オペランド
124 * @param pass アセンブラが何回目かを表す数
126 void assemble_dc(const CMDLINE *cmdl, PASS pass);
129 * @brief マクロ命令 "IN IBUF,LEN" をアセンブル
140 * @relatesalso Casl2cmd
145 * @param *cmdl 1行分のラベル・コマンド・オペランド
146 * @param pass アセンブラが何回目かを表す数
148 void assemble_in(const CMDLINE *cmdl, PASS pass);
151 * @brief マクロ命令 "OUT OBUF,LEN" をアセンブル
165 * @relatesalso Casl2cmd
169 * @param *cmdl 1行分のラベル・コマンド・オペランド
170 * @param pass アセンブラが何回目かを表す数
172 void assemble_out(const CMDLINE *cmdl, PASS pass);
175 * @brief マクロ命令 "RPUSH" をメモリに書き込む
186 * @relatesalso Casl2cmd
190 * @param *cmdl 1行分のラベル・コマンド・オペランド
191 * @param pass アセンブラが何回目かを表す数
193 void assemble_rpush(const CMDLINE *cmdl, PASS pass);
196 * @brief マクロ命令 "RPOP" をメモリに書き込む
208 * @relatesalso Casl2cmd
212 * @param *cmdl 1行分のラベル・コマンド・オペランド
213 * @param pass アセンブラが何回目かを表す数
215 void assemble_rpop(const CMDLINE *cmdl, PASS pass);
219 * @brief casl2cmdから関数ポインタで呼び出される関数
223 * @brief アセンブラ言語CASL IIの命令を処理する。
227 * @relatesalso Casl2cmd
229 * @return 命令が表で定義されている場合はtrue、それ以外の場合はfalseを返す
231 * @param *cmdtbl アセンブラ言語CASL IIの命令表
232 * @param *cmdl 1行分のラベル・コマンド・オペランド
233 * @param pass アセンブルが何回目か
235 bool casl2cmd(CMD *cmdtbl, const CMDLINE *cmdl, PASS pass);
238 * @brief システムCOMET IIの命令をアセンブルする
240 * @return アセンブル成功時はtrue、失敗時はfalseを返す
242 * @param *cmdl 1行分のラベル・コマンド・オペランド
243 * @param pass アセンブルが何回目か
245 bool assemble_comet2cmd(const CMDLINE *cmdl, PASS pass);
248 * @brief トークンをアセンブルする
250 * @return アセンブル成功時はtrue、失敗時はfalseを返す
252 * @param *cmdl 1行分のラベル・コマンド・オペランド
253 * @param pass アセンブラが何回目かを表す数
255 bool assembletok(const CMDLINE *cmdl, PASS pass);
260 * passが1の場合はラベルを登録し、2の場合はラベルからアドレスを読み込む
262 * @return アセンブル成功時はtrue、失敗時はfalseを返す
264 * @param *line 1行分の文字列
265 * @param pass アセンブラが何回目かを表す数
267 bool assembleline(const char *line, PASS pass);
272 static CERR cerr_assemble[] = {
273 { 106, "operand mismatch in CASL II command" },
274 { 107, "no label in START" },
275 { 108, "not command of operand \"r\"" },
276 { 109, "not command of operand \"r1,r2\"" },
277 { 110, "not command of operand \"r,adr[,x]\"" },
278 { 111, "not command of operand \"adr[,x]\"" },
279 { 112, "not command of no operand" },
280 { 113, "operand too many in COMET II command" },
281 { 119, "out of COMET II memory" },
282 { 120, "GR0 in operand x" },
283 { 122, "cannot create hash table" },
284 { 124, "more than one character in literal" },
285 { 125, "not GR in operand x" },
291 static CMD ascmd[] = {
292 { "START", assemble_start },
293 { "END", assemble_end },
294 { "DS", assemble_ds },
295 { "DC", assemble_dc },
302 static CMD macrocmd[] = {
303 { "OUT", assemble_out },
304 { "IN", assemble_in },
305 { "RPUSH", assemble_rpush },
306 { "RPOP", assemble_rpop },
312 ASMODE asmode = {false, false, false, false, false};
314 void printline(FILE *stream, const char *filename, int lineno, char *line)
316 fprintf(stream, "%s:%5d:%s", filename, lineno, line);
319 WORD getadr(const char *prog, const char *str, PASS pass)
324 adr = getliteral(str, pass);
325 } else if(isdigit(str[0]) || str[0] == '-' || str[0] == '#') {
329 if((adr = getlabel(prog, str)) == 0xFFFF) {
330 setcerr(103, str); /* label not found */
337 WORD grword(const char *str, bool is_x)
341 /* "GR[0-7]" 以外の文字列では、0xFFFFを返して終了 */
342 if(strlen(str) != 3 ||
343 strncmp(str, "GR", 2) != 0 ||
344 str[2] < '0' || str[2] > '0' + (GRSIZE - 1))
348 r = (WORD)(str[2] - '0');
349 /* GR0は指標レジスタとして用いることができない */
350 if(is_x == true && r == 0x0) {
351 setcerr(120, ""); /* GR0 in operand x */
357 WORD getliteral(const char *str, PASS pass)
359 assert(str[0] == '=');
360 WORD adr = asptr->lptr;
363 if(str[0] == '\'') { /* 文字定数 */
364 writestr(str, true, pass);
366 writememory(nh2word(str), (asptr->lptr)++, pass);
371 void writememory(WORD word, WORD adr, PASS pass)
375 /* メモリオーバーの場合、エラー発生 */
376 if(adr >= sys->memsize) {
377 setcerr(119, (n = word2n(adr))); /* out of COMET II memory */
381 (sys->memory)[adr] = word;
382 if(pass == SECOND && asmode.asdetail == true) {
383 fprintf(stdout, "\t#%04X\t#%04X\n", adr, word);
387 void writestr(const char *str, bool literal, PASS pass)
389 assert(str[0] == '\'');
393 /* 「'」の場合、1文字スキップし、次の文字が「'」でなければ正常終了 */
394 for(i = 1; str[i] != '\'' || str[++i] == '\''; i++) {
395 /* 「'」が閉じないまま文字列が終了した場合はエラー */
397 setcerr(123, str); /* unclosed quote */
400 if(literal == true && lw == true) {
401 setcerr(124, str); /* more than one character in literal */
404 /*リテラルの場合はリテラル領域に書込 */
405 if(literal == true) {
406 writememory(str[i], (asptr->lptr)++, pass);
409 writememory(str[i], (asptr->ptr)++, pass);
414 void writedc(const char *str, PASS pass)
419 writestr(str, false, pass);
421 if(str[0] == '#' || isdigit(str[0]) || str[0] == '-') {
424 if(pass == SECOND && (adr = getlabel(asptr->prog, str)) == 0xFFFF) {
425 setcerr(103, str); /* label not found */
428 writememory(adr, (asptr->ptr)++, pass);
432 void assemble_start(const CMDLINE *cmdl, PASS pass)
434 if(cmdl->opd->opdc > 1) {
435 setcerr(106, ""); /* operand count mismatch */
438 if(!cmdl->label[0]) {
439 setcerr(107, ""); /* no label in START */
443 strcpy(asptr->prog, cmdl->label);
444 /* オペランドがある場合、書き込みと実行の開始アドレスを設定 */
445 if(cmdl->opd->opdv[0] != NULL) {
446 asptr->ptr = execptr->start = getadr(asptr->prog, cmdl->opd->opdv[0], pass);
450 void assemble_end(const CMDLINE *cmdl, PASS pass)
452 if(cmdl->opd->opdc > 0) {
453 setcerr(106, ""); /* operand count mismatch */
456 /* 1回目のアセンブルの場合は、リテラル領域開始アドレスを設定 */
458 asptr->lptr = asptr->ptr;
460 /* 2回目のアセンブルの場合は、リテラル領域終了アドレスを実行終了アドレスとして設定 */
461 else if(pass == SECOND) {
462 execptr->end = asptr->lptr;
464 strcpy(asptr->prog, "");
467 void assemble_ds(const CMDLINE *cmdl, PASS pass)
470 if(cmdl->opd->opdc != 1) {
471 setcerr(106, ""); /* operand count mismatch */
474 for(i = 0; i < atoi(cmdl->opd->opdv[0]); i++) {
475 writememory(0x0, (asptr->ptr)++, pass);
482 void assemble_dc(const CMDLINE *cmdl, PASS pass)
485 if(cmdl->opd->opdc == 0 || cmdl->opd->opdc >= OPDSIZE) {
486 setcerr(106, ""); /* operand count mismatch */
489 for(i = 0; i < cmdl->opd->opdc; i++) {
490 writedc(cmdl->opd->opdv[i], pass);
497 void assemble_in(const CMDLINE *cmdl, PASS pass)
499 char *line = malloc_chk(LINESIZE + 1, "assemble_in.line");
500 if(cmdl->opd->opdc == 0 || cmdl->opd->opdc > 2) {
501 setcerr(106, ""); /* operand count mismatch */
504 assembleline(" PUSH 0,GR1", pass);
505 assembleline(" PUSH 0,GR2", pass);
506 sprintf(line, " LAD GR1,%s", cmdl->opd->opdv[0]);
507 assembleline(line, pass);
508 sprintf(line, " LAD GR2,%s", cmdl->opd->opdv[1]);
509 assembleline(line, pass);
510 assembleline(" SVC 1", pass);
511 assembleline(" POP GR2", pass);
512 assembleline(" POP GR1", pass);
516 void assemble_out(const CMDLINE *cmdl, PASS pass)
518 char *line = malloc_chk(LINESIZE + 1, "assemble_out.line");
519 if(cmdl->opd->opdc == 0 || cmdl->opd->opdc > 2) {
520 setcerr(106, ""); /* operand count mismatch */
523 assembleline(" PUSH 0,GR1", pass);
524 assembleline(" PUSH 0,GR2", pass);
525 sprintf(line, " LAD GR1,%s", cmdl->opd->opdv[0]);
526 assembleline(line, pass);
527 sprintf(line, " LAD GR2,%s", cmdl->opd->opdv[1]);
528 assembleline(line, pass);
529 assembleline(" SVC 2", pass);
530 assembleline(" LAD GR1,=#A", pass);
531 assembleline(" LAD GR2,=1", pass);
532 assembleline(" SVC 2", pass);
533 assembleline(" POP GR2", pass);
534 assembleline(" POP GR1", pass);
538 void assemble_rpush(const CMDLINE *cmdl, PASS pass)
541 char *line = malloc_chk(LINESIZE + 1, "assemble_rpush.line");
542 if(cmdl->opd->opdc > 0) {
543 setcerr(106, ""); /* operand count mismatch */
546 for(i = 1; i <= GRSIZE-1; i++) {
547 sprintf(line, " PUSH 0,GR%d", i);
548 assembleline(line, pass);
553 void assemble_rpop(const CMDLINE *cmdl, PASS pass)
556 char *line = malloc_chk(LINESIZE + 1, "assemble_rpop.line");
557 if(cmdl->opd->opdc > 0) {
558 setcerr(106, ""); /* operand count mismatch */
561 for(i = GRSIZE-1; i >= 1; i--) {
562 sprintf(line, " POP GR%d", i);
563 assembleline(line, pass);
568 bool casl2cmd(CMD *cmdtbl, const CMDLINE *cmdl, PASS pass)
572 for(i = 0; cmdtbl[i].name[0]; i++) {
573 if(strcmp(cmdl->cmd, cmdtbl[i].name) == 0) {
574 cmdptr = cmdtbl[i].ptr;
575 (*cmdptr)(cmdl, pass);
582 bool assemble_comet2cmd(const CMDLINE *cmdl, PASS pass)
584 WORD cmd, r_r1, x_r2, adr;
587 if(cmdl->opd->opdc == 0) {
588 if((cmd = getcmdcode(cmdl->cmd, NONE)) == 0xFFFF) {
589 setcerr(112, cmdl->cmd); /* not command of no operand */
592 writememory(cmd, (asptr->ptr)++, pass);
595 else if((r_r1 = grword(cmdl->opd->opdv[0], false)) != 0xFFFF) {
597 if(cmdl->opd->opdc == 1) {
598 if((cmd = getcmdcode(cmdl->cmd, R_)) == 0xFFFF) {
599 setcerr(108, cmdl->cmd); /* not command of operand "r" */
603 writememory(cmd, (asptr->ptr)++, pass);
605 /* オペランド数2。第2オペランドは汎用レジスタ */
606 else if(cmdl->opd->opdc == 2 && (x_r2 = grword(cmdl->opd->opdv[1], false)) != 0xFFFF) {
607 if((cmd = getcmdcode(cmdl->cmd, R1_R2)) == 0xFFFF) {
608 setcerr(109, cmdl->cmd); /* not command of operand "r1,r2" */
611 cmd |= ((r_r1 << 4) | x_r2); /* 第1オペランド、第2オペランドともに汎用レジスタ */
613 writememory(cmd, (asptr->ptr)++, pass);
616 else if(cmdl->opd->opdc == 2 || cmdl->opd->opdc == 3) {
617 if((cmd = getcmdcode(cmdl->cmd, R_ADR_X)) == 0xFFFF) {
618 setcerr(110, cmdl->cmd); /* not command of operand "r,adr[,x]" */
621 cmd |= (r_r1 << 4); /* 第1オペランドは汎用レジスタ */
623 if(cmdl->opd->opdc == 3) { /* 第3オペランドは指標レジスタとして用いる汎用レジスタ */
624 if((x_r2 = grword(cmdl->opd->opdv[2], true)) == 0xFFFF) {
625 setcerr(125, cmdl->cmd); /* not GR in operand x */
630 adr = getadr(asptr->prog, cmdl->opd->opdv[1], pass); /* 第2オペランドはアドレス */
632 writememory(cmd, (asptr->ptr)++, pass);
633 writememory(adr, (asptr->ptr)++, pass);
635 setcerr(113, cmdl->cmd); /* operand too many in COMET II command */
639 /* オペランド数1または2。第1オペランドはアドレス */
640 else if(cmdl->opd->opdc == 1 || cmdl->opd->opdc == 2) {
641 if((cmd = getcmdcode(cmdl->cmd, ADR_X)) == 0xFFFF) {
642 setcerr(111, cmdl->cmd); /* not command of operand "adr[,x]" */
646 if(cmdl->opd->opdc == 2) { /* 第2オペランドは指標レジスタとして用いる汎用レジスタ */
647 x_r2 = grword(cmdl->opd->opdv[1], true);
653 /* CALLの場合はプログラムの入口名を表すラベルを取得 */
654 /* CALL以外の命令の場合と、プログラムの入口名を取得できない場合は、 */
655 /* 同一プログラム内のラベルを取得 */
656 if(pass == SECOND && cmd == 0x8000) { /* CALL命令 */
657 adr = getlabel("", cmdl->opd->opdv[0]);
659 if(cmd != 0x8000 || (pass == SECOND && adr == 0xFFFF)) {
660 adr = getadr(asptr->prog, cmdl->opd->opdv[0], pass);
663 writememory(cmd, (asptr->ptr)++, pass);
664 writememory(adr, (asptr->ptr)++, pass);
666 return (cerr->num == 0) ? true : false;
669 bool assembletok(const CMDLINE *cmdl, PASS pass)
675 /* アセンブラ命令またはマクロ命令の書込 */
676 if(casl2cmd(ascmd, cmdl, pass) == false && casl2cmd(macrocmd, cmdl, pass) == false) {
678 if(assemble_comet2cmd(cmdl, pass) == false) {
680 setcerr(113, cmdl->cmd); /* operand too many in COMET II command */
684 return (cerr->num == 0) ? true : false;
687 bool assembleline(const char *line, PASS pass)
693 cmdl = linetok(line);
694 stat = (cerr->num == 0) ? true : false;
697 if(pass == FIRST && cmdl->label[0]) {
698 stat = addlabel(asptr->prog, cmdl->label, asptr->ptr);
702 stat = assembletok(cmdl, pass);
705 if(cmdl->opd != NULL) {
706 for(i = 0; i < cmdl->opd->opdc; i++) {
707 FREE(cmdl->opd->opdv[i]);
718 * @brief 指定された名前のファイルをアセンブル
720 * アセンブル完了時はtrue、エラー発生時はfalseを返す
722 bool assemblefile(const char *file, PASS pass)
728 if((fp = fopen(file, "r")) == NULL) {
733 for(line = malloc_chk(LINESIZE + 1, "assemble.line"); fgets(line, LINESIZE, fp); lineno++) {
734 if((pass == FIRST && asmode.src == true) || (pass == SECOND && asmode.asdetail == true)) {
735 printline(stdout, file, lineno, line);
737 if(assembleline(line, pass) == false) {
742 fprintf(stderr, "Assemble error - %d: %s\n", cerr->num, cerr->msg);
743 printline(stderr, file, lineno, line);
747 return (cerr->num == 0) ? true : false;
750 bool assemble(int filec, char *filev[], WORD adr)
757 asptr = malloc_chk(sizeof(ASPTR), "asptr"); /* アセンブル時のプロパティ用の領域確保 */
758 asptr->prog = malloc_chk(LABELSIZE + 1, "asptr.prog");
760 /* アセンブル。ラベル表作成のため、2回行う */
761 for(pass = FIRST; pass <= SECOND; pass++) {
762 for(i = 0; i < filec; i++) {
766 } else if(pass == SECOND) {
769 if(execmode.trace == true || execmode.dump == true ||
770 asmode.src == true || asmode.label == true || asmode.asdetail == true)
772 fprintf(stdout, "\nAssemble %s (%d)\n", filev[i], pass);
775 stat = assemblefile(filev[i], pass);
780 if(pass == FIRST && asmode.label == true) {
781 fprintf(stdout, "\nLabel::::\n");
783 if(asmode.onlylabel == true) {
789 freelabel(); /* ラベルハッシュ表を解放 */
790 FREE(asptr->prog); /* アセンブル時のプロパティを解放 */
795 /* assemble.hで定義された関数群 */
796 void addcerrlist_assemble()
801 addcerrlist(ARRAYSIZE(cerr_assemble), cerr_assemble);
804 void outassemble(const char *file)
808 if((fp = fopen(file, "w")) == NULL) {
812 fwrite(sys->memory, sizeof(WORD), execptr->end, fp);