TempleOSTS_140317.ISO

Accts/Adam3.CPP

@@ -0,0 +1,8 @@
+//Change anything you want in this
+//acct file or others.
+
+#include "HOME/Adam3aLocalize"
+#include "HOME/Adam3bPkgs"
+#include "HOME/Adam3cKeyPlugIns"
+#include "HOME/Adam3dWrappers"
+#include "HOME/Adam3eSys"

Accts/Adam3aLocalize.CPP

@@ -0,0 +1,19 @@
+//Change anything you want in this
+//acct file or others.
+
+//This makes your keyboard fast
+SetTypeMatic(0);
+
+//Set Time Zone
+local_time_offset=0*60*60*CDATE_FREQ; //Do daylight savings by hand
+
+//$AN,"",A="mouse_move_scale"$adjust these to set mouse move scale
+mxx_scale=0.5;
+myy_scale=0.5;
+mzz_scale=1.0; //wheel
+
+//don't change these
+mxx_prescale=mxx/mxx_scale;
+myy_prescale=myy/myy_scale;
+mzz_prescale=mzz/mzz_scale;
+

Accts/Adam3bPkgs.CPP

@@ -0,0 +1,24 @@
+//Change anything you want in this
+//acct file or others.
+
+Cd("/Adam/Boot");;
+#include "InsBoot"
+Cd("/Adam/Utils");;
+#include "Profiler"
+#include "Diff"
+#include "Grep"
+#include "LineRep"
+#include "Merge"
+#include "S2T"
+#include "LinkChk"
+#include "HeapLog"
+#include "MemRep"
+#include "ToHtml"
+#include "ToTXT"
+#include "BinRep"
+#include "FileBMP"
+
+MapFileLoad("::/Kernel/Kernel");
+MapFileLoad("::/Compiler/Compiler");
+
+Cd("HOME");;

Accts/Adam3cKeyPlugIns.CPP

@@ -0,0 +1,162 @@
+//Change anything you want in this
+//acct file or others.
+
+U0 FillInTime()
+{
+  CDate cdt;
+  cdt=Now;
+  "$$IV,1$$----%D %T----$$IV,0$$\n",cdt,cdt;
+}
+
+Bool MyPutKey(I64 ch,I64 sc)
+{  //ch=ASCII; sc=scancode
+
+//See $LK,"Char",A="HI:Char"$ for definition of scan codes.
+//See $LK,"Keyboard Handling",A="FI:::/Doc/KeyBoard.TXT"$
+
+//You can customize keys.  This routine
+//is called before the main editor
+//key handler $LK,"DocPutKey",A="MN:DocPutKey"$().
+//You can intercept any key.
+
+//Return TRUE if you completely
+//handled the key.
+
+  I64 i,sc2=sc.u8[0];
+
+  if (SC_F1<=sc2<=SC_F10 &&
+      sc&SCF_ALT &&
+      !(sc & SCF_CTRL)) {
+    switch (sc2) {
+      case SC_F1:
+	if (sc&SCF_KEY_DESC) {
+	  if (sc & SCF_SHIFT)
+	    SetKeyDesc("Dollar/LTPURPLE");
+	  else
+	    SetKeyDesc("Dollar/PURPLE");
+	} else {
+	  if (sc & SCF_SHIFT)
+	    "$$LTPURPLE$$";
+	  else
+	    "$$PURPLE$$";
+	}
+	break;
+      case SC_F2:
+	if (sc&SCF_KEY_DESC) {
+	  if (sc & SCF_SHIFT)
+	    SetKeyDesc("Dollar/LTRED");
+	  else
+	    SetKeyDesc("Dollar/RED");
+	} else {
+	  if (sc & SCF_SHIFT)
+	    "$$LTRED$$";
+	  else
+	    "$$RED$$";
+	}
+	break;
+      case SC_F3:
+	if (sc&SCF_KEY_DESC) {
+	  if (sc & SCF_SHIFT)
+	    SetKeyDesc("Dollar/LTGREEN");
+	  else
+	    SetKeyDesc("Dollar/GREEN");
+	} else {
+	  if (sc & SCF_SHIFT)
+	    "$$LTGREEN$$";
+	  else
+	    "$$GREEN$$";
+	}
+	break;
+      case SC_F4:
+	if (sc&SCF_KEY_DESC) {
+	  if (sc & SCF_SHIFT)
+	    SetKeyDesc("Dollar/LTBLUE");
+	  else
+	    SetKeyDesc("Dollar/Default Color");
+	} else {
+	  if (sc & SCF_SHIFT)
+	    "$$LTBLUE$$";
+	  else
+	    "$$FG$$";
+	}
+	break;
+      case SC_F7:
+	if (sc&SCF_KEY_DESC)
+	  SetKeyDesc("Misc/Insert Datetime");
+	else
+	  FillInTime;
+	break;
+    }
+    return TRUE;
+  } else {
+    if (!(sc & SCF_CTRL)) {
+      if (sc & SCF_ALT) {
+	switch (ch) {
+	  case 'h':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("Win/Tile Horizontally");
+	    else
+	      WinTileHorz;
+	    return TRUE;
+	  case 'm':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("Win/Maximize");
+	    else {
+	      WinMax;
+	      WinBorder;
+	    }
+	    return TRUE;
+	  case 'v':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("Win/Tile Vertically");
+	    else
+	      WinTileVert;
+	    return TRUE;
+
+	  case 'l':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("Edit/Put Link to Cur Pos on Clipboard");
+	    else {
+	      ClipboardDel;
+	      DocPrint(sys_clipboard_doc,"$$LK,\"FL:%s,%d\"$$",
+		DocPut->filename.name,DocPut->cur_entry->y+1);
+	    }
+	    return TRUE;
+	  case 'L':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("Edit/Place Anchor, Put Link to Clipboard");
+	    else {
+	      i=RandU32;
+	      ClipboardDel;
+	      DocPrint(sys_clipboard_doc,"$$LK,\"<TODO>\",A=\"FA:%s,ANC%d\"$$",
+		DocPut->filename.name,i);
+	      "$$AN,\"<TODO>\",A=\"ANC%d\"$$",i;
+	    }
+	    return TRUE;
+
+	  case 'w':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("Win/WordStat(ON);");
+	    else
+	      WordStat(ON);
+	    return TRUE;
+	  case 'W':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("Win/WordStat;");
+	    else
+	      WordStat;
+	    return TRUE;
+
+	}
+      }
+    }
+  }
+  return FALSE;
+}
+
+Bool MyPutS(U8 *)
+{
+  return FALSE;
+}
+
+KeyDevAdd(&MyPutKey,&MyPutS,0x20000000,TRUE);

Accts/Adam3dWrappers.CPP

@@ -0,0 +1,27 @@
+//Change anything you want in this
+//acct file or others.
+
+#help_index "Utils;Cmd Line (Typically)"
+
+//These are customized quick commands.
+//Feel free to add more or change.
+public I64 F(U8 *needle_str,U8 *fu_flags=NULL)
+{
+  return Grep(needle_str,"/*",fu_flags);
+}
+
+public I64 R(U8 *needle_str,U8 *replace_text=NULL,U8 *fu_flags="+l-i")
+{
+  return Grep(needle_str,"/*",fu_flags,replace_text);
+}
+
+public I64 FD(U8 *needle_str,U8 *fu_flags=NULL)
+{
+  return Grep(needle_str,"*",fu_flags);
+}
+
+public I64 RD(U8 *needle_str,U8 *replace_text=NULL,U8 *fu_flags="+l-i")
+{
+  return Grep(needle_str,"*",fu_flags,replace_text);
+}
+#help_index ""

