|
@@ -288,16 +288,6 @@ Unit raz80asm;
|
|
|
actasmpattern[0]:=chr(len);
|
|
actasmpattern[0]:=chr(len);
|
|
|
actasmpattern_origcase:=actasmpattern;
|
|
actasmpattern_origcase:=actasmpattern;
|
|
|
uppervar(actasmpattern);
|
|
uppervar(actasmpattern);
|
|
|
- {$ifdef x86}
|
|
|
|
|
- { only x86 architectures have instruction prefixes }
|
|
|
|
|
-
|
|
|
|
|
- { Opcode, can only be when the previous was a prefix }
|
|
|
|
|
- If is_prefix(actopcode) and is_asmopcode(actasmpattern) then
|
|
|
|
|
- Begin
|
|
|
|
|
- uppervar(actasmpattern);
|
|
|
|
|
- exit;
|
|
|
|
|
- end;
|
|
|
|
|
- {$endif x86}
|
|
|
|
|
{ check for end which is a reserved word unlike the opcodes }
|
|
{ check for end which is a reserved word unlike the opcodes }
|
|
|
if actasmpattern = 'END' then
|
|
if actasmpattern = 'END' then
|
|
|
begin
|
|
begin
|
nickysn