rtl-console: unified AROS and MorphOS units except video (for now). but upgraded MorphOS' video unit to AROS level

git-svn-id: trunk@28554 -

.gitattributes

@@ -6586,10 +6586,10 @@ packages/rtl-console/Makefile svneol=native#text/plain
 packages/rtl-console/Makefile.fpc svneol=native#text/plain
 packages/rtl-console/Makefile.fpc.fpcmake svneol=native#text/plain
 packages/rtl-console/fpmake.pp svneol=native#text/plain
-packages/rtl-console/src/aros/keyboard.pp svneol=native#text/plain
-packages/rtl-console/src/aros/mouse.pp svneol=native#text/plain
+packages/rtl-console/src/amicommon/keyboard.pp svneol=native#text/plain
+packages/rtl-console/src/amicommon/mouse.pp svneol=native#text/plain
+packages/rtl-console/src/amicommon/videodata.inc svneol=native#text/plain
 packages/rtl-console/src/aros/video.pp svneol=native#text/plain
-packages/rtl-console/src/aros/videodata.inc svneol=native#text/plain
 packages/rtl-console/src/emx/crt.pp svneol=native#text/plain
 packages/rtl-console/src/go32v2/crt.pp svneol=native#text/plain
 packages/rtl-console/src/go32v2/keyboard.pp svneol=native#text/plain
@@ -6605,10 +6605,7 @@ packages/rtl-console/src/inc/mouse.inc svneol=native#text/plain
 packages/rtl-console/src/inc/mouseh.inc svneol=native#text/plain
 packages/rtl-console/src/inc/video.inc svneol=native#text/plain
 packages/rtl-console/src/inc/videoh.inc svneol=native#text/plain
-packages/rtl-console/src/morphos/keyboard.pp svneol=native#text/plain
-packages/rtl-console/src/morphos/mouse.pp svneol=native#text/plain
 packages/rtl-console/src/morphos/video.pp svneol=native#text/plain
-packages/rtl-console/src/morphos/videodata.inc svneol=native#text/plain
 packages/rtl-console/src/msdos/crt.pp svneol=native#text/plain
 packages/rtl-console/src/msdos/keyboard.pp svneol=native#text/plain
 packages/rtl-console/src/netware/crt.pp svneol=native#text/plain

packages/rtl-console/fpmake.pp

@@ -15,7 +15,7 @@ Const
   WinEventOSes = [win32,win64];
   KVMAll       = [emx,go32v2,MorphOS,aros,netware,netwlibc,os2,win32,win64]+UnixLikes;
   
-  // all full KVMers have crt too, except MorphOS
+  // all full KVMers have crt too, except MorphOS and AROS
   CrtOSes      = KVMALL+[msdos,WatCom]-[MorphOS,aros];
   KbdOSes      = KVMALL+[msdos];
   VideoOSes    = KVMALL;
@@ -52,10 +52,12 @@ begin
     P.SourcePath.Add('src/darwin',[iphonesim]);
     P.SourcePath.Add('src/unix',AllUnixOSes);
     P.SourcePath.Add('src/os2commn',[os2,emx]);
+    P.SourcePath.Add('src/amicommon',[aros,morphos]);
     P.SourcePath.Add('src/win',WinEventOSes);
 
     P.IncludePath.Add('src/inc');
     P.IncludePath.Add('src/unix',AllUnixOSes);
+    P.IncludePath.add('src/amicommon',[aros,morphos]);
     P.IncludePath.Add('src/$(OS)');
     P.IncludePath.Add('src/darwin',[iphonesim]);
 

packages/rtl-console/src/aros/keyboard.pp → packages/rtl-console/src/amicommon/keyboard.pp

@@ -33,6 +33,9 @@ var
 procedure SysInitKeyboard;
 begin
 //  writeln('sysinitkeyboard');
+{$IFDEF MORPHOS}
+  InitKeyMapLibrary;
+{$ENDIF}
   LastShiftState := 0;
   OldMouseX := -1;
   OldmouseY := -1;

packages/rtl-console/src/morphos/keyboard.pp

@@ -1,1170 +0,0 @@
-{
-    This file is part of the Free Pascal run time library.
-    Copyright (c) 2006 by Karoly Balogh
-
-    Keyboard unit for MorphOS and Amiga
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************}
-unit Keyboard;
-interface
-
-{$i keybrdh.inc}
-
-implementation
-
-{ WARNING: Keyboard-Drivers (i.e. german) will only work under WinNT.
-           95 and 98 do not support keyboard-drivers other than us for win32
-           console-apps. So we always get the keys in us-keyboard layout
-           from Win9x.
-}
-
-
-uses
-   video, exec,intuition, inputevent, mouse;
-
-{$i keyboard.inc}
-
-var
-   lastShiftState : byte;               {set by handler for PollShiftStateEvent}
-   oldmousex : longint;
-   oldmousey : longint;
-   oldbuttons: word;
-
-
-{*
-const MaxQueueSize = 120;
-      FrenchKeyboard = $040C040C;
-
-var
-   keyboardeventqueue : array[0..maxqueuesize] of TKeyEventRecord;
-   nextkeyevent,nextfreekeyevent : longint;
-   newKeyEvent    : THandle;            {sinaled if key is available}
-   lockVar        : TCriticalSection;   {for queue access}
-   lastShiftState : byte;               {set by handler for PollShiftStateEvent}
-   altNumActive   : boolean;            {for alt+0..9}
-   altNumBuffer   : string [3];
-   { used for keyboard specific stuff }
-   KeyBoardLayout : HKL;
-   Inited : Boolean;
-   HasAltGr  : Boolean = false;
-
-
-procedure incqueueindex(var l : longint);
-
-  begin
-     inc(l);
-     { wrap around? }
-     if l>maxqueuesize then
-       l:=0;
-  end;
-
-function keyEventsInQueue : boolean;
-begin
-  keyEventsInQueue := (nextkeyevent <> nextfreekeyevent);
-end;
-
-function rightistruealt(dw:cardinal):boolean; // inline ?
-// used to wrap checks for right alt/altgr.
-begin
-  rightistruealt:=true;
-  if hasaltgr then
-    rightistruealt:=(dw and RIGHT_ALT_PRESSED)=0;
-end;
-
-
-{ gets or peeks the next key from the queue, does not wait for new keys }
-function getKeyEventFromQueue (VAR t : TKeyEventRecord; Peek : boolean) : boolean;
-begin
-  if not Inited then
-    begin
-    getKeyEventFromQueue := false;
-    exit;
-    end;
-  EnterCriticalSection (lockVar);
-  if keyEventsInQueue then
-  begin
-    t := keyboardeventqueue[nextkeyevent];
-    if not peek then incqueueindex (nextkeyevent);
-    getKeyEventFromQueue := true;
-    if not keyEventsInQueue then ResetEvent (newKeyEvent);
-  end else
-  begin
-    getKeyEventFromQueue := false;
-    ResetEvent (newKeyEvent);
-  end;
-  LeaveCriticalSection (lockVar);
-end;
-
-
-{ gets the next key from the queue, does wait for new keys }
-function getKeyEventFromQueueWait (VAR t : TKeyEventRecord) : boolean;
-begin
-  if not Inited then
-    begin
-      getKeyEventFromQueueWait := false;
-      exit;
-    end;
-  WaitForSingleObject (newKeyEvent, dword(INFINITE));
-  getKeyEventFromQueueWait := getKeyEventFromQueue (t, false);
-end;
-
-{ translate win32 shift-state to keyboard shift state }
-function transShiftState (ControlKeyState : dword) : byte;
-var b : byte;
-begin
-  b := 0;
-  if ControlKeyState and SHIFT_PRESSED <> 0 then  { win32 makes no difference between left and right shift }
-    b := b or kbShift;
-  if (ControlKeyState and LEFT_CTRL_PRESSED <> 0) or
-     (ControlKeyState  and RIGHT_CTRL_PRESSED <> 0) then
-    b := b or kbCtrl;
-  if (ControlKeyState and LEFT_ALT_PRESSED <> 0) or
-     (ControlKeyState and RIGHT_ALT_PRESSED <> 0) then
-    b := b or kbAlt;
-  transShiftState := b;
-end;
-
-{ The event-Handler thread from the unit event will call us if a key-event
-  is available }
-
-procedure HandleKeyboard(var ir:INPUT_RECORD);
-var
-   i      : longint;
-   c      : word;
-   altc : char;
-   addThis: boolean;
-begin
-         with ir.Event.KeyEvent do
-           begin
-              { key up events are ignored (except alt) }
-              if bKeyDown then
-                begin
-                   EnterCriticalSection (lockVar);
-                   for i:=1 to wRepeatCount do
-                     begin
-                        addThis := true;
-                        if (dwControlKeyState and LEFT_ALT_PRESSED <> 0) or
-                           (dwControlKeyState and RIGHT_ALT_PRESSED <> 0) then            {alt pressed}
-                          if ((wVirtualKeyCode >= $60) and (wVirtualKeyCode <= $69)) or
-                             ((dwControlKeyState and ENHANCED_KEY = 0) and
-                              (wVirtualKeyCode in [$C{VK_CLEAR generated by keypad 5},
-                                                   $21 {VK_PRIOR (PgUp) 9},
-                                                   $22 {VK_NEXT (PgDown) 3},
-                                                   $23 {VK_END 1},
-                                                   $24 {VK_HOME 7},
-                                                   $25 {VK_LEFT 4},
-                                                   $26 {VK_UP 8},
-                                                   $27 {VK_RIGHT 6},
-                                                   $28 {VK_DOWN 2},
-                                                   $2D {VK_INSERT 0}])) then   {0..9 on NumBlock}
-                          begin
-                            if length (altNumBuffer) = 3 then
-                              delete (altNumBuffer,1,1);
-                            case wVirtualKeyCode of
-                              $60..$69 : altc:=char (wVirtualKeyCode-48);
-                              $c  : altc:='5';
-                              $21 : altc:='9';
-                              $22 : altc:='3';
-                              $23 : altc:='1';
-                              $24 : altc:='7';
-                              $25 : altc:='4';
-                              $26 : altc:='8';
-                              $27 : altc:='6';
-                              $28 : altc:='2';
-                              $2D : altc:='0';
-                            end;
-                            altNumBuffer := altNumBuffer + altc;
-                            altNumActive   := true;
-                            addThis := false;
-                          end else
-                          begin
-                            altNumActive   := false;
-                            altNumBuffer   := '';
-                          end;
-                        if addThis then
-                        begin
-                          keyboardeventqueue[nextfreekeyevent]:=
-                            ir.Event.KeyEvent;
-                          incqueueindex(nextfreekeyevent);
-                        end;
-                     end;
-
-                   lastShiftState := transShiftState (dwControlKeyState);  {save it for PollShiftStateEvent}
-                   SetEvent (newKeyEvent);             {event that a new key is available}
-                   LeaveCriticalSection (lockVar);
-                end
-              else
-                begin
-                  lastShiftState := transShiftState (dwControlKeyState);   {save it for PollShiftStateEvent}
-                  {for alt-number we have to look for alt-key release}
-                  if altNumActive then
-                   begin
-                     if (wVirtualKeyCode = $12) then    {alt-released}
-                      begin
-                        if altNumBuffer <> '' then       {numbers with alt pressed?}
-                         begin
-                           Val (altNumBuffer, c, i);
-                           if (i = 0) and (c <= 255) then {valid number?}
-                            begin                          {add to queue}
-                              fillchar (ir, sizeof (ir), 0);
-                              bKeyDown := true;
-                              AsciiChar := char (c);
-                                                       {and add to queue}
-                              EnterCriticalSection (lockVar);
-                              keyboardeventqueue[nextfreekeyevent]:=ir.Event.KeyEvent;
-                              incqueueindex(nextfreekeyevent);
-                              SetEvent (newKeyEvent);      {event that a new key is available}
-                              LeaveCriticalSection (lockVar);
-                            end;
-                         end;
-                        altNumActive   := false;         {clear alt-buffer}
-                        altNumBuffer   := '';
-                      end;
-                   end;
-                end;
-           end;
-end;
-*}
-
-{*
-procedure CheckAltGr;
-
-var ahkl : HKL;
-    i    : integer;
-
- begin
-   HasAltGr:=false;
-
-   ahkl:=GetKeyboardLayout(0);
-   i:=$20;
-   while i<$100 do
-     begin
-       // <MSDN>
-       // For keyboard layouts that use the right-hand ALT key as ashift key
-       // (for example, the French keyboard layout), the shift state is
-       // represented by the value 6, because the right-hand ALT key is
-       // converted internally into CTRL+ALT.
-       // </MSDN>
-      if (HIBYTE(VkKeyScanEx(chr(i),ahkl))=6) then
-        begin
-          HasAltGr:=true;
-          break;
-        end;
-     inc(i);
-    end;
-end;
-*}
-
-
-
-procedure SysInitKeyboard;
-begin
-//  writeln('sysinitkeyboard');
-  lastShiftState:=0;
-  oldmousex:=-1;
-  oldmousey:=-1;
-  oldbuttons:=0;
-{*
-   KeyBoardLayout:=GetKeyboardLayout(0);
-   lastShiftState := 0;
-   FlushConsoleInputBuffer(StdInputHandle);
-   newKeyEvent := CreateEvent (nil,        // address of security attributes
-                               true,       // flag for manual-reset event
-                               false,      // flag for initial state
-                               nil);       // address of event-object name
-   if newKeyEvent = INVALID_HANDLE_VALUE then
-    begin
-      // what to do here ????
-      RunError (217);
-    end;
-   InitializeCriticalSection (lockVar);
-   altNumActive := false;
-   altNumBuffer := '';
-
-   nextkeyevent:=0;
-   nextfreekeyevent:=0;
-   checkaltgr;
-   SetKeyboardEventHandler (@HandleKeyboard);
-   Inited:=true;
-*}
-end;
-
-procedure SysDoneKeyboard;
-begin
-{*
-  SetKeyboardEventHandler(nil);     {hangs???}
-  DeleteCriticalSection (lockVar);
-  FlushConsoleInputBuffer(StdInputHandle);
-  closeHandle (newKeyEvent);
-  Inited:=false;
-*}
-end;
-
-{$define USEKEYCODES}
-
-{Translatetable Win32 -> Dos for Special Keys = Function Key, Cursor Keys
- and Keys other than numbers on numblock (to make fv happy) }
-{combinations under dos: Shift+Ctrl: same as Ctrl
-                         Shift+Alt : same as alt
- 
-{*                        Ctrl+Alt  : nothing (here we get it like alt)}
-{ifdef USEKEYCODES}
-   { use positive values for ScanCode we want to set
-   0 for key where we should leave the scancode
-   -1 for OEM specifc keys
-   -2 for unassigned
-   -3 for Kanji systems ???
-   }
-
-const
-  Unassigned = -2;
-  Kanji = -3;
-  OEM_specific = -1;
-  KeyToQwertyScan : array [0..255] of integer =
-  (
-  { 00 } 0,
-  { 01 VK_LBUTTON } 0,
-  { 02 VK_RBUTTON } 0,
-  { 03 VK_CANCEL } 0,
-  { 04 VK_MBUTTON } 0,
-  { 05 unassigned } -2,
-  { 06 unassigned } -2,
-  { 07 unassigned } -2,
-  { 08 VK_BACK } $E,
-  { 09 VK_TAB } $F,
-  { 0A unassigned } -2,
-  { 0B unassigned } -2,
-  { 0C VK_CLEAR ?? } 0,
-  { 0D VK_RETURN } 0,
-  { 0E unassigned } -2,
-  { 0F unassigned } -2,
-  { 10 VK_SHIFT } 0,
-  { 11 VK_CONTROL } 0,
-  { 12 VK_MENU (Alt key) } 0,
-  { 13 VK_PAUSE } 0,
-  { 14 VK_CAPITAL (Caps Lock) } 0,
-  { 15 Reserved for Kanji systems} -3,
-  { 16 Reserved for Kanji systems} -3,
-  { 17 Reserved for Kanji systems} -3,
-  { 18 Reserved for Kanji systems} -3,
-  { 19 Reserved for Kanji systems} -3,
-  { 1A unassigned } -2,
-  { 1B VK_ESCAPE } $1,
-  { 1C Reserved for Kanji systems} -3,
-  { 1D Reserved for Kanji systems} -3,
-  { 1E Reserved for Kanji systems} -3,
-  { 1F Reserved for Kanji systems} -3,
-  { 20 VK_SPACE} 0,
-  { 21 VK_PRIOR (PgUp) } 0,
-  { 22 VK_NEXT (PgDown) } 0,
-  { 23 VK_END } 0,
-  { 24 VK_HOME } 0,
-  { 25 VK_LEFT } 0,
-  { 26 VK_UP } 0,
-  { 27 VK_RIGHT } 0,
-  { 28 VK_DOWN } 0,
-  { 29 VK_SELECT ??? } 0,
-  { 2A OEM specific !! } -1,
-  { 2B VK_EXECUTE } 0,
-  { 2C VK_SNAPSHOT } 0,
-  { 2D VK_INSERT } 0,
-  { 2E VK_DELETE } 0,
-  { 2F VK_HELP } 0,
-  { 30 VK_0 '0' } 11,
-  { 31 VK_1 '1' } 2,
-  { 32 VK_2 '2' } 3,
-  { 33 VK_3 '3' } 4,
-  { 34 VK_4 '4' } 5,
-  { 35 VK_5 '5' } 6,
-  { 36 VK_6 '6' } 7,
-  { 37 VK_7 '7' } 8,
-  { 38 VK_8 '8' } 9,
-  { 39 VK_9 '9' } 10,
-  { 3A unassigned } -2,
-  { 3B unassigned } -2,
-  { 3C unassigned } -2,
-  { 3D unassigned } -2,
-  { 3E unassigned } -2,
-  { 3F unassigned } -2,
-  { 40 unassigned } -2,
-  { 41 VK_A 'A' } $1E,
-  { 42 VK_B 'B' } $30,
-  { 43 VK_C 'C' } $2E,
-  { 44 VK_D 'D' } $20,
-  { 45 VK_E 'E' } $12,
-  { 46 VK_F 'F' } $21,
-  { 47 VK_G 'G' } $22,
-  { 48 VK_H 'H' } $23,
-  { 49 VK_I 'I' } $17,
-  { 4A VK_J 'J' } $24,
-  { 4B VK_K 'K' } $25,
-  { 4C VK_L 'L' } $26,
-  { 4D VK_M 'M' } $32,
-  { 4E VK_N 'N' } $31,
-  { 4F VK_O 'O' } $18,
-  { 50 VK_P 'P' } $19,
-  { 51 VK_Q 'Q' } $10,
-  { 52 VK_R 'R' } $13,
-  { 53 VK_S 'S' } $1F,
-  { 54 VK_T 'T' } $14,
-  { 55 VK_U 'U' } $16,
-  { 56 VK_V 'V' } $2F,
-  { 57 VK_W 'W' } $11,
-  { 58 VK_X 'X' } $2D,
-  { 59 VK_Y 'Y' } $15,
-  { 5A VK_Z 'Z' } $2C,
-  { 5B unassigned } -2,
-  { 5C unassigned } -2,
-  { 5D unassigned } -2,
-  { 5E unassigned } -2,
-  { 5F unassigned } -2,
-  { 60 VK_NUMPAD0 NumKeyPad '0' } 11,
-  { 61 VK_NUMPAD1 NumKeyPad '1' } 2,
-  { 62 VK_NUMPAD2 NumKeyPad '2' } 3,
-  { 63 VK_NUMPAD3 NumKeyPad '3' } 4,
-  { 64 VK_NUMPAD4 NumKeyPad '4' } 5,
-  { 65 VK_NUMPAD5 NumKeyPad '5' } 6,
-  { 66 VK_NUMPAD6 NumKeyPad '6' } 7,
-  { 67 VK_NUMPAD7 NumKeyPad '7' } 8,
-  { 68 VK_NUMPAD8 NumKeyPad '8' } 9,
-  { 69 VK_NUMPAD9 NumKeyPad '9' } 10,
-  { 6A VK_MULTIPLY } 0,
-  { 6B VK_ADD } 0,
-  { 6C VK_SEPARATOR } 0,
-  { 6D VK_SUBSTRACT } 0,
-  { 6E VK_DECIMAL } 0,
-  { 6F VK_DIVIDE } 0,
-  { 70 VK_F1 'F1' } $3B,
-  { 71 VK_F2 'F2' } $3C,
-  { 72 VK_F3 'F3' } $3D,
-  { 73 VK_F4 'F4' } $3E,
-  { 74 VK_F5 'F5' } $3F,
-  { 75 VK_F6 'F6' } $40,
-  { 76 VK_F7 'F7' } $41,
-  { 77 VK_F8 'F8' } $42,
-  { 78 VK_F9 'F9' } $43,
-  { 79 VK_F10 'F10' } $44,
-  { 7A VK_F11 'F11' } $57,
-  { 7B VK_F12 'F12' } $58,
-  { 7C VK_F13 } 0,
-  { 7D VK_F14 } 0,
-  { 7E VK_F15 } 0,
-  { 7F VK_F16 } 0,
-  { 80 VK_F17 } 0,
-  { 81 VK_F18 } 0,
-  { 82 VK_F19 } 0,
-  { 83 VK_F20 } 0,
-  { 84 VK_F21 } 0,
-  { 85 VK_F22 } 0,
-  { 86 VK_F23 } 0,
-  { 87 VK_F24 } 0,
-  { 88 unassigned } -2,
-  { 89 VK_NUMLOCK } 0,
-  { 8A VK_SCROLL } 0,
-  { 8B unassigned } -2,
-  { 8C unassigned } -2,
-  { 8D unassigned } -2,
-  { 8E unassigned } -2,
-  { 8F unassigned } -2,
-  { 90 unassigned } -2,
-  { 91 unassigned } -2,
-  { 92 unassigned } -2,
-  { 93 unassigned } -2,
-  { 94 unassigned } -2,
-  { 95 unassigned } -2,
-  { 96 unassigned } -2,
-  { 97 unassigned } -2,
-  { 98 unassigned } -2,
-  { 99 unassigned } -2,
-  { 9A unassigned } -2,
-  { 9B unassigned } -2,
-  { 9C unassigned } -2,
-  { 9D unassigned } -2,
-  { 9E unassigned } -2,
-  { 9F unassigned } -2,
-  { A0 unassigned } -2,
-  { A1 unassigned } -2,
-  { A2 unassigned } -2,
-  { A3 unassigned } -2,
-  { A4 unassigned } -2,
-  { A5 unassigned } -2,
-  { A6 unassigned } -2,
-  { A7 unassigned } -2,
-  { A8 unassigned } -2,
-  { A9 unassigned } -2,
-  { AA unassigned } -2,
-  { AB unassigned } -2,
-  { AC unassigned } -2,
-  { AD unassigned } -2,
-  { AE unassigned } -2,
-  { AF unassigned } -2,
-  { B0 unassigned } -2,
-  { B1 unassigned } -2,
-  { B2 unassigned } -2,
-  { B3 unassigned } -2,
-  { B4 unassigned } -2,
-  { B5 unassigned } -2,
-  { B6 unassigned } -2,
-  { B7 unassigned } -2,
-  { B8 unassigned } -2,
-  { B9 unassigned } -2,
-  { BA OEM specific } 0,
-  { BB OEM specific } 0,
-  { BC OEM specific } 0,
-  { BD OEM specific } 0,
-  { BE OEM specific } 0,
-  { BF OEM specific } 0,
-  { C0 OEM specific } 0,
-  { C1 unassigned } -2,
-  { C2 unassigned } -2,
-  { C3 unassigned } -2,
-  { C4 unassigned } -2,
-  { C5 unassigned } -2,
-  { C6 unassigned } -2,
-  { C7 unassigned } -2,
-  { C8 unassigned } -2,
-  { C9 unassigned } -2,
-  { CA unassigned } -2,
-  { CB unassigned } -2,
-  { CC unassigned } -2,
-  { CD unassigned } -2,
-  { CE unassigned } -2,
-  { CF unassigned } -2,
-  { D0 unassigned } -2,
-  { D1 unassigned } -2,
-  { D2 unassigned } -2,
-  { D3 unassigned } -2,
-  { D4 unassigned } -2,
-  { D5 unassigned } -2,
-  { D6 unassigned } -2,
-  { D7 unassigned } -2,
-  { D8 unassigned } -2,
-  { D9 unassigned } -2,
-  { DA unassigned } -2,
-  { DB OEM specific } 0,
-  { DC OEM specific } 0,
-  { DD OEM specific } 0,
-  { DE OEM specific } 0,
-  { DF OEM specific } 0,
-  { E0 OEM specific } 0,
-  { E1 OEM specific } 0,
-  { E2 OEM specific } 0,
-  { E3 OEM specific } 0,
-  { E4 OEM specific } 0,
-  { E5 unassigned } -2,
-  { E6 OEM specific } 0,
-  { E7 unassigned } -2,
-  { E8 unassigned } -2,
-  { E9 OEM specific } 0,
-  { EA OEM specific } 0,
-  { EB OEM specific } 0,
-  { EC OEM specific } 0,
-  { ED OEM specific } 0,
-  { EE OEM specific } 0,
-  { EF OEM specific } 0,
-  { F0 OEM specific } 0,
-  { F1 OEM specific } 0,
-  { F2 OEM specific } 0,
-  { F3 OEM specific } 0,
-  { F4 OEM specific } 0,
-  { F5 OEM specific } 0,
-  { F6 unassigned } -2,
-  { F7 unassigned } -2,
-  { F8 unassigned } -2,
-  { F9 unassigned } -2,
-  { FA unassigned } -2,
-  { FB unassigned } -2,
-  { FC unassigned } -2,
-  { FD unassigned } -2,
-  { FE unassigned } -2,
-  { FF unassigned } -2
-  );
-{$endif  USEKEYCODES}
-type TTEntryT = packed record
-                  n,s,c,a : byte;   {normal,shift, ctrl, alt, normal only for f11,f12}
-                end;
-*}
-{*
-CONST
- DosTT : ARRAY [$3B..$58] OF TTEntryT =
-  ((n : $3B; s : $54; c : $5E; a: $68),      {3B F1}
-   (n : $3C; s : $55; c : $5F; a: $69),      {3C F2}
-   (n : $3D; s : $56; c : $60; a: $6A),      {3D F3}
-   (n : $3E; s : $57; c : $61; a: $6B),      {3E F4}
-   (n : $3F; s : $58; c : $62; a: $6C),      {3F F5}
-   (n : $40; s : $59; c : $63; a: $6D),      {40 F6}
-   (n : $41; s : $5A; c : $64; a: $6E),      {41 F7}
-   (n : $42; s : $5B; c : $65; a: $6F),      {42 F8}
-   (n : $43; s : $5C; c : $66; a: $70),      {43 F9}
-   (n : $44; s : $5D; c : $67; a: $71),      {44 F10}
-   (n : $45; s : $00; c : $00; a: $00),      {45 ???}
-   (n : $46; s : $00; c : $00; a: $00),      {46 ???}
-   (n : $47; s : $47; c : $77; a: $97),      {47 Home}
-   (n : $48; s : $00; c : $8D; a: $98),      {48 Up}
-   (n : $49; s : $49; c : $84; a: $99),      {49 PgUp}
-   (n : $4A; s : $00; c : $8E; a: $4A),      {4A -}
-   (n : $4B; s : $4B; c : $73; a: $9B),      {4B Left}
-   (n : $4C; s : $00; c : $00; a: $00),      {4C ???}
-   (n : $4D; s : $4D; c : $74; a: $9D),      {4D Right}
-   (n : $4E; s : $00; c : $90; a: $4E),      {4E +}
-   (n : $4F; s : $4F; c : $75; a: $9F),      {4F End}
-   (n : $50; s : $50; c : $91; a: $A0),      {50 Down}
-   (n : $51; s : $51; c : $76; a: $A1),      {51 PgDown}
-   (n : $52; s : $52; c : $92; a: $A2),      {52 Insert}
-   (n : $53; s : $53; c : $93; a: $A3),      {53 Del}
-   (n : $54; s : $00; c : $00; a: $00),      {54 ???}
-   (n : $55; s : $00; c : $00; a: $00),      {55 ???}
-   (n : $56; s : $00; c : $00; a: $00),      {56 ???}
-   (n : $85; s : $87; c : $89; a: $8B),      {57 F11}
-   (n : $86; s : $88; c : $8A; a: $8C));     {58 F12}
-
- DosTT09 : ARRAY [$02..$0F] OF TTEntryT =
-  ((n : $00; s : $00; c : $00; a: $78),      {02 1 }
-   (n : $00; s : $00; c : $00; a: $79),      {03 2 }
-   (n : $00; s : $00; c : $00; a: $7A),      {04 3 }
-   (n : $00; s : $00; c : $00; a: $7B),      {05 4 }
-   (n : $00; s : $00; c : $00; a: $7C),      {06 5 }
-   (n : $00; s : $00; c : $00; a: $7D),      {07 6 }
-   (n : $00; s : $00; c : $00; a: $7E),      {08 7 }
-   (n : $00; s : $00; c : $00; a: $7F),      {09 8 }
-   (n : $00; s : $00; c : $00; a: $80),      {0A 9 }
-   (n : $00; s : $00; c : $00; a: $81),      {0B 0 }
-   (n : $00; s : $00; c : $00; a: $82),      {0C ß }
-   (n : $00; s : $00; c : $00; a: $00),      {0D}
-   (n : $00; s : $09; c : $00; a: $00),      {0E Backspace}
-   (n : $00; s : $0F; c : $94; a: $00));     {0F Tab }
-
-*}
-
-{*
-function TranslateKey (t : TKeyEventRecord) : TKeyEvent;
-var key : TKeyEvent;
-    ss  : byte;
-{$ifdef  USEKEYCODES}
-    ScanCode  : byte;
-{$endif  USEKEYCODES}
-    b   : byte;
-begin
-  Key := 0;
-  if t.bKeyDown then
-  begin
-    { ascii-char is <> 0 if not a specal key }
-    { we return it here otherwise we have to translate more later }
-    if t.AsciiChar <> #0 then
-    begin
-      if (t.dwControlKeyState and ENHANCED_KEY <> 0) and
-         (t.wVirtualKeyCode = $DF) then
-        begin
-          t.dwControlKeyState:=t.dwControlKeyState and not ENHANCED_KEY;
-          t.wVirtualKeyCode:=VK_DIVIDE;
-          t.AsciiChar:='/';
-        end;
-      {drivers needs scancode, we return it here as under dos and linux
-       with $03000000 = the lowest two bytes is the physical representation}
-{$ifdef  USEKEYCODES}
-      Scancode:=KeyToQwertyScan[t.wVirtualKeyCode AND $00FF];
-      If ScanCode>0 then
-        t.wVirtualScanCode:=ScanCode;
-      Key := byte (t.AsciiChar) + (t.wVirtualScanCode shl 8) + $03000000;
-      ss := transShiftState (t.dwControlKeyState);
-      key := key or (ss shl 16);
-      if (ss and kbAlt <> 0) and rightistruealt(t.dwControlKeyState) then
-        key := key and $FFFFFF00;
-{$else not USEKEYCODES}
-      Key := byte (t.AsciiChar) + ((t.wVirtualScanCode AND $00FF) shl 8) + $03000000;
-{$endif not USEKEYCODES}
-    end else
-    begin
-{$ifdef  USEKEYCODES}
-      Scancode:=KeyToQwertyScan[t.wVirtualKeyCode AND $00FF];
-      If ScanCode>0 then
-        t.wVirtualScanCode:=ScanCode;
-{$endif not USEKEYCODES}
-      translateKey := 0;
-      { ignore shift,ctrl,alt,numlock,capslock alone }
-      case t.wVirtualKeyCode of
-        $0010,         {shift}
-        $0011,         {ctrl}
-        $0012,         {alt}
-        $0014,         {capslock}
-        $0090,         {numlock}
-        $0091,         {scrollock}
-        { This should be handled !! }
-        { these last two are OEM specific
-          this is not good !!! }
-        $00DC,         {^ : next key i.e. a is modified }
-        { Strange on my keyboard this corresponds to double point over i or u PM }
-        $00DD: exit;   {´ and ` : next key i.e. e is modified }
-      end;
-
-      key := $03000000 + (t.wVirtualScanCode shl 8);  { make lower 8 bit=0 like under dos }
-    end;
-    { Handling of ~ key as AltGr 2 }
-    { This is also French keyboard specific !! }
-    { but without this I can not get a ~ !! PM }
-    { MvdV: not rightruealtised, since it already has frenchkbd guard}
-    if (t.wVirtualKeyCode=$32) and
-       (KeyBoardLayout = FrenchKeyboard) and
-       (t.dwControlKeyState and RIGHT_ALT_PRESSED <> 0) then
-      key:=(key and $ffffff00) or ord('~');
-    { ok, now add Shift-State }
-    ss := transShiftState (t.dwControlKeyState);
-    key := key or (ss shl 16);
-
-    { Reset Ascii-Char if Alt+Key, fv needs that, may be we
-      need it for other special keys too
-      18 Sept 1999 AD: not for right Alt i.e. for AltGr+ß = \ on german keyboard }
-    if ((ss and kbAlt <> 0) and rightistruealt(t.dwControlKeyState)) or
-    (*
-      { yes, we need it for cursor keys, 25=left, 26=up, 27=right,28=down}
-      {aggg, this will not work because esc is also virtualKeyCode 27!!}
-      {if (t.wVirtualKeyCode >= 25) and (t.wVirtualKeyCode <= 28) then}
-        no VK_ESCAPE is $1B !!
-        there was a mistake :
-         VK_LEFT is $25 not 25 !! *)
-       { not $2E VK_DELETE because its only the Keypad point !! PM }
-      (t.wVirtualKeyCode in [$21..$28,$2C,$2D,$2F]) then
-      { if t.wVirtualScanCode in [$47..$49,$4b,$4d,$4f,$50..$53] then}
-        key := key and $FFFFFF00;
-
-    {and translate to dos-scancodes to make fv happy, we will convert this
-     back in translateKeyEvent}
-
-     if rightistruealt(t.dwControlKeyState) then {not for alt-gr}
-     if (t.wVirtualScanCode >= low (DosTT)) and
-        (t.wVirtualScanCode <= high (dosTT)) then
-     begin
-       b := 0;
-       if (ss and kbAlt) <> 0 then
-         b := DosTT[t.wVirtualScanCode].a
-       else
-       if (ss and kbCtrl) <> 0 then
-         b := DosTT[t.wVirtualScanCode].c
-       else
-       if (ss and kbShift) <> 0 then
-         b := DosTT[t.wVirtualScanCode].s
-       else
-         b := DosTT[t.wVirtualScanCode].n;
-       if b <> 0 then
-         key := (key and $FFFF00FF) or (longint (b) shl 8);
-     end;
-
-     {Alt-0 to Alt-9}
-     if rightistruealt(t.dwControlKeyState) then {not for alt-gr}
-       if (t.wVirtualScanCode >= low (DosTT09)) and
-          (t.wVirtualScanCode <= high (dosTT09)) then
-       begin
-         b := 0;
-         if (ss and kbAlt) <> 0 then
-           b := DosTT09[t.wVirtualScanCode].a
-         else
-         if (ss and kbCtrl) <> 0 then
-           b := DosTT09[t.wVirtualScanCode].c
-         else
-         if (ss and kbShift) <> 0 then
-           b := DosTT09[t.wVirtualScanCode].s
-         else
-           b := DosTT09[t.wVirtualScanCode].n;
-         if b <> 0 then
-           key := (key and $FFFF0000) or (longint (b) shl 8);
-       end;
-
-     TranslateKey := key;
-  end;
-  translateKey := Key;
-end;
-*}
-
-function hasMouseEvent(var x: integer; var y: integer; var btn: integer): boolean;
-begin
-//  if 
-end;
-
-
-
-//#define IsMsgPortEmpty(x)  (((x)->mp_MsgList.lh_TailPred) == (struct Node *)(&(x)->mp_MsgList))
-
-function IsMsgPortEmpty(port: PMsgPort): boolean; inline;
-begin
-  IsMsgPortEmpty:=(port^.mp_MsgList.lh_TailPred = @(port^.mp_MsgList));
-end;
-
-var
-  KeyQueue: TKeyEvent;
-
-
-type 
-  rawCodeEntry = record
-    rc,n,s,c,a : word; { raw code, normal, shift, ctrl, alt }
-  end;
-
-const
-  RCTABLE_MAXIDX = 17;
-  rawCodeTable : array[0..RCTABLE_MAXIDX] of rawCodeEntry = 
-    ((rc: 68; n: $1C0D; s: $1C0D; c: $1C0A; a: $1C0D; ), // Enter  // shift, alt?
-     (rc: 71; n: $5200; s: $0500; c: $0400; a: $A200; ), // Insert
-     (rc: 72; n: $4900; s: $4900; c: $8400; a: $9900; ), // PgUP   // shift?
-     (rc: 73; n: $5100; s: $5100; c: $7600; a: $A100; ), // PgDOWN // shift?
-
-     (rc: 76; n: $4800; s: $4800; c: $8D00; a: $9800; ), // UP     // shift?
-     (rc: 77; n: $5000; s: $5000; c: $9100; a: $A000; ), // DOWN   // shift?
-     (rc: 78; n: $4D00; s: $4D00; c: $7400; a: $9D00; ), // RIGHT  // shift?
-     (rc: 79; n: $4B00; s: $4B00; c: $7300; a: $9B00; ), // LEFT   // shift?
- 
-     (rc: 80; n: $3B00; s: $5400; c: $5E00; a: $6800; ), // F1
-     (rc: 81; n: $3C00; s: $5500; c: $5F00; a: $6900; ), // F2
-     (rc: 82; n: $3D00; s: $5600; c: $6000; a: $6A00; ), // F3
-     (rc: 83; n: $3E00; s: $5700; c: $6100; a: $6B00; ), // F4
-     (rc: 84; n: $3F00; s: $5800; c: $6200; a: $6C00; ), // F5
-     (rc: 85; n: $4000; s: $5900; c: $6300; a: $6D00; ), // F6
-     (rc: 86; n: $4100; s: $5A00; c: $6400; a: $6E00; ), // F7
-     (rc: 87; n: $4200; s: $5B00; c: $6500; a: $6F00; ), // F8
-     (rc: 88; n: $4300; s: $5C00; c: $6600; a: $7000; ), // F9
-     (rc: 89; n: $4400; s: $5D00; c: $6700; a: $7100; )  // F10
-    );
-
-function rcTableIdx(rc: longint): longint;
-var counter: longint;
-begin
-  rcTableIdx := -1;
-  counter := 0;
-  while (rawCodeTable[counter].rc <> rc) and (counter <= RCTABLE_MAXIDX) do inc(counter);
-  if (counter <= RCTABLE_MAXIDX) then rcTableIdx:=counter;
-end;
-
-
-function hasShift(iMsg: PIntuiMessage) : boolean; inline;
-begin
-  hasShift:=false;
-  if ((iMsg^.qualifier and IEQUALIFIER_LSHIFT) > 0) or
-     ((iMsg^.qualifier and IEQUALIFIER_RSHIFT) > 0) then hasShift:=true;
-end;
-
-function hasCtrl(iMsg: PIntuiMessage) : boolean; inline;
-begin
-  hasCtrl:=false;
-  if ((iMsg^.qualifier and IEQUALIFIER_CONTROL) > 0) then hasCtrl:=true;
-end;
-
-function hasAlt(iMsg: PIntuiMessage) : boolean; inline;
-begin
-  hasAlt:=false;
-  if ((iMsg^.qualifier and IEQUALIFIER_LALT) > 0) or
-     ((iMsg^.qualifier and IEQUALIFIER_RALT) > 0) then hasAlt:=true;
-end;
-
-function rcTableCode(iMsg: PIntuiMessage; Idx: longint): longint;
-begin
-  if (Idx < 0) or (Idx > RCTABLE_MAXIDX) then begin
-    rcTableCode:=-1;
-    exit;
-  end;
-
-  if hasShift(iMsg) then rcTableCode:=rawCodeTable[Idx].s else
-  if hasCtrl(iMsg) then rcTableCode:=rawCodeTable[Idx].c else
-  if hasAlt(iMsg) then rcTableCode:=rawCodeTable[Idx].a else
-  rcTableCode:=rawCodeTable[Idx].n;
-end;
-
-procedure setShiftState(iMsg: PIntuiMessage);
-begin
-  lastShiftState:=0;
-  if ((iMsg^.qualifier and IEQUALIFIER_LSHIFT) > 0) then lastShiftState := lastShiftState or $01;
-  if ((iMsg^.qualifier and IEQUALIFIER_RSHIFT) > 0) then lastShiftState := lastShiftState or $02;
-  if hasCtrl(iMsg) then lastShiftState := lastShiftState or $04;
-  if hasAlt(iMsg)  then lastShiftState := lastShiftState or $08;
-  if ((iMsg^.qualifier and IEQUALIFIER_NUMERICPAD) > 0) then lastShiftState := lastShiftState or $20;
-  if ((iMsg^.qualifier and IEQUALIFIER_CAPSLOCK) > 0)   then lastShiftState := lastShiftState or $40;
-end;
-
-
-function SysPollKeyEvent: TKeyEvent;
-//var t   : TKeyEventRecord;
-//    k   : TKeyEvent;
-var
-  mouseevent : boolean;
-  iMsg : PIntuiMessage;
-  KeyCode: longint;
-  tmpFCode: word;
-  tmpIdx  : longint;
-  mousex  : longint;
-  mousey  : longint;
-  me      : TMouseEvent;
-begin
-  KeyCode:=0;
-  SysPollKeyEvent:=0;
-  FillChar(me,sizeof(TMouseEvent),0); 
-
-  if KeyQueue<>0 then begin
-    SysPollKeyEvent:=KeyQueue;
-    exit;
-  end;
-
-  repeat
-    mouseevent:=false;    
-
-    if videoWindow<>nil then begin
-      if IsMsgPortEmpty(videoWindow^.UserPort) then exit;
-    end;
-    
-    PMessage(iMsg):=GetMsg(videoWindow^.UserPort);
-    if (iMsg<>nil) then begin
-      
-      // set Shift state qualifiers. do this for all messages we get.
-      setShiftState(iMsg);
-
-      case (iMsg^.iClass) of
-        IDCMP_CLOSEWINDOW: begin
-            GotCloseWindow;
-          end;
-        IDCMP_CHANGEWINDOW: begin
-            GotResizeWindow;
-          end;
-        IDCMP_MOUSEBUTTONS: begin
-            mouseevent:=true;
-            me.x:=(iMsg^.MouseX - videoWindow^.BorderLeft) div 8;
-            me.y:=(iMsg^.MouseY - videoWindow^.BorderTop) div 16;
-            case iMsg^.code of
-              SELECTDOWN: begin
-                  //writeln('left down!');
-                  me.Action:=MouseActionDown;
-                  oldbuttons:=oldbuttons or MouseLeftButton;
-                  me.Buttons:=oldbuttons;
-                  PutMouseEvent(me);
-                end;
-              SELECTUP: begin
-                  //writeln('left up!');
-                  me.Action:=MouseActionUp;
-                  oldbuttons:=oldbuttons and (not MouseLeftButton);
-                  me.Buttons:=oldbuttons;
-                  PutMouseEvent(me);
-                end;
-              MENUDOWN: begin
-                  //writeln('right down!');
-                  me.Action:=MouseActionDown;
-                  oldbuttons:=oldbuttons or MouseRightButton;
-                  me.Buttons:=oldbuttons;
-                  PutMouseEvent(me);
-                end;
-              MENUUP: begin
-                  //writeln('right up!');
-                  me.Action:=MouseActionUp;
-                  oldbuttons:=oldbuttons and (not MouseRightButton);
-                  me.Buttons:=oldbuttons;
-                  PutMouseEvent(me);
-                end;
-            end;
-          end;
-        IDCMP_MOUSEMOVE: begin
-            mouseevent:=true;
-            mousex:=(iMsg^.MouseX - videoWindow^.BorderLeft) div 8;
-            mousey:=(iMsg^.MouseY - videoWindow^.BorderTop) div 16;
-            if (mousex >= 0) and (mousey >= 0) and
-               (mousex < video.ScreenWidth) and (mousey < video.ScreenHeight) and
-               ((mousex <> oldmousex) or (mousey <> oldmousey))
-              then begin
-//              //writeln('mousemove:',mousex,'/',mousey,' oldbutt:',oldbuttons);
-              me.Action:=MouseActionMove;
-              me.Buttons:=oldbuttons;
-              me.X:=mousex;
-              me.Y:=mousey;
-              oldmousex:=mousex;
-              oldmousey:=mousey;
-              PutMouseEvent(me);
-            end;
-          end;
-        IDCMP_VANILLAKEY: begin
-            //writeln('vanilla keycode: ',iMsg^.code);
-            KeyCode:=iMsg^.code;
-            case (iMsg^.code) of
-               09: KeyCode:=$0F09; // Tab
-               13: KeyCode:=$1C0D; // Enter 
-               27: KeyCode:=$011B; // ESC
-              
-              127: KeyCode:=$5300; // Del
-
-              164: KeyCode:=$1200; // Alt-E //XXX: conflicts with Alt-Z(?)
-              174: KeyCode:=$1300; // Alt-R
-              176: KeyCode:=$1100; // Alt-W
-              215: KeyCode:=$2D00; // Alt-X
-              229: KeyCode:=$1000; // Alt-Q
-              254: KeyCode:=$1400; // Alt-T
-
-            end;
-          end;
-        IDCMP_RAWKEY: begin
-            //writeln('raw keycode: ',iMsg^.code);
-            
-            case (iMsg^.code) of
-               35: KeyCode:=$2100; // Alt-F
-                
-              112: KeyCode:=$4700; // HOME
-              113: KeyCode:=$4F00; // END
-
-              else
-                KeyCode:=rcTableCode(iMsg,rcTableIdx(iMsg^.code));
-
-            end;
-          end;
-        else begin
-            KeyCode:=-1;
-          end;
-      end;
-      ReplyMsg(PMessage(iMsg));
-    end;
-  until (not mouseevent);
- 
-  // XXX: huh :)
-
-  if KeyCode>=0 then begin
-    SysPollKeyEvent:=KeyCode or (kbPhys shl 24);
-  end else begin
-    SysPollKeyEvent:=0;
-  end;
-
-  KeyQueue:=SysPollKeyEvent;
-
-{*
-  SysPollKeyEvent := 0;
-  if getKeyEventFromQueue (t, true) then
-  begin
-    { we get an enty for shift, ctrl, alt... }
-    k := translateKey (t);
-    while (k = 0) do
-    begin
-      getKeyEventFromQueue (t, false);  {remove it}
-      if not getKeyEventFromQueue (t, true) then exit;
-      k := translateKey (t)
-    end;
-    SysPollKeyEvent := k;
-  end;
-*}
-end;
-
-
-function SysGetKeyEvent: TKeyEvent;
-//var t   : TKeyEventRecord;
-//    key : TKeyEvent;
-var
-  iMsg : PIntuiMessage;
-  res : TKeyEvent;
-begin
-{*
-  key := 0;
-  repeat
-     if getKeyEventFromQueueWait (t) then
-       key := translateKey (t);
-  until key <> 0;
-{$ifdef DEBUG}
-  last_ir.Event.KeyEvent:=t;
-{$endif DEBUG}
-  SysGetKeyEvent := key;
-*}
-
-//  writeln('keyboard/SysGetKeyEvent');
-  if videoWindow<>nil then begin
-    if KeyQueue <> 0 then begin
-      SysGetKeyEvent := KeyQueue;
-      KeyQueue:=0;
-      exit;
-    end;
-    repeat
-      WaitPort(videoWindow^.UserPort);
-      res:=SysPollKeyEvent;
-    until res<>0;
-  end;
-
-  SysGetKeyEvent:=res;
-
-{*
-  if videoWindow<>nil then begin
-    WaitPort(videoWindow^.UserPort);
-    PMessage(iMsg):=GetMsg(videoWindow^.UserPort);
-    if (iMsg<>nil) then begin
-      writeln('got msg!');
-      ReplyMsg(PMessage(iMsg));
-    end;
-  end;
-*}
-end;
-
-
-
-function SysTranslateKeyEvent(KeyEvent: TKeyEvent): TKeyEvent;
-begin
-{*
-  if KeyEvent and $03000000 = $03000000 then
-   begin
-     if KeyEvent and $000000FF <> 0 then
-     begin
-       SysTranslateKeyEvent := KeyEvent and $00FFFFFF;
-       exit;
-     end;
-     {translate function-keys and other specials, ascii-codes are already ok}
-     case (KeyEvent AND $0000FF00) shr 8 of
-       {F1..F10}
-       $3B..$44     : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdF1 + ((KeyEvent AND $0000FF00) SHR 8) - $3B + $02000000;
-       {F11,F12}
-       $85..$86     : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdF11 + ((KeyEvent AND $0000FF00) SHR 8) - $85 + $02000000;
-       {Shift F1..F10}
-       $54..$5D     : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdF1 + ((KeyEvent AND $0000FF00) SHR 8) - $54 + $02000000;
-       {Shift F11,F12}
-       $87..$88     : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdF11 + ((KeyEvent AND $0000FF00) SHR 8) - $87 + $02000000;
-       {Alt F1..F10}
-       $68..$71     : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdF1 + ((KeyEvent AND $0000FF00) SHR 8) - $68 + $02000000;
-       {Alt F11,F12}
-       $8B..$8C     : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdF11 + ((KeyEvent AND $0000FF00) SHR 8) - $8B + $02000000;
-       {Ctrl F1..F10}
-       $5E..$67     : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdF1 + ((KeyEvent AND $0000FF00) SHR 8) - $5E + $02000000;
-       {Ctrl F11,F12}
-       $89..$8A     : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdF11 + ((KeyEvent AND $0000FF00) SHR 8) - $89 + $02000000;
-
-       {normal,ctrl,alt}
-       $47,$77,$97  : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdHome + $02000000;
-       $48,$8D,$98  : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdUp + $02000000;
-       $49,$84,$99  : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdPgUp + $02000000;
-       $4b,$73,$9B  : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdLeft + $02000000;
-       $4d,$74,$9D  : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdRight + $02000000;
-       $4f,$75,$9F  : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdEnd + $02000000;
-       $50,$91,$A0  : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdDown + $02000000;
-       $51,$76,$A1  : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdPgDn + $02000000;
-       $52,$92,$A2  : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdInsert + $02000000;
-       $53,$93,$A3  : SysTranslateKeyEvent := (KeyEvent AND $FCFF0000) + kbdDelete + $02000000;
-     else
-       SysTranslateKeyEvent := KeyEvent;
-     end;
-   end else
-     SysTranslateKeyEvent := KeyEvent;
-*}
-end;
-
-
-function SysGetShiftState: Byte;
-begin
-  //writeln('SysgetShiftState:',hexstr(lastShiftState,2));
-  SysGetShiftState:= lastShiftState;
-end;
-
-Const
-  SysKeyboardDriver : TKeyboardDriver = (
-    InitDriver : @SysInitKeyBoard;
-    DoneDriver : @SysDoneKeyBoard;
-    GetKeyevent : @SysGetKeyEvent;
-    PollKeyEvent : @SysPollKeyEvent;
-    GetShiftState : @SysGetShiftState;
-//    TranslateKeyEvent : @SysTranslateKeyEvent;
-    TranslateKeyEvent : Nil;
-    TranslateKeyEventUnicode : Nil;
-  );
-
-
-begin
-  SetKeyBoardDriver(SysKeyBoardDriver);
-end.

packages/rtl-console/src/morphos/mouse.pp

@@ -1,61 +0,0 @@
-{
-    This file is part of the Free Pascal run time library.
-    Copyright (c) 2006 Karoly Balogh
-    member of the Free Pascal development team
-
-    Mouse unit for Amiga/MorphOS
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************}
-unit Mouse;
-interface
-
-{$i mouseh.inc}
-
-implementation
-
-{$i mouse.inc}
-
-function SysDetectMouse:byte;
-var
-  num : dword;
-begin
-  // Under Amiga/MorphOS, mouse is always there, and it's unable to easily
-  // detect number of buttons. So lets report 3, which is common nowadays. (KB)
-  SysDetectMouse:=3;
-end;
-
-
-
-
-
-
-
-
-
-const
-  SysMouseDriver : TMouseDriver = (
-    UseDefaultQueue : True;
-    InitDriver      : Nil;
-    DoneDriver      : Nil;
-    DetectMouse     : @SysDetectMouse;
-    ShowMouse       : Nil;
-    HideMouse       : Nil;
-    GetMouseX       : Nil;
-    GetMouseY       : Nil;
-    GetMouseButtons : Nil;
-    SetMouseXY      : Nil;
-    GetMouseEvent   : Nil;
-    PollMouseEvent  : Nil;
-    PutMouseEvent   : Nil;
-  );
-
-begin
-  SetMouseDriver(SysMouseDriver);
-end.

packages/rtl-console/src/morphos/video.pp

@@ -13,12 +13,77 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+
 unit Video;
 
+{.$define VIDEODEBUG}
+{.$define WITHBUFFERING}
+
+
+{
+  Date: 2013-01-09
+  What: Adjusted FPC video unit for AROS (/AmigaOS?)
+
+  goal:
+  ---------------------------------------------------------------------------
+  Attempt to add user-on-demand support for AROS Fullscreen to the FPC video 
+  unit.
+
+  DISCLAIMER:
+  Experimental code only meant as PoC.
+  
+  DON'T USE FOR PUBLICATION UNLESS ALL PERSONAL COMMENTS AND REFERENCES ARE 
+  REMOVED AND THE ACTUAL CODE IS APPROVED BY SOMEONE THAT KNOWS WHAT HE/SHE 
+  IS DOING.
+  THIS CODE IS PROOF OF CONCEPT ONLY AND AS SUCH DOES NOT PROVIDE 100% 
+  RELIABLE CODE AND/OR APPROVED PROGRAMMING TECHNIQUES.
+
+  Idea:
+  The idea of running a video-unit screen on its own graphical screen
+  emerged from ALB42's port of the dos-based fp-editor that is distributed
+  with freepascal. In it's original form the editor would be run from dos
+  and would present itself in a full-screen modus fashion.
+  
+  This behaviour changed slightly with the ending of the dos era, and 
+  instead a commando window started to appear in regular OS'.
+  
+  But even when this changed, Windows users were still able to view this
+  command window in full-screen by means of pressing ctrl-enter.
+  
+  Since this behaviour is not present on current next gen amigaOS systems,
+  we have to live without that.
+  
+  And so begun the idea of letting the video-unit somehow be influenced
+  in such a way that an Freevision application that uses the videounit
+  could be shown in fullscreen.
+  
+  In order to accomplish this task we missuse the color tag of TVideomode.
+  When the color is set to monochrome it will show the 
+  dos-screen on a full graphics screen and the dos-output will be shown
+  in a borderless backdrop window. That way it appears that the vision
+  application is running full-screen.
+  
+  The current implementation has a limitation that cannot be solved.
+  
+  Namely, the vision screens are based on a ascii character screen, so 
+  the final measurements of the full-screen-window will depend
+  on the amount of pixels that maximally can be displayed by means of 
+  those same character-sizes. 
+  Since the used font is currently 8 pixels width and 16 pixels high, 
+  it becomes clear that not every screen-resolution is suitable to 
+  exactly fit both dimensions pixelwise. As a result a small
+  stripe (of default backgroundcolor) on the bottom or right may appear. 
+   
+  HAVE FUN !
+  
+  MaGoRiuM
+}
+
+
 interface
 
 uses
-  intuition;
+  amigados, intuition, {tagsarray,} utility, sysutils;
 
 {$i videoh.inc}
 
@@ -26,14 +91,15 @@ uses
 { Amiga specific calls, to help interaction between Keyboard, Mouse and
   Video units, and Free Vision }
 procedure GotCloseWindow;
-function HasCloseWindow: boolean;
+function  HasCloseWindow: boolean;
 procedure GotResizeWindow;
-function HasResizeWindow(var winw:longint; var winh: longint): boolean;
+function  HasResizeWindow(var winw:longint; var winh: longint): boolean;
 
-var
-   videoWindow   : pWindow;
 
 
+var
+  VideoWindow: PWindow;
+
 implementation
 
 uses
@@ -44,253 +110,504 @@ uses
 {$i videodata.inc}
 
 const
-    LastCursorType: word = crUnderline;
-    OrigScreen: PVideoBuf = nil;
-    OrigScreenSize: cardinal = 0;
+  VIDEOSCREENNAME = 'FPC Video Screen Output';
+
+var
+  OS_Screen             : PScreen   = nil;    // To hold our screen, when necessary
+  FPC_VIDEO_FULLSCREEN  : Boolean   = False;  // Global that defines when we need to attempt opening on own scren
 
 var
-   videoColorMap : pColorMap;
-   videoPens     : array[0..15] of longint;
+  VideoColorMap         : PColorMap;
+  VideoPens             : array[0..15] of LongInt;
+
+  OldCursorX,
+  OldCursorY            : LongInt;
+  CursorType            : Word;
+  OldCursorType         : Word;
+
+  {$ifdef WITHBUFFERING}
+  BitmapWidth, BitmapHeight: Integer;
+  BufRp: PRastPort;
+  {$endif}
+
+  GotCloseWindowMsg     : Boolean;
+  GotResizeWindowMsg    : Boolean;
+  LastL, LastT: Integer;
+  LastW, LastH: Integer;
+  WindowForReqSave: PWindow;
+  Process: PProcess;
+(*
+  GetScreen: pScreen;
+
+  Tries to open a custom screen, which attempt to clone the workbench,
+  and returns the pointer to the screen. Result can be nil when failed
+  otherwise the screen got opened correctly.
+*)
+Function GetScreen: pScreen;
+begin
+  GetScreen:=OpenScreenTags(nil,[
+    SA_Title          , DWord(PChar(VIDEOSCREENNAME)),
+    SA_Left           , 0,
+    SA_Top            , 0,
+    SA_ShowTitle      , 0,    // Do not show the screen's TitleBar
+    SA_Type           , PUBLICSCREEN_F,
+    SA_PubName        , DWord(PChar(VIDEOSCREENNAME)),
+    SA_Quiet          , 1,
+    SA_LikeWorkbench  , 1     // Let OS
+  ]);
+  {$ifdef VIDEODEBUG}
+  if (GetScreen <> nil) then
+    Writeln('DEBUG: Opened a new screen')
+  else
+    Writeln('ERROR: Failed to open new screen');
+  {$endif}
+end;
 
-   oldCursorX, oldCursorY: longint;
-   cursorType: word;
-   oldcursorType: word;
+(*
+  GetWindow: pWindow;
+  
+  Tries to create and open a window. Returns the pointer to
+  the window or nil in case of failure.
+
+  The routine keeps the global FPC_FULL_SCREEM option into 
+  account and act accordingly.
+  
+  In windowed mode it returns a window with another kind of 
+  settings then when it has to reside on it's own customscreen.
+*)
+Function GetWindow: PWindow;
+begin
+  GetWindow:=nil;
+
+  if FPC_VIDEO_FULLSCREEN then
+  begin
+    OS_Screen := GetScreen;
+    If OS_Screen = nil then
+      Exit;
+
+    {$ifdef VIDEODEBUG}
+    WriteLn('DEBUG: Opened customscreen succesfully');
+    {$endif}
+    GetWindow:=OpenWindowTags(nil, [
+      WA_CustomScreen, PtrUInt(OS_Screen),
+      WA_Left       , 0,
+      WA_Top        , 0,
+      WA_InnerWidth , (OS_Screen^.Width div 8) * 8,
+      WA_InnerHeight, (OS_Screen^.Height div 16) * 16,
+      WA_AutoAdjust , 1,
+      WA_Activate   , 1,
+      WA_Borderless , 1,
+      WA_BackDrop   , 1,
+      WA_FLAGS      , (WFLG_GIMMEZEROZERO or WFLG_REPORTMOUSE   or WFLG_RMBTRAP or
+                       WFLG_SMART_REFRESH or WFLG_NOCAREREFRESH),
+      WA_IDCMP      , (IDCMP_RAWKEY       or
+                       IDCMP_MOUSEMOVE    or IDCMP_MOUSEBUTTONS or
+                       IDCMP_CHANGEWINDOW or IDCMP_CLOSEWINDOW)
+    ]);
+  end else
+  begin      // Windowed Mode
+    GetWindow:=OpenWindowTags(nil,[
+      WA_Left       , LastL,
+      WA_Top        , LastT,
+      WA_InnerWidth , LastW*8,
+      WA_InnerHeight, LastH*16,
+      WA_MaxWidth   , 32768,
+      WA_MaxHeight  , 32768,
+      WA_Title      , PtrUInt(PChar('FPC Video Window Output')),
+      WA_Activate   , 1,
+      WA_FLAGS      , (WFLG_GIMMEZEROZERO or WFLG_REPORTMOUSE   or
+                       WFLG_SMART_REFRESH or WFLG_NOCAREREFRESH or 
+                       WFLG_DRAGBAR       or WFLG_DEPTHGADGET   or WFLG_SIZEGADGET or
+                       WFLG_SIZEBBOTTOM   or WFLG_RMBTRAP       or WFLG_CLOSEGADGET),
+      WA_IDCMP      , (IDCMP_RAWKEY       or
+                       IDCMP_MOUSEMOVE    or IDCMP_MOUSEBUTTONS or
+                       IDCMP_CHANGEWINDOW or IDCMP_CLOSEWINDOW)//,
+    ]);
+  end;
+
+  Process := PProcess(FindTask(nil));
+  WindowForReqSave := Process^.pr_WindowPtr;
+  Process^.pr_WindowPtr := GetWindow;
+
+  {$ifdef VIDEODEBUG}
+  If GetWindow <> nil then
+    WriteLn('DEBUG: Sucessfully opened videounit Window')
+  else
+    WriteLn('ERROR: Failed to open videounit Window');
+  {$endif}
+end;
+
+
+// ==========================================================================
+// ==
+// ==  Original source code continues, with minor adjustments
+// ==
+// ==========================================================================
 
-   gotCloseWindowMsg: boolean;
-   gotResizeWindowMsg: boolean;
 
 procedure SysInitVideo;
-var counter: longint;
+var
+  Counter: LongInt;
 begin
-   InitGraphicsLibrary;
-   InitIntuitionLibrary;
-
-   // fill videobuf and oldvideobuf with different bytes, to allow proper first draw
-   FillDword(VideoBuf^,VideoBufSize Div 4,$1234D3AD);
-   FillDword(OldVideoBuf^,VideoBufSize Div 4,$4321BEEF);
-
-   videoWindow:=OpenWindowTags(Nil, [
-      WA_Left,50,
-      WA_Top,50,
-      WA_InnerWidth,80*8,
-      WA_InnerHeight,25*16,
-      WA_MaxWidth,32768,
-      WA_MaxHeight,32768,
-      WA_IDCMP,IDCMP_VANILLAKEY Or IDCMP_RAWKEY Or
-               IDCMP_MOUSEMOVE Or IDCMP_MOUSEBUTTONS Or
-               IDCMP_CLOSEWINDOW Or IDCMP_CHANGEWINDOW,
-      WA_Title,DWord(PChar('Free Pascal Video Output')),
-      WA_Flags,(WFLG_GIMMEZEROZERO Or WFLG_SMART_REFRESH Or WFLG_NOCAREREFRESH Or
-                WFLG_ACTIVATE Or WFLG_DRAGBAR Or WFLG_DEPTHGADGET Or WFLG_REPORTMOUSE Or
-                WFLG_SIZEGADGET Or WFLG_SIZEBBOTTOM Or WFLG_RMBTRAP Or
-                WFLG_CLOSEGADGET)
-   ]);
-
-   ScreenWidth := 80;
-   ScreenHeight := 25;
-   ScreenColor := true;
-
+  {$ifdef VIDEODEBUG}
+  WriteLn('FULLSCREEN VIDEO UNIT MODIFICATION v2');  
+  if FPC_VIDEO_FULLSCREEN then
+    WriteLn('DEBUG: Recognized fullscreen mode')
+  else
+    WriteLn('DEBUG: Recognized windowed mode');
+  {$endif}
+
+  // fill videobuf and oldvideobuf with different bytes, to allow proper first draw
+  FillDword(VideoBuf^, VideoBufSize div 4, $1234D3AD);
+  FillDword(OldVideoBuf^, VideoBufSize div 4, $4321BEEF);
+
+  VideoWindow := GetWindow;
+
+  // nice hardcode values are probably going to screw up things
+  // so wee neeed a way to detrmined how many chars could be on
+  // the screen in both directions. And a bit accurate.
+  if FPC_VIDEO_FULLSCREEN then
+  begin
+    // just to make sure that we are going to use the window width 
+    // and height instead of the one from the screen. 
+    // This is to circumvent that the window (or virtual window from
+    // vision based on characters pixels * characters in both 
+    // dimensions) is actually smaller then the window it resides on.
+    //
+    // Can happen for instance when the window does not hide it's 
+    // borders or title as intended.
+    ScreenWidth := VideoWindow^.GZZWidth div 8;
+    ScreenHeight := VideoWindow^.GZZHeight div 16;
+    ScreenColor := False;
+
+    {$ifdef VIDEODEBUG}
+    Writeln('DEBUG: Fullscreen - windowed - Width * Heigth = ',ScreenWidth,' * ',ScreenHeight);
+    {$endif}
+   end else
+   begin
+     ScreenWidth := LastW;
+     ScreenHeight := LastH;
+     ScreenColor := True;
+   end;
+   {$ifdef WITHBUFFERING}
+   BufRp^.Bitmap := AllocBitmap(VideoWindow^.GZZWidth, VideoWindow^.GZZHeight, VideoWindow^.RPort^.Bitmap^.Depth, BMF_CLEAR, VideoWindow^.RPort^.Bitmap);
+   BitmapWidth := VideoWindow^.GZZWidth;
+   BitmapHeight := VideoWindow^.GZZHeight;
+   {$endif}
+   { viewpostcolormap info }
    videoColorMap := pScreen(videoWindow^.WScreen)^.ViewPort.ColorMap;
-   for counter:=0 to 15 do begin
-     videoPens[counter]:=ObtainPen(videoColorMap,-1,
-         vgacolors[counter,0] shl 24,vgacolors[counter,1] shl 24,vgacolors[counter,2] shl 24,
+   
+   for Counter := 0 to 15 do 
+   begin
+     VideoPens[Counter] := ObtainPen(VideoColorMap, LongWord(-1),
+         vgacolors[counter, 0] shl 24, vgacolors[counter, 1] shl 24, vgacolors[counter, 2] shl 24,
          PEN_EXCLUSIVE);
-//     writeln(videoPens[counter]);
-     // XXX: do checks for -1 colors (KB)
+     {$ifdef VIDEODEBUG}
+     If VideoPens[Counter] = -1 then
+       WriteLn('errr color[',Counter,'] = ', VideoPens[Counter])
+     else
+       WriteLn('good color[',Counter,'] = ', VideoPens[Counter]);
+     {$endif}
    end;
-
-   CursorX:=0;
-   CursorY:=0;
-   oldCursorX:=0;
-   oldCursorY:=0;
-   cursorType:=crHidden;
-   oldcursorType:=crHidden;
-
-   gotCloseWindowMsg:=false;
-   gotResizeWindowMsg:=false;
+   
+   CursorX := 0;
+   CursorY := 0;
+   OldCursorX := 0;
+   OldCursorY := 0;
+   CursorType := crHidden;
+   OldCursorType := crHidden;
+
+   GotCloseWindowMsg := false;
+   GotResizeWindowMsg := false;
 end;
 
-
 procedure SysDoneVideo;
-var counter: longint;
+var
+  Counter: LongInt;
 begin
-   if videoWindow<>nil then CloseWindow(videoWindow);
-   for counter:=0 to 15 do ReleasePen(videoColorMap,videoPens[counter]);
+  if VideoWindow <> nil then
+  begin
+    Process^.pr_WindowPtr := WindowForReqSave;
+    if not FPC_VIDEO_FULLSCREEN then
+    begin
+      LastL := VideoWindow^.LeftEdge;
+      LastT := VideoWindow^.TopEdge;
+    end;
+    CloseWindow(videoWindow);
+  end;
+  {$ifdef WITHBUFFERING}
+  FreeBitmap(BufRp^.Bitmap);
+  BufRp^.Bitmap := nil;
+  {$endif}
+  VideoWindow := nil;
+  for Counter := 0 to 15 do
+    ReleasePen(VideoColorMap, VideoPens[Counter]);
+  if ((FPC_VIDEO_FULLSCREEN) and (OS_Screen <> nil)) then
+  begin
+    CloseScreen(OS_Screen);
+  end;
 end;
 
-
-
-function SysSetVideoMode (Const Mode : TVideoMode) : Boolean;
-
+function SysSetVideoMode(const Mode: TVideoMode): Boolean;
 var
-  I : Integer;
-  dx : integer;
-  dy : integer;
+  dx: integer;
+  dy: integer;
 begin
-  dx := (Mode.col * 8) - videoWindow^.GZZWidth;
-  dy := (Mode.row * 16) - videoWindow^.GZZHeight;
-  SizeWindow(videoWindow,dx,dy);
-
-  ScreenWidth:=Mode.col;
-  ScreenHeight:=Mode.row;
-  ScreenColor:=Mode.color;
-  SysSetVideoMode:=true;
+  if ScreenColor <> Mode.Color then
+  begin
+    SysDoneVideo;
+    FPC_VIDEO_FULLSCREEN := not Mode.color;
+    if not FPC_VIDEO_FULLSCREEN then
+    begin
+      LastT := 50;
+      LastL := 50;
+      LastW := 80;
+      LastH := 25;
+    end;
+    SysInitVideo;
+  end else
+    if not FPC_VIDEO_FULLSCREEN then
+    begin
+      dx := (Mode.col * 8) - VideoWindow^.GZZWidth;
+      dy := (Mode.row * 16) - VideoWindow^.GZZHeight;
+      SizeWindow(videoWindow, dx, dy);
+    end;
+  ScreenWidth := Mode.col;
+  ScreenHeight := Mode.row;
+  LastW := Mode.Col;
+  LastH := Mode.Row;
+  ScreenColor := Mode.color;
+  SysSetVideoMode := True;
 end;
 
 var
-  oldSH, oldSW : longint;
+  OldSH, OldSW : longint;
 
 procedure SysClearScreen;
 begin
   oldSH := -1;
   oldSW := -1;
-  UpdateScreen(true);
+  UpdateScreen(True);
 end;
 
-
-procedure DrawChar(x,y: longint; crType: word);
-var tmpCharData: word;
-    tmpChar    : byte;
-    tmpFGColor : byte;
-    tmpBGColor : byte;
+procedure DrawChar(rp: PRastPort; x, y: LongInt; crType: Word);
 var
-    counterX, counterY:longint;
-    sX,sY: longint;
+  TmpCharData: Word;
+  TmpChar: Byte;
+  TmpFGColor: Byte;
+  TmpBGColor: Byte;
+  sX, sY: LongInt;
 begin
-  tmpCharData:=VideoBuf^[y*ScreenWidth+x];
-  tmpChar    :=tmpCharData and $0ff;
-  tmpFGColor :=(tmpCharData shr 8) and %00001111;
-  tmpBGColor :=(tmpCharData shr 12) and %00000111;
-
-  sX:=x*8;
-  sY:=y*16;
-
-  if crType <> crBlock then begin
-    SetABPenDrMd(videoWindow^.RPort,videoPens[tmpFGColor],videoPens[tmpBGColor],JAM2);
-  end else begin
+  TmpCharData := VideoBuf^[y * ScreenWidth + x];
+  TmpChar    := TmpCharData and $0ff;
+  TmpFGColor := (TmpCharData shr 8) and %00001111;
+  TmpBGColor := (TmpCharData shr 12) and %00000111;
+
+  sX := x * 8;
+  sY := y * 16;
+
+  if crType <> crBlock then
+  begin
+    SetABPenDrMd(rp, VideoPens[TmpFGColor], VideoPens[tmpBGColor], JAM2);
+  end else
+  begin
     { in case of block cursor, swap fg/bg colors
       and BltTemplate() below will take care of everything }
-    SetABPenDrMd(videoWindow^.RPort,videoPens[tmpBGColor],videoPens[tmpFGColor],JAM2);
+    SetABPenDrMd(rp, VideoPens[tmpBGColor], VideoPens[tmpFGColor], JAM2);
   end;
 
-  BltTemplate(@vgafont[tmpChar,0],0,1,videoWindow^.RPort,sX,sY,8,16);
+  BltTemplate(@Vgafont[tmpChar, 0], 0, 1, rp, sX, sY, 8, 16);
 
-  if crType = crUnderLine then begin
+  if crType = crUnderLine then
+  begin
     { draw two lines at the bottom of the char, in case of underline cursor }
-    gfxMove(videoWindow^.RPort,sX,sY+14); Draw(videoWindow^.RPort,sX+7,sY+14);
-    gfxMove(videoWindow^.RPort,sX,sY+15); Draw(videoWindow^.RPort,sX+7,sY+15);
+    agraphics.gfxMove(rp, sX, sY + 14); Draw(rp, sX + 7, sY + 14);
+    agraphics.gfxMove(rp, sX, sY + 15); Draw(rp, sX + 7, sY + 15);
   end;
 end;
 
-
-procedure SysUpdateScreen(force: boolean);
+procedure SysUpdateScreen(Force: Boolean);
 var
-   BufCounter  : Longint;
-   smallforce  : boolean;
-   cursormoved : boolean;
-   counter, counterX, counterY: longint;
+  BufCounter: Longint;
+  SmallForce: Boolean;
+  Counter, CounterX, CounterY: LongInt;
+  //BufRp: PRastPort;
+  t: Double;
+  NumChanged: Integer;
 begin
-  smallforce:=false;
-  cursormoved:=false;
+  SmallForce := False;
 
   // override forced update when screen dimensions haven't changed
-  if force then begin
-    if (oldSH = ScreenHeight) and
-       (oldSW = ScreenWidth) then
-      force:=false
-    else begin
-      oldSH := ScreenHeight;
-      oldSW := ScreenWidth;
+  if Force then
+  begin
+    if (OldSH = ScreenHeight) and (OldSW = ScreenWidth) then
+      Force:=false
+    else
+    begin
+      OldSH := ScreenHeight;
+      OldSW := ScreenWidth;
     end;
   end;
 
-  if force then begin
-    smallforce:=true;
-  end else begin
-    counter:=0;
-    while not smallforce and (counter<(VideoBufSize div 4)-1) do begin
-      smallforce:=(PDWord(VideoBuf)[counter] <> PDWord(OldVideoBuf)[counter]);
-      inc(counter);
+  if Force then
+  begin
+    SmallForce:=true;
+  end else
+  begin
+    Counter:=0;
+    while not smallforce and (Counter < (VideoBufSize div 4) - 1) do
+    begin
+      SmallForce := (PDWord(VideoBuf)[Counter] <> PDWord(OldVideoBuf)[Counter]);
+      inc(Counter);
     end;
   end;
 
+  {$ifdef WITHBUFFERING}
+  if (VideoWindow^.GZZWidth > BitmapWidth) or (VideoWindow^.GZZHeight > BitmapHeight) then
+  begin
+    FreeBitmap(BufRp^.Bitmap);
+    BufRp^.Bitmap := AllocBitmap(VideoWindow^.GZZWidth, VideoWindow^.GZZHeight, VideoWindow^.RPort^.Bitmap^.Depth, BMF_CLEAR, VideoWindow^.RPort^.Bitmap);
+    BitmapWidth := VideoWindow^.GZZWidth;
+    BitmapHeight := VideoWindow^.GZZHeight;
+    Force := True;
+    Smallforce := True;
+  end;
+  {$endif}
+
   BufCounter:=0;
-  if smallforce then begin
-    for counterY:=0 to ScreenHeight-1 do begin
-      for counterX:=0 to ScreenWidth-1 do begin
-        if (VideoBuf^[BufCounter]<>OldVideoBuf^[BufCounter]) or force then
-          DrawChar(counterX,counterY,crHidden);
+  NumChanged:=0;
+  if Smallforce then
+  begin
+    //t := now();
+    for CounterY := 0 to ScreenHeight - 1 do
+    begin
+      for CounterX := 0 to ScreenWidth - 1 do
+      begin
+        if (VideoBuf^[BufCounter] <> OldVideoBuf^[BufCounter]) or Force then
+        begin
+          {$ifdef WITHBUFFERING}
+          DrawChar(BufRp, CounterX, CounterY, crHidden);
+          {$else}
+          DrawChar(VideoWindow^.RPort, CounterX, CounterY, crHidden);
+          {$endif}
+          OldVideoBuf^[BufCounter] := VideoBuf^[BufCounter];
+          Inc(NumChanged);
+        end;
         Inc(BufCounter);
       end;
     end;
-    move(VideoBuf^,OldVideoBuf^,VideoBufSize);
+    //if NumChanged > 100 then
+    //  writeln('redraw time: ', floattoStrF((Now-t)* 24 * 60 * 60 * 1000000 / NumChanged, fffixed, 8,3), ' us/char' ); // ms
   end;
 
-  if (cursorType<>oldcursorType) or
-     (CursorX<>oldCursorX) or (CursorY<>oldCursorY) or
-     smallforce then begin
-    DrawChar(oldCursorY,oldCursorX,crHidden);
-    DrawChar(CursorY,CursorX,cursorType);
-    oldCursorX:=CursorX;
-    oldCursorY:=CursorY;
-    oldcursorType:=cursorType;
+  if (CursorType <> OldCursorType) or
+     (CursorX <> OldCursorX) or (CursorY <> OldCursorY) or
+     SmallForce then
+  begin
+    {$ifdef WITHBUFFERING}
+    DrawChar(BufRp, OldCursorY, OldCursorX, crHidden);
+    DrawChar(BufRp, CursorY, CursorX, CursorType);
+    {$else}
+    DrawChar(VideoWindow^.RPort, OldCursorY, OldCursorX, crHidden);
+    DrawChar(VideoWindow^.RPort, CursorY, CursorX, CursorType);
+    {$endif}
+    OldCursorX := CursorX;
+    OldCursorY := CursorY;
+    OldcursorType := CursorType;
   end;
-
+  {$ifdef WITHBUFFERING}
+  BltBitMapRastPort(BufRp^.Bitmap, 0, 0, VideoWindow^.RPort, 0, 0, ScreenWidth * 8, ScreenHeight * 16, $00C0);
+  {$endif}
 end;
 
 
 procedure SysSetCursorPos(NewCursorX, NewCursorY: Word);
 begin
-  CursorX:=NewCursorY;
-  CursorY:=NewCursorX;
-  SysUpdateScreen(false);
+  CursorX := NewCursorY;
+  CursorY := NewCursorX;
+  SysUpdateScreen(False);
 end;
 
 function SysGetCapabilities: Word;
 begin
-  SysGetCapabilities:=cpColor or cpChangeCursor;
+  SysGetCapabilities := cpColor or cpChangeCursor;
 end;
 
 function SysGetCursorType: Word;
 begin
-  SysGetCursorType:=cursorType;
+  SysGetCursorType := cursorType;
 end;
 
 
 procedure SysSetCursorType(NewType: Word);
 begin
-  cursorType:=newType;
+  cursorType := newType;
   { FIXME: halfBlock cursors are not supported for now
            by the rendering code }
-  if cursorType = crHalfBlock then cursorType:=crBlock;
+  if CursorType = crHalfBlock then
+    cursorType := crBlock;
 
-  SysUpdateScreen(false);
+  SysUpdateScreen(False);
 end;
 
 
 // Amiga specific calls
 procedure GotCloseWindow;
 begin
-  gotCloseWindowMsg:=true;
+  GotCloseWindowMsg := True;
 end;
 
-function HasCloseWindow: boolean;
+function HasCloseWindow: Boolean;
 begin
-  HasCloseWindow:=gotCloseWindowMsg;
-  gotCloseWindowMsg:=false;
+  HasCloseWindow := GotCloseWindowMsg;
+  GotCloseWindowMsg := False;
 end;
 
 procedure GotResizeWindow;
 begin
-  gotResizeWindowMsg:=true;
+  GotResizeWindowMsg := True;
+end;
+
+function HasResizeWindow(var WinW: LongInt; var WinH: LongInt): Boolean;
+begin
+  WinW := 0;
+  WinH := 0;
+  HasResizeWindow := GotResizeWindowMsg;
+  if Assigned(VideoWindow) then
+  begin
+    //writeln('resize');
+    WinW := VideoWindow^.GZZWidth div 8;
+    WinH := VideoWindow^.GZZHeight div 16;
+    LastW := WinW;
+    LastH := WinH;
+  end;
+  GotResizeWindowMsg := False;
 end;
 
-function HasResizeWindow(var winw:longint; var winh: longint): boolean;
+function SysGetVideoModeCount: Word;
 begin
-  HasResizeWindow:=gotResizeWindowMsg;
-  winw:=videoWindow^.GZZWidth div 8;
-  winh:=videoWindow^.GZZHeight div 16;
-  gotResizeWindowMsg:=false;
+  SysGetVideoModeCount := 2;
+end;
+
+function SysGetVideoModeData(Index: Word; var Mode: TVideoMode): Boolean;
+var
+   Screen: PScreen;
+begin
+  case Index of
+    0: begin
+         Mode.Col := 80;
+         Mode.Row := 25;
+         Mode.Color := True;
+       end;
+    1: begin
+        Screen := LockPubScreen('Workbench');
+        Mode.Col := Screen^.Width div 8;
+        Mode.Row := Screen^.Height div 16;
+        UnlockPubScreen('Workbench', Screen);
+        Mode.Color := False;
+      end;
+  end;
+  SysGetVideoModeData := True;
 end;
 
 
@@ -301,8 +618,8 @@ const
     UpdateScreen : @SysUpdateScreen;
     ClearScreen : @SysClearScreen;
     SetVideoMode : @SysSetVideoMode;
-    GetVideoModeCount : nil;
-    GetVideoModeData : nil;
+    GetVideoModeCount : @SysGetVideoModeCount;
+    GetVideoModeData : @SysGetVideoModeData;
     SetCursorPos : @SysSetCursorPos;
     GetCursorType : @SysGetCursorType;
     SetCursorType : @SysSetCursorType;
@@ -312,4 +629,19 @@ const
 
 initialization
   SetVideoDriver(SysVideoDriver);
+  LastT := 50;
+  LastL := 50;
+  LastW := 80;
+  LastH := 25;
+  {$ifdef WITHBUFFERING}
+  BufRp := CreateRastPort;
+  BufRp^.Layer := nil;
+  BufRp^.Bitmap := nil;
+  {$endif}
+finalization
+  {$ifdef WITHBUFFERING}
+  if Assigned(BufRp^.Bitmap) then
+    FreeBitmap(BufRp^.Bitmap);
+  FreeRastPort(BufRp);
+  {$endif}
 end.

packages/rtl-console/src/morphos/videodata.inc

@@ -1,281 +0,0 @@
-
-const
-   vgacolors : array[0..15,0..2] of byte = (
-      (   0,   0,   0 ), // black
-      (   0,   0, 153 ), // blue
-      (   0, 153,   0 ), // green
-      (   0, 153, 153 ), // cyan
-      ( 153,   0,   0 ), // red
-      ( 153,   0, 153 ), // magenta
-      ( 153, 102,   0 ), // brown
-      ( 153, 153, 153 ), // lightgray   
-
-      ( 102, 102, 102 ), // darkgray
-      ( 102, 102, 255 ), // lightblue
-      ( 102, 255, 102 ), // lightgreen
-      ( 102, 255, 255 ), // lightcyan
-      ( 255, 102, 102 ), // lightred
-      ( 255, 102, 255 ), // lightmagenta
-      ( 255, 255, 102 ), // yellow
-      ( 255, 255, 255 )  // white
-   );
-
-const
-   vgafont : array[0..255,0..15] of byte = (
-      ( $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $7E, $81, $A5, $81, $81, $A5, $99, $81, $81, $7E, $00, $00, $00, $00 ),
-      ( $00, $00, $7E, $FF, $DB, $FF, $FF, $DB, $E7, $FF, $FF, $7E, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $6C, $FE, $FE, $FE, $FE, $7C, $38, $10, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $10, $38, $7C, $FE, $7C, $38, $10, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $18, $3C, $3C, $E7, $E7, $E7, $18, $18, $3C, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $18, $3C, $7E, $FF, $FF, $7E, $18, $18, $3C, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $00, $18, $3C, $3C, $18, $00, $00, $00, $00, $00, $00 ),
-      ( $FF, $FF, $FF, $FF, $FF, $FF, $E7, $C3, $C3, $E7, $FF, $FF, $FF, $FF, $FF, $FF ),
-      ( $00, $00, $00, $00, $00, $3C, $66, $42, $42, $66, $3C, $00, $00, $00, $00, $00 ),
-      ( $FF, $FF, $FF, $FF, $FF, $C3, $99, $BD, $BD, $99, $C3, $FF, $FF, $FF, $FF, $FF ),
-      ( $00, $00, $1E, $06, $0E, $1A, $78, $CC, $CC, $CC, $CC, $78, $00, $00, $00, $00 ),
-      ( $00, $00, $3C, $66, $66, $66, $66, $3C, $18, $7E, $18, $18, $00, $00, $00, $00 ),
-      ( $00, $00, $3F, $33, $3F, $30, $30, $30, $30, $70, $F0, $E0, $00, $00, $00, $00 ),
-      ( $00, $00, $7F, $63, $7F, $63, $63, $63, $63, $67, $E7, $E6, $C0, $00, $00, $00 ),
-      ( $00, $00, $00, $18, $18, $DB, $3C, $E7, $3C, $DB, $18, $18, $00, $00, $00, $00 ),
-      ( $00, $80, $C0, $E0, $F0, $F8, $FE, $F8, $F0, $E0, $C0, $80, $00, $00, $00, $00 ),
-      ( $00, $02, $06, $0E, $1E, $3E, $FE, $3E, $1E, $0E, $06, $02, $00, $00, $00, $00 ),
-      ( $00, $00, $18, $3C, $7E, $18, $18, $18, $7E, $3C, $18, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $66, $66, $66, $66, $66, $66, $66, $00, $66, $66, $00, $00, $00, $00 ),
-      ( $00, $00, $7F, $DB, $DB, $DB, $7B, $1B, $1B, $1B, $1B, $1B, $00, $00, $00, $00 ),
-      ( $00, $7C, $C6, $60, $38, $6C, $C6, $C6, $6C, $38, $0C, $C6, $7C, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $00, $00, $00, $FE, $FE, $FE, $FE, $00, $00, $00, $00 ),
-      ( $00, $00, $18, $3C, $7E, $18, $18, $18, $7E, $3C, $18, $7E, $00, $00, $00, $00 ),
-      ( $00, $00, $18, $3C, $7E, $18, $18, $18, $18, $18, $18, $18, $00, $00, $00, $00 ),
-      ( $00, $00, $18, $18, $18, $18, $18, $18, $18, $7E, $3C, $18, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $18, $0C, $FE, $0C, $18, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $30, $60, $FE, $60, $30, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $00, $C0, $C0, $C0, $FE, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $28, $6C, $FE, $6C, $28, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $10, $38, $38, $7C, $7C, $FE, $FE, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $FE, $FE, $7C, $7C, $38, $38, $10, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $18, $3C, $3C, $3C, $18, $18, $18, $00, $18, $18, $00, $00, $00, $00 ),
-      ( $00, $66, $66, $66, $24, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $6C, $6C, $FE, $6C, $6C, $6C, $FE, $6C, $6C, $00, $00, $00, $00 ),
-      ( $18, $18, $7C, $C6, $C2, $C0, $7C, $06, $06, $86, $C6, $7C, $18, $18, $00, $00 ),
-      ( $00, $00, $00, $00, $C2, $C6, $0C, $18, $30, $60, $C6, $86, $00, $00, $00, $00 ),
-      ( $00, $00, $38, $6C, $6C, $38, $76, $DC, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
-      ( $00, $30, $30, $30, $60, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $0C, $18, $30, $30, $30, $30, $30, $30, $18, $0C, $00, $00, $00, $00 ),
-      ( $00, $00, $30, $18, $0C, $0C, $0C, $0C, $0C, $0C, $18, $30, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $66, $3C, $FF, $3C, $66, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $18, $18, $7E, $18, $18, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $00, $00, $00, $00, $18, $18, $18, $30, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $00, $00, $FE, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $18, $18, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $02, $06, $0C, $18, $30, $60, $C0, $80, $00, $00, $00, $00 ),
-      ( $00, $00, $38, $6C, $C6, $C6, $D6, $D6, $C6, $C6, $6C, $38, $00, $00, $00, $00 ),
-      ( $00, $00, $18, $38, $78, $18, $18, $18, $18, $18, $18, $7E, $00, $00, $00, $00 ),
-      ( $00, $00, $7C, $C6, $06, $0C, $18, $30, $60, $C0, $C6, $FE, $00, $00, $00, $00 ),
-      ( $00, $00, $7C, $C6, $06, $06, $3C, $06, $06, $06, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $0C, $1C, $3C, $6C, $CC, $FE, $0C, $0C, $0C, $1E, $00, $00, $00, $00 ),
-      ( $00, $00, $FE, $C0, $C0, $C0, $FC, $06, $06, $06, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $38, $60, $C0, $C0, $FC, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $FE, $C6, $06, $06, $0C, $18, $30, $30, $30, $30, $00, $00, $00, $00 ),
-      ( $00, $00, $7C, $C6, $C6, $C6, $7C, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $7C, $C6, $C6, $C6, $7E, $06, $06, $06, $0C, $78, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $18, $18, $00, $00, $00, $18, $18, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $18, $18, $00, $00, $00, $18, $18, $30, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $06, $0C, $18, $30, $60, $30, $18, $0C, $06, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $7E, $00, $00, $7E, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $60, $30, $18, $0C, $06, $0C, $18, $30, $60, $00, $00, $00, $00 ),
-      ( $00, $00, $7C, $C6, $C6, $0C, $18, $18, $18, $00, $18, $18, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $7C, $C6, $C6, $DE, $DE, $DE, $DC, $C0, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $10, $38, $6C, $C6, $C6, $FE, $C6, $C6, $C6, $C6, $00, $00, $00, $00 ),
-      ( $00, $00, $FC, $66, $66, $66, $7C, $66, $66, $66, $66, $FC, $00, $00, $00, $00 ),
-      ( $00, $00, $3C, $66, $C2, $C0, $C0, $C0, $C0, $C2, $66, $3C, $00, $00, $00, $00 ),
-      ( $00, $00, $F8, $6C, $66, $66, $66, $66, $66, $66, $6C, $F8, $00, $00, $00, $00 ),
-      ( $00, $00, $FE, $66, $62, $68, $78, $68, $60, $62, $66, $FE, $00, $00, $00, $00 ),
-      ( $00, $00, $FE, $66, $62, $68, $78, $68, $60, $60, $60, $F0, $00, $00, $00, $00 ),
-      ( $00, $00, $3C, $66, $C2, $C0, $C0, $DE, $C6, $C6, $66, $3A, $00, $00, $00, $00 ),
-      ( $00, $00, $C6, $C6, $C6, $C6, $FE, $C6, $C6, $C6, $C6, $C6, $00, $00, $00, $00 ),
-      ( $00, $00, $3C, $18, $18, $18, $18, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
-      ( $00, $00, $1E, $0C, $0C, $0C, $0C, $0C, $CC, $CC, $CC, $78, $00, $00, $00, $00 ),
-      ( $00, $00, $E6, $66, $66, $6C, $78, $78, $6C, $66, $66, $E6, $00, $00, $00, $00 ),
-      ( $00, $00, $F0, $60, $60, $60, $60, $60, $60, $62, $66, $FE, $00, $00, $00, $00 ),
-      ( $00, $00, $C6, $EE, $FE, $FE, $D6, $C6, $C6, $C6, $C6, $C6, $00, $00, $00, $00 ),
-      ( $00, $00, $C6, $E6, $F6, $FE, $DE, $CE, $C6, $C6, $C6, $C6, $00, $00, $00, $00 ),
-      ( $00, $00, $7C, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $FC, $66, $66, $66, $7C, $60, $60, $60, $60, $F0, $00, $00, $00, $00 ),
-      ( $00, $00, $7C, $C6, $C6, $C6, $C6, $C6, $C6, $D6, $DE, $7C, $0C, $0E, $00, $00 ),
-      ( $00, $00, $FC, $66, $66, $66, $7C, $6C, $66, $66, $66, $E6, $00, $00, $00, $00 ),
-      ( $00, $00, $7C, $C6, $C6, $60, $38, $0C, $06, $C6, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $7E, $7E, $5A, $18, $18, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
-      ( $00, $00, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $6C, $38, $10, $00, $00, $00, $00 ),
-      ( $00, $00, $C6, $C6, $C6, $C6, $D6, $D6, $D6, $FE, $EE, $6C, $00, $00, $00, $00 ),
-      ( $00, $00, $C6, $C6, $6C, $7C, $38, $38, $7C, $6C, $C6, $C6, $00, $00, $00, $00 ),
-      ( $00, $00, $66, $66, $66, $66, $3C, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
-      ( $00, $00, $FE, $C6, $86, $0C, $18, $30, $60, $C2, $C6, $FE, $00, $00, $00, $00 ),
-      ( $00, $00, $3C, $30, $30, $30, $30, $30, $30, $30, $30, $3C, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $80, $C0, $E0, $70, $38, $1C, $0E, $06, $02, $00, $00, $00, $00 ),
-      ( $00, $00, $3C, $0C, $0C, $0C, $0C, $0C, $0C, $0C, $0C, $3C, $00, $00, $00, $00 ),
-      ( $10, $38, $6C, $C6, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $FF, $00, $00 ),
-      ( $30, $30, $18, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $78, $0C, $7C, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
-      ( $00, $00, $E0, $60, $60, $78, $6C, $66, $66, $66, $66, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $7C, $C6, $C0, $C0, $C0, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $1C, $0C, $0C, $3C, $6C, $CC, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $7C, $C6, $FE, $C0, $C0, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $38, $6C, $64, $60, $F0, $60, $60, $60, $60, $F0, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $76, $CC, $CC, $CC, $CC, $CC, $7C, $0C, $CC, $78, $00 ),
-      ( $00, $00, $E0, $60, $60, $6C, $76, $66, $66, $66, $66, $E6, $00, $00, $00, $00 ),
-      ( $00, $00, $18, $18, $00, $38, $18, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
-      ( $00, $00, $06, $06, $00, $0E, $06, $06, $06, $06, $06, $06, $66, $66, $3C, $00 ),
-      ( $00, $00, $E0, $60, $60, $66, $6C, $78, $78, $6C, $66, $E6, $00, $00, $00, $00 ),
-      ( $00, $00, $38, $18, $18, $18, $18, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $EC, $FE, $D6, $D6, $D6, $D6, $C6, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $DC, $66, $66, $66, $66, $66, $66, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $7C, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $DC, $66, $66, $66, $66, $66, $7C, $60, $60, $F0, $00 ),
-      ( $00, $00, $00, $00, $00, $76, $CC, $CC, $CC, $CC, $CC, $7C, $0C, $0C, $1E, $00 ),
-      ( $00, $00, $00, $00, $00, $DC, $76, $66, $60, $60, $60, $F0, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $7C, $C6, $60, $38, $0C, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $10, $30, $30, $FC, $30, $30, $30, $30, $36, $1C, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $CC, $CC, $CC, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $66, $66, $66, $66, $66, $3C, $18, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $C6, $C6, $D6, $D6, $D6, $FE, $6C, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $C6, $6C, $38, $38, $38, $6C, $C6, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $C6, $C6, $C6, $C6, $C6, $C6, $7E, $06, $0C, $F8, $00 ),
-      ( $00, $00, $00, $00, $00, $FE, $CC, $18, $30, $60, $C6, $FE, $00, $00, $00, $00 ),
-      ( $00, $00, $0E, $18, $18, $18, $70, $18, $18, $18, $18, $0E, $00, $00, $00, $00 ),
-      ( $00, $00, $18, $18, $18, $18, $00, $18, $18, $18, $18, $18, $00, $00, $00, $00 ),
-      ( $00, $00, $70, $18, $18, $18, $0E, $18, $18, $18, $18, $70, $00, $00, $00, $00 ),
-      ( $00, $00, $76, $DC, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $10, $38, $6C, $C6, $C6, $C6, $FE, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $3C, $66, $C2, $C0, $C0, $C0, $C2, $66, $3C, $0C, $06, $7C, $00, $00 ),
-      ( $00, $00, $CC, $00, $00, $CC, $CC, $CC, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
-      ( $00, $0C, $18, $30, $00, $7C, $C6, $FE, $C0, $C0, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $10, $38, $6C, $00, $78, $0C, $7C, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
-      ( $00, $00, $CC, $00, $00, $78, $0C, $7C, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
-      ( $00, $60, $30, $18, $00, $78, $0C, $7C, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
-      ( $00, $38, $6C, $38, $00, $78, $0C, $7C, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $3C, $66, $60, $60, $66, $3C, $0C, $06, $3C, $00, $00, $00 ),
-      ( $00, $10, $38, $6C, $00, $7C, $C6, $FE, $C0, $C0, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $C6, $00, $00, $7C, $C6, $FE, $C0, $C0, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $60, $30, $18, $00, $7C, $C6, $FE, $C0, $C0, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $66, $00, $00, $38, $18, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
-      ( $00, $18, $3C, $66, $00, $38, $18, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
-      ( $00, $60, $30, $18, $00, $38, $18, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
-      ( $00, $C6, $00, $10, $38, $6C, $C6, $C6, $FE, $C6, $C6, $C6, $00, $00, $00, $00 ),
-      ( $38, $6C, $38, $00, $38, $6C, $C6, $C6, $FE, $C6, $C6, $C6, $00, $00, $00, $00 ),
-      ( $18, $30, $60, $00, $FE, $66, $60, $7C, $60, $60, $66, $FE, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $CC, $76, $36, $7E, $D8, $D8, $6E, $00, $00, $00, $00 ),
-      ( $00, $00, $3E, $6C, $CC, $CC, $FE, $CC, $CC, $CC, $CC, $CE, $00, $00, $00, $00 ),
-      ( $00, $10, $38, $6C, $00, $7C, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $C6, $00, $00, $7C, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $60, $30, $18, $00, $7C, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $30, $78, $CC, $00, $CC, $CC, $CC, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
-      ( $00, $60, $30, $18, $00, $CC, $CC, $CC, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
-      ( $00, $00, $C6, $00, $00, $C6, $C6, $C6, $C6, $C6, $C6, $7E, $06, $0C, $78, $00 ),
-      ( $00, $C6, $00, $7C, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $C6, $00, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $18, $18, $3C, $66, $60, $60, $60, $66, $3C, $18, $18, $00, $00, $00, $00 ),
-      ( $00, $38, $6C, $64, $60, $F0, $60, $60, $60, $60, $E6, $FC, $00, $00, $00, $00 ),
-      ( $00, $00, $66, $66, $3C, $18, $7E, $18, $7E, $18, $18, $18, $00, $00, $00, $00 ),
-      ( $00, $F8, $CC, $CC, $F8, $C4, $CC, $DE, $CC, $CC, $CC, $C6, $00, $00, $00, $00 ),
-      ( $00, $0E, $1B, $18, $18, $18, $7E, $18, $18, $18, $18, $18, $D8, $70, $00, $00 ),
-      ( $00, $18, $30, $60, $00, $78, $0C, $7C, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
-      ( $00, $0C, $18, $30, $00, $38, $18, $18, $18, $18, $18, $3C, $00, $00, $00, $00 ),
-      ( $00, $18, $30, $60, $00, $7C, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $18, $30, $60, $00, $CC, $CC, $CC, $CC, $CC, $CC, $76, $00, $00, $00, $00 ),
-      ( $00, $00, $76, $DC, $00, $DC, $66, $66, $66, $66, $66, $66, $00, $00, $00, $00 ),
-      ( $76, $DC, $00, $C6, $E6, $F6, $FE, $DE, $CE, $C6, $C6, $C6, $00, $00, $00, $00 ),
-      ( $00, $3C, $6C, $6C, $3E, $00, $7E, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $38, $6C, $6C, $38, $00, $7C, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $30, $30, $00, $30, $30, $60, $C0, $C6, $C6, $7C, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $00, $FE, $C0, $C0, $C0, $C0, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $00, $FE, $06, $06, $06, $06, $00, $00, $00, $00, $00 ),
-      ( $00, $C0, $C0, $C2, $C6, $CC, $18, $30, $60, $DC, $86, $0C, $18, $3E, $00, $00 ),
-      ( $00, $C0, $C0, $C2, $C6, $CC, $18, $30, $66, $CE, $9E, $3E, $06, $06, $00, $00 ),
-      ( $00, $00, $18, $18, $00, $18, $18, $18, $3C, $3C, $3C, $18, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $36, $6C, $D8, $6C, $36, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $D8, $6C, $36, $6C, $D8, $00, $00, $00, $00, $00, $00 ),
-      ( $11, $44, $11, $44, $11, $44, $11, $44, $11, $44, $11, $44, $11, $44, $11, $44 ),
-      ( $55, $AA, $55, $AA, $55, $AA, $55, $AA, $55, $AA, $55, $AA, $55, $AA, $55, $AA ),
-      ( $DD, $77, $DD, $77, $DD, $77, $DD, $77, $DD, $77, $DD, $77, $DD, $77, $DD, $77 ),
-      ( $18, $18, $18, $18, $18, $18, $18, $18, $18, $18, $18, $18, $18, $18, $18, $18 ),
-      ( $18, $18, $18, $18, $18, $18, $18, $F8, $18, $18, $18, $18, $18, $18, $18, $18 ),
-      ( $18, $18, $18, $18, $18, $F8, $18, $F8, $18, $18, $18, $18, $18, $18, $18, $18 ),
-      ( $36, $36, $36, $36, $36, $36, $36, $F6, $36, $36, $36, $36, $36, $36, $36, $36 ),
-      ( $00, $00, $00, $00, $00, $00, $00, $FE, $36, $36, $36, $36, $36, $36, $36, $36 ),
-      ( $00, $00, $00, $00, $00, $F8, $18, $F8, $18, $18, $18, $18, $18, $18, $18, $18 ),
-      ( $36, $36, $36, $36, $36, $F6, $06, $F6, $36, $36, $36, $36, $36, $36, $36, $36 ),
-      ( $36, $36, $36, $36, $36, $36, $36, $36, $36, $36, $36, $36, $36, $36, $36, $36 ),
-      ( $00, $00, $00, $00, $00, $FE, $06, $F6, $36, $36, $36, $36, $36, $36, $36, $36 ),
-      ( $36, $36, $36, $36, $36, $F6, $06, $FE, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $36, $36, $36, $36, $36, $36, $36, $FE, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $18, $18, $18, $18, $18, $F8, $18, $F8, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $00, $00, $F8, $18, $18, $18, $18, $18, $18, $18, $18 ),
-      ( $18, $18, $18, $18, $18, $18, $18, $1F, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $18, $18, $18, $18, $18, $18, $18, $FF, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $00, $00, $FF, $18, $18, $18, $18, $18, $18, $18, $18 ),
-      ( $18, $18, $18, $18, $18, $18, $18, $1F, $18, $18, $18, $18, $18, $18, $18, $18 ),
-      ( $00, $00, $00, $00, $00, $00, $00, $FF, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $18, $18, $18, $18, $18, $18, $18, $FF, $18, $18, $18, $18, $18, $18, $18, $18 ),
-      ( $18, $18, $18, $18, $18, $1F, $18, $1F, $18, $18, $18, $18, $18, $18, $18, $18 ),
-      ( $36, $36, $36, $36, $36, $36, $36, $37, $36, $36, $36, $36, $36, $36, $36, $36 ),
-      ( $36, $36, $36, $36, $36, $37, $30, $3F, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $3F, $30, $37, $36, $36, $36, $36, $36, $36, $36, $36 ),
-      ( $36, $36, $36, $36, $36, $F7, $00, $FF, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $FF, $00, $F7, $36, $36, $36, $36, $36, $36, $36, $36 ),
-      ( $36, $36, $36, $36, $36, $37, $30, $37, $36, $36, $36, $36, $36, $36, $36, $36 ),
-      ( $00, $00, $00, $00, $00, $FF, $00, $FF, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $36, $36, $36, $36, $36, $F7, $00, $F7, $36, $36, $36, $36, $36, $36, $36, $36 ),
-      ( $18, $18, $18, $18, $18, $FF, $00, $FF, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $36, $36, $36, $36, $36, $36, $36, $FF, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $FF, $00, $FF, $18, $18, $18, $18, $18, $18, $18, $18 ),
-      ( $00, $00, $00, $00, $00, $00, $00, $FF, $36, $36, $36, $36, $36, $36, $36, $36 ),
-      ( $36, $36, $36, $36, $36, $36, $36, $3F, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $18, $18, $18, $18, $18, $1F, $18, $1F, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $1F, $18, $1F, $18, $18, $18, $18, $18, $18, $18, $18 ),
-      ( $00, $00, $00, $00, $00, $00, $00, $3F, $36, $36, $36, $36, $36, $36, $36, $36 ),
-      ( $36, $36, $36, $36, $36, $36, $36, $FF, $36, $36, $36, $36, $36, $36, $36, $36 ),
-      ( $18, $18, $18, $18, $18, $FF, $18, $FF, $18, $18, $18, $18, $18, $18, $18, $18 ),
-      ( $18, $18, $18, $18, $18, $18, $18, $F8, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $00, $00, $1F, $18, $18, $18, $18, $18, $18, $18, $18 ),
-      ( $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ),
-      ( $00, $00, $00, $00, $00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ),
-      ( $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0, $F0 ),
-      ( $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F ),
-      ( $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $76, $DC, $D8, $D8, $D8, $DC, $76, $00, $00, $00, $00 ),
-      ( $00, $00, $78, $CC, $CC, $CC, $D8, $CC, $C6, $C6, $C6, $CC, $00, $00, $00, $00 ),
-      ( $00, $00, $FE, $C6, $C6, $C0, $C0, $C0, $C0, $C0, $C0, $C0, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $FE, $6C, $6C, $6C, $6C, $6C, $6C, $6C, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $FE, $C6, $60, $30, $18, $30, $60, $C6, $FE, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $7E, $D8, $D8, $D8, $D8, $D8, $70, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $66, $66, $66, $66, $66, $7C, $60, $60, $C0, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $76, $DC, $18, $18, $18, $18, $18, $18, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $7E, $18, $3C, $66, $66, $66, $3C, $18, $7E, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $38, $6C, $C6, $C6, $FE, $C6, $C6, $6C, $38, $00, $00, $00, $00 ),
-      ( $00, $00, $38, $6C, $C6, $C6, $C6, $6C, $6C, $6C, $6C, $EE, $00, $00, $00, $00 ),
-      ( $00, $00, $1E, $30, $18, $0C, $3E, $66, $66, $66, $66, $3C, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $7E, $DB, $DB, $DB, $7E, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $03, $06, $7E, $DB, $DB, $F3, $7E, $60, $C0, $00, $00, $00, $00 ),
-      ( $00, $00, $1C, $30, $60, $60, $7C, $60, $60, $60, $30, $1C, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $7C, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $FE, $00, $00, $FE, $00, $00, $FE, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $18, $18, $7E, $18, $18, $00, $00, $FF, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $30, $18, $0C, $06, $0C, $18, $30, $00, $7E, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $0C, $18, $30, $60, $30, $18, $0C, $00, $7E, $00, $00, $00, $00 ),
-      ( $00, $00, $0E, $1B, $1B, $18, $18, $18, $18, $18, $18, $18, $18, $18, $18, $18 ),
-      ( $18, $18, $18, $18, $18, $18, $18, $18, $D8, $D8, $D8, $70, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $18, $18, $00, $7E, $00, $18, $18, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $76, $DC, $00, $76, $DC, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $38, $6C, $6C, $38, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $00, $00, $18, $18, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $00, $00, $00, $18, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $0F, $0C, $0C, $0C, $0C, $0C, $EC, $6C, $6C, $3C, $1C, $00, $00, $00, $00 ),
-      ( $00, $D8, $6C, $6C, $6C, $6C, $6C, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $70, $D8, $30, $60, $C8, $F8, $00, $00, $00, $00, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $7C, $7C, $7C, $7C, $7C, $7C, $7C, $00, $00, $00, $00, $00 ),
-      ( $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 )
-   );