mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-09-26 12:54:29 +00:00
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.
This commit is contained in:
parent
3ce2be9f74
commit
7e822819b7
7
Asm.pas
7
Asm.pas
@ -584,6 +584,13 @@ while not (token.kind in [rbracech,eofsy]) do begin
|
|||||||
code^.s := 0;
|
code^.s := 0;
|
||||||
end {if opc = o_brk}
|
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}
|
{handle moves}
|
||||||
else if opc in [o_mvn,o_mvp] then begin
|
else if opc in [o_mvn,o_mvp] then begin
|
||||||
if opc = o_mvn then
|
if opc = o_mvn then
|
||||||
|
@ -355,7 +355,7 @@ type
|
|||||||
|
|
||||||
o_dcb,o_dcw,o_dcl,
|
o_dcb,o_dcw,o_dcl,
|
||||||
|
|
||||||
o_brk,
|
o_brk,o_wdm,
|
||||||
|
|
||||||
o_mvn,o_mvp,
|
o_mvn,o_mvp,
|
||||||
|
|
||||||
|
@ -639,7 +639,7 @@ names start mini-assembler op code names
|
|||||||
dc c'peapeireprolrorsbcsepstastxsty'
|
dc c'peapeireprolrorsbcsepstastxsty'
|
||||||
dc c'stztrbtsb'
|
dc c'stztrbtsb'
|
||||||
dc c'dcbdcwdcl'
|
dc c'dcbdcwdcl'
|
||||||
dc c'brk'
|
dc c'brkwdm'
|
||||||
dc c'mvnmvp'
|
dc c'mvnmvp'
|
||||||
dc c'bccbcsbeqbmibnebplbrabrlperbvc'
|
dc c'bccbcsbeqbmibnebplbrabrlperbvc'
|
||||||
dc c'bvs'
|
dc c'bvs'
|
||||||
|
Loading…
Reference in New Issue
Block a user