Help: Assembler 8086

[Rainbow]

Ze si to ty, tak som sa s tym trochu pohral
BTW.: Patri to do programovania.

program odbdlznik;
const PosX=4;
      PosY=10;
      SizeX=10;
      SizeY=5;
      Line='*';
begin
  asm
    mov ax,0013h
    int 10h

    mov ah,02h
    xor bh,bh
    mov dh,PosY
    mov dl,PosX
    int 10h

    mov ah,09h
    mov al,Line
    xor bh,bh
    mov cx,SizeX
    int 10h

    mov cx,SizeY
    dec cx
    dec cx

@rep:
    push cx
    mov ah,02h
    xor bh,bh
    mov dh,PosY
    add dh,SizeY
    sub dh,cl
    dec dh
    mov dl,PosX
    int 10h

    mov ah,09h
    mov al,Line
    xor bh,bh
    mov cx,1
    int 10h

    mov ah,02h
    xor bh,bh
    add dl,SizeX
    dec dl
    int 10h

    mov ah,09h
    mov al,Line
    xor bh,bh
    mov cx,1
    int 10h

    pop cx
    loop @rep

    mov ah,02h
    xor bh,bh
    mov dh,PosY
    add dh,SizeY
    dec dh
    mov dl,PosX
    int 10h

    mov ah,09h
    mov al,Line
    xor bh,bh
    mov cx,SizeX
    int 10h

    mov ah,01h
    int 21h

    mov ax,0003h
    int 10h
  end;
end.