From 8ec09e69f9df0377191350de22cf05e01b3358d2 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Thu, 26 Apr 2012 20:34:20 +0000 Subject: fix literals --- emu.c | 2 +- gramar.y | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/emu.c b/emu.c index 9d1a620..d5690b0 100644 --- a/emu.c +++ b/emu.c @@ -497,7 +497,7 @@ fetcharg(int a, int barg) return &mem[reg[PC]++]; default: /* literal */ - reg[Aux] = a - 0x20; + reg[Aux] = a - 0x20 - 1; return ®[Aux]; } } diff --git a/gramar.y b/gramar.y index 01c1a85..d5ec24a 100644 --- a/gramar.y +++ b/gramar.y @@ -186,8 +186,8 @@ operand } | expr { - if ($1 < 0x1f) - $$ = 0x21 + $1; + if ($1 <= 30 && $1 >= -1) + $$ = 0x20 + $1 + 1; else { $$ = 0x1f; push($1, NULL); -- cgit v1.2.3