nedoPC.org

procedure TWin.WDrawRec(x,y,x1,y1:integer; flag:boolean);
 var colx: integer; {подпрограмма рисует прямоугольник}
 begin
  {if flag then SetColor((not col1) and $f) else SetColor(col1);}
   if flag then colx:=((not col1) and $f) else colx:=col1;

  {Line(x1,y1,x1,y); Line(x1,y1,x,y1);}
  asm
    push ax
    push bx
    push cx
    push dx

    mov    dx,y1   {graphics row    = y}
@00:mov    cx,x1   {graphics column = x}
    mov    bh,$0
    mov    ax,colx {color number }
    mov    ah,$0c
    int    $10

    dec    dx
    cmp    dx,y
    jnz    @00

    mov    cx,x1   {graphics column = x}
@01:mov    dx,y1   {graphics row    = y}
    mov    bh,$0
    mov    ax,colx {color number }
    mov    ah,$0c
    int    $10
    mov    ah,$0c
    int    $10

    dec    cx
    cmp    cx,x
    jnz    @01

    mov    ah,$0c
    int    $10

    pop dx
    pop cx
    pop bx
    pop ax
  end;

  {if flag then SetColor(col1) else SetColor((not col1) and $f);}
   if flag then colx:=col1 else colx:=((not col1) and $f);

  {Line(x,y,x1,y); Line(x,y,x,y1);}
  asm
    push ax
    push bx
    push cx
    push dx

    mov    cx,x1   {graphics column = x}
@02:mov    dx,y    {graphics row    = y}
    mov    bh,$0
    mov    ax,colx {color number }
    mov    ah,$0c
    int    $10

    dec    cx
    cmp    cx,x
    jnz    @02

    mov    ah,$0c
    int    $10

    mov    dx,y1   {graphics row    = y}
@03:mov    cx,x    {graphics column = x}
    mov    bh,$0
    mov    ax,colx {color number }
    mov    ah,$0c
    int    $10

    dec    dx
    cmp    dx,y
    jnz    @03

    pop dx
    pop cx
    pop bx
    pop ax
  end;
 end;

procedure TWin.WBar(x,y,x1,y1:integer);
 var colr: integer;
 begin
  colr:=col2;
  asm
    push ax
    push bx
    push cx
    push dx

    mov    dx,y1   {graphics row    = y}
@00:mov    cx,x1   {graphics column = x}
@01:mov    bh,$0
    mov    al,colr  {color number }
    mov    ah,$0c
    int    $10

    dec    cx
    cmp    cx,x
    jnz    @01

    mov    ah,$0c
    int    $10

    dec    dx
    cmp    dx,y
    jnz    @00

    pop dx
    pop cx
    pop bx
    pop ax
  end;
end;