picolisp

commit 41564f1831598f43751b506d1a5e45c833b5d33a
parent abf13ccd71dc87de276ceb0db8b2f7385615179d
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue,  9 Oct 2012 07:20:59 +0200

emu64 continued
Diffstat:
M
src64/arch/emu.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src64/arch/emu.l b/src64/arch/emu.l
@@ -1,4 +1,4 @@
-# 08oct12abu
+# 09oct12abu
 # (c) Software Lab. Alexander Burger
 
 # *AsmOpcodes *AsmCode *AsmPos *Labels *AsmData *SysFun
@@ -867,7 +867,7 @@
 (asm eval/ret ()
    (genCode NIL '(eval/ret) ((absCode "evListE_E"))
       "if (E.b[0] & 14) {"
-      "   if (E.b[0] & 8)"
+      "   if (!(E.b[0] & 6))"
       "      E = *(ptr)E.p;"
       "   PC = *(uint16_t**)S.p,  S.p += 8;"
       "}"