diff --git a/Asm.pas b/Asm.pas
index 81f0f24..f05c9c5 100644
--- a/Asm.pas
+++ b/Asm.pas
@@ -584,6 +584,13 @@ while not (token.kind in [rbracech,eofsy]) do begin
       code^.s := 0;
       end {if opc = o_brk}
 
+   {handle the wdm instruction (treated as having a one-byte operand)}
+   else if opc = o_wdm then begin
+      Exp([semicolonch], true);
+      code^.r := ord(direct);
+      code^.s := $42;
+      end {if opc = o_wdm}
+
    {handle moves}
    else if opc in [o_mvn,o_mvp] then begin
       if opc = o_mvn then
diff --git a/CCommon.pas b/CCommon.pas
index 80fc429..2ecb8fe 100644
--- a/CCommon.pas
+++ b/CCommon.pas
@@ -355,7 +355,7 @@ type
 
              o_dcb,o_dcw,o_dcl,
 
-             o_brk,
+             o_brk,o_wdm,
 
              o_mvn,o_mvp,
 
diff --git a/Table.asm b/Table.asm
index 2120516..a8f71dd 100644
--- a/Table.asm
+++ b/Table.asm
@@ -639,7 +639,7 @@ names    start                          mini-assembler op code names
          dc    c'peapeireprolrorsbcsepstastxsty'
          dc    c'stztrbtsb'
          dc    c'dcbdcwdcl'
-         dc    c'brk'
+         dc    c'brkwdm'
          dc    c'mvnmvp'
          dc    c'bccbcsbeqbmibnebplbrabrlperbvc'
          dc    c'bvs'