Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація

g: byte = 23; {green}

b: byte = 25; {blue}

asm

mov dx, 3C8h {port #3C8h}

mov al, n {outing color number}

out dx, al

inc dx {port #3C9h}

mov al, r {outing red}

out dx, al

mov al, g {outing green}

out dx, al

mov al, b {outing blue}

out dx, al

end;

procedure tograph(a: word); assembler;

asm

{entering mode13h - 320x200x256}

mov ax, 13h

int 10h

{filling all the screen with 14th color}

mov ax, 0A000h

mov es, ax {mov es, 0A000h}

mov cx, 64000/2 {cx - counter}

xor di, di {begin of video memory is at 0A000:0}

cld {move forward}

mov ax, a {color to put}

rep stosw {filling}

end;

procedure totext; assembler;

asm