'*****************************************************************************
'* INT 10H AH=12h (VGA BIOS) 
'*****************************************************************************

protected function Exec as boolean

select case cpu.BL 
case 0x10 //obtain EGA/VGA info
 cpu.BH=0 'color display ports
 cpu.BL=3 'memory size 256K
 cpu.CX=0x10 'EGA onboard switches???
case else : exit(false)
end select

//success
result=true : end