'*****************************************************************************
'* INT 10H AH=0Fh (CGA BIOS) GET VIDEO STATE
'* Result: AL - video mode
'*         AH - column count
'*         BH - video page
'*****************************************************************************

protected function Exec as boolean

cpu.AL=mem.Byte(0x449) 'video mode
cpu.AH=mem.Word(0x44A) 'column count
cpu.BH=mem.Byte(0x462) 'video page

//success
result=true : end