(Horizontal Panning Register - HPR) (13) - 3


xor ax,ax

mov es,ax

mov dx,es:[463h]

add dx,6

;

in al,dx

nop

nop

test al,08h

jz wait_on

wait_off:

in al,dx

nop

nop

test al,08h

jnz wait_off

wait_on:

in al,dx

nop

nop

test al,08h

jz wait_on

;

sub dx,6

;

mov al,0Dh

out dx,al

;

inc dx

;

mov ax,start_addr_reg

out dx,al

; 1

add dx,5

; ,

;

in al,dx

nop

nop

;

mov dx,3C0h

mov al,13h

out dx,al

mov ax,panning_reg

out dx,al

pop ds

}

}

/**

*.Name VerScroll

*

*.Title .

*

*.Descr

* .

*

*.Proto void VerScroll(unsigned offset)

*

*.Params unsigned offset - .

*

*.Return .