Stuff and things.

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

src/kernel.pas

@@ -26,6 +26,7 @@ implementation
 procedure kmain(mbinfo: Pmultiboot_info_t; mbmagic: DWORD); stdcall; [public, alias: 'kmain'];
 begin
         kclearscreen();
+	kwritestr('FUCK YOU!');
         kwritestr('Freepascal barebone OS booted!');
         xpos := 0;
         ypos += 1;
@@ -67,4 +68,4 @@ begin
         end;
 end;
  
-end.
+end.