ideal
model small
p386n
stack 256

assume cs:coding

segment  coding

start:            mov ax,000eh
                  int 10h

                  mov dx,03d4h
                  mov al,09h
                  out dx,al
                  inc dx
                  in al,dx
                  and al,01111111b
                  out dx,al
                  
                  mov dx,03d4h
                  mov ax,800ch
                  out dx,ax

                  
                  mov ax,0a000h
                  mov es,ax
                  assume es:0a000h

                  xor di,di
                  mov cx,80/2
                  mov ax,0101h
copy1:            mov [es:di],ax
                  mov [es:di+7cb0h],ax
                  add di,2
                  dec cx
                  or cx,cx
                  jnz copy1

                  
warte:            in al,60h
                  cmp al,01h
                  jne warte

                  mov ax,4c00h
                  int 21h

ends  coding

end start