DOSSEG
.MODEL SMALL
.286
.CODE
PUBLIC _HOR

_HOR PROC
        push bp
        mov  bp, sp
        push ax
        push cx
        push bx
        push dx
        mov ax, [bp+4]
        mov cx, 320
        mul cx
        mov bx, ax
        mov ax, EKRAN
        mov es, ax
        mov ax, [bp+6]
PETLA:
        mov es:[bx], ax
        inc bx
        loop PETLA
        pop dx
        pop bx
        pop cx
        pop ax
        pop bp
        ret
ENDP
