;init an 80x200 grafixmode with 256 colors
;
;

ideal
model small
p386n
stack 256

assume cs:coding

segment  coding

start:        mov ax,0013h
              int 10h

              mov dx,03c4h
              mov al,04h
              out dx,al
              inc dx
              in al,dx
              and al,11110111b
              out dx,al
              dec dx
              
              mov ax,0f02h
              out dx,ax

              mov dx,03d4h
              mov al,14h
              out dx,al
              inc dx
              in al,dx
              and al,10111111b
              out dx,al
              dec dx
              mov al,17h
              out dx,al
              inc dx
              in al,dx
              or al,01000000b
              out dx,al
              
              mov ax,0a000h
              mov es,ax
              assume es:0a000h
              mov cx,8000h
              xor di,di
              xor ax,ax
              cld
              rep stosw
              
              mov dx,03c4h
              mov ax,0f02h
              out dx,ax

              mov cx,80*80
              mov al,01h
              xor di,di
cop1:         mov [es:di],al
              inc di
              inc al
              loop cop1

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

              mov ax,0003h
              int 10h
              
              mov ax,4c00h
              int 21h

ends  coding

segment  data1

dates     db 16 dup (0)

ends  data1

end start