Allow the WDM instruction to be used in the mini-assembler.

This can be useful under emulators that may implement special functionality using WDM.

It is implemented as taking a one-byte numeric operand.

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

CCommon.pas

@@ -355,7 +355,7 @@ type
 
              o_dcb,o_dcw,o_dcl,
 
-             o_brk,
+             o_brk,o_wdm,
 
              o_mvn,o_mvp,
 

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'