Accts/Adam3eSys.CPP

@@ -0,0 +1,41 @@
+//Change anything you want in this
+//acct file or others.
+
+U0 UserStartUp()
+{ //Run each time a user a spawned
+  DocTermNew;
+  Type("::/Doc/Start.TXT");
+  LBts(&Fs->display_flags,DISPLAYf_SHOW);
+  WinToTop;
+  WinZBufUpdate;
+  Preempt(ON);
+  Dir;
+}
+
+U0 SrvStartUp()
+{ //Run each time a srv task is spawned.
+  DocTermNew;
+  LBts(&Fs->display_flags,DISPLAYf_SHOW);
+  WinToTop;
+  WinZBufUpdate;
+  Preempt(ON);
+}
+
+U0 StartUpTasks()
+{
+  CTask *user1,*user2;
+  user1=SpawnUser;
+  user2=SpawnUser;
+  WinToTop(user1);
+  WinTileVert;
+  PopUp("#include \"::/Adam/Start\";");
+  "Boot Time:%7.3fs\n",tS;
+  XTalk(user1,"Cd(\"HOME\");#include \"DoOnce\";\n");
+  Silent(ON);	//no output to screen
+  WSInit("/*;~*Bible.TXT*");
+  Silent(OFF); //no output to screen
+}
+
+StartUpTasks;
+
+"\nOS Compile Time:%D %T\n",sys_compile_time,sys_compile_time;

Accts/DoOnce.CPP

@@ -0,0 +1,16 @@
+//This file is executed by the
+//first terminal window upon start-up.
+//See $LK,"DoOnce",A="FF:HOME/Adam3eSys.CPP,DoOnce"$ and $LK,"Acct Files",A="FF:::/Doc/GuideLines.TXT,ACCT FILES"$.
+
+//It goes in your HOME directory and
+//you can customize it.
+
+//Delete this to get rid of
+//default start-up msg.
+Type("::/Doc/Customize.TXT");
+
+"\nTake Tour";
+if (YorN) {
+  Cd("::/Misc/Tour");
+  AutoFile("Tour");
+}

Accts/Install/Adam3eSys.CPP

@@ -0,0 +1,39 @@
+//Change anything you want in this
+//acct file or others.
+
+U0 UserStartUp()
+{ //Run each time a user a spawned
+  DocTermNew;
+  Type("::/Doc/Start.TXT");
+  LBts(&Fs->display_flags,DISPLAYf_SHOW);
+  WinToTop;
+  WinZBufUpdate;
+  Preempt(ON);
+}
+
+U0 SrvStartUp()
+{ //Run each time a srv task is spawned.
+  DocTermNew;
+  LBts(&Fs->display_flags,DISPLAYf_SHOW);
+  WinToTop;
+  WinZBufUpdate;
+  Preempt(ON);
+}
+
+U0 StartUpTasks()
+{
+  CTask *user1,*user2;
+  user1=SpawnUser;
+  user2=SpawnUser("Ed(\"::/Doc/Install.TXT.Z\");\n");
+  WinToTop(user1);
+  WinTileVert;
+  "Boot Time:%7.3fs\n",tS;
+  XTalk(user1,"Cd(\"HOME\");#include \"DoOnce\";\n");
+  Silent(ON);	//no output to screen
+  WSInit;
+  Silent(OFF); //no output to screen
+}
+
+StartUpTasks;
+
+"\nOS Compile Time:%D %T\n",sys_compile_time,sys_compile_time;

Accts/Install/DoOnce.CPP

