unit Test;

interface


type
  PParagraph = ^TParagraph;
  TParagraph = record
    Next: PParagraph;
    Wrap: Boolean;
    Size: Word;
    Text: record end;
  end;

  XAddress = record
    case integer of
      1: (offs : word;
          page : word);
      2: (l : longint);
      3: (p : pointer);
  end;

const
  a = 100;

type
  o = object
    b : string;
    Wrapped : (wrNone, wrEOF, wrBOF);
    procedure fb(const a : string; a2 : string);
  end;

var
  b,bnog : word;
  c : record
    d : word;
    e : string;
  end;
  s : string;

procedure fa;  far;


implementation

uses BBUtil;

type
  TFormatParam = record
    case boolean of
      true : (L : longint);
      false: (P : pointer);
    end;
  TProc = procedure;

const
  d = 120;
type
  o2 = object
    a : array[1..d] of string;
    procedure fa;
  end;


procedure fb(a : string);  forward;


procedure o.fb(const a : string; a2 : string);
label 1;
begin
  writeln(a+b);
  goto 1;
1:
  a2 := 'asd';
end;

procedure o2.fa;
var
  number : real;
begin
  writeln(a[4]);
  if abs (number) > 1.0E+37 then
    number := 1.000;
end;

procedure fa;
var
  b,b2 : integer;
  c : record
    d : record
      r1 : word;
      r3 : char;
    end;
    e : string;
  end;
  e : string;

  procedure fa2;
  var
    b : word;
  begin
    s := 'Hai';
    e := s + StrW(c.d.r1);
  end;

begin
  b := a;
  with c,d do  begin
    r1 := b;
  end;
  for b2 := 0 to a do  begin
    fa;
  end;
end;

procedure fb(a : string);
var
  r : record
        b : integer;
      end;
  ch : char;
begin
  asm
    mov ax,WORD PTR a[1]
    mov bx,r.b
    mov al,ch
    mov al,&ch
  end;
end;

procedure fc(a : string);  assembler;
var
  r : record
        b : integer;
      end;
  ch : char;
asm
  mov ax,WORD PTR a[1]
  mov bx,r.b
  mov al,ch
  mov al,&ch
end;

procedure FillWord(var Dest; Count, Data : word);
begin
  inline(
    $C4/$BE/Dest/    { LES DI, Dest[BP] }
    $8B/$8E/Count/   { MOV CX, Count[BP] }
    $8B/$86/Data/    { MOV AX,Data[BP] }
    $FC/             { CLD }
    $F3/$AB);        { REP STOSW }
end;

procedure DisableInterrupts; inline($FA);  { CLI }

function LongMul(X,Y : integer) : longint;
inline(
  $5A/
  $58/
  $F7/$EA);

end.