git-svn-id: https://spexeah.com:8443/svn/Asuro@522 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

src/console.pas

@@ -94,6 +94,8 @@ procedure _increment_y();
 procedure _safeincrement_y();
 procedure _safeincrement_x();
 procedure _newline();
+
+procedure outputChar(c : char; x : uint8; y : uint8; fgcolor : uint16; bgcolor : uint16);
  
 implementation
 
@@ -176,8 +178,8 @@ var
    x,y: Byte;
 
 begin
-     for x:=0 to 159 do begin
+     for y:=0 to 63 do begin
-         for y:=0 to 63 do begin
+         for x:=0 to 159 do begin
 	     Console_Matrix[y][x].Character:= ' ';
 	     Console_Matrix[y][x].Attributes:= Console_Properties.Default_Attribute;
              OutputChar(Console_Matrix[y][x].Character, x, y, Console_Matrix[y][x].Attributes SHR 16, Console_Matrix[y][x].Attributes AND $FFFF);

src/terminal.pas

@@ -12,6 +12,7 @@ unit terminal;
 interface
 
 uses
+    bios_data_area,
     console,
     keyboard,
     util,
@@ -207,6 +208,25 @@ begin
     end;
 end;
 
+procedure cockwomble(params : PParamList);
+var
+    x, y : uint8;
+    o : uint16;
+    i : uint32;
+
+begin
+    i:= 1;
+    while true do begin
+        for y:=0 to 63 do begin
+            for x:=0 to 159 do begin
+                o:= uint16(y * i + x * i + i + (BDA^.Ticks SHR 3));
+                outputChar(' ', x, y, $FFFF, o);
+            end;
+        end;
+        i:= uint32(i) + 1;
+    end;
+end;
+
 procedure test(params : PParamList);
 begin
     if paramCount(params) > 0 then begin
@@ -321,6 +341,7 @@ begin
     registerCommand('TESTPARAMS', @testParams, 'Tests param parsing.');
     registerCommand('TEST', @test, 'Command for testing.');
     registerCommand('CD', @change_dir, 'Change Directory test');
+    registerCommand('COCKWOMBLE', @cockwomble, 'Womblecocks');
     console.writestringln('TERMINAL: INIT END.');
 end;