data segment
mode db ?
data ends
code segment
     assume ds:data,cs:code
start:
     mov ax,data
     mov ds,ax
     mov ah,0fh
     int 10h
     mov mode,al
     mov ah,0
     mov al,13h
     int 10h
     mov cx,0
     mov al,01h
draw:call vline
     inc al
     inc cx
     cmp cx,320
     jl  draw
     mov ah,0
     int 16h
     mov al,mode
     mov ah,0
     int 10h
     jmp exit
vline proc near
     mov dx,0
     mov bh,0
     mov ah,0ch
line:int 10h
     inc dx
     cmp dx,200
     jl  line
     ret
vline endp
exit:mov ah,4ch
     int 21h
code ends
     end start