- int i = 0;
- CASLCMD cmd;
- bool status = false;
- CMDARRAY macrocmd[] = {
- { IN, 2, 2, "IN" },
- { OUT, 2, 2, "OUT" },
- { RPUSH, 0, 0, "RPUSH" },
- { RPOP, 0, 0, "RPOP" },
- { 0, 0, 0, NULL }
- };
-
- do {
- if(strcmp(cmdl->cmd, macrocmd[i].cmd) == 0) {
- if(cmdl->opd->opdc < macrocmd[i].opdc_min || cmdl->opd->opdc > macrocmd[i].opdc_max) {
- setcerr(106, NULL); /* operand count mismatch */
- return false;
- }
- cmd = macrocmd[i].cmdid;
- break;
- }
- } while(macrocmd[++i].cmdid != 0);
- switch(cmd)
- {
- case IN:
- status = writeIN(cmdl->opd->opdv[0], cmdl->opd->opdv[1], pass);
- break;
- case OUT:
- status = writeOUT(cmdl->opd->opdv[0], cmdl->opd->opdv[1], pass);
- break;
- case RPUSH:
- status = writeRPUSH(pass);
- break;
- case RPOP:
- status = writeRPOP(pass);
- break;
- default:
+ char *line = malloc_chk(LINESIZE + 1, "assemble_out.line");
+ if(cmdl->opd->opdc == 0 || cmdl->opd->opdc > 2) {
+ setcerr(106, NULL); /* operand count mismatch */
+ return;
+ }
+ assembleline(" PUSH 0,GR1", pass);
+ assembleline(" PUSH 0,GR2", pass);
+ sprintf(line, " LAD GR1,%s", cmdl->opd->opdv[0]);
+ assembleline(line, pass);
+ sprintf(line, " LAD GR2,%s", cmdl->opd->opdv[1]);
+ assembleline(line, pass);
+ assembleline(" SVC 2", pass);
+ assembleline(" LAD GR1,=#A", pass);
+ assembleline(" LAD GR2,=1", pass);
+ assembleline(" SVC 2", pass);
+ assembleline(" POP GR2", pass);
+ assembleline(" POP GR1", pass);
+ FREE(line);
+}
+
+/** マクロ命令「RPUSH」をメモリに書き込む
+ * PUSH 0,GR1
+ * PUSH 0,GR2
+ * PUSH 0,GR3
+ * PUSH 0,GR4
+ * PUSH 0,GR5
+ * PUSH 0,GR6
+ * PUSH 0,GR7
+ */
+void assemble_rpush(const CMDLINE *cmdl, PASS pass)
+{
+ int i;
+ char *line = malloc_chk(LINESIZE + 1, "assemble_rpush.line");
+ if(cmdl->opd->opdc > 0) {
+ setcerr(106, NULL); /* operand count mismatch */
+ return;
+ }
+ for(i = 1; i <= GRSIZE-1; i++) {
+ sprintf(line, " PUSH 0,GR%d", i);
+ assembleline(line, pass);
+ }
+ FREE(line);
+}
+
+/**
+ * マクロ命令 "RPOP" をメモリに書き込む
+ * POP GR7
+ * POP GR6
+ * POP GR5
+ * POP GR4
+ * POP GR3
+ * POP GR3
+ * POP GR2
+ * POP GR1
+ */
+void assemble_rpop(const CMDLINE *cmdl, PASS pass)
+{
+ int i;
+ char *line = malloc_chk(LINESIZE + 1, "assemble_rpop.line");
+ if(cmdl->opd->opdc > 0) {
+ setcerr(106, NULL); /* operand count mismatch */
+ return;
+ }
+ for(i = GRSIZE-1; i >= 1; i--) {
+ sprintf(line, " POP GR%d", i);
+ assembleline(line, pass);
+ }
+ FREE(line);
+}
+
+/**
+ * assemble_macrocmd
+ * マクロ命令をアセンブル
+ * マクロ命令の場合はtrue、それ以外の場合はfalseを返す
+ * エラー発生時はcerrを設定
+ */
+bool assemble_macrocmd(const CMDLINE *cmdl, PASS pass)
+{
+ if(strcmp(cmdl->cmd, "IN") == 0) {
+ assemble_in(cmdl, pass);
+ } else if(strcmp(cmdl->cmd, "OUT") == 0) {
+ assemble_out(cmdl, pass);
+ } else if(strcmp(cmdl->cmd, "RPUSH") == 0) {
+ assemble_rpush(cmdl, pass);
+ } else if(strcmp(cmdl->cmd, "RPOP") == 0) {
+ assemble_rpop(cmdl, pass);
+ } else {