( vga day 12.05.2001 )
\ HandEra lib
\ additional core words: 
\ vga? ( -- f )
\ VgaSetScreenMode ( mode rot -- err)
\ InitXY ( -- ) - init maxx and maxy

0 constant screenModeScaleToFit
1 constant screenMode1To1 
0 constant rotateModeNone
1 constant rotateMode90
2 constant rotateMode180
3 constant rotateMode270

: >byte 8 LSHIFT ;

: VgaSetScreenMode ( mode rot -- err )
  >byte W>R >byte W>R
  0x0201 oemtrap d0 RDROP
;

: VgaFormModify ( &frmP type -- err)
   >byte w>r >r
   [ 0x200 15 + ] literal oemtrap d0
   6 nrdrop
;

