CONST
   IDREG        = hex('0');
   INTREG       = hex('2');
   CATSTAT      = hex('4800');
   CMSTAT       = hex('6002');
   VBSTAT       = hex('6040');
   BLANKALL     = hex('605C');
   OVERLAYCTL   = hex('60A2');
   CMINDEX      = hex('60B0');
   CMRED        = hex('60B2');
   CMGREEN      = hex('60B4');
   CMBLUE       = hex('60B6');
   PLANEMASK    = hex('60B8');
   CMAPWRITE    = hex('60F0');
   CMAPREAD     = hex('60F8');
   WMSTAT       = hex('4044');
   TCWEN1       = hex('4508');
   TCWEN2       = hex('4708');
   TCREN1       = hex('4504');
   TCREN2       = hex('4704');
   FBEN         = hex('4500');
   STARTMOVE    = hex('409C');
   RUGCMD       = hex('4206');
   RUGSTAT      = hex('4206');
   WMBLWIDTH    = hex('4208');
   WMBLHEIGHT   = hex('420A');
   WMBLSTARTX   = hex('4210');
   WMBLSTARTY   = hex('4212');
   WMBLENDX     = hex('4214');
   WMBLENDY     = hex('4216');
   WMCLIPLEFT   = hex('4218');
   WMCLIPRIGHT  = hex('421A');
   WMCLIPTOP    = hex('421C');
   WMCLIPBOTTOM = hex('421E');
   PRR          = hex('4502');
   WRR          = hex('4506');
   WMSOURCEX    = hex('40F2');
   WMSOURCEY    = hex('40F6');
   WMDESTX      = hex('40FA');
   WMDESTY      = hex('40FE');
   WMWIDTH      = hex('4102');
   WMHEIGHT     = hex('4106');
   PATTERNS     = hex('4400');
   TRR          = hex('450C');
   COLOR1       = hex('450E');
   COLOR2       = hex('470E');
   TRRCTL       = hex('4512');
   ACNTRL       = hex('4514');
   PLANEMODE    = hex('4516');
   
