{****************************************************************************

                     Copyright (c) 1994 by Florian Klämpfl

 ****************************************************************************}
{$O+}
unit assmbl;

  interface

    uses
       asmgen,systable,globals;

  implementation

    procedure i386_operand(operandstring : pchar);

      var
         op_string,end_of_operand_string,displacement_string_start,
         displacement_string_end : pchar;

      begin
         displacement_string_start:=nil;
         displacement_string_end:=nil;
         if op_string^='*' then
           begin
              inc(op_string);
              i.types[this_operand]:=i.types[this_operand] or JumpAbsolute;
           end;
         if op_string^='%' then
           begin
           end;
      end;

end.