@@ -0,0 +1,227 @@
+Bool VMPrtDsk(CTask *task,CATARep *ata_drv)
+{
+  if (ata_drv) {
+    XTalkWait(task,"PrtDsk;\nYC2p%d\nYYY",ata_drv->num);
+    XTalkWait(task,"%d\nY\nY\n",(prt_dsk_dsk_size-PRT_HEADER)/2);
+    return TRUE;
+  } else
+    return FALSE;
+}
+
+U0 VMInstallBoot(CTask *task,U8 cd_drv,U8 drv,U8 *acct_name,
+	CATARep *ata_drv,CATARep *atapi_drv)
+{
+  U8 *st1,*st2;
+
+  st1=MPrint("%C:/",cd_drv);
+  st2=MPrint("%C:/",drv);
+  CopyTree(st1,st2);
+  Free(st1);
+  Free(st2);
+
+  st1=MPrint("%C:/Accts/%s",drv,acct_name);
+  MkDir(st1);
+  Copy("::/Misc/MakeDistro.CPP.Z",st1);
+  Free(st1);
+
+  XTalkWait(task,
+    "MakeOSPrtBootInstall('%C');\n"
+    "\nB1\n0x20000\n",drv);
+
+  if (ata_drv)
+    XTalkWait(task,"C2p%d\n",ata_drv->num);
+  if (atapi_drv)
+    XTalkWait(task,"T3p%d\n",atapi_drv->num);
+
+  XTalkWait(task,
+    "\n"   //Exit Drives
+    "%s\n" //Acct
+    "\n"   //Dsk Cache
+    "\n",  //Options
+    acct_name);
+}
+
+U0 VMInstallWizard()
+{
+  U8 *acct_name;
+  CATARep *root=NULL,*ata_drv=NULL,*atapi_drv=NULL;
+  CTask *task;
+  while (TRUE) {
+    "Make-up a Log-In Name (account).\n";
+    acct_name=PmtStr("User Acct Name: ");
+    if (FileNameChk(acct_name))
+      break;
+    Free(acct_name);
+  }
+
+  "\nIt's normal for this to freeze for a moment or two.\n";
+  PressAKey;
+
+  task=SpawnUser;
+  TaskWait(task);
+  SetWinHorz(Fs->win_left,Fs->win_right,task);
+  SetWinVert(Fs->win_top,(Fs->win_top+Fs->win_bottom)>>2-1,task);
+  SetWinVert(task->win_bottom+3,Fs->win_bottom);
+  WinToTop(Fs);
+
+  ATARep(FALSE,TRUE,&root);
+  ATAIDDrvs(root,*sys_acct,&ata_drv,&atapi_drv);
+  if (VMPrtDsk(task,ata_drv)) {
+    VMInstallBoot(task,*sys_acct,'C',acct_name,ata_drv,atapi_drv);
+    VMInstallBoot(task,*sys_acct,'D',acct_name,ata_drv,atapi_drv);
+    MasterBootIntall('C');
+  }
+  LinkedLstDel(root);
+  Free(acct_name);
+
+  SetWinVert(task->win_top,Fs->win_bottom);
+  Kill(task);
+}
+
+U0 RegularInstallWizard()
+{
+  I64 unit;
+  U8 *base0,*base1,*ms,*dst,*acct_name,*st1,*st2,*new_home_str;
+  CATARep *root=NULL,*tempha;
+  I64 ch,num_hints;
+  CTask *task;
+
+  while (TRUE) {
+    "Make-up a Log-In Name (account).\n";
+    acct_name=PmtStr("User Acct Name: ");
+    if (FileNameChk(acct_name))
+      break;
+    Free(acct_name);
+  }
+
+  "\nIt's normal for this to freeze for a moment or two.\n";
+  PressAKey;
+
+  task=SpawnUser;
+  TaskWait(task);
+  SetWinHorz(Fs->win_left,Fs->win_right,task);
+  SetWinVert(Fs->win_top,(Fs->win_top+Fs->win_bottom)>>2-1,task);
+  SetWinVert(task->win_bottom+3,Fs->win_bottom);
+  WinToTop(Fs);
+  XTalk(task,"Mount;\nC2 ");
+
+  num_hints=ATARep(FALSE,,&root);
+  "\nInclude '$$PURPLE$$0x$$FG$$' for hexidecimal numbers.\n\n";
+  while (TRUE) {
+    base0=PmtStr("Hard Drive I/O Port Base0  : ");
+    if (0<A2I64(base0)<=0xFFFF)
+      break;
+    Free(base0);
+  }
+  if (1<=A2I64(base0)<=num_hints) {
+    tempha=ATARepFind(&root,A2I64(base0));
+    Free(base0);
+    base0=MPrint("0x%X",tempha->base0);
+    base1=MPrint("0x%X",tempha->base1);
+    ms	 =MPrint("0x%X",tempha->unit);
+    unit=A2I64(ms);
+  } else {
+    while (TRUE) {
+      base1=PmtStr("Hard Drive I/O Port Base1  : ");
+      if (0<A2I64(base1)<=0xFFFF)
+	break;
+      Free(base1);
+    }
+    while (TRUE) {
+      ms =PmtStr("Unit--$$PURPLE$$0$$FG$$=Master or $$PURPLE$$1$$FG$$=Slave: ","0");
+      unit=A2I64(ms);
+      if (0<=unit<=1)
+	break;
+    }
+  }
+  LinkedLstDel(root);
+  XTalkWait(task,"%s\n%s\n%C\n",base0,base1,'0'+unit);
+  PrtRep;
+  while (TRUE) {
+    dst=PmtStr("\nDestination Partition Letter: ");
+    if ('A'<=ToUpper(*dst)<='Z')
+      break;
+    Free(dst);
+  }
+
+  NewLine;
+  st1=MPrint("%C:/",*sys_acct);
+  st2=MPrint("%C:/",*dst);
+
+  "$$RED$$Format %C Partition?$$FG$$\n",*dst;
+  if (YorN) {
+    NewLine;
+    while (TRUE) {
+    "$$PURPLE$$1$$FG$$) Use FAT32\n"
+      "$$PURPLE$$2$$FG$$) Use RedSea\n"
+      "\nFile System Type: ";
+      ch=GetChar;
+      NewLine;
+      if ('1'<=ch<='2')
+	break;
+    }
+    if (ch=='1')
+      Fmt(*dst,,FALSE,PT_FAT32);
+    else
+      Fmt(*dst,,FALSE,PT_REDSEA);
+  }
+  CopyTree(st1,st2);
+  st2=MPrint("%C:/Temp",*dst);
+  MkDir(st2);
+  Free(st2);
+
+  new_home_str=MPrint("%C:/Accts/%s",*dst,acct_name);
+  MkDir(new_home_str);
+  Copy("::/Misc/MakeDistro.CPP.Z",new_home_str);
+  XTalkWait(task,
+  "MakeOSPrtBootInstall('%C');\n"
+  "\nB1\n0x20000\n"
+  "C"
+  "2p"
+  "%s\n"
+  "%s\n"
+  "%C"
+  "\n"	 //Exit Drives
+  "%s\n" //Acct
+  "\n"	 //Dsk Cache
+  "\n",	//Options
+  *dst,base0,base1,'0'+unit,acct_name);
+  "$$RED$$Install Master Boot loader?$$FG$$";
+  if (YorN) {
+    NewLine;
+    MasterBootIntall(*dst);
+  }
+  Free(new_home_str);
+  Free(acct_name);
+  Free(base0);
+  Free(base1);
+  Free(ms);
+  Free(dst);
+
+  SetWinVert(task->win_top,Fs->win_bottom);
+  Kill(task);
+}
+
+U0 DoInstall()
+{
+  I64 pmt_reboot;
+  NewLine(5);
+  "Install on virtual machine ";
+  if (pmt_reboot=YorN)
+    VMInstallWizard();
+  else {
+    "\n\nThis wizard works if you have a partition ready.  "
+    "You can partition the drive or MakeOSPrtBootInstall() "
+    "with more options if you do it by hand, not using this wizard.\n\n"
+    "Continue Install Wizard ";
+    if (pmt_reboot=YorN)
+      RegularInstallWizard();
+  }
+  if (pmt_reboot) {
+    "Reboot Now ";
+    if (YorN)
+      Reboot;
+  }
+}
+
+DoInstall;

Accts/TS/Adam3bPkgs.CPP

@@ -0,0 +1,8 @@
+#include "/Accts/Adam3bPkgs"
+
+#include "/Apps/MusicOrgan/Load"
+Cd("HOME");;
+#include "/Accts/TS/TSAdam"
+#include "/Accts/TS/TSDistro"
+#include "/Accts/TS/TSHolySpirit"
+Cd("HOME");;

Accts/TS/Adam3cKeyPlugIns.CPP

@@ -0,0 +1,202 @@
+//Change anything you want in this
+//acct file or others.
+
+U0 FillInTime()
+{
+  CDate cdt;
+  cdt=Now;
+  "$$IV,1$$----%D %T----$$IV,0$$\n",cdt,cdt;
+}
+
+Bool MyPutKey(I64 ch,I64 sc)
+{  //ch=ASCII; sc=scancode
+
+//See $LK,"Char",A="HI:Char"$ for definition of scan codes.
+//See $LK,"Keyboard Handling",A="FI:::/Doc/KeyBoard.TXT"$
+
+//You can customize keys.  This routine
+//is called before the main editor
+//key handler $LK,"DocPutKey",A="MN:DocPutKey"$().
+//You can intercept any key.
+
+//Return TRUE if you completely
+//handled the key.
+
+  I64 i,sc2=sc.u8[0];
+
+  if (SC_F1<=sc2<=SC_F10 &&
+      sc&SCF_ALT &&
+      !(sc & SCF_CTRL)) {
+    switch (sc2) {
+      case SC_F1:
+	if (sc&SCF_KEY_DESC) {
+	  if (sc & SCF_SHIFT)
+	    SetKeyDesc("Dollar/LTPURPLE");
+	  else
+	    SetKeyDesc("Dollar/PURPLE");
+	} else {
+	  if (sc & SCF_SHIFT)
+	    "$$LTPURPLE$$";
+	  else
+	    "$$PURPLE$$";
+	}
+	break;
+      case SC_F2:
+	if (sc&SCF_KEY_DESC) {
+	  if (sc & SCF_SHIFT)
+	    SetKeyDesc("Dollar/LTRED");
+	  else
+	    SetKeyDesc("Dollar/RED");
+	} else {
+	  if (sc & SCF_SHIFT)
+	    "$$LTRED$$";
+	  else
+	    "$$RED$$";
+	}
+	break;
+      case SC_F3:
+	if (sc&SCF_KEY_DESC) {
+	  if (sc & SCF_SHIFT)
+	    SetKeyDesc("Dollar/LTGREEN");
+	  else
+	    SetKeyDesc("Dollar/GREEN");
+	} else {
+	  if (sc & SCF_SHIFT)
+	    "$$LTGREEN$$";
+	  else
+	    "$$GREEN$$";
+	}
+	break;
+      case SC_F4:
+	if (sc&SCF_KEY_DESC) {
+	  if (sc & SCF_SHIFT)
+	    SetKeyDesc("Dollar/LTBLUE");
+	  else
+	    SetKeyDesc("Dollar/Default Color");
+	} else {
+	  if (sc & SCF_SHIFT)
+	    "$$LTBLUE$$";
+	  else
+	    "$$FG$$";
+	}
+	break;
+      case SC_F7:
+	if (sc&SCF_KEY_DESC) {
+	  if (sc & SCF_SHIFT)
+	    SetKeyDesc("Misc/Insert My URL");
+	  else
+	    SetKeyDesc("Misc/Insert Datetime");
+	} else {
+	  if (sc & SCF_SHIFT)
+	    FillInMyURL;
+	  else
+	    FillInTime;
+	}
+	break;
+    }
+    return TRUE;
+  } else {
+    if (!(sc & SCF_CTRL)) {
+      if (sc & SCF_ALT) {
+	switch (ch) {
+	  case 'h':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("Win/Tile Horizontally");
+	    else
+	      WinTileHorz;
+	    return TRUE;
+	  case 'm':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("Win/Maximize");
+	    else {
+	      WinMax;
+	      WinBorder;
+	    }
+	    return TRUE;
+	  case 'v':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("Win/Tile Vertically");
+	    else
+	      WinTileVert;
+	    return TRUE;
+	  case 'V':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("Sys/Frame Grabber Toggle");
+	    else
+	      FrameGrabberToggle;
+	    return TRUE;
+
+	  case 'l':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("Edit/Put Link to Cur Pos on Clipboard");
+	    else {
+	      ClipboardDel;
+	      DocPrint(sys_clipboard_doc,"$$LK,\"FL:%s,%d\"$$",
+		DocPut->filename.name,DocPut->cur_entry->y+1);
+	    }
+	    return TRUE;
+	  case 'L':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("Edit/Place Anchor, Put Link to Clipboard");
+	    else {
+	      i=RandU32;
+	      ClipboardDel;
+	      DocPrint(sys_clipboard_doc,"$$LK,\"<TODO>\",A=\"FA:%s,ANC%d\"$$",
+		DocPut->filename.name,i);
+	      "$$AN,\"<TODO>\",A=\"ANC%d\"$$",i;
+	    }
+	    return TRUE;
+
+	  case 'w':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("Win/WordStat(ON);");
+	    else
+	      WordStat(ON);
+	    return TRUE;
+	  case 'W':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("Win/WordStat;");
+	    else
+	      WordStat;
+	    return TRUE;
+
+//Ins your own ALT-key plug-ins
+	  case 'b':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("Cmd/Jump to Bad Code");
+	    else //$LK,"::/Adam/God/HSNotes.TXT"$
+	      BadCodeJump;
+	    return TRUE;
+
+	  case 'g':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("BlogScreenShot");
+	    else
+	      BlogScreenShot;
+	    return TRUE;
+
+	  case 'p':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("JukeBox(TAD)");
+	    else
+	      JukeBox("::/Accts/TS/TAD/MusicOrgan");
+	    return TRUE;
+	  case 'P':
+	    if (sc&SCF_KEY_DESC)
+	      SetKeyDesc("JukeBox(Examples)");
+	    else
+	      JukeBox("::/Apps/MusicOrgan/Examples");
+	    return TRUE;
+	}
+      }
+    }
+  }
+  return FALSE;
+}
+
+Bool MyPutS(U8 *)
+{
+  return FALSE;
+}
+
+KeyDevAdd(&MyPutKey,&MyPutS,0x20000000,TRUE);

Accts/TS/Adam3eSys.CPP

@@ -0,0 +1,58 @@
+U0 UserStartUp()
+{ //Run each time a user a spawned
+  DocTermNew;
+  Type("::/Doc/Start.TXT");
+  LBts(&Fs->display_flags,DISPLAYf_SHOW);
+  WinToTop;
+  WinZBufUpdate;
+  Preempt(ON);
+  Dir;
+  switch (ts_cid) {
+    case CID_TAD8:
+      "$$GREEN$$TAD8$$FG$$:";
+      break;
+    case CID_TAD8_VM:
+      "$$RED$$TAD8_VM$$FG$$:";
+      break;
+    case CID_DFT:
+      "$$PURPLE$$DFT$$FG$$:";
+      break;
+  }
+  "$TX,"81,527",D="DD_TEMPLEOS_LOC_OFFICIAL"$LOC:";
+  CPURep;
+}
+
+U0 SrvStartUp()
+{ //Run each time a srv task is spawned.
+  DocTermNew;
+  LBts(&Fs->display_flags,DISPLAYf_SHOW);
+  WinToTop;
+  WinZBufUpdate;
+  Preempt(ON);
+}
+
+CTask *user1,*user2;
+
+U0 StartUpTasks()
+{
+  user1=SpawnUser;
+  user2=SpawnUser;
+  WinToTop(user1);
+  WinTileVert;
+  PopUp("#include \"::/Adam/Start\";");
+  "Boot     Time:%7.3fs\n",tS;
+  XTalk(user1,"Cd(\"HOME\");#include \"DoOnce\";\n");
+  Silent(ON);
+  WSInit("/*;~*Bible.TXT*");
+  Silent(OFF);
+  "WordStat Time:%7.3fs\n",tS;
+  if (ts_has_win_drv)
+    DrvEnable(TS_WIN_DRV_LET,OFF);
+}
+
+DelTree("::/Temp/ScreenShots");
+MkDir("::/Temp/ScreenShots");
+
+StartUpTasks;
+
+"\nOS Compile Time:%D %T\n",sys_compile_time,sys_compile_time;

Accts/TS/DbgAdam2.CPP

@@ -0,0 +1,51 @@
+#exe {OptOn(OPTf_WARN_PAREN);};
+#exe {OptOn(OPTf_WARN_DUP_TYPES);};
+
+HashTablePurge(adam_task->hash_table);
+
+#help_index "Misc"
+
+public F64 os_version=2.03;
+
+#include "AdamExt.HPP"
+#include "Math2a"
+#include "Training"
+#include "Utils2a"
+#include "MathODE"
+
+Dbg("Type 'G;'");
+
+Cd("::/Adam/Gr");;
+#include "Gr"
+
+Cd("::/Adam/Snd");;
+#include "Snd"
+
+Cd("::/Adam/Dsk");;
+#include "Dsk2"
+
+Cd("::/Adam");;
+#include "Menu"
+#include "Win2a"
+#include "Win2b"
+#include "Dbg2a"
+
+Cd("::/Adam/Doc");;
+#include "Doc"
+LBts(&sys_run_level,RLf_DOC);
+
+Cd("::/Adam/Ctrls");;
+#include "Ctrls"
+
+Cd("::/Adam");;
+#include "AutoFile2a"
+#include "LogIn"
+
+Cd("::/Adam/WordStat");;
+#include "WordStat"
+
+Cd("::/Adam");;
+#include "Hash2a"
+#include "TaskSettings"
+#include "DevInfo"
+#include "DocDefines"

Accts/TS/DoOnce.CPP

@@ -0,0 +1,12 @@
+//This file is executed by the
+//first terminal window upon start-up.
+//See $LK,"DoOnce",A="FF:HOME/Adam3eSys.CPP,DoOnce"$ and $LK,"Acct Files",A="FF:::/Doc/GuideLines.TXT,ACCT FILES"$.
+
+//It goes in your HOME directory and
+//you can customize it.
+
+//Delete this to get rid of
+//default start-up msg.
+
+//Type("::/Doc/Customize.TXT");
+

Accts/TS/Registry.CPP

@@ -0,0 +1,6 @@
+$TR,"Adam"$
+$ID,2$$TR,"SysMsgFlags"$
+$ID,2$sys_msg_flags[0]=0;
+$ID,-2$$TR,"SysRegVer"$
+$ID,2$registry_version=2.030;
+$ID,-2$$ID,-2$

Accts/TS/TAD/Adam3aLocalize.CPP

@@ -0,0 +1,15 @@
+OptOn(OPTf_WARN_PAREN);
+OptOn(OPTf_WARN_DUP_TYPES);
+
+SetTypeMatic(0);
+local_time_offset=-7*60*60*CDATE_FREQ; //Pacific
+
+//$AN,"",A="mouse_move_scale"$adjust these to set mouse move scale
+mxx_scale=0.5;
+myy_scale=0.5;
+mzz_scale=5.0; //wheel
+
+//don't change these
+mxx_prescale=mxx/mxx_scale;
+myy_prescale=myy/myy_scale;
+mzz_prescale=mzz/mzz_scale;

Accts/TS/TAD/Archive/Bookmarks.html

@@ -0,0 +1,199 @@
+<!DOCTYPE NETSCAPE-Bookmark-file-1>
+<!-- This is an automatically generated file.
+It will be read and overwritten.
+Do Not Edit! -->
+<TITLE>Bookmarks</TITLE>
+<H1>Bookmarks</H1>
+<DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957505">Accounts</H3>
+    <DL><p>
+        <DT><A HREF="https://www.annualcreditreport.com/cra/index.jsp" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >AnnualCreditReport</A>
+        <DT><A HREF="http://software.intel.com/partner/app/dashboard" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Dashboard Intel® Developer Zone</A>
+        <DT><A HREF="http://www.dell.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://i.dell.com/images/global/branding/dellecomicon.ico" >Dell Laptops, Desktop Computers, Monitors, Printers & PC Accessories</A>
+        <DT><A HREF="https://www.mymedicare.gov/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >mymedicare.gov Portal of Personalized Medicare Information</A>
+        <DT><A HREF="https://www.paypal.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Send Money, Money Transfer - PayPal</A>
+        <DT><A HREF="http://www.socialsecurity.gov/onlineservices/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.socialsecurity.gov/favicon.ico" >Social Security Online What You Can Do Online</A>
+        <DT><A HREF="http://www.wellsfargo.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Wells Fargo Home Page</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1389105117">Commonly Quoted</H3>
+    <DL><p>
+        <DT><A HREF="http://www.youtube.com/watch?v=eB5VXJXxnNU" ADD_DATE="1381134432" LAST_VISIT="1386666617" LAST_MODIFIED="1389105618" ICON_URI="http://s.ytimg.com/yts/img/favicon_32-vflWoMFGx.png" >Ali G Homo Sapien</A>
+        <DT><A HREF="http://www.wired.com/magazine/2010/11/mf_ticketmaster/all/1" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Everyone Hates Ticketmaster — But No One Can Take It Down Magazine</A>
+        <DT><A HREF="http://stevehanov.ca/blog/index.php?id=56" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >How a programmer reads your resume (comic) - Steve Hanov's Programming Blog</A>
+        <DT><A HREF="http://wayback.archive.org/web/*/www.losethos.com" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://wayback.archive.org/favicon.ico" >Internet Archive (LoseThos)</A>
+        <DT><A HREF="http://waybackmachine.org/*/http://www.simstructure.hare.com" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Internet Archive (SimStructure)</A>
+        <DT><A HREF="http://www.youtube.com/watch?v=Dd7FixvoKBw" ADD_DATE="1379786905" LAST_VISIT="1386666617" LAST_MODIFIED="1389105613" ICON_URI="http://s.ytimg.com/yts/img/favicon_32-vflWoMFGx.png" >Key Peele #1</A>
+        <DT><A HREF="http://www.youtube.com/watch?v=VHG_Gv_zLY4" ADD_DATE="1384979305" LAST_VISIT="1386666617" LAST_MODIFIED="1389105621" ICON_URI="http://s.ytimg.com/yts/img/favicon_32-vflWoMFGx.png" >Key Peele #2</A>
+        <DT><A HREF="http://lmgtfy.com/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://lmgtfy.com/favicon.ico" >Let me google that for you</A>
+        <DT><A HREF="http://unusedino.de/ec64/technical/project64/mapping_c64.html" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://unusedino.de/favicon.ico" >Mapping The C64</A>
+        <DT><A HREF="http://www.youtube.com/watch?feature=player_embedded&v=nj6DK_WX7Yc#!" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://s.ytimg.com/yt/favicon-refresh-vfldLzJxy.ico" >The Magic of CES - YouTube#!</A>
+        <DT><A HREF="http://www.noob.us/humor/the-office-dwight-faces-nerd-torture-of-the-highest-form/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://www.noob.us/favicon.ico" >The Office - Dwight faces nerd torture of the highest form</A>
+        <DT><A HREF="http://www.youtube.com/watch?v=HRPDO63rI1E" ADD_DATE="1381122671" LAST_VISIT="1386666617" LAST_MODIFIED="1389105665" ICON_URI="http://s.ytimg.com/yts/img/favicon_32-vflWoMFGx.png" >The Prisoner</A>
+        <DT><A HREF="http://www.youtube.com/watch?v=o_eSwq1ewsU" ADD_DATE="1381122683" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://s.ytimg.com/yts/img/favicon-vfldLzJxy.ico" >There... Are... Four... Lights! - YouTube</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957505">Downloads</H3>
+    <DL><p>
+        <DT><A HREF="http://www.ccs64.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Commodore 64 Emulator</A>
+        <DT><A HREF="http://ffmpeg.zeranoe.com/builds/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >FFmpeg</A>
+        <DT><A HREF="http://www.dandans.com/Full-Video-Audio-Mixer.htm" ADD_DATE="1375786853" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.dandans.com/webico.ico" >Full Video Audio Mixer, Mix & Merge Audio and Video, Extract & Remove Audio from Video</A>
+        <DT><A HREF="http://www.winimage.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Gilles Vollant software</A>
+        <DT><A HREF="https://www.virtualbox.org/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Oracle VM VirtualBox</A>
+        <DT><A HREF="http://www.qb64.net/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >QB64</A>
+        <DT><A HREF="http://www.phatcode.net/downloads.php?id=280" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >turbo assembler 5 (tasm)</A>
+        <DT><A HREF="http://www.vmware.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >VMware Virtualization Software for Desktops, Servers & Virtual Machines for Public and Private Cloud Solutions</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957505">Games</H3>
+    <DL><p>
+        <DT><A HREF="http://www.classicempire.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >EMPIRE, Wargame of the Century (tm) index</A>
+        <DT><A HREF="http://www.freeciv.net/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Freeciv.net - online multiplayer strategy game</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1389102772">Links</H3>
+    <DL><p>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957505">Media Streams</H3>
+    <DL><p>
+        <DT><A HREF="http://www.bbc.co.uk/?ok" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >BBC - bbc.co.uk homepage - Home of the BBC on the Internet</A>
+        <DT><A HREF="http://www.bbc.co.uk/iplayer/console/bbc_world_service" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >BBC iPlayer - Listen live - BBC World Service</A>
+        <DT><A HREF="http://ocw.mit.edu/courses/electrical-engineering-and-computer-science/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Free Online Course Materials Electrical Engineering and Computer Science MIT OpenCourseWare</A>
+        <DT><A HREF="http://ocw.mit.edu/OcwWeb/web/home/home/index.htm" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Free Online Course Materials MIT OpenCourseWare</A>
+        <DT><A HREF="http://www.gametrailers.com/news.php" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Gametrailers.com - Video Games News, Game Trailers News</A>
+        <DT><A HREF="http://www.komp.com/" ADD_DATE="1389413520" LAST_VISIT="1389413520" LAST_MODIFIED="1389413520" >komp Homepage - LV Portal - Homepage</A>
+        <DT><A HREF="http://openclassroom.stanford.edu/MainFolder/HomePage.php" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >OpenClassroom</A>
+        <DT><A HREF="http://webcast.berkeley.edu/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >webcast.berkeley UC Berkeley Video and Podcasts for Courses & Events</A>
+        <DT><A HREF="http://www.xtremeradio.com/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >X107.5 X-treme Radio Las Vegas, NV - Homepage</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957504">Misc</H3>
+    <DL><p>
+        <DT><A HREF="http://blog.seattleinterviewcoach.com/2009/02/140-google-interview-questions.html" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >140 Google Interview Questions Seattle Interview Coach</A>
+        <DT><A HREF="http://blog.smartbear.com/programming/7-silly-programming-challenges-to-do-for-fun/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1389105588" ICON_URI="http://blog.smartbear.com/wp-content/uploads/dynamik-gen/theme/images/favicon.png" >7 Silly Programming Challenges to Do for Fun</A>
+        <DT><A HREF="http://petr-mitrichev.blogspot.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://petr-mitrichev.blogspot.com/favicon.ico" >Algorithm problems for dummies Petr Mitrichev's blog</A>
+        <DT><A HREF="http://www.youtube.com/watch?v=p-_RHRAzUHM" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Flying with the fastest birds on the planet Peregrine Falcon & Gos Hawk - Animal Camera - BBC - YouTube</A>
+        <DT><A HREF="http://harkavagrant.com/index.php?id=296" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://harkavagrant.com/favicon.ico" >Hark, a vagrant 296</A>
+        <DT><A HREF="http://www.tldp.org/LDP/Linux-Filesystem-Hierarchy/html/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1389102608" ICON_URI="http://www.tldp.org/favicon.ico" >Linux Filesystem Hierarchy</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957504">People</H3>
+    <DL><p>
+        <DT><A HREF="http://www.altdevblogaday.com/2012/04/26/functional-programming-in-c/" ADD_DATE="1377013922" LAST_VISIT="1386666616" LAST_MODIFIED="1389102919" ICON_URI="http://www.altdevblogaday.com/favicon.ico" >Carmack #AltDevBlog</A>
+        <DT><A HREF="http://scpd.stanford.edu/knuth/index.jsp" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Computer Musings by Professor Donald E. Knuth Stanford University Online</A>
+        <DT><A HREF="http://www-cs-faculty.stanford.edu/~knuth/index.html" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Don Knuth's Home Page</A>
+        <DT><A HREF="http://www.insight.org/site/PageServer" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Insight For Living Chuck Swindoll's Bible-teaching via articles, books, audio, and devotionals</A>
+        <DT><A HREF="http://torvalds-family.blogspot.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Linus' blog</A>
+        <DT><A HREF="http://www.hawking.org.uk/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Stephen Hawking - Home</A>
+        <DT><A HREF="http://www.escapistmagazine.com/articles/view/editorials/zeropunctuation" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >The Escapist Zero Punctuation</A>
+        <DT><A HREF="http://www.thegatesnotes.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >The Gates Notes</A>
+        <DT><A HREF="http://www.linuxfoundation.org/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.linuxfoundation.org/sites/www.linuxfoundation.org/themes/opensourcery/favicon.ico" >The Linux Foundation</A>
+        <DT><A HREF="http://www.slingshotchannel.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >The Slingshot Channel's Official Website</A>
+        <DT><A HREF="http://pdos.csail.mit.edu/6.828/2012/xv6.html" ADD_DATE="1388187282" LAST_VISIT="1388187282" LAST_MODIFIED="1388187282" >Xv6, a simple Unix-like teaching operating system</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957504">Research</H3>
+    <DL><p>
+        <DT><H3 FOLDED ADD_DATE="1389105041">Operating Systems</H3>
+        <DL><p>
+            <DT><A HREF="http://stochastix.wordpress.com/2009/01/31/distance-between-two-words/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1389106385" ICON_URI="http://1.gravatar.com/blavatar/97f8320d71ee1387cf94dbb722633e25?s=16" >Distance between two words « Reasonable Deviations</A>
+            <DT><A HREF="http://misc.aspell.net/wiki/English_Dictionaries" ADD_DATE="1384796381" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >English Dictionaries - AspellWiki</A>
+            <DT><A HREF="http://help.yahoo.com//l/us/yahoo/smallbusiness/webhosting/gftp/ftps-04.html#g" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://help.yahoo.com/favicon.ico" >How to setup FTPS tool - Yahoo! Small Business Help</A>
+            <DT><A HREF="http://msdn.microsoft.com/en-us/library/windows/hardware/ff559006(v=vs.85).aspx" ADD_DATE="1375962144" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://msdn.microsoft.com/Areas/Epx/Themes/Windows/Content/Winlogo_favicon.ico" >IDENTIFY_DEVICE_DATA structure (Windows Drivers)</A>
+            <DT><A HREF="http://arstechnica.com/information-technology/2012/10/linux-foundation-to-offer-signed-solution-for-uefi-secure-boot-conundrum/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Linux Foundation to offer signed solution for UEFI Secure Boot conundrum Ars Technica</A>
+            <DT><A HREF="http://www.linuxfoundation.org/news-media/blogs/browse/2012/10/linux-foundation-uefi-secure-boot-system-open-source" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Linux Foundation UEFI Secure Boot System for Open Source The Linux Foundation</A>
+            <DT><A HREF="http://www.pcworld.com/article/2011669/linux-foundation-unveils-a-new-solution-for-win-8-secure-boot.html" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Linux Foundation unveils a workaround for Win 8 Secure Boot PCWorld</A>
+            <DT><A HREF="http://academicearth.org/courses/operating-systems-and-system-programming" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Operating Systems and System Programming Berkeley Video Course</A>
+            <DT><A HREF="http://partedmagic.com/doku.php" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >start – Parted Magic</A>
+        </DL><p>
+        <DT><A HREF="http://www.hongkiat.com/blog/pixel-art-tutorials/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://mediatemplestatic.hongkiat.netdna-cdn.com/logo/hkdc/favicon.ico" >30 Excellent Pixel Art Tutorials For Pixel Lovers</A>
+        <DT><A HREF="http://bigocheatsheet.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Big-O Algorithm Complexity Cheat Sheet</A>
+        <DT><A HREF="https://www.circuitlab.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >CircuitLab sketch, simulate, and share your circuits</A>
+        <DT><A HREF="http://www.sparknotes.com/writing/style/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Grammar, Usage, and Style Guide SparkNotes Ultimate Style Ultimate Style</A>
+        <DT><A HREF="http://imgur.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://imgur.com/favicon.ico" >imgur the simple image sharer</A>
+        <DT><A HREF="http://software.intel.com/en-us/" ADD_DATE="1386626088" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://software.intel.com/sites/all/themes/isn3/favicon.ico" >Intel® Developer Zone</A>
+        <DT><A HREF="http://www.archive.org/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Internet Archive Digital Library of Free Books, Movies, Music & Wayback Machine</A>
+        <DT><A HREF="http://www.netlib.org/lapack/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >LAPACK — Linear Algebra PACKage</A>
+        <DT><A HREF="http://www.gutenberg.org/wiki/Main_Page" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://www.gutenberg.org/favicon.ico" >Main Page - Gutenberg</A>
+        <DT><A HREF="http://www.moreofit.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1389102467" ICON_URI="http://www.moreofit.com/favicon.ico" >moreofit - Website Similarity Search Engine</A>
+        <DT><A HREF="http://www.peoplesmart.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1389105190" ICON_URI="http://www.peoplesmart.com/favicon.ico" >People Search & Background Checks by Name, Phone, Email or Address - PeopleSmart</A>
+        <DT><A HREF="http://promo.net/pg/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >PROJECT GUTENBERG OFFICIAL HOME SITE - INDEX -- Free Books On-Line -</A>
+        <DT><A HREF="http://validator.w3.org/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >The W3C Markup Validation Service</A>
+        <DT><A HREF="http://www.whorush.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >WHORush.com, your source for information on domains</A>
+        <DT><A HREF="http://www.wolframalpha.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >WolframAlpha Computational Knowledge Engine</A>
+        <DT><A HREF="http://youtubetime.com/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >YouTube Time</A>
+        <DT><A HREF="http://www.metacrawler.com/info.metac/dog/index.htm" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >[ MetaCrawler® ]</A>
+        <DT><A HREF="http://validator.w3.org/check?uri=http%3A%2F%2Flynx.isc.org%2Findex.html" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >[Valid] Markup Validation of http--lynx.isc.org-index.html - W3C Markup Validator</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957503">Spiritual</H3>
+    <DL><p>
+        <DT><A HREF="http://www.biblegateway.com/passage/?search=1+Corinthians+14&version=NIV" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1389330204" ICON_URI="http://static5.bgcdn.com/favicon.ico?ca05b3df" >1 Corinthians 14 NIV - Intelligibility in Worship Follow the - Bible Gateway</A>
+        <DT><A HREF="http://qrng.anu.edu.au/NIST.php" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://qrng.anu.edu.au/favicon.ico" >ANU Quantum Random Number Server</A>
+        <DT><A HREF="http://www.generatedata.com/" ADD_DATE="1383350304" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >generatedata.com</A>
+        <DT><A HREF="https://qrng.physik.hu-berlin.de/download" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >QRNG Service - Download</A>
+        <DT><A HREF="http://random.irb.hr/index.php" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://random.irb.hr/favicon.ico" >Quantum Random Bit Generator Service</A>
+        <DT><A HREF="http://www.randomnumbers.info/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Random Numbers Info</A>
+        <DT><A HREF="http://www.random.org/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://www.random.org/favicon.ico" >RANDOM.ORG - True Random Number Service</A>
+        <DT><A HREF="https://www.fourmilab.ch/hotbits/secure_generate.html" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="https://www.fourmilab.ch/favicon.ico" >Request HotBits (Secure Server)</A>
+        <DT><A HREF="http://www.theyshootpictures.com/gf1000_all1000films.htm" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >TSPDT - The 1,000 Greatest Films (Full List)</A>
+        <DT><A HREF="http://www.usccb.org/" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://www.usccb.org/favicon.ico" >United States Conference of Catholic Bishops</A>
+        <DT><A HREF="http://virtual-notary.org/" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1387238161" ICON_URI="http://virtual-notary.org/static/favicon.png" >Virtual-Notary</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957503">TempleOS Business</H3>
+    <DL><p>
+        <DT><A HREF="http://betanews.com/" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://betanews.com/wp-content/themes/betanews/favicon.ico" >BetaNews</A>
+        <DT><A HREF="http://www.devmaster.net/forums/" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >DevMaster.net Forums - Powered by vBulletin</A>
+        <DT><A HREF="http://www.gamedev.net/" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >GameDev.net - all your game development needs</A>
+        <DT><A HREF="http://www.majorgeeks.com/" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://www.majorgeeks.com/favicon.ico" >MajorGeeks.com - Download Freeware and Shareware Computer Utilities</A>
+        <DT><A HREF="http://www.youtube.com/watch?v=6WgOWrT1yyI&feature=youtu.be&a" ADD_DATE="1381667845" LAST_VISIT="1386666617" LAST_MODIFIED="1387406101" ICON_URI="http://s.ytimg.com/yts/img/favicon_32-vflWoMFGx.png" >Mum Tries Out TempleOS 1.06 (2013) - YouTube</A>
+        <DT><A HREF="http://www.businessconsultingabc.com/Feedback.html" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://www.businessconsultingabc.com/wp-content/themes/business-consulting-abc/favicon.ico" >Send Us Feedback Email ABC Business Consulting ABC Business Consulting</A>
+        <DT><A HREF="http://www.sparrowos.com/" ADD_DATE="1375793135" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://www.sparrowos.com/favicon.ico" >Sparrow Operating System</A>
+        <DT><A HREF="http://www.losethos.com/" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://www.losethos.com/favicon.ico" >The LoseThos Operating System</A>
+        <DT><A HREF="http://www.google.com/webmasters/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.google.com/favicon.ico" >Webmasters – Google</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1389105242">Uncommon</H3>
+    <DL><p>
+        <DT><A HREF="http://irc.netsplit.de/channels/details.php?room=%23%23programming&net=freenode" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1389102778" ICON_URI="http://irc.netsplit.de/favicon.ico" >##programming freenode - Chat Room on IRC - irc.netsplit.de</A>
+        <DT><A HREF="http://politicalhumor.about.com/library/bl-political-cartoons.htm" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >2012 Political Cartoons - Best Political Cartoons of 2012</A>
+        <DT><A HREF="http://english.aljazeera.net/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >AJE - Al Jazeera English</A>
+        <DT><A HREF="http://www.amazon.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1389106076" ICON_URI="http://www.amazon.com/favicon.ico" >amazon.com Online Shopping for Electronics, Apparel, Computers, Books, DVDs & more</A>
+        <DT><A HREF="http://www.huffingtonpost.com/" ADD_DATE="1386981098" LAST_VISIT="1386981098" LAST_MODIFIED="1386981098" ICON_URI="http://www.huffingtonpost.com/favicon.ico" >Breaking News and Opinion on The Huffington Post</A>
+        <DT><A HREF="http://www.dailyrotation.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >DAILY ROTATION</A>
+        <DT><A HREF="http://www.dzone.com/links/index.html" ADD_DATE="1378720139" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.dzone.com/favicon.ico" >dzone.com - fresh links for developers</A>
+        <DT><A HREF="http://www.hackforums.net/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Hack Forums</A>
+        <DT><A HREF="http://hckrnews.com/" ADD_DATE="1377987384" LAST_VISIT="1386666616" LAST_MODIFIED="1387840046" ICON_URI="http://hckrnews.com/img/touch/apple-touch-icon.png" >hckr news - Hacker News sorted by time</A>
+        <DT><A HREF="http://www.shellcity.net/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1389105474" ICON_URI="http://www.shellcity.net/favicon.ico" >http--www.shellcity.net-</A>
+        <DT><A HREF="http://chat.icq.com/icqchat/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >ICQ Chat Rooms - ICQ.com</A>
+        <DT><A HREF="http://iopscience.iop.org/1367-2630" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1389105799" ICON_URI="http://iopscience.iop.org/favicon.ico" >iopscience Journal of Physics</A>
+        <DT><A HREF="http://www.irc.org/links.html" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >IRC.org</A>
+        <DT><A HREF="http://www.haaretz.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Israel News - Haaretz Israeli News source</A>
+        <DT><A HREF="https://lobste.rs/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1389102792" ICON_URI="https://lobste.rs/favicon.ico" >Lobsters</A>
+        <DT><A HREF="http://www.microsoft.com/isapi/redir.dll?prd=ie&pver=6&ar=IStart" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >MSN.com</A>
+        <DT><A HREF="http://www.physorg.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >PhysOrg.com - Science News, Technology, Physics, Nanotechnology, Space Science, Earth Science, Medicine</A>
+        <DT><A HREF="http://www.chess.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Play Chess Online - Free Chess Games at Chess.com</A>
+        <DT><A HREF="http://gogloom.com/DIR?cat=84126&catdesc=Programming" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Programming CHAT ROOMS - Online CHAT!</A>
+        <DT><A HREF="http://royal.pingdom.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Royal Pingdom</A>
+        <DT><A HREF="http://www.infopackets.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Tech News Daily - Infopackets.com</A>
+        <DT><A HREF="http://www.techbeta.org/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >TechBeta Free and open source software for Windows, Mac OS X, Linux, iPhone, and Mobile</A>
+        <DT><A HREF="http://www.techcrunch.com/" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >TechCrunch</A>
+        <DT><A HREF="http://www.tomshardware.com/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Tom's Hardware Hardware News, Tests and Reviews</A>
+        <DT><A HREF="http://news.yahoo.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://news.yahoo.com/favicon.ico" >Yahoo! News - Latest News & Headlines</A>
+        <DT><A HREF="http://www.yahoo.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1389106215" ICON_URI="http://l.yimg.com/rz/l/favicon.ico" >Yahoo!</A>
+    </DL><p>
+    <DT><A HREF="http://www.4chan.org/" ADD_DATE="1375781470" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://s.4cdn.org/image/favicon.ico" >4chan</A>
+    <DT><A HREF="http://arstechnica.com/index.ars" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Ars Technica</A>
+    <DT><A HREF="http://dictionary.reference.com/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://static.sfdict.com/dictcloud/favicon.ico" >Dictionary</A>
+    <DT><A HREF="http://www.drudgereport.com/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >DRUDGE</A>
+    <DT><A HREF="http://www.facebook.com/home.php" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Facebook</A>
+    <DT><A HREF="https://www.google.com/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="https://www.google.com/favicon.ico" >Google</A>
+    <DT><A HREF="http://news.ycombinator.com/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Hacker News</A>
+    <DT><A HREF="http://www.knpr.org/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.knpr.org/favicon.ico" >Nevada Public Radio</A>
+    <DT><A HREF="http://beacon.nist.gov/home" ADD_DATE="1383959013" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >NIST Randomness Beacon (Prototype Implementation) - NIST</A>
+    <DT><A HREF="http://forum.osdev.org/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://forum.osdev.org/favicon.ico" >OSDev.org • Index page</A>
+    <DT><A HREF="http://www.osnews.com/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.osnews.com/favicon.ico" >OSNews is Exploring the Future of Computing</A>
+    <DT><A HREF="http://www.pixeljoint.com/forum/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.pixeljoint.com/favicon.ico" >Pixel Joint Forum</A>
+    <DT><A HREF="http://popurls.com/" ADD_DATE="1378004893" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://popurls.com/favicon.ico" >popurls  the genuine news aggregator for the latest web buzz</A>
+    <DT><A HREF="http://www.reddit.com/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666968" ICON_URI="http://www.redditstatic.com/icon.png" >reddit.com</A>
+    <DT><A HREF="http://slashdot.org/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://slashdot.org/favicon.ico" >slashdot News for nerds, stuff that matters</A>
+    <DT><A HREF="http://stackoverflow.com/" ADD_DATE="1381508264" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://cdn.sstatic.net/stackoverflow/img/favicon.ico" >Stack Overflow</A>
+    <DT><A HREF="http://www.templeos.org/logs/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.templeos.org/favicon.ico" >TempleOS Index of -logs</A>
+    <DT><A HREF="http://www.templeos.org/Wb/Accts/TS/Wb2/Rants/TAD/TADRants.html" ADD_DATE="1389595518" LAST_VISIT="1389595518" LAST_MODIFIED="1389595518" ICON_URI="http://www.templeos.org/favicon.ico" >Terry Davis' Rants</A>
+    <DT><A HREF="http://www.templeos.org/" ADD_DATE="1375628480" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.templeos.org/favicon.ico" >The Temple Operating System</A>
+    <DT><A HREF="https://twitter.com/" ADD_DATE="1378394318" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="https://abs.twimg.com/favicons/favicon.ico" >Twitter</A>
+    <DT><A HREF="http://www.wikipedia.org/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://bits.wikimedia.org/favicon/wikipedia.ico" >Wikipedia</A>
+    <DT><A HREF="http://smallbusiness.yahoo.com/services/index.php?crumb=eynoh/GoPXd" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Yahoo! Small Business</A>
+    <DT><A HREF="http://www.youtube.com/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386677085" ICON_URI="http://s.ytimg.com/yts/img/favicon_32-vflWoMFGx.png" >YouTube - Broadcast Yourself</A>
+</DL><p>

