.model tiny
.386

.code
org 100h
start:
	mov ax,13h
	int 10h

	mov ax,150
	mov bx,100
	call bres

	mov ah,8
	int 21h
	mov ax,3
	int 10h
	ret

bres:	
; nastavim pocatek
	push 0a000h
	pop es
	push ax
	mov ax,srcy
	mov cx,320
	mul cx
	add ax,srcx
	mov di,ax
	pop ax

; urcim ridici osu
	mov si,1
	mov dl,col

	sub ax,srcx
	jnc short odc1
	neg ax
	neg si
odc1:	sub bx,srcy
	jnc short odc2
	neg bx
	neg incb
odc2:	cmp ax,bx
	jnc short rizeni

; vlastni vykreslovani
	xchg ax,bx
	xchg incb,si

rizeni: mov bp,ax
	shr bp,1
	neg bp
	mov cx,ax
	inc cx
	
rizl:	mov byte ptr es:[di],dl
	add di,si
	add bp,bx
	jnc short riz1
	sub bp,ax
	add di,incb
riz1:	loop rizl
	ret

incb dw 320
srcx dw 0
srcy dw 0
col  db 12

end start