From f958640f07ddce6100e7eed1504ecaf05f6c1f02 Mon Sep 17 00:00:00 2001
From: j8takagi <j8takagi@nifty.com>
Date: Tue, 9 Feb 2010 04:39:47 +0900
Subject: [PATCH] =?utf8?q?GR3=E3=81=8C=E4=B8=8D=E6=AD=A3=E3=81=AA=E5=A0=B4?=
 =?utf8?q?=E5=90=88=E3=81=AE=E3=82=A8=E3=83=A9=E3=83=BC=E3=82=92=E4=BF=AE?=
 =?utf8?q?=E6=AD=A3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 src/assemble.c | 1 +
 src/casl2.c    | 1 +
 2 files changed, 2 insertions(+)

diff --git a/src/assemble.c b/src/assemble.c
index 811f670..36edd2b 100644
--- a/src/assemble.c
+++ b/src/assemble.c
@@ -314,6 +314,7 @@ bool cometcmd(const CMDLINE *cmdl, PASS pass)
             /* オペランド数3 */
             if(cmdl->opd->opdc == 3) {
                 if((x = getgr(cmdl->opd->opdv[2], true)) == 0xFFFF) {
+                    setcerr(125, cmdl->cmd);    /* not GR in operand x */
                     return false;
                 }
                 cmd |= x;
diff --git a/src/casl2.c b/src/casl2.c
index 35f9a80..8e0b94a 100644
--- a/src/casl2.c
+++ b/src/casl2.c
@@ -54,6 +54,7 @@ CERRARRAY cerr[] = {
     { 122, "cannot create hash table" },
     { 123, "illegal string" },
     { 124, "more than one character in literal" },
+    { 125, "not GR in operand x" },
     { 201, "execute - out of COMET II memory" },
     { 202, "SVC input - out of Input memory" },
     { 203, "SVC output - out of COMET II memory" },
-- 
2.18.0