'*****************************************************************************
'* INT 10H AH=0Ch (CGA BIOS) WRITE PIXEL
'* Params: CX - X coord
'*         DX - Y coord
'*         AL - Color
'*****************************************************************************

use module "Tools" 'cga tools

protected function Exec as boolean

//params
dim x as word=cpu.CX, y as word=cpu.DX, color as byte=cpu.AL
dim page as byte=mem.Byte(0x462) : if page>7 then exit(false)

result=WritePixel(Page,x,y,color)

end