PutPixel

procedure putpixel(x,y:word;color:byte); assembler;
asm
        mov     es,sega000
        db 66h; xor ax,ax
        db 66h; xor bx,bx
        mov     ax,x
        mov     bx,y
        mov     cl,color
        db 67h,66h,8dh,1ch,9bh       ;{lea ebx,[ebx+ebx*4]}
        db 66h; shl bx,6
        db 26h, 67h, 88h, 0ch, 03h   ;{mov es:[ebx+eax],cl}
end;