DOSSEG
.MODEL SMALL
.286
.CODE
PUBLIC _VER

_VER PROC
        push bp
        mov  bp, sp
        push ax
        push cx
        push bx
        push dx
        mov ax, [bp+4]
        mov cx, 200d
        mov bx, ax
        mov ax, EKRAN
        mov es, ax
        mov ax, [bp+6]
PETLA1:
        mov es:[bx], ax
        add bx, 320d
        loop PETLA1
        pop dx
        pop bx
        pop cx
        pop ax
        pop bp
        ret
ENDP
