;**********************************************************;
;* 90WIDE -- Small program to set 90 chars/line text mode *;
;**********************************************************;

Ideal
Model Tiny
P186
CodeSeg
Org 100h

Proc        Set90

            mov si,offset VGAdata

            mov dx,03C2h
            outsb
            mov dl,0C4h
            outsw
            mov dl,0DAh
            in al,dx
            mov dl,0C0h
            outsb
            outsb
            mov dl,0D4h
            mov cx,9
            rep outsw

            push 0
            pop ds
            mov [byte 044Ah],90
            mov ax,1114h
            int 10h
            ret

VGAdata     db 067h                 ;Clocking mode
            dw 00101h,00033h        ;SC, AC data
            dw 00E11h,06B00h,05901h ;CRTC data
            dw 05A02h,08E03h,05F04h
            dw 08D05h,08E11h,02D13h

EndP        Set90

End Set90