[NASM] Линии или прямоугольники

org 100h
  mov ax,13h
  int 10h
  
  push word[y2]
  push word[x2]
  push word[y1]
  push word[x1]
  call line
  
  push word[y3]
  push word[x3]
  push word[y2]
  push word[x2]
  call line
 
  push word[y1]
  push word[x1]
  push word[y3]
  push word[x3]
  call line
    
  xor  ax,ax
  int  16h
  ret    
 
;Процедура рисования линии    
line:
  push bp
  mov  bp,sp
  imul di,[ss:bp+6],320
  add  di,[ss:bp+4]
 
  mov  ax,[ss:bp+8]
  sub  ax,[ss:bp+4]
  sbb  bx,bx
  mov  dx,[ss:bp+10]
  sub  dx,[ss:bp+6]
  sbb  cx,cx
 
  mov  si,ax
  or   si,dx
  je   quit
 
  xor  ax,bx
  sub  ax,bx
  xor  dx,cx
  sub  dx,cx
 
  or   bx,1
  mov  si,cx
  xor  cx,320
  sub  cx,si
 
  cmp  ax,dx
  ja a
      xchg ax,dx
      xchg bx,cx
  a:
 
  push 0A000h
  pop  es
 
  mov  si,ax
  mov  bp,ax
  b:mov byte[es:di],2
    sub si,dx
    jnl next
      add si,ax
      add di,cx
    next:
    add di,bx
    dec bp
  jne b
 
  quit:
  mov byte[es:di],2
  pop bp
ret 8
 
;Координаты вершин треугольника
x1 dw 10
y1 dw 10
x2 dw 100
y2 dw 100
x3 dw 10
y3 dw 150