From efd1ff58e3d72d544c2b36eb06f6f1187d8dcd5d Mon Sep 17 00:00:00 2001 From: David Schmenk Date: Fri, 23 Mar 2018 17:13:42 -0700 Subject: [PATCH] Fix ISLE --- src/libsrc/apple/jit.pla | 6 +++--- src/toolsrc/codegen.pla | 3 --- 2 files changed, 3 insertions(+), 6 deletions(-) diff --git a/src/libsrc/apple/jit.pla b/src/libsrc/apple/jit.pla index 034aaee..951b492 100644 --- a/src/libsrc/apple/jit.pla +++ b/src/libsrc/apple/jit.pla @@ -710,9 +710,9 @@ def compiler(defptr)#0 break is $4A //puts("ISLE") - if A_IS_TOSL & TOSL_DIRTY - ^codeptr = $95; codeptr++ // STA zp,X - ^codeptr = $D0+VX; codeptr++ // ESTKL + if not A_IS_TOSL + ^codeptr = $B5; codeptr++ // LDA zp,X + ^codeptr = $D0+VX; codeptr++ // ESTKL fin ^codeptr = $D5; codeptr++ // CMP zp,X ^codeptr = $D0+1+VX; codeptr++ // ESTKL+1 diff --git a/src/toolsrc/codegen.pla b/src/toolsrc/codegen.pla index c06d89f..adceeea 100644 --- a/src/toolsrc/codegen.pla +++ b/src/toolsrc/codegen.pla @@ -435,9 +435,6 @@ def idmatch(nameptr, len, idptr, idcnt) //for i = 1 to len // if nameptr->[i - 1] <> idptr->idname.[i]; break; fin //next - puts(@idptr->idname);putln - puti(i); putln - puti(len); putln if i > len; return idptr; fin fin idptr = idptr + idptr->idname + t_id