diff --git a/src/vmsrc/cmd.pla b/src/vmsrc/cmd.pla
index 7bd7ebc..0000624 100755
--- a/src/vmsrc/cmd.pla
+++ b/src/vmsrc/cmd.pla
@@ -649,11 +649,12 @@ asm lookuptbl(dci, tbl)#1
         STA     DSTL
         LDA     ESTKH,X
         STA     DSTH
-        LDA     ESTKL+1,X
+        INX
+        LDA     ESTKL,X
         STA     SRCL
-        LDA     ESTKH+1,X
+        LDA     ESTKH,X
         STA     SRCH
-        LDY     #$00
+--      LDY     #$00
 -       LDA     (DST),Y
         BEQ     +
         CMP     (SRC),Y
@@ -662,29 +663,27 @@ asm lookuptbl(dci, tbl)#1
         ASL
         BCS     -
         LDA     (DST),Y
-        PHA
+        STA     ESTKL,X             ; MATCH
         INY
         LDA     (DST),Y
-        TAY
-        PLA
-+       INX
-        STA     ESTKL,X
-        STY     ESTKH,X
+        STA     ESTKH,X
         RTS
-++      LDY     #$00
---      LDA     (DST),Y
-        INC     DSTL
-        BEQ     +
----     ASL
-        BCS     --
-        LDA     #$02
++       STA     ESTKL,X             ; NO MATCH
+        STA     ESTKH,X
+        RTS
+++
+-       LDA     (DST),Y             ; NEXT ENTRY
+        BPL     +
+        INY
+        BNE     -
++       TYA
+        CLC
+        ADC     #$03
         ADC     DSTL
         STA     DSTL
-        BCC     -
+        BCC     --
         INC     DSTH
-        BCS     -
-+       INC     DSTH
-        BNE     ---
+        BNE     --
 end
 // def lookupidx(esd, index)
 //    word sym