diff --git a/code6805.c b/code6805.c
index b89161e..9630e3b 100644
--- a/code6805.c
+++ b/code6805.c
@@ -393,6 +393,8 @@ BEGIN
 
    if (DecodePseudo()) return;
 
+   if (DecodeTimexPseudo(True)) return;
+
    if (DecodeMotoPseudo(True)) return;
 
    /* Anweisungen ohne Argument */
diff --git a/codepseudo.c b/codepseudo.c
index 8d474de..817cc93 100644
--- a/codepseudo.c
+++ b/codepseudo.c
@@ -639,6 +639,68 @@ BEGIN
     END
 END
 
+	static void DecodeWRD(Word Index)
+BEGIN
+   int z;
+   Boolean OK;
+   TempResult t;
+   LongInt Rep,z2;
+
+   if (ArgCnt==0) WrError(1110);
+   else
+    BEGIN
+     z=1; OK=True;
+     do
+      BEGIN
+       KillBlanks(ArgStr[z]);
+       OK=CutRep(ArgStr[z],&Rep);
+       if (OK)
+        BEGIN
+         EvalExpression(ArgStr[z],&t);
+         switch (t.Typ)
+          BEGIN
+           case TempInt:
+            if (NOT RangeCheck(t.Contents.Int,Int16))
+             BEGIN
+              WrError(1320); OK=False;
+             END
+            else if (CodeLen+(2*Rep)>MaxCodeLen)
+             BEGIN
+              WrError(1920); OK=False;
+             END
+            else
+             for (z2=0; z2<Rep; z2++)
+              BEGIN
+               if (M16Turn)
+                BEGIN
+                 BAsmCode[CodeLen++]=Hi(t.Contents.Int);
+                 BAsmCode[CodeLen++]=Lo(t.Contents.Int);
+                END
+               else
+                BEGIN
+                 BAsmCode[CodeLen++]=Lo(t.Contents.Int);
+                 BAsmCode[CodeLen++]=Hi(t.Contents.Int);
+                END
+             END
+            break;
+           case TempFloat:
+            WrError(1135); OK=False;
+            break;
+           case TempString:
+            WrError(1135); OK=False;
+            break;
+           default:
+            OK=False; 
+            break;
+          END
+        END  
+       z++;
+      END
+     while ((z<=ArgCnt) AND (OK));
+     if (NOT OK) CodeLen=0;
+    END
+END
+
 	static void DecodeADR(Word Index)
 BEGIN
    int z;
@@ -761,6 +823,375 @@ BEGIN
    return LookupInstTable(InstTable,OpPart);
 END
 