Accts/TS/TAD/Archive/Comm.CPP

@@ -0,0 +1,115 @@
+//Be sure to Adam Include this.
+
+#help_index "Comm"
+
+#define COM1_BASE	0x3F8
+#define COM2_BASE	0x2F8
+#define COM3_BASE	0x3E8
+#define COM4_BASE	0x2E8
+
+#define UART_THR		0
+#define UART_RDR		0
+#define UART_BRDL		0
+#define UART_IER		1
+#define UART_BRDH		1
+#define UART_IIR		2
+#define UART_LCR		3
+#define UART_MCR		4
+#define UART_LSR		5
+#define UART_MSR		6
+
+
+I64 comm_base[5]={0,0x3F8,0x2F8,0x3E8,0x2E8};
+
+CFifoU8 *comm_fifos[5]={NULL,NULL,NULL,NULL,NULL};
+
+interrupt U0 CommInt3Handler()
+{
+  I64 base=comm_base[2];
+  if (comm_fifos[2] && (InU8(base+UART_IIR) & 0xFE)==8)   //RX IRQ
+    FifoU8Ins(comm_fifos[2],InU8(base+UART_RDR));
+
+  base=comm_base[4];
+  if (comm_fifos[4] && (InU8(base+UART_IIR) & 0xFE)==8)   //RX IRQ
+    FifoU8Ins(comm_fifos[4],InU8(base+UART_RDR));
+  OutU8(0x20,0x20);
+}
+
+interrupt U0 CommInt4Handler()
+{
+  I64 base=comm_base[1];
+  if (comm_fifos[1] && (InU8(base+UART_IIR) & 0xFE)==8)   //RX IRQ
+    FifoU8Ins(comm_fifos[1],InU8(base+UART_RDR));
+
+  base=comm_base[3];
+  if (comm_fifos[3] && (InU8(base+UART_IIR) & 0xFE)==8)   //RX IRQ
+    FifoU8Ins(comm_fifos[3],InU8(base+UART_RDR));
+  OutU8(0x20,0x20);
+}
+
+IntEntrySet(0x23,&CommInt3Handler);
+IntEntrySet(0x24,&CommInt4Handler);
+
+public U0 CommInit8n1(I64 port,I64 baud)
+{
+  I64 base=comm_base[port];
+
+  PUSHFD
+  CLI
+  if (comm_fifos[port])
+    FifoU8Del(comm_fifos[port]);
+  comm_fifos[port]=FifoU8New(256);
+  OutU8(base+UART_LCR,0);     //Set for IER
+  OutU8(base+UART_IER,0);     //DIsable all IRQ
+  OutU8(base+UART_LCR,0x80);  //Enable baud rate control
+  OutU8(base+UART_BRDL,(0x180/(baud/300)) & 0xFF); //LSB
+  OutU8(base+UART_BRDL,(0x180/(baud/300)) / 256);  //MSB
+  OutU8(base+UART_LCR,3);     // 8-none-1
+
+  InU8(base+UART_RDR);	//read garbage