; ATI card initialization from colorForth
code 'ati', ati
	call dev
        or dword [eax-4],2
        add al,24h-8
        mov cl,5
.1      dup
        call north
        xor al,8
        jz .2
        drop
        sub eax,byte 4
        loop .1
        dup
        call north
        and eax,0FFFFFFF0h
.2      mov dword [frame],eax
        drop
        ret

dev:    mov eax,80001008h
        mov ecx,31-1
.1      dup
        call north
        and eax,0FF000000h
        cmp eax,  3000000h
        drop
        jz .2
        add eax,800h
        loop .1
.2      ret

north:  mov edx,0CF8h
        out dx,eax
        add dl,4
        in eax,dx
        ret