+
+static unsigned char timex_translate(unsigned char c)
+{
+  switch (c)
+    {
+    case '0':
+    case '1':
+    case '2':
+    case '3':
+    case '4':
+    case '5':
+    case '6':
+    case '7':
+    case '8':
+    case '9':
+      return c-'0';
+    case 'a':
+    case 'A':
+    case 'b':
+    case 'B':
+    case 'c':
+    case 'C':
+    case 'd':
+    case 'D':
+    case 'e':
+    case 'E':
+    case 'f':
+    case 'F':
+    case 'g':
+    case 'G':
+    case 'h':
+    case 'H':
+    case 'i':
+    case 'I':
+    case 'j':
+    case 'J':
+    case 'k':
+    case 'K':
+    case 'l':
+    case 'L':
+    case 'm':
+    case 'M':
+    case 'n':
+    case 'N':
+    case 'o':
+    case 'O':
+    case 'p':
+    case 'P':
+    case 'q':
+    case 'Q':
+    case 'r':
+    case 'R':
+    case 's':
+    case 'S':
+    case 't':
+    case 'T':
+    case 'u':
+    case 'U':
+    case 'v':
+    case 'V':
+    case 'w':
+    case 'W':
+    case 'x':
+    case 'X':
+    case 'y':
+    case 'Y':
+    case 'z':
+    case 'Z':
+	c &= ~0x20;
+	return 0xa + c - 'A';
+    case ' ':
+      return 0x24;
+    case '!':
+      return 0x25;
+    case '"':
+      return 0x26;
+    case '#':
+      return 0x27;
+    case '>':
+      return 0x28;
+    case '%':
+      return 0x29;
+    case '&':
+      return 0x2a;
+    case '\'':
+      return 0x2b;
+    case '(':
+      return 0x2c;
+    case ')':
+      return 0x2d;
+    case '*':
+      return 0x2e;
+    case '+':
+      return 0x2f;
+    case ',':
+      return 0x30;
+    case '-':
+      return 0x31;
+    case '.':
+      return 0x32;
+    case '/':
+      return 0x33;
+    case ':':
+      return 0x34;
+    case '\\':
+      return 0x35;
+    case '=':
+      return 0x37;
+    case '?':
+      return 0x39;
+    case '_':
+      return 0x3a;
+    default:
+      WrError(1320); 
+      CodeLen=0;
+      fprintf (stderr, "Cannot encode %c in 'timex' encoding\n", c);
+    }
+}
+
+
+static void timex_translate_buf(unsigned char *c, size_t l)
+{
+  for (;l;c++,l--) 
+    *c = timex_translate(*c);
+}
+
+
+	static void DecodeTIMEX(Word Index)
+BEGIN
+   int z;
+   Boolean OK;
+   TempResult t;
+   LongInt Rep,z2;
+
+   if (ArgCnt==0) WrError(1110);
+   else
+    BEGIN
+     z=1; OK=True;
+     do
+      BEGIN
+       KillBlanks(ArgStr[z]);
+       OK=CutRep(ArgStr[z],&Rep);
+       if (OK)
+        BEGIN
+         EvalExpression(ArgStr[z],&t);
+         switch (t.Typ)
+          BEGIN
+           case TempInt:
+            if (NOT RangeCheck(t.Contents.Int,Int8))
+             BEGIN
+              WrError(1320); OK=False;
+             END
+            else if (CodeLen+Rep>MaxCodeLen)
+             BEGIN
+              WrError(1920); OK=False;
+             END
+            else
+             BEGIN
+              memset(BAsmCode+CodeLen,t.Contents.Int,Rep);
+	      timex_translate_buf(BAsmCode+CodeLen,Rep);
+              CodeLen+=Rep;
+             END
+            break;
+           case TempFloat:
+            WrError(1135); OK=False;
+            break;
+           case TempString:
+            TranslateString(t.Contents.Ascii);
+            if (CodeLen+Rep*strlen(t.Contents.Ascii)>MaxCodeLen)
+             BEGIN
+              WrError(1920); OK=False;
+             END
+            else for (z2=0; z2<Rep; z2++)
+             BEGIN
+              memcpy(BAsmCode+CodeLen,t.Contents.Ascii,strlen(t.Contents.Ascii));
+	      timex_translate_buf(BAsmCode+CodeLen,strlen(t.Contents.Ascii));
+              CodeLen+=strlen(t.Contents.Ascii);
+             END
+            break;
+           default:
+            OK=False; 
+            break;
+          END
+        END  
+       z++;
+      END
+     while ((z<=ArgCnt) AND (OK));
+     if (NOT OK) CodeLen=0;
+    END
+END
+
+
+static unsigned char timex6_translate(unsigned char c)
+{
+  switch(c) {
+  case '0':
+  case '1':
+  case '2':
+  case '3':
+  case '4':
+  case '5':
+  case '6':
+  case '7':
+  case '8':
+  case '9':
+    return c - '0';  
+
+
+
+  case 'a':
+  case 'A':
+  case 'b':
+  case 'B':
+  case 'c':
+  case 'C':
+  case 'd':
+  case 'D':
+  case 'e':
+  case 'E':
+  case 'f':
+  case 'F':
+  case 'g':
+  case 'G':
+  case 'h':
+  case 'H':
+    c &= ~0x20;
+    return 0xa + c - 'A';
+
+  case 'i':
+  case 'I':
+    return 0x1;
+  case ':':
+    return 0x12;
+  case 'l':
+  case 'L':
+  case 'm':
+  case 'M':
+  case 'n':
+  case 'N':
+    c &= ~0x20;
+    return 0x13 + c - 'L';
+  case 'o':
+  case 'O':
+    return 0x0;
+  case 'p':
+  case 'P':
+    return 0x16;
+  case 'r':
+    return 0x1c;
+  case 'R':
+    return 0x17;
+  case 's':
+  case 'S':
+    return 0x5;
+  case 't':
+  case 'T':
+  case 'u':
+  case 'U':
+    return 0x18 + c - 'T';
+  case 'w':
+  case 'W':
+    return 0x1a;
+  case 'y':
+  case 'Y':
+    return 0x1b;
+  case ' ':
+    return 0x1d;
+  case '-':
+    return 0x1e;
+  case '+':
+    return 0x1f;
+  default:
+    WrError(1320); 
+    CodeLen=0;
+    fprintf (stderr, "Cannot encode %c in 'timex6' encoding\n", c);
+  }
+}
+
+
+static void timex6_translate_buf(unsigned char *c, size_t l)
+{
+  for (;l;c++,l--) 
+    *c = timex6_translate(*c);
+}
+
+
+	static void DecodeTIMEX6(Word Index)
+BEGIN
+   int z;
+   Boolean OK;
+   TempResult t;
+   LongInt Rep,z2;
+
+   if (ArgCnt==0) WrError(1110);
+   else
+    BEGIN
+     z=1; OK=True;
+     do
+      BEGIN
+       KillBlanks(ArgStr[z]);
+       OK=CutRep(ArgStr[z],&Rep);
+       if (OK)
+        BEGIN
+         EvalExpression(ArgStr[z],&t);
+         switch (t.Typ)
+          BEGIN
+           case TempInt:
+            if (NOT RangeCheck(t.Contents.Int,Int8))
+             BEGIN
+              WrError(1320); OK=False;
+             END
+            else if (CodeLen+Rep>MaxCodeLen)
+             BEGIN
+              WrError(1920); OK=False;
+             END
+            else
+             BEGIN
+              memset(BAsmCode+CodeLen,t.Contents.Int,Rep);
+	      timex6_translate_buf(BAsmCode+CodeLen,Rep);
+              CodeLen+=Rep;
+             END
+            break;
+           case TempFloat:
+            WrError(1135); OK=False;
+            break;
+           case TempString:
+            TranslateString(t.Contents.Ascii);
+            if (CodeLen+Rep*strlen(t.Contents.Ascii)>MaxCodeLen)
+             BEGIN
+              WrError(1920); OK=False;
+             END
+            else for (z2=0; z2<Rep; z2++)
+             BEGIN
+              memcpy(BAsmCode+CodeLen,t.Contents.Ascii,strlen(t.Contents.Ascii));
+	      timex6_translate_buf(BAsmCode+CodeLen,strlen(t.Contents.Ascii));
+              CodeLen+=strlen(t.Contents.Ascii);
+             END
+            break;
+           default:
+            OK=False; 
+            break;
+          END
+        END  
+       z++;
+      END
+     while ((z<=ArgCnt) AND (OK));
+     if (NOT OK) CodeLen=0;
+    END
+END
+
+
+	Boolean DecodeTimexPseudo(Boolean Turn)
+BEGIN
+   static PInstTable InstTable=Nil;
+
+   if (InstTable==Nil)
+    BEGIN
+     InstTable=CreateInstTable(17);
+     AddInstTable(InstTable,"DB",0,DecodeBYT);
+     AddInstTable(InstTable,"DW",0,DecodeWRD);
+     AddInstTable(InstTable,"TIMEX",0,DecodeTIMEX);
+     AddInstTable(InstTable,"TIMEX6",0,DecodeTIMEX6);
+    END
+
+   M16Turn=Turn;
+   return LookupInstTable(InstTable,OpPart);
+END
+
+
 	static void DigIns(char Ch, Byte Pos, Word *w)
 BEGIN
    Byte wpos=Pos>>2,bpos=(Pos&3)*4;
diff --git a/codepseudo.h b/codepseudo.h
index 0ffbfe8..fc164a7 100644
--- a/codepseudo.h
+++ b/codepseudo.h
@@ -24,6 +24,8 @@ extern void ConvertDec(Double F, Word *w);
 
 extern Boolean DecodeIntelPseudo(Boolean Turn);
 
+extern Boolean DecodeTimexPseudo(Boolean Turn);
+
 extern Boolean DecodeMotoPseudo(Boolean Turn);
 
 extern void AddMoto16PseudoONOFF(void);