Rijn/TempleOS-Rijn
1
1 Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

TempleOSTS_140317.ISO

Browse Source
This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:46:02 +02:00
1 parent 2d2a65d572
commit 7ef616a20e
1416 files changed
+221533 -51577
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

0000Boot/0000Kernel.BIN.C
BIN
View File
Binary file not shown.
0000Boot/BootMHD2.BIN.C
BIN
View File
Binary file not shown.
TempleOS/Accts/Adam3.CPP → Accts/Adam3.CPP
+3 -3
View File
@@ -3,6 +3,6 @@
#include "HOME/Adam3aLocalize"
#include "HOME/Adam3bPkgs"
#include "HOME/Adam3dKeyPlugIns"
#include "HOME/Adam3eWrappers"
#include "HOME/Adam3fSys"
#include "HOME/Adam3cKeyPlugIns"
#include "HOME/Adam3dWrappers"
#include "HOME/Adam3eSys"
TempleOS/Accts/Adam3aLocalize.CPP → Accts/Adam3aLocalize.CPP
+1 -1
View File
@@ -7,7 +7,7 @@ SetTypeMatic(0);
//Set Time Zone
local_time_offset=0*60*60*CDATE_FREQ; //Do daylight savings by hand
//$AN,"","mouse_move_scale"$adjust these to set mouse move scale
//$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
TempleOS/Accts/Adam3bPkgs.CPP → Accts/Adam3bPkgs.CPP
+5 -6
View File
@@ -1,13 +1,13 @@
//Change anything you want in this
//acct file or others.
Cd("/TempleOS/Adam/Boot");;
Cd("/Adam/Boot");;
#include "InsBoot"
Cd("/TempleOS/Adam/Utils");;
Cd("/Adam/Utils");;
#include "Profiler"
#include "Diff"
#include "Grep"
#include "LineCnt"
#include "LineRep"
#include "Merge"
#include "S2T"
#include "LinkChk"
@@ -17,9 +17,8 @@ Cd("/TempleOS/Adam/Utils");;
#include "ToTXT"
#include "BinRep"
#include "FileBMP"
Cd("/TempleOS/Apps");;
MapFileLoad("::/TempleOS/Kernel/Kernel");
MapFileLoad("::/TempleOS/Compiler/Compiler");
MapFileLoad("::/Kernel/Kernel");
MapFileLoad("::/Compiler/Compiler");
Cd("HOME");;
TempleOS/Accts/Adam3dKeyPlugIns.CPP → Accts/Adam3cKeyPlugIns.CPP
+16 -24
View File
@@ -4,20 +4,19 @@
U0 FillInTime()
{
CDate cdt;
cdt=GetDateTime;
cdt=Now;
"$$IV,1$$----%D %T----$$IV,0$$\n",cdt,cdt;
}
Bool MyPutKey(I64 ch,I64 sc)
{ //ch=ASCII; sc=scancode
//See $LK,"Char","HI:Char"$ for definition of scan codes.
//See $LK,"Keyboard Handling","FI:::/TempleOS/Doc/KeyBoard.TXT"$
//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","MN:DocPutKey"$().
//key handler $LK,"DocPutKey",A="MN:DocPutKey"$().
//You can intercept any key.
//Return TRUE if you completely
@@ -37,9 +36,9 @@ Bool MyPutKey(I64 ch,I64 sc)
SetKeyDesc("Dollar/PURPLE");
} else {
if (sc & SCF_SHIFT)
"$$FG,LTPURPLE$$";
"$$LTPURPLE$$";
else
"$$FG,PURPLE$$";
"$$PURPLE$$";
}
break;
case SC_F2:
@@ -50,9 +49,9 @@ Bool MyPutKey(I64 ch,I64 sc)
SetKeyDesc("Dollar/RED");
} else {
if (sc & SCF_SHIFT)
"$$FG,LTRED$$";
"$$LTRED$$";
else
"$$FG,RED$$";
"$$RED$$";
}
break;
case SC_F3:
@@ -63,9 +62,9 @@ Bool MyPutKey(I64 ch,I64 sc)
SetKeyDesc("Dollar/GREEN");
} else {
if (sc & SCF_SHIFT)
"$$FG,LTGREEN$$";
"$$LTGREEN$$";
else
"$$FG,GREEN$$";
"$$GREEN$$";
}
break;
case SC_F4:
@@ -76,18 +75,11 @@ Bool MyPutKey(I64 ch,I64 sc)
SetKeyDesc("Dollar/Default Color");
} else {
if (sc & SCF_SHIFT)
"$$FG,LTBLUE$$";
"$$LTBLUE$$";
else
"$$FG$$";
}
break;
case SC_F6:
if (sc&SCF_KEY_DESC) {
if (!(sc & SCF_SHIFT))
SetKeyDesc("Cmd/Init WordStat LT");
} else if (!(sc & SCF_SHIFT))
PopUp("WSInit(\"/TempleOS/*;~*Bible.TXT*\");");
break;
case SC_F7:
if (sc&SCF_KEY_DESC)
SetKeyDesc("Misc/Insert Datetime");
@@ -125,8 +117,8 @@ Bool MyPutKey(I64 ch,I64 sc)
if (sc&SCF_KEY_DESC)
SetKeyDesc("Edit/Put Link to Cur Pos on Clipboard");
else {
ClipBoardDel;
DocPrint(sys_clipboard_doc,"$$LK-A,\"FL:%s,%d\"$$",
ClipboardDel;
DocPrint(sys_clipboard_doc,"$$LK,\"FL:%s,%d\"$$",
DocPut->filename.name,DocPut->cur_entry->y+1);
}
return TRUE;
@@ -135,10 +127,10 @@ Bool MyPutKey(I64 ch,I64 sc)
SetKeyDesc("Edit/Place Anchor, Put Link to Clipboard");
else {
i=RandU32;
ClipBoardDel;
DocPrint(sys_clipboard_doc,"$$LK,\"<TODO>\",\"FA:%s,ANC%d\"$$",
ClipboardDel;
DocPrint(sys_clipboard_doc,"$$LK,\"<TODO>\",A=\"FA:%s,ANC%d\"$$",
DocPut->filename.name,i);
"$$AN,\"<TODO>\",\"ANC%d\"$$",i;
"$$AN,\"<TODO>\",A=\"ANC%d\"$$",i;
}
return TRUE;
Accts/Adam3dWrappers.CPP
+27
View File
@@ -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 ""
TempleOS/Accts/Adam3fSys.CPP → Accts/Adam3eSys.CPP
+8 -9
View File
@@ -3,21 +3,21 @@
U0 UserStartUp()
{ //Run each time a user a spawned
UseTermDoc;
Type("::/TempleOS/Doc/Start.TXT");
DocTermNew;
Type("::/Doc/Start.TXT");
LBts(&Fs->display_flags,DISPLAYf_SHOW);
WinToTop;
WinZBufUpdate;
if (!IsSysDeterministic)
Preempt(ON);
Dir;
}
U0 SrvStartUp()
{ //Run each time a srv task is spawned.
UseTermDoc;
DocTermNew;
LBts(&Fs->display_flags,DISPLAYf_SHOW);
WinToTop;
WinZBufUpdate;
if (!IsSysDeterministic)
Preempt(ON);
}
@@ -28,12 +28,11 @@ U0 StartUpTasks()
user2=SpawnUser;
WinToTop(user1);
WinTileVert;
if (!IsSysDeterministic)
PopUp("#include \"::/TempleOS/Adam/Start\";");
PopUp("#include \"::/Adam/Start\";");
"Boot Time:%7.3fs\n",tS;
XTalk(user1,"Cd(\"HOME\");#include \"DoItOnce\";\n");
XTalk(user1,"Cd(\"HOME\");#include \"DoOnce\";\n");
Silent(ON); //no output to screen
WSInit("/TempleOS/*;~*Bible.TXT*");
WSInit("/*;~*Bible.TXT*");
Silent(OFF); //no output to screen
}
TempleOS/Accts/DoItOnce.CPP → Accts/DoOnce.CPP
+3 -3
View File
@@ -1,16 +1,16 @@
//This file is executed by the
//first terminal window upon start-up.
//See $LK,"DoItOnce","FF:HOME/Adam3fSys.CPP,DoItOnce"$ and $LK,"Acct Files","FF:::/TempleOS/Doc/GuideLines.TXT,ACCT FILES"$.
//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("::/TempleOS/Doc/Customize.TXT");
Type("::/Doc/Customize.TXT");
"\nTake Tour";
if (YorN) {
Cd("::/TempleOS/Misc/Tour");
Cd("::/Misc/Tour");
AutoFile("Tour");
}
TempleOS/Accts/Install/Adam3fSys.CPP → Accts/Install/Adam3eSys.CPP
+7 -7
View File
@@ -3,20 +3,20 @@
U0 UserStartUp()
{ //Run each time a user a spawned
UseTermDoc;
Type("::/TempleOS/Doc/Start.TXT");
DocTermNew;
Type("::/Doc/Start.TXT");
LBts(&Fs->display_flags,DISPLAYf_SHOW);
WinToTop;
WinZBufUpdate;
if (!IsSysDeterministic)
Preempt(ON);
}
U0 SrvStartUp()
{ //Run each time a srv task is spawned.
UseTermDoc;
DocTermNew;
LBts(&Fs->display_flags,DISPLAYf_SHOW);
WinToTop;
WinZBufUpdate;
if (!IsSysDeterministic)
Preempt(ON);
}
@@ -24,11 +24,11 @@ U0 StartUpTasks()
{
CTask *user1,*user2;
user1=SpawnUser;
user2=SpawnUser;
user2=SpawnUser("Ed(\"::/Doc/Install.TXT.Z\");\n");
WinToTop(user1);
WinTileVert;
"Boot Time:%7.3fs\n",tS;
XTalk(user1,"Cd(\"HOME\");#include \"DoItOnce\";\n");
XTalk(user1,"Cd(\"HOME\");#include \"DoOnce\";\n");
Silent(ON); //no output to screen
WSInit;
Silent(OFF); //no output to screen
TempleOS/Accts/Install/DoItOnce.CPP → Accts/Install/DoOnce.CPP
+31 -53
View File
@@ -19,14 +19,14 @@ U0 VMInstallBoot(CTask *task,U8 cd_drv,U8 drv,U8 *acct_name,
Free(st1);
Free(st2);
st1=MPrint("%C:/TempleOS/Accts/%s",drv,acct_name);
st1=MPrint("%C:/Accts/%s",drv,acct_name);
MkDir(st1);
Copy("::/TempleOS/Demo/MakeDistro.CPP.Z",st1);
Copy("::/Misc/MakeDistro.CPP.Z",st1);
Free(st1);
XTalkWait(task,
"MakeOSInstallPrtBootLoader('%C');\n"
"B1\n0x20000\n",drv);
"MakeOSPrtBootInstall('%C');\n"
"\nB1\n0x20000\n",drv);
if (ata_drv)
XTalkWait(task,"C2p%d\n",ata_drv->num);
@@ -69,7 +69,7 @@ U0 VMInstallWizard()
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);
InstallMasterBootLoader('C');
MasterBootIntall('C');
}
LinkedLstDel(root);
Free(acct_name);
@@ -81,10 +81,9 @@ U0 VMInstallWizard()
U0 RegularInstallWizard()
{
I64 unit;
U8 ch,*base0,*base1,*ms,*dst,*acct_name;
U8 *st1,*st2,*new_home_str;
U8 *base0,*base1,*ms,*dst,*acct_name,*st1,*st2,*new_home_str;
CATARep *root=NULL,*tempha;
I64 num_hints;
I64 ch,num_hints;
CTask *task;
while (TRUE) {
@@ -104,44 +103,39 @@ U0 RegularInstallWizard()
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;\n");
XTalk(task,"C");
XTalk(task,"2 ");
XTalk(task,"Mount;\nC2 ");
num_hints=ATARep(FALSE,,&root);
"\nInclude '$$FG,PURPLE$$0x$$FG$$' for hexidecimal numbers.\n\n";
"\nInclude '$$PURPLE$$0x$$FG$$' for hexidecimal numbers.\n\n";
while (TRUE) {
base0=PmtStr("Hard Drive I/O Port Base0 : ");
if (0<A2I(base0)<=0xFFFF)
if (0<A2I64(base0)<=0xFFFF)
break;
Free(base0);
}
if (1<=A2I(base0)<=num_hints) {
tempha=ATARepFind(&root,A2I(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=A2I(ms);
unit=A2I64(ms);
} else {
while (TRUE) {
base1=PmtStr("Hard Drive I/O Port Base1 : ");
if (0<A2I(base1)<=0xFFFF)
if (0<A2I64(base1)<=0xFFFF)
break;
Free(base1);
}
while (TRUE) {
ms =PmtStr("Unit--$$FG,PURPLE$$0$$FG$$=Master or $$FG,PURPLE$$1$$FG$$=Slave: ","0");
unit=A2I(ms);
ms =PmtStr("Unit--$$PURPLE$$0$$FG$$=Master or $$PURPLE$$1$$FG$$=Slave: ","0");
unit=A2I64(ms);
if (0<=unit<=1)
break;
}
}
LinkedLstDel(root);
XTalk(task,"%s\n",base0);
XTalk(task,"%s\n",base1);
XTalk(task,"%C",'0'+unit);
XTalkWait(task,"\n");
XTalkWait(task,"%s\n%s\n%C\n",base0,base1,'0'+unit);
PrtRep;
while (TRUE) {
dst=PmtStr("\nDestination Partition Letter: ");
@@ -151,15 +145,15 @@ U0 RegularInstallWizard()
}
NewLine;
st1=MPrint("%C:/TempleOS",*sys_acct);
st2=MPrint("%C:/TempleOS",*dst);
st1=MPrint("%C:/",*sys_acct);
st2=MPrint("%C:/",*dst);
"$$FG,RED$$Format %C Partition?$$FG$$\n",*dst;
"$$RED$$Format %C Partition?$$FG$$\n",*dst;
if (YorN) {
NewLine;
while (TRUE) {
"$$FG,PURPLE$$1$$FG$$) Use FAT32\n"
"$$FG,PURPLE$$2$$FG$$) Use RedSea\n"
"$$PURPLE$$1$$FG$$) Use FAT32\n"
"$$PURPLE$$2$$FG$$) Use RedSea\n"
"\nFile System Type: ";
ch=GetChar;
NewLine;
@@ -167,31 +161,21 @@ U0 RegularInstallWizard()
break;
}
if (ch=='1')
Fmt(*dst,TRUE,FALSE,PT_FAT32);
Fmt(*dst,,FALSE,PT_FAT32);
else
Fmt(*dst,TRUE,FALSE,PT_REDSEA);
} else {
"\n$$BK,1$$WARNING$$BK,0$$ if you answer yes to the following "
"you will lose all TempleOS files in your /TempleOS directory tree.\n"
"Delete %s Directory ",st2;
if (YorN)
DelTree(st2);
NewLine;
Fmt(*dst,,FALSE,PT_REDSEA);
}
CopyTree(st1,st2);
st2=MPrint("%C:/0000Boot",*dst);
MkDir(st2);
Free(st2);
st2=MPrint("%C:/Temp",*dst);
MkDir(st2);
Free(st2);
new_home_str=MPrint("%C:/TempleOS/Accts/%s",*dst,acct_name);
new_home_str=MPrint("%C:/Accts/%s",*dst,acct_name);
MkDir(new_home_str);
Copy("::/TempleOS/Demo/MakeDistro.CPP.Z",new_home_str);
Copy("::/Misc/MakeDistro.CPP.Z",new_home_str);
XTalkWait(task,
"MakeOSInstallPrtBootLoader('%C');\n"
"B1\n0x20000\n"
"MakeOSPrtBootInstall('%C');\n"
"\nB1\n0x20000\n"
"C"
"2p"
"%s\n"
@@ -202,10 +186,10 @@ U0 RegularInstallWizard()
"\n" //Dsk Cache
"\n", //Options
*dst,base0,base1,'0'+unit,acct_name);
"$$FG,RED$$Install Master Boot loader?$$FG$$";
"$$RED$$Install Master Boot loader?$$FG$$";
if (YorN) {
NewLine;
InstallMasterBootLoader(*dst);
MasterBootIntall(*dst);
}
Free(new_home_str);
Free(acct_name);
@@ -221,19 +205,13 @@ U0 RegularInstallWizard()
U0 DoInstall()
{
I64 pmt_reboot;
CTask *task=Fs->next_task;
while (task->user_num!=2 && task!=Fs)
task=task->next_task;
if (task->user_num==2)
XTalk(task,"Ed(\"::/TempleOS/Doc/Install.TXT.Z\");\n");
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 MakeOSInstallPrtBootLoader() "
"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)
Accts/PersonalMenu.TXT
BIN
View File
Binary file not shown.
TempleOS/Accts/PersonalNotes.TXT → Accts/PersonalNotes.TXT
View File
File renamed without changes.
Accts/TS/Adam3bPkgs.CPP
+8
View File
@@ -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");;
TempleOS/Demo/AcctExample/Adam3dKeyPlugIns.CPP → Accts/TS/Adam3cKeyPlugIns.CPP
+23 -77
View File
@@ -4,29 +4,25 @@
U0 FillInTime()
{
CDate cdt;
cdt=GetDateTime;
cdt=Now;
"$$IV,1$$----%D %T----$$IV,0$$\n",cdt,cdt;
}
#define WS_F6 0
#define WS_SHIFT_F6 1
I64 my_wordstat=WS_F6;
Bool MyPutKey(I64 ch,I64 sc)
{ //ch=ASCII; sc=scancode
//See $LK,"Char","HI:Char"$ for definition of scan codes.
//See $LK,"Keyboard Handling","FI:::/TempleOS/Doc/KeyBoard.TXT"$
//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","MN:DocPutKey"$().
//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],old_wordstat;
I64 i,sc2=sc.u8[0];
if (SC_F1<=sc2<=SC_F10 &&
sc&SCF_ALT &&
@@ -40,9 +36,9 @@ Bool MyPutKey(I64 ch,I64 sc)
SetKeyDesc("Dollar/PURPLE");
} else {
if (sc & SCF_SHIFT)
"$$FG,LTPURPLE$$";
"$$LTPURPLE$$";
else
"$$FG,PURPLE$$";
"$$PURPLE$$";
}
break;
case SC_F2:
@@ -53,9 +49,9 @@ Bool MyPutKey(I64 ch,I64 sc)
SetKeyDesc("Dollar/RED");
} else {
if (sc & SCF_SHIFT)
"$$FG,LTRED$$";
"$$LTRED$$";
else
"$$FG,RED$$";
"$$RED$$";
}
break;
case SC_F3:
@@ -66,9 +62,9 @@ Bool MyPutKey(I64 ch,I64 sc)
SetKeyDesc("Dollar/GREEN");
} else {
if (sc & SCF_SHIFT)
"$$FG,LTGREEN$$";
"$$LTGREEN$$";
else
"$$FG,GREEN$$";
"$$GREEN$$";
}
break;
case SC_F4:
@@ -79,61 +75,11 @@ Bool MyPutKey(I64 ch,I64 sc)
SetKeyDesc("Dollar/Default Color");
} else {
if (sc & SCF_SHIFT)
"$$FG,LTBLUE$$";
"$$LTBLUE$$";
else
"$$FG$$";
}
break;
case SC_F5:
if (sc&SCF_KEY_DESC) {
if (sc & SCF_SHIFT)
SetKeyDesc("God Passage");
else
SetKeyDesc("God Word");
} else {
//$LK-A,"::/TempleOS/Apps/HolySpirit/HSNotes.TXT"$
DocRecalc(DocPut);
if (DocPut->cur_entry->settings->cur_text_attr&0xF!=RED)
"$$FG,RED$$";
if (sc & SCF_SHIFT)
RandQuote;
else {
if (my_wordstat!=WS_SHIFT_F6) {
old_wordstat=TaskValidate(ws_task);
my_wordstat=WS_SHIFT_F6;
PopUp("WSInit(\"::/TempleOS/Apps/HolySpirit/Vocab.TXT*\");");
while (!Bt(&ws_flags,WSf_INIT_IN_PROGRESS)) //Kinda risky
Yield;
while (Bt(&ws_flags,WSf_INIT_IN_PROGRESS))
Yield;
WordStat(old_wordstat);
}
RandWord;
}
}
break;
case SC_F6:
if (sc&SCF_KEY_DESC) {
if (sc & SCF_SHIFT)
SetKeyDesc("Cmd/Init WordStat Spirit");
else
SetKeyDesc("Cmd/Init WordStat TempleOS");
} else {
old_wordstat=TaskValidate(ws_task);
if (sc & SCF_SHIFT) {
my_wordstat=WS_SHIFT_F6;
PopUp("WSInit(\"::/TempleOS/Apps/HolySpirit/Vocab.TXT*\");");
} else {
my_wordstat=WS_F6;
PopUp("WSInit(\"::/TempleOS/*;~*Bible.TXT*\");");
}
while (!Bt(&ws_flags,WSf_INIT_IN_PROGRESS)) //Kinda risky
Yield;
while (Bt(&ws_flags,WSf_INIT_IN_PROGRESS))
Yield;
WordStat(old_wordstat);
}
break;
case SC_F7:
if (sc&SCF_KEY_DESC) {
if (sc & SCF_SHIFT)
@@ -184,8 +130,8 @@ Bool MyPutKey(I64 ch,I64 sc)
if (sc&SCF_KEY_DESC)
SetKeyDesc("Edit/Put Link to Cur Pos on Clipboard");
else {
ClipBoardDel;
DocPrint(sys_clipboard_doc,"$$LK-A,\"FL:%s,%d\"$$",
ClipboardDel;
DocPrint(sys_clipboard_doc,"$$LK,\"FL:%s,%d\"$$",
DocPut->filename.name,DocPut->cur_entry->y+1);
}
return TRUE;
@@ -194,10 +140,10 @@ Bool MyPutKey(I64 ch,I64 sc)
SetKeyDesc("Edit/Place Anchor, Put Link to Clipboard");
else {
i=RandU32;
ClipBoardDel;
DocPrint(sys_clipboard_doc,"$$LK,\"<TODO>\",\"FA:%s,ANC%d\"$$",
ClipboardDel;
DocPrint(sys_clipboard_doc,"$$LK,\"<TODO>\",A=\"FA:%s,ANC%d\"$$",
DocPut->filename.name,i);
"$$AN,\"<TODO>\",\"ANC%d\"$$",i;
"$$AN,\"<TODO>\",A=\"ANC%d\"$$",i;
}
return TRUE;
@@ -218,28 +164,28 @@ Bool MyPutKey(I64 ch,I64 sc)
case 'b':
if (sc&SCF_KEY_DESC)
SetKeyDesc("Cmd/Jump to Bad Code");
else //$LK-A,"::/TempleOS/Apps/HolySpirit/HSNotes.TXT"$
else //$LK,"::/Adam/God/HSNotes.TXT"$
BadCodeJump;
return TRUE;
case 'g':
if (sc&SCF_KEY_DESC)
SetKeyDesc("Godle");
else //$LK-A,"::/TempleOS/Apps/HolySpirit/HSNotes.TXT"$
Godle; //God drawing
SetKeyDesc("BlogScreenShot");
else
BlogScreenShot;
return TRUE;
case 'p':
if (sc&SCF_KEY_DESC)
SetKeyDesc("JukeBox(TAD)");
else
JukeBox("::/TempleOS/Accts/TS/TAD/MusicOrgan");
JukeBox("::/Accts/TS/TAD/MusicOrgan");
return TRUE;
case 'P':
if (sc&SCF_KEY_DESC)
SetKeyDesc("JukeBox(Examples)");
else
JukeBox("::/TempleOS/Apps/MusicOrgan/Examples");
JukeBox("::/Apps/MusicOrgan/Examples");
return TRUE;
}
}
TempleOS/Demo/AcctExample/Adam3fSys.CPP → Accts/TS/Adam3eSys.CPP
+12 -13
View File
@@ -1,32 +1,33 @@
U0 UserStartUp()
{ //Run each time a user a spawned
UseTermDoc;
Type("::/TempleOS/Doc/Start.TXT");
DocTermNew;
Type("::/Doc/Start.TXT");
LBts(&Fs->display_flags,DISPLAYf_SHOW);
WinToTop;
WinZBufUpdate;
if (!IsSysDeterministic)
Preempt(ON);
Dir;
switch (ts_cid) {
case CID_TAD8:
"$$FG,GREEN$$TAD8$$FG$$: ";
"$$GREEN$$TAD8$$FG$$:";
break;
case CID_TAD8_VM:
"$$FG,RED$$TAD8_VM$$FG$$: ";
"$$RED$$TAD8_VM$$FG$$:";
break;
case CID_DFT:
"$$FG,PURPLE$$DFT$$FG$$: ";
"$$PURPLE$$DFT$$FG$$:";
break;
}
"$TX,"81,527",D="DD_TEMPLEOS_LOC_OFFICIAL"$LOC:";
CPURep;
}
U0 SrvStartUp()
{ //Run each time a srv task is spawned.
UseTermDoc;
DocTermNew;
LBts(&Fs->display_flags,DISPLAYf_SHOW);
WinToTop;
WinZBufUpdate;
if (!IsSysDeterministic)
Preempt(ON);
}
@@ -38,13 +39,11 @@ U0 StartUpTasks()
user2=SpawnUser;
WinToTop(user1);
WinTileVert;
if (!IsSysDeterministic)
PopUp("#include \"::/TempleOS/Adam/Start\";");
PopUp("#include \"::/Adam/Start\";");
"Boot Time:%7.3fs\n",tS;
XTalk(user1,"Cd(\"HOME\");#include \"DoItOnce\";\n");
XTalk(user1,"Cd(\"HOME\");#include \"DoOnce\";\n");
Silent(ON);
if (!IsSysDeterministic)
WSInit("/TempleOS/*;~*Bible.TXT*");
WSInit("/*;~*Bible.TXT*");
Silent(OFF);
"WordStat Time:%7.3fs\n",tS;
if (ts_has_win_drv)
Accts/TS/DbgAdam2.CPP
+51
View File
@@ -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"
TempleOS/Accts/TS/DoItOnce.CPP → Accts/TS/DoOnce.CPP
+2 -2
View File
@@ -1,6 +1,6 @@
//This file is executed by the
//first terminal window upon start-up.
//See $LK,"DoItOnce","FF:HOME/Adam3fSys.CPP,DoItOnce"$ and $LK,"Acct Files","FF:::/TempleOS/Doc/GuideLines.TXT,ACCT FILES"$.
//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.
@@ -8,5 +8,5 @@
//Delete this to get rid of
//default start-up msg.
//Type("::/TempleOS/Doc/Customize.TXT");
//Type("::/Doc/Customize.TXT");
Accts/TS/PersonalMenu.TXT
BIN
View File
Binary file not shown.
Accts/TS/Registry.CPP
+6
View File
@@ -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$
TempleOS/Accts/TS/TAD/Adam3aLocalize.CPP → Accts/TS/TAD/Adam3aLocalize.CPP
+3 -6
View File
@@ -1,13 +1,10 @@
//Change anything you want in this
//acct file or others.
OptOn(OPTf_WARN_PAREN);
OptOn(OPTf_WARN_DUP_TYPES);
//This makes your keyboard fast
SetTypeMatic(0);
//Set Time Zone
local_time_offset=-7*60*60*CDATE_FREQ; //Pacific
//$AN,"","mouse_move_scale"$adjust these to set mouse move scale
//$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
Accts/TS/TAD/Archive/Bookmarks.html
+199
View File
@@ -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
+115
View File
@@ -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
InU8(base+UART_LSR);
OutU8(base+UART_MCR,4);
OutU8(base+UART_IER,0); //DIsable all IRQ
OutU8(base+UART_MCR,0xA); //out2 and rts
OutU8(0x21,InU8(0x21) & (0xFF-0x18)); //Enable 8259 IRQ 3 & 4
OutU8(base+UART_IER,1); //Enable RX IRQ
POPFD
}
public U0 CommBusyPutChar(I64 port,U8 b)
{
I64 base=comm_base[port];
while (!(InU8(base+UART_LSR) & 0x20))
Yield;
OutU8(base+UART_THR,b);
while (!(InU8(base+UART_LSR) & 0x20))
Yield;
}
public U0 CommBusyPutS(I64 port,U8 *st)
{
I64 base=comm_base[port];
U8 b;
while (b=*(st++)) {
while (!(InU8(base+UART_LSR) & 0x20))
Yield;
OutU8(base+UART_THR,b);
}
while (!(InU8(base+UART_LSR) & 0x20))
Yield;
}
public U0 CommBusyWriteBlk(I64 port,U8 *buf,I64 count)
{
I64 base=comm_base[port];
while (count--) {
while (!(InU8(base+UART_LSR) & 0x20))
Yield;
OutU8(base+UART_THR,*(buf++));
}
while (!(InU8(base+UART_LSR) & 0x20))
Yield;
}
#help_index ""
TempleOS/Accts/TS/TAD/MusicOrgan/abiding.CPP → Accts/TS/TAD/MusicOrgan/abiding.CPP
+11 -11
View File
@@ -18,7 +18,7 @@ U0 DrawIt(CTask *,CDC *dc)
GrCircle(dc,X,Y,10);
dc->color=YELLOW;
for (i=0;i<NUM_BEAMS;i++) {
r=125.0*((0.25*tMBeat+beams_r[i])%1.0);
r=125.0*((0.25*Beat+beams_r[i])%1.0);
P2R(&x1,&y1,r ,beams_é[i]);
P2R(&x2,&y2,r+10.0,beams_é[i]);
GrLine(dc,x1+X,y1+Y,x2+X,y2+Y);
@@ -29,7 +29,7 @@ U0 Song()
{
CTask *task;
I64 i;
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
Fs->text_attr=LTCYAN<<4+BLACK;
Fs->draw_it=&DrawIt;
Fs->task_end_cb=&SndTaskEndCB;
@@ -42,20 +42,20 @@ U0 Song()
}
try {
task=PopUpViewStr(
"$LK,"Numbers,6:25","BF:Numbers,6:25"$\n"
"$LK,"Psalms,31:16","BF:Psalms,31:16"$\n"
"$LK,"Psalms,67:1","BF:Psalms,67:1"$\n"
"$LK,"Psalms,80:3","BF:Psalms,80:3"$\n"
"$LK,"Psalms,80:19","BF:Psalms,80:19"$\n"
"$LK,"Psalms,119:135","BF:Psalms,119:135"$\n"
"$LK,"Daniel,9:17","BF:Daniel,9:17"$\n"
"$LK,"Numbers,6:25",A="BF:Numbers,6:25"$\n"
"$LK,"Psalms,31:16",A="BF:Psalms,31:16"$\n"
"$LK,"Psalms,67:1",A="BF:Psalms,67:1"$\n"
"$LK,"Psalms,80:3",A="BF:Psalms,80:3"$\n"
"$LK,"Psalms,80:19",A="BF:Psalms,80:19"$\n"
"$LK,"Psalms,119:135",A="BF:Psalms,119:135"$\n"
"$LK,"Daniel,9:17",A="BF:Daniel,9:17"$\n"
);
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
"$$BG+H,LTCYAN$$$$FD+H,BLACK$$";
while (!ScanKey) {
"$$FG,WHITE$$To God...\n$$FG$$";
"$$WHITE$$To God...\n$$FG$$";
Play("3etCFEsDDDDD2G3D2G3qC2eG3EqEetAAF2qG",
"I \0am \0a\0biding \0 \0 \0 \0in \0 \0Your \0 \0presence.\n\0 \0 \0 \0 \0 \0 \0 \0");
Play("3etCFEsDDDDD2G3D2G3qC2eG3EqEetAAF2qG",
@@ -66,7 +66,7 @@ U0 Song()
"I'm \0so \0coy!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
}
} catch
CatchAll;
PutExcept;
SettingsPop;
}
Accts/TS/TAD/MusicOrgan/abyss.CPP
+41
View File
@@ -0,0 +1,41 @@
//7 has words
U0 Song()
{
CTask *task;
Fs->task_end_cb=&SndTaskEndCB;
MusicSettingsRst;
music_tempo= 2.480;
music_stacatto_factor= 0.736;
try {
task=PopUpViewStr(
"There are myths about the River\n"
"Styx separating the land of the\n"
"living from dead. Jesus' told a story\n"
"about the land of living separate from\n"
"land of dead. ($LK,"Luke,16:22",A="BF:Luke,16:22"$) In the Old\n"
"Testament, the River Jordan was a special\n"
"barrier. ($LK,"Deuteronomy,4:22",A="BF:Deuteronomy,4:22"$)\n"
);
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
while (!ScanKey) {
Play("3sBBBBqCq.BeAqBh.A",
"Can't \0 \0 \0 \0get \0there, \0from \0he\0re.\n\0");
Play("M2/4");
Play("eECqAM4/4");
Play("sBBBBqCq.BeAqBh.A",
"Can't \0 \0 \0 \0get \0there, \0from \0he\0re.\n\0");
Play("M2/4");
Play("eDDqDM4/4");
Play("DeEDqGCeF2G3qGsFGFGeDC",
"Oh, \0my \0 \0God, \0some\0thing's... \0 \0 \0ver\0 \0y \0 \0wrong!\n\0 \0");
Play("qDeEDqGCeF2G3qGsFGFGeDC",
"Oh, \0my \0 \0God, \0some\0thing's... \0 \0 \0ver\0 \0y \0 \0wrong!\n\0 \0");
}
} catch
PutExcept;
Snd(0);
}
Song;
TempleOS/Accts/TS/TAD/MusicOrgan/alone.CPP → Accts/TS/TAD/MusicOrgan/advantage.CPP
+5 -5
View File
@@ -7,13 +7,13 @@ U0 Song()
music_stacatto_factor= 0.902;
try {
while (!ScanKey) {
Play("2q.GeGqG3sBBCB2q.GeGqG3sBBCB");
Play("q.C2eG3CsDC2eGG3qC2G3eCsDC2eGG");
Play("3sEAEAeCsCReRsDAe.GsBFFFFeEsAGeCsGDeDG");
Play("sEAEAeCsCReRsDAe.GsBFFFFeEsAGeCsGDeDG");
Play("3eCsAAeCsAAeDABRCqEsBBeEDFE");
Play("CAqCsDDAAeBRCDsCCBBeEAFsEE");
Play("G2G3G2G3qGeBBBFsD2G3eDsB2G3B2G3eBAsGF2eG");
Play("3sG2G3G2G3qGeBBBFsD2G3eDsB2G3B2G3eBAsGF2eG");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
TempleOS/Apps/MusicOrgan/Examples/almighty.CPP → Accts/TS/TAD/MusicOrgan/almighty.CPP
+1 -1
View File
@@ -15,7 +15,7 @@ U0 Song()
"Oh \0bo\0y, \0 \0was \0 \0that \0rough.\n\0 \0");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
Accts/TS/TAD/MusicOrgan/alone.CPP
+24
View File
@@ -0,0 +1,24 @@
//7 has words
U0 Song()
{
Fs->task_end_cb=&SndTaskEndCB;
MusicSettingsRst;
music_tempo= 2.480;
music_stacatto_factor= 0.902;
try {
while (!ScanKey) {
Play("2q.GeGqG3sBBCB2q.GeGqG3sBBCB",
"I'm \0a\0lone.\n\0$$RED$$No, \0you're \0 \0not.\n$$FG$$\0I'm \0a\0lone.\n\0$$RED$$No, \0you're \0 \0not.\n\0");
Play("q.C2eG3CsDC2eGG3qC2G3eCsDC2eGG",
"You \0are \0not \0a\0lone.\n\0 \0 \0Def\0inately, \0not \0a\0lone.\n\0 \0 \0");
Play("3sEAEAeCsCReRsDAe.GsBFFFFeEsAGeCsGDeDG",
"If \0 \0you \0 \0on\0ly \0 \0 \0 \0 \0knew.\n\0 \0His \0 \0 \0 \0Spir\0it \0 \0 \0is \0 \0with \0you.\n\0");
Play("sEAEAeCsCReRsDAe.GsBFFFFeEsAGeCsGDeDG",
"If \0 \0you \0 \0on\0ly \0 \0 \0 \0 \0knew.\n\0 \0His \0 \0 \0 \0Spir\0it \0 \0 \0is \0 \0with \0you.\n$$FG$$\0");
}
} catch
PutExcept;
Snd(0);
}
Song;
TempleOS/Accts/TS/TAD/MusicOrgan/appreciate.CPP → Accts/TS/TAD/MusicOrgan/appreciate.CPP
+1 -1
View File
@@ -15,7 +15,7 @@ U0 Song()
" \0 \0 \0 \0 \0 \0 \0I \0won't \0tell.\n\0 \0 \0 \0 \0 \0 \0");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
TempleOS/Apps/MusicOrgan/Examples/awake.CPP → Accts/TS/TAD/MusicOrgan/awake.CPP
+5 -7
View File
@@ -7,7 +7,7 @@ U0 DrawIt(CTask *,CDC *dc)
{
static F64 é=0;
I64 x1=200,y1=20,x2=x1,y2=y1+R2;
F64 tt=tMBeat%16.0,č;
F64 tt=Beat%16.0,č;
é+=1/(tt*tt+1);
dc->color=BLACK;
dc->pen_width=4;
@@ -42,21 +42,19 @@ U0 DrawIt(CTask *,CDC *dc)
U0 Song()
{
CTask *task;
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
Fs->draw_it=&DrawIt;
Fs->task_end_cb=&SndTaskEndCB;
MusicSettingsRst;
music_tempo= 2.480;
music_stacatto_factor= 0.902;
try {
task=PopUpViewStr(
"$LK,"Mark,14:37","BF:Mark,14:37"$\n"
);
task=PopUpViewStr("$LK,"Mark,14:37",A="BF:Mark,14:37"$\n");
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
while (!ScanKey) {
"$$FG,GREEN$$Jesus talking...$$FG$$\n";
"$$GREEN$$Jesus talking...$$FG$$\n";
Play("3eBCqB2sG3D2G3DetCGFsCBCBetCGBeBGsBCBC",
"Stay \0a\0wake.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
Play("eBCqB2sG3D2G3DetCGFsCBCBetCGBeBGsBCBC",
@@ -67,7 +65,7 @@ U0 Song()
" \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0am \0a \0dead \0 \0man.\n\0");
}
} catch
CatchAll;
PutExcept;
SettingsPop;
}
TempleOS/Accts/TS/TAD/MusicOrgan/battlehymnsolo.CPP → Accts/TS/TAD/MusicOrgan/battlehymnsolo.CPP
+4 -4
View File
@@ -2,7 +2,7 @@
U0 Song()
{
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
Fs->text_attr=BLACK<<4+WHITE;
Fs->task_end_cb=&SndTaskEndCB;
MusicSettingsRst;
@@ -11,10 +11,10 @@ U0 Song()
try {
while (!ScanKey) {
DocClear;
"$$BG,BLACK$$$$FG,WHITE$$\n\n\n\n\nWait for the end...";
"$$BG,BLACK$$$$WHITE$$\n\n\n\n\nWait for the end...";
NewLine(5);
Spaces(17);
PutSprite($IB+BP,"<1>",1,"::/TempleOS/Demo/Graphics/SpritePut.CPP.Z,1"$);
Sprite($IB,"<1>",BI=1,BP="::/Demo/Graphics/SpritePut.CPP.Z,1"$);
Play("3e.GsGe.GsFe.EsG4e.CsDe.EsEe.EsDqCe.CsB");
NewLine;
Play("e.AsAe.AsBe.CsBe.CsA3e.G4sA3e.GsEqGe.GsG");
@@ -43,7 +43,7 @@ U0 Song()
NewLine;
}
} catch
CatchAll;
PutExcept;
DocClear;
SettingsPop;
}
TempleOS/Apps/MusicOrgan/Examples/bedewed.CPP → Accts/TS/TAD/MusicOrgan/bedewed.CPP
BIN
View File
Binary file not shown.
Accts/TS/TAD/MusicOrgan/blinded.CPP
+45
View File
@@ -0,0 +1,45 @@
//7 has words
F64 t0=Beat;
U0 DrawIt(CTask *task,CDC *dc)
{
static I64 i=0;
F64 dt=Beat-t0;
if (dt>16.0 && i++&1) {
dc->color=WHITE;
GrRect(dc,0,0,task->pix_width,task->pix_height);
}
}
U0 Song()
{
CTask *task;
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
Fs->task_end_cb=&SndTaskEndCB;
music_tempo=2.5;
DocCursor;
DocClear;
Fs->draw_it=&DrawIt;
try {
task=PopUpViewStr("$LK,"BF:Acts,9:3"$\n");
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
while (!ScanKey) {
t0=Beat;
Play("3qEeACA2G3qCEC2G3E",
"Now... \0 \0 \0 \0 \0I \0see \0the \0light.\n\0 \0");
Play("EeACA2G3qCEC2G3E",
"Now... \0 \0 \0 \0 \0I \0see \0the \0light.\n\0 \0");
Play("GCGBEeDFCAqD",
"It's \0 \0quite \0 \0bright.\n\0 \0 \0 \0 \0 \0");
Play("GCGBEeDFCAqD",
"It's \0 \0quite \0 \0bright.\n\0 \0 \0 \0 \0 \0");
}
} catch
PutExcept;
SettingsPop;
}
Song;
TempleOS/Apps/MusicOrgan/Examples/born.CPP → Accts/TS/TAD/MusicOrgan/born.CPP
+9 -9
View File
@@ -1,33 +1,33 @@
//9 has graphics
F64 t0;
F64 t0=Beat;
#define HORIZON_Y 50
#define LEFT_EDGE 200
U0 DrawIt(CTask *task,CDC *dc)
{
I64 i;
F64 dt=tMBeat-t0,d=Limit(0.1*dt,0,2),d2;
F64 dt=Beat-t0,d=Clamp(0.1*dt,0,2),d2;
dc->color=ROPF_PROBABILITY_DITHER+LTCYAN<<16+CYAN;
for (i=HORIZON_Y;i>=0;i--) {
d2=ToF64(HORIZON_Y-i)/HORIZON_Y;
dc->dither_probability=1<<16*Limit((4.0-d2)/4.0*d*d-0.15,0,1.0);
GrLine(dc,LEFT_EDGE,i,task->win_pixel_width-1,i);
dc->dither_probability_u16=1<<16*Clamp((4.0-d2)/4.0*d*d-0.15,0,1.0);
GrLine(dc,LEFT_EDGE,i,task->pix_width-1,i);
}
d=(task->win_pixel_width-LEFT_EDGE)/2+LEFT_EDGE;
d=(task->pix_width-LEFT_EDGE)/2+LEFT_EDGE;
dc->color=YELLOW;
GrCircle(dc,d,HORIZON_Y+50-dt,40);
GrFloodFill(dc,d,HORIZON_Y+15-dt,TRUE);
dc->color=GREEN;
GrRect(dc,200,HORIZON_Y,task->win_pixel_width-200,task->win_pixel_height-HORIZON_Y);
GrRect(dc,200,HORIZON_Y,task->pix_width-200,task->pix_height-HORIZON_Y);
}
U0 Song()
{
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
Fs->draw_it=&DrawIt;
Fs->task_end_cb=&SndTaskEndCB;
@@ -36,7 +36,7 @@ U0 Song()
music_stacatto_factor= 0.900;
try {
while (!ScanKey) {
t0=tMBeat;
t0=Beat;
Play("3qBeB2G3qAeFAsFAFAqC2sG3A2G3ARBRB",
"New \0day \0is \0born.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
Play("qBeB2G3qAeFAsFAFAqC2sG3A2G3ARBRB",
@@ -47,7 +47,7 @@ U0 Song()
"hitch-\0up \0 \0the \0cart.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
}
} catch
CatchAll;
PutExcept;
SettingsPop;
}
TempleOS/Accts/TS/TAD/MusicOrgan/childish.CPP → Accts/TS/TAD/MusicOrgan/childish.CPP
+1 -1
View File
@@ -15,7 +15,7 @@ U0 Song()
Play("eBDqF2sG3A2G3AqAAAetDAAsDBDB");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
TempleOS/Accts/TS/TAD/MusicOrgan/compassions.CPP → Accts/TS/TAD/MusicOrgan/compassions.CPP
+2 -2
View File
@@ -8,7 +8,7 @@ U0 Song()
try {
while (!ScanKey) {
Play("3qBAeEEqAeAEDB2qG3F",
"$$FG,RED$$You \0need \0help!\n\0 \0 \0 \0Po\0-o\0-o\0r \0dear.\n\0");
"$$RED$$You \0need \0help!\n\0 \0 \0 \0Po\0-o\0-o\0r \0dear.\n\0");
Play("BAeEEqAeAEDB2qG3F",
"You \0need \0help!\n\0 \0 \0 \0Po\0-o\0-o\0r \0dear.\n$$FG$$\0");
Play("4eFGqDetFEDeDEetADEC3G4GqD3G",
@@ -17,7 +17,7 @@ U0 Song()
"Pat\0ron\0ize? \0No, \0 \0thank \0you!\n\0 \0Too \0 \0man\0y \0strings \0a\0ttach\0ed.\n\0");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
TempleOS/Apps/MusicOrgan/Examples/completed.CPP → Accts/TS/TAD/MusicOrgan/completed.CPP
BIN
View File
Binary file not shown.
TempleOS/Apps/MusicOrgan/Examples/cosam.CPP → Accts/TS/TAD/MusicOrgan/cosam.CPP
+3 -3
View File
@@ -16,14 +16,14 @@ U0 Song()
Play("ABeCCqABAAR",
"What \0makes \0You \0 \0 \0think \0You're \0God?\n\0 \0");
Play("GDGeGA2G3FqFeDRqB",
"$$FG,RED$$Be\0-e-\0cause \0 \0 \0 \0I \0 \0a\0 \0m.\n\0");
"$$RED$$Be\0-e-\0cause \0 \0 \0 \0I \0 \0a\0 \0m.\n\0");
Play("GDGeGA2G3FqFeDRqB",
"Are \0 \0you \0 \0 \0 \0a \0 \0fan?\n$$FG$$\0 \0 \0");
"$$FG,GREEN$$(If God talks, how can you be sure it's not Him?\n"
"$$GREEN$$(If God talks, how can you be sure it's not Him?\n"
"You can't, so harden not your heart.)\n$$FG$$";
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
Accts/TS/TAD/MusicOrgan/depending.CPP
+27
View File
@@ -0,0 +1,27 @@
//7 has words
U0 Song()
{
CTask *task;
Fs->task_end_cb=&SndTaskEndCB;
music_tempo=2.5;
try {
task=PopUpViewStr("$LK,"BF:Luke,12:16"$\n");
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
while (!ScanKey) {
Play("3etGREqDDBRGCB",
"It \0 \0de\0pends \0 \0on \0 \0the \0wea\0ther.\n\0");
Play("etGREqDDBRGCB",
"If \0 \0we \0reach \0 \0the \0 \0end \0ev\0er.\n\0");
Play("2sG3E2G3EqGsGBGBqDsFCFCqBRsCBCB",
"Hand \0 \0of \0 \0God, \0 \0just \0 \0might, \0 \0in\0 \0ter\0 \0cedes.\n\0 \0 \0 \0 \0 \0");
Play("2G3E2G3EqGsGBGBqDsFCFCqBRsCBCB",
"If \0 \0it's \0 \0not \0 \0deemed \0 \0right, \0 \0won't \0 \0suc\0 \0ceed.\n\0 \0 \0 \0 \0 \0");
}
} catch
PutExcept;
Snd(0);
}
Song;
TempleOS/Apps/MusicOrgan/Examples/despairing.CPP → Accts/TS/TAD/MusicOrgan/despairing.CPP
+1 -1
View File
@@ -17,7 +17,7 @@ U0 Song()
"Hold \0 \0on!\n\0 \0It's \0gon\0na \0be \0fine.\n\0 \0");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
TempleOS/Accts/TS/TAD/MusicOrgan/determination.CPP → Accts/TS/TAD/MusicOrgan/determination.CPP
+1 -1
View File
@@ -13,7 +13,7 @@ U0 Song()
Play("ACeCCsBBBBqEsCCCCqAE");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
Accts/TS/TAD/MusicOrgan/dialogue.CPP
BIN
View File
Binary file not shown.
TempleOS/Apps/MusicOrgan/Examples/disputing.CPP → Accts/TS/TAD/MusicOrgan/disputing.CPP
+2 -2
View File
@@ -14,12 +14,12 @@ U0 Song()
" \0 \0 \0 \0I \0hate \0you.\n\0 \0");
Play("M6/8");
Play("etABGqCsGEGEetGBDqCsCDCD",
"$$FG,RED$$Don't \0 \0 \0smile.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
"$$RED$$Don't \0 \0 \0smile.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
Play("etABGqCsGEGEetGBDqCsCDCD",
"Don't \0 \0 \0smile.$$FG$$\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
TempleOS/Apps/MusicOrgan/Examples/doing.CPP → Accts/TS/TAD/MusicOrgan/doing.CPP
BIN
View File
Binary file not shown.
TempleOS/Accts/TS/TAD/MusicOrgan/downfall.CPP → Accts/TS/TAD/MusicOrgan/downfall.CPP
View File
File renamed without changes.
TempleOS/Accts/TS/TAD/MusicOrgan/dream.CPP → Accts/TS/TAD/MusicOrgan/dream.CPP
+1 -1
View File
@@ -17,7 +17,7 @@ U0 Song()
"Deep \0 \0 \0as \0 \0 \0we \0 \0ought \0to \0know.\n\0 \0 \0 \0 \0 \0 \0 \0");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
TempleOS/Apps/MusicOrgan/Examples/efforts.CPP → Accts/TS/TAD/MusicOrgan/efforts.CPP
+1 -1
View File
@@ -13,7 +13,7 @@ U0 Song()
Play("3sA2G3A2G3eBCsE2G3E2G3qGsFEFEDBDBeAG2etG3B2G");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
Accts/TS/TAD/MusicOrgan/elijah.CPP
BIN
View File
Binary file not shown.
TempleOS/Apps/MusicOrgan/Examples/environeth.CPP → Accts/TS/TAD/MusicOrgan/environeth.CPP
+2 -2
View File
@@ -7,7 +7,7 @@ U0 Song()
music_stacatto_factor= 0.902;
try {
while (!ScanKey) {
"$$FG,GREEN$$To God...$$FG$$\n";
"$$GREEN$$To God...$$FG$$\n";
Play("M5/4");
Play("3eEqCeEFEDCqBeEqCeEFEDCqB",
"Fa\0ther, \0for\0give \0them \0if \0you \0must.\n\0I'd \0like \0to \0see \0them \0turn \0to \0dust.\n\0");
@@ -15,7 +15,7 @@ U0 Song()
Play("sGBGBetAF2G3eEFsEGEGqDsBDBDGFGF2etG3GB");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
Accts/TS/TAD/MusicOrgan/epicurus.CPP
+40
View File
@@ -0,0 +1,40 @@
//7 has words
U0 Song()
{
CTask *task;
Fs->task_end_cb=&SndTaskEndCB;
MusicSettingsRst;
music_tempo= 2.500;
music_stacatto_factor= 0.900;
try {
task=PopUpViewStr(
"$$WW+H,1$$You get what you pray for. "
"Most people are fools like King Midas. People have laughable notions of Heaven. "
"You'd be surprised -- I can't imagine things being much better than Earth "
"because we need a sense of purpose. "
"Don't ask for stuff, let God pick, but He might get annoyed at that. "
"God wants us to be happy. He tries hard. If you do get what you pray for, you damn "
"well better be happy, lil' sonfabitch!\n\n"
"$LK,"Ecclesiastes,3:13",A="BF:Ecclesiastes,3:13"$\n"
"$LK,"John,16:24",A="BF:John,16:24"$\n"
);
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
DocRecalc(DocPut(task)); //Reformat word-wrap with new window size.
while (!ScanKey) {
Play("3qBeCDqCAetAACeECsF2G3F2GqG",
"I'm \0on \0a \0mis\0sion \0from \0 \0 \0my \0 \0God.\n\0 \0 \0 \0 \0");
Play("3BeCDqCAetAACeECsF2G3F2GqG",
"I'm \0on \0a \0mis\0sion \0from \0 \0 \0my \0 \0God.\n\0 \0 \0 \0 \0");
Play("3etEDDDGABG2GeG3E2G3GqF2G3etGCD",
"He \0 \0 \0told \0 \0 \0me \0 \0 \0 \0to \0 \0be \0hap\0py.\n\0 \0 \0 \0");
Play("EDDDGABG2GeG3E2G3GqF2G3etGCD",
"He \0 \0 \0said \0 \0 \0to \0 \0 \0 \0make \0 \0it \0snap\0py.\n\0 \0 \0 \0");
}
} catch
PutExcept;
Snd(0);
}
Song;
TempleOS/Accts/TS/TAD/MusicOrgan/exalt.CPP → Accts/TS/TAD/MusicOrgan/exalt.CPP
+4 -4
View File
@@ -3,7 +3,7 @@
U0 DrawIt(CTask *task,CDC *dc)
{
I64 i,cx=0.85*task->win_pixel_width,cy=task->win_pixel_height+10;
I64 i,cx=0.85*task->pix_width,cy=task->pix_height+10;
dc->pen_width=5;
for (i=2;i<=7;i++) {
dc->color=gr_rainbow_10[9-i];
@@ -13,7 +13,7 @@ U0 DrawIt(CTask *task,CDC *dc)
U0 Song()
{
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
Fs->text_attr=LTCYAN<<4+BLACK;
Fs->draw_it=&DrawIt;
Fs->task_end_cb=&SndTaskEndCB;
@@ -22,7 +22,7 @@ U0 Song()
try {
while (!ScanKey) {
DocClear;
"$$BG,LTCYAN$$$$FG,BLACK$$";
"$$BG,LTCYAN$$$$BLACK$$";
Play("3eEDsBABA2qG3etGECFDBECFCBReBE",
"Come \0and \0sing \0 \0a\0 \0long. \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0\n\0 \0 \0 \0");
Play("EDsBABA2qG3etGECFDBECFCBReBE",
@@ -33,7 +33,7 @@ U0 Song()
"Break \0in\0to \0song. \0 \0 \0Strike-\0up \0 \0 \0the \0chor\0us.\n\0 \0");
}
} catch
CatchAll;
PutExcept;
SettingsPop;
}
TempleOS/Accts/TS/TAD/MusicOrgan/exiled.CPP → Accts/TS/TAD/MusicOrgan/exiled.CPP
+4 -4
View File
@@ -3,7 +3,7 @@
U0 DrawIt(CTask *,CDC *dc)
{
I64 i;
F64 dt=tMBeat%8.0,z,w,x1,y1,z1,x2,y2,z2;
F64 dt=Beat%8.0,z,w,x1,y1,z1,x2,y2,z2;
Bool first=TRUE;
DCAllocDepthBuf(dc);
dc->flags|=DCF_TRANSFORMATION;
@@ -13,7 +13,7 @@ U0 DrawIt(CTask *,CDC *dc)
GrRotXEqu(dc->r,0.75*dt);
GrRotYEqu(dc->r,0.45*dt);
GrRotZEqu(dc->r,0.50*dt);
GrScaleMatEqu(dc->r,0.5);
GrScaleEqu(dc->r,0.5);
for (i=-50;i<40;i+=2) {
if (i&2)
dc->color=LTGRAY;
@@ -37,7 +37,7 @@ U0 DrawIt(CTask *,CDC *dc)
U0 Song()
{
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
Fs->text_attr=LTCYAN<<4+BLACK;
Fs->draw_it=&DrawIt;
Fs->task_end_cb=&SndTaskEndCB;
@@ -56,7 +56,7 @@ U0 Song()
Play("ACFeBCB2GqG3ED");
}
} catch
CatchAll;
PutExcept;
SettingsPop;
}
TempleOS/Apps/MusicOrgan/Examples/exodus.CPP → Accts/TS/TAD/MusicOrgan/exodus.CPP
+1 -1
View File
@@ -13,7 +13,7 @@ U0 Song()
Play("GE2qG3sCDCDe.EsGqCsDCDCe.AsReGE");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
Accts/TS/TAD/MusicOrgan/expedition.CPP
BIN
View File
Binary file not shown.
Accts/TS/TAD/MusicOrgan/fairness.CPP
+34
View File
@@ -0,0 +1,34 @@
//7 has words
U0 Song()
{
CTask *task;
Fs->task_end_cb=&SndTaskEndCB;
music_tempo=2.5;
try {
task=PopUpViewStr(
"$LK,"BF:Luke,7:42"$\n"
"\n"
"Prodigal Son\n"
"$LK,"BF:Luke,15:21"$\n"
);
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
"$$WW+H,1$$";
while (!ScanKey) {
Play("3qGGsEAEAqAsF2G3F2G3qCeEFqD",
"Life, \0life, \0isn't \0 \0 \0 \0fair. \0Isn't \0 \0 \0 \0fair.\n\0 \0 \0 \0");
Play("GGsEAEAqAsF2G3F2G3qCeEFqD",
"Waaa, \0waaa, \0isn't \0 \0 \0 \0fair. \0Isn't \0 \0 \0 \0fair.\n\0 \0 \0 \0");
Play("eFCqEBDBE2eG3EsFEFE",
" \0 \0I \0 \0ne\0ver \0sin.\n\0 \0 \0 \0 \0 \0 \0");
Play("eFCqEBDBE2eG3EsFEFE",
" \0 \0I \0 \0ne\0ver \0win.\n\0 \0 \0 \0 \0 \0 \0");
"$$GREEN$$(A warning on presumption. 'Who loves more man -- forgiven big debt or little?' See prodigal son.)$$FG$$\n";
}
} catch
PutExcept;
Snd(0);
}
Song;
TempleOS/Apps/MusicOrgan/Examples/feigned.CPP → Accts/TS/TAD/MusicOrgan/feigned.CPP
+3 -3
View File
@@ -11,14 +11,14 @@ U0 Song()
"$$CL$$Sit\0ting \0in \0a \0church\n\0 \0wond\0ering \0to \0my\0self,\n\0 \0");
Play("eD2G3BCqDsGGGGeD2G3BCqDsGGGG",
"\"Is \0 \0God \0 \0real?\"\n\0 \0 \0 \0 \0\"At \0 \0the \0 \0wheel?\"\n\0 \0 \0 \0 \0");
"$$FG,GREEN$$God talking...\n$$FG$$";
"$$GREEN$$God talking...\n$$FG$$";
Play("qFFFetREAqGsGFGFGEGEqC",
"$$FG,RED$$Oh, \0Hell \0yes!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
"$$RED$$Oh, \0Hell \0yes!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
Play("FFFetREAqGsGFGFGEGEqC",
"Pass \0the \0test.$$FG$$\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
Accts/TS/TAD/MusicOrgan/finger.CPP
BIN
View File
Binary file not shown.
Accts/TS/TAD/MusicOrgan/first.CPP
BIN
View File
Binary file not shown.
TempleOS/Apps/MusicOrgan/Examples/fishermen.CPP → Accts/TS/TAD/MusicOrgan/fishermen.CPP
BIN
View File
Binary file not shown.
TempleOS/Apps/MusicOrgan/Examples/fixing.CPP → Accts/TS/TAD/MusicOrgan/fixing.CPP
+1 -1
View File
@@ -13,7 +13,7 @@ U0 Song()
Play("sGBGB2etG3EGqFED2G3eBADG");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
Accts/TS/TAD/MusicOrgan/flung.CPP
+22
View File
@@ -0,0 +1,22 @@
//7 has words
U0 Song()
{
Fs->task_end_cb=&SndTaskEndCB;
MusicSettingsRst;
music_tempo= 2.480;
music_stacatto_factor= 0.714;
try {
while (!ScanKey) {
Play("3sBBBBEBDBeEBqDeBBEDEBqD",
" \0 \0 \0 \0Had \0 \0a \0 \0pass\0ing \0thought.\n\0 \0 \0Not \0a \0thought \0I \0ought.\n\0");
Play("sFEFEeFEDBqDeEFEBABqD",
"Can't \0 \0 \0 \0clear \0my \0head \0of \0thought.\n\0In \0this \0trap \0my \0mind \0is \0caught.\n\0");
Play("eDGqEeBAABqFeBDqEA");
Play("eDGqEeBAABqFeBDqEA");
}
} catch
PutExcept;
Snd(0);
}
Song;
TempleOS/Apps/MusicOrgan/Examples/fog.CPP → Accts/TS/TAD/MusicOrgan/fog.CPP
BIN
View File
Binary file not shown.
TempleOS/Apps/MusicOrgan/Examples/forasmuch.CPP → Accts/TS/TAD/MusicOrgan/forasmuch.CPP
BIN
View File
Binary file not shown.
TempleOS/Apps/MusicOrgan/Examples/freaks.CPP → Accts/TS/TAD/MusicOrgan/freaks.CPP
+1 -1
View File
@@ -17,7 +17,7 @@ U0 Song()
"care,\n\0for \0God \0 \0is \0their \0 \0joy!\n\0 \0 \0 \0");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
Accts/TS/TAD/MusicOrgan/free.CPP
+167
View File
@@ -0,0 +1,167 @@
//8 has graphics
class CBubble
{
CBubble *next,*last;
F64 x,y,dx,dy,radius,t0;
} root;
F64 t0,x,y;
U64 flags;
F64 Windé()
{
F64 t=ã*(Beat-t0);
return Arg(Sin(t/8),1.0+Sin(t/4));
}
U0 DrawIt(CTask *,CDC *dc)
{
CBubble *tempb;
F64 é;
I64 r,x1,y1,z1,x2,y2,z2;
if (LBts(&flags,0))
return;
dc->flags|=DCF_TRANSFORMATION;
GrRotXEqu(dc->r,ã/4);
é=Wrap(ã-Windé);
GrRotZEqu(dc->r,-ã/2+é/10);
dc->color=BLUE;
dc->x=x;
dc->y=y;
dc->pen_width=2;
GrCircle3(dc,0,0,0,10);
GrLine3(dc,-10,0,0,-30,0,0);
tempb=root.last;
if (tempb!=&root) {
dc->color=LTBLUE;
r=tempb->radius*Min(1.0,0.25+2*(Beat-tempb->t0));
for (é=0;é<2*ã;é+=ã/2) {
x1=10*Cos(é);y1=10*Sin(é);z1=0;
GrTransform(dc,&x1,&y1,&z1);
x2=r*Cos(é);y2=r*Sin(é);z2=0;
GrTransform(dc,&x2,&y2,&z2);
GrLine(dc,x1,y1,tempb->x-x+x2,tempb->y-y+y2);
}
GrCircle(dc,tempb->x,tempb->y,r);
tempb=tempb->last;
}
while (tempb!=&root) {
dc->color=LTBLUE;
GrCircle(dc,tempb->x,tempb->y,tempb->radius);
dc->color=LTGRAY;
GrCircle(dc,tempb->x+0.65*tempb->radius*Cos(5*ã/8),
tempb->y-0.65*tempb->radius*Sin(5*ã/8),1.0+0.2*tempb->radius);
tempb=tempb->last;
}
LBtr(&flags,0);
}
U0 AnimateTask(I64)
{ //Preemption is off after Spawn
CTask *task=Fs->parent_task;
CBubble *tempb,*tempb1;
F64 t_last=Beat,dt,tSpawn=0,é;
while (TRUE) {
dt=Beat-t_last;
t_last=Beat;
x+=2*Sin(Beat/3)*dt;
y+=2*Sin(Beat/2)*dt;
while (LBts(&flags,0))
Yield;
tSpawn+=dt;
while (tSpawn>1.0) {
tempb=MAlloc(sizeof(CBubble));
tempb->x=x;
tempb->y=y;
tempb->dx=0;
tempb->dy=0;
tempb->radius=Rand*6+4;
tempb->t0=Beat;
QueIns(tempb,root.last);
tSpawn-=Rand;
}
é=Windé;
tempb=root.next;
while (tempb!=&root) {
tempb1=tempb->next;
tempb->dx+=25*dt*(Rand-0.5);
tempb->dy+=25*dt*(Rand-0.5);
tempb->x += dt*(20*Cos(é)+tempb->dx);
tempb->y +=-dt*(20*Sin(é)+tempb->dy);
if (!(0<=tempb->x<task->pix_width) ||
!(0<=tempb->y<task->pix_height) ) {
QueRem(tempb);
Free(tempb);
}
tempb=tempb1;
}
LBtr(&flags,0);
Sleep(20);
}
}
U0 Init()
{
flags=0;
QueInit(&root);
t0=Beat;
x=360; y=52;
}
U0 CleanUp()
{
QueDel(&root);
}
U0 Song()
{
CTask *task;
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
Preempt(OFF);
Init;
Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs);
Fs->draw_it=&DrawIt;
Fs->task_end_cb=&SndTaskEndCB;
MusicSettingsRst;
music_tempo= 2.480;
music_stacatto_factor= 0.902;
try {
task=PopUpViewStr("$LK,"Romans,8:28",A="BF:Romans,8:28"$\n");
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
while (!ScanKey) {
Play("3qEEBeBDsBBBBqDsBFBFD2G3D2G",
"Free \0will... \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0 \0 \0fail.\n\0 \0 \0 \0");
Play("3qEEBeBDsBBBBqDsBFBFD2G3D2G",
"God \0still... \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0 \0 \0hail.\n\0 \0 \0 \0");
Play("3qD2G3eA2G3qCetECAqBsACACqA",
"All \0things \0work \0for \0good... \0to \0the \0Lord.\n\0 \0 \0 \0 \0 \0 \0");
Play("D2G3eA2G3qCetECAqBsACACqA",
"It's \0all \0good... \0 \0 \0as\0 \0sured.\n\0 \0 \0 \0 \0 \0 \0");
}
} catch
PutExcept;
SettingsPop;
CleanUp;
}
Song;
TempleOS/Apps/MusicOrgan/Examples/furnishing.CPP → Accts/TS/TAD/MusicOrgan/furnishing.CPP
BIN
View File
Binary file not shown.
TempleOS/Apps/MusicOrgan/Examples/good.CPP → Accts/TS/TAD/MusicOrgan/good.CPP
BIN
View File
Binary file not shown.
Accts/TS/TAD/MusicOrgan/gutenberg.CPP
BIN
View File
Binary file not shown.
TempleOS/Accts/TS/TAD/MusicOrgan/happy.CPP → Accts/TS/TAD/MusicOrgan/happy.CPP
BIN
View File
Binary file not shown.
Accts/TS/TAD/MusicOrgan/hearsay.CPP
+24
View File
@@ -0,0 +1,24 @@
//7 has words
U0 Song()
{
Fs->task_end_cb=&SndTaskEndCB;
MusicSettingsRst;
music_tempo= 2.480;
music_stacatto_factor= 0.902;
try {
while (!ScanKey) {
Play("3qAeCDqEAeCDECDECsCC",
"I \0don't \0 \0know.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
Play("qAeCDqEAeCDECDECsCC",
"Let's \0go \0 \0slow.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
Play("eDAGAqDsECECCBCBeAFsDCeGDE",
"You \0 \0say \0 \0that, \0God?\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
Play("DAGAqDsECECCBCBeAFsDCeGDE",
"It \0 \0sounds \0 \0odd.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
}
} catch
PutExcept;
Snd(0);
}
Song;
TempleOS/Apps/MusicOrgan/Examples/honestly.CPP → Accts/TS/TAD/MusicOrgan/honestly.CPP
+1 -1
View File
@@ -13,7 +13,7 @@ U0 Song()
Play("3sBDBDA2G3A2G3etAAEsGCGCetFFEqDFeE2G");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
TempleOS/Accts/TS/TAD/MusicOrgan/hope.CPP → Accts/TS/TAD/MusicOrgan/hope.CPP
BIN
View File
Binary file not shown.
Accts/TS/TAD/MusicOrgan/image.CPP
+32
View File
@@ -0,0 +1,32 @@
//7 has words
U0 Song()
{
CTask *task;
Fs->task_end_cb=&SndTaskEndCB;
music_tempo=2.5;
try {
task=PopUpViewStr(
"Asking God for stuff is like knocking on the door\n"
"of a neighbor in the middle of the night.\n"
"It's annoying! We're supposed to love God!\n"
"$LK,"BF:Luke,11:5"$\n"
);
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
while (!ScanKey) {
Play("3qBBE2GG3FFC",
"We \0are \0in \0the \0image \0of \0God.\n\0 \0");
Play("BBE2GG3FFC",
"Some \0people's \0prayer \0is \0ver\0y \0odd.\n\0 \0");
Play("eGDqCB2G3eGEqEC2G",
"They \0don't \0love \0Him.\n\0 \0They \0love \0their \0neigh\0bor.\n\0");
Play("3eGDqCB2G3eGEqEC2G",
"Pest\0er\0ing \0Him.\n\0 \0Ask\0ing \0for \0fav\0ors.\n\0");
}
} catch
PutExcept;
Snd(0);
}
Song;
Accts/TS/TAD/MusicOrgan/josh.CPP
BIN
View File
Binary file not shown.
Accts/TS/TAD/MusicOrgan/keeping.CPP
BIN
View File
Binary file not shown.
Accts/TS/TAD/MusicOrgan/kept.CPP
+28
View File
@@ -0,0 +1,28 @@
//8 has words
U0 Song()
{
CTask *task;
Fs->task_end_cb=&SndTaskEndCB;
try {
task=PopUpViewStr("$LK,"BF:Matthew,19:16"$\n");
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
"$$WW+H,1$$";
while (!ScanKey) {
Play("3eGAetCCCFFDqAeAAFAAFqG",
"I \0 \0have \0 \0 \0kept \0 \0 \0 \0 \0 \0the \0 \0 \0com\0mands.\n\0");
Play("eGAetCCCFFDqAeAAFAAFqG",
"I \0 \0have \0 \0 \0kept \0 \0 \0 \0 \0 \0the \0 \0 \0com\0mands.\n\0");
Play("EeEGqEeEEqDBetCCGqC",
"What \0 \0 \0else \0 \0 \0must \0I \0do?\n\0 \0 \0 \0");
Play("EeEGqEeEEqDBetCCGqC",
"What \0 \0 \0else \0 \0 \0must \0I \0do?\n\0 \0 \0 \0");
"$$GREEN$$(Christ said sell all and follow me.)\n$$FG$$";
}
} catch
PutExcept;
Snd(0);
}
Song;
Accts/TS/TAD/MusicOrgan/killed.CPP
+29
View File
@@ -0,0 +1,29 @@
//7 has words
U0 Song()
{
Fs->task_end_cb=&SndTaskEndCB;
MusicSettingsRst;
music_tempo= 2.480;
music_stacatto_factor= 0.902;
try {
while (!ScanKey) {
Play("M4/4");
Play("3qBsEGeBDe.AsCeA2qF3sBBeACBBsBB",
"I \0could \0 \0 \0die.\n\0 \0 \0 \0 \0 \0 \0 \0Could \0I \0kill?\n\0 \0 \0");
Play("qBsEGeBDe.AsCeA2qF3sBBeACBBsBB",
"I'm \0not \0 \0 \0spry.\n\0 \0 \0 \0 \0 \0 \0 \0I \0best \0chill.\n\0 \0 \0");
Play("eDDsGFGFeEBqGM5/4",
"If \0 \0God \0 \0 \0 \0 \0 \0ask,\n\0");
Play("eBGF4A3e.FsEqAAM4/4",
" \0\"$$RED$$Can \0 \0 \0you \0 \0Kill?$$FG$$\"\n\0 \0");
Play("eDDsGFGFeEBqGM5/4",
"I \0 \0think, \0 \0 \0 \0 \0 \0\"Yeah.\"\n\0");
Play("eBGF4A3e.FsEqAA",
" \0\"Right \0 \0 \0my \0 \0will.\"\n\0 \0");
}
} catch
PutExcept;
Snd(0);
}
Song;
TempleOS/Apps/MusicOrgan/Examples/limit.CPP → Accts/TS/TAD/MusicOrgan/limit.CPP
BIN
View File
Binary file not shown.
TempleOS/Apps/MusicOrgan/Examples/project.CPP → Accts/TS/TAD/MusicOrgan/lusted.CPP
+5 -5
View File
@@ -7,13 +7,13 @@ U0 Song()
music_stacatto_factor= 0.902;
try {
while (!ScanKey) {
Play("3qGsARARCBCBeACACGCGBAsEA");
Play("qGsARARCBCBeACACGCGBAsEA");
Play("eAsCEqEsDECEqAsDACAeAGFsBDeCB");
Play("AsCEqEsDECEqAsDACAeAGFsBDeCB");
Play("3qCeBGqFD2G3eBsBGe.AsEeAG");
Play("qCeBGqFD2G3eBsBGe.AsEeAG");
Play("CCDqBsCRDBDB2eG3FCFqBsCCDD");
Play("qCeDqBsCRDBDB2eG3FCFqBsCCDD");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
TempleOS/Accts/TS/TAD/MusicOrgan/mary.CPP → Accts/TS/TAD/MusicOrgan/mary.CPP
+1 -1
View File
@@ -13,7 +13,7 @@ U0 Song()
Play("eDAsFDFDqFsFBFB2qG3etBBBqFC");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
TempleOS/Apps/MusicOrgan/Examples/mightest.CPP → Accts/TS/TAD/MusicOrgan/mightest.CPP
+4 -4
View File
@@ -2,8 +2,8 @@
U0 DrawIt(CTask *task,CDC *dc)
{
F64 x1,x2,y1,y2,x3,y3,radius,pedals,é,t=tMBeat,
cx=335,cy=task->win_pixel_height>>1;
F64 x1,x2,y1,y2,x3,y3,radius,pedals,é,t=Beat,
cx=335,cy=task->pix_height>>1;
Bool first=TRUE;
radius=cy*(1.0+Sin(2*ã*t));
@@ -28,7 +28,7 @@ U0 DrawIt(CTask *task,CDC *dc)
U0 Song()
{
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
Fs->draw_it=&DrawIt;
Fs->task_end_cb=&SndTaskEndCB;
@@ -45,7 +45,7 @@ U0 Song()
"Test \0me \0 \0 \0 \0Lord. \0See \0if \0I'm \0wor\0thy.\n\0");
}
} catch
CatchAll;
PutExcept;
SettingsPop;
}
Accts/TS/TAD/MusicOrgan/mildly.CPP
BIN
View File
Binary file not shown.
TempleOS/Accts/TS/TAD/MusicOrgan/nay.CPP → Accts/TS/TAD/MusicOrgan/nay.CPP
+1 -1
View File
@@ -16,7 +16,7 @@ U0 Song()
"What \0do \0YOU \0 \0 \0know. \0 \0 \0 \0 \0 \0It's \0 \0kosh\0er!\n\0");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
Accts/TS/TAD/MusicOrgan/night.CPP
BIN
View File
Binary file not shown.
TempleOS/Accts/TS/TAD/MusicOrgan/o.CPP → Accts/TS/TAD/MusicOrgan/o.CPP
+1 -1
View File
@@ -13,7 +13,7 @@ U0 Song()
Play("3G2G3qEeAsA2G3qAsEAEADEDEqFeA2G");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
TempleOS/Accts/TS/TAD/MusicOrgan/partake.CPP → Accts/TS/TAD/MusicOrgan/partake.CPP
BIN
View File
Binary file not shown.
TempleOS/Accts/TS/TAD/MusicOrgan/permitted.CPP → Accts/TS/TAD/MusicOrgan/permitted.CPP
+1 -1
View File
@@ -13,7 +13,7 @@ U0 Song()
Play("qC2G3sGFGFDCDCetE2G3CGFAqDeFC");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
TempleOS/Accts/TS/TAD/MusicOrgan/personal.CPP → Accts/TS/TAD/MusicOrgan/personal.CPP
+1 -1
View File
@@ -15,7 +15,7 @@ U0 Song()
" \0 \0 \0That's \0 \0O.\0 \0K. \0 \0 \0 \0 \0 \0It's \0 \0works \0 \0 \0for \0me.\n\0");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
TempleOS/Accts/TS/TAD/MusicOrgan/population.CPP → Accts/TS/TAD/MusicOrgan/population.CPP
+1 -1
View File
@@ -13,7 +13,7 @@ U0 Song()
Play("qGsEAEAqBetDCF2qG3DsGDGDetCRC");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
Accts/TS/TAD/MusicOrgan/project.CPP
+24
View File
@@ -0,0 +1,24 @@
//7 has words
U0 Song()
{
Fs->task_end_cb=&SndTaskEndCB;
MusicSettingsRst;
music_tempo= 2.480;
music_stacatto_factor= 0.902;
try {
while (!ScanKey) {
Play("3qGsARARCBCBeACACGCGBAsEA",
"I'm \0mak\0 \0ing \0 \0some\0 \0thing \0 \0 \0 \0 \0 \0for \0 \0God.\n\0 \0 \0 \0 \0");
Play("qGsARARCBCBeACACGCGBAsEA",
"I'm \0mak\0 \0ing \0 \0some\0 \0thing \0 \0 \0 \0 \0 \0for \0 \0God.\n\0 \0 \0 \0 \0");
Play("eAsCEqEsDECEqAsDACAeAGFsBDeCB",
" \0 \0 \0I \0hope \0 \0He \0 \0 \0likes \0 \0it.\n\0 \0 \0 \0 \0 \0 \0 \0 \0");
Play("AsCEqEsDECEqAsDACAeAGFsBDeCB",
" \0 \0 \0I \0hope \0 \0He \0 \0 \0likes \0 \0it.\n\0 \0 \0 \0 \0 \0 \0 \0 \0");
}
} catch
PutExcept;
Snd(0);
}
Song;
TempleOS/Accts/TS/TAD/MusicOrgan/proponent.CPP → Accts/TS/TAD/MusicOrgan/proponent.CPP
View File
File renamed without changes.
TempleOS/Accts/TS/TAD/MusicOrgan/prosper.CPP → Accts/TS/TAD/MusicOrgan/prosper.CPP
BIN
View File
Binary file not shown.
TempleOS/Apps/MusicOrgan/Examples/psalm.CPP → Accts/TS/TAD/MusicOrgan/psalm.CPP
+1 -1
View File
@@ -18,7 +18,7 @@ U0 Song()
"This \0 \0 \0I \0 \0 \0 \0pray.\n\0 \0 \0 \0 \0 \0 \0");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
TempleOS/Accts/TS/TAD/MusicOrgan/purpose.CPP → Accts/TS/TAD/MusicOrgan/purpose.CPP
BIN
View File
Binary file not shown.
Accts/TS/TAD/MusicOrgan/readier.CPP
+20
View File
@@ -0,0 +1,20 @@
//9 no nothing
U0 Song()
{
Fs->task_end_cb=&SndTaskEndCB;
MusicSettingsRst;
music_tempo= 2.646;
music_stacatto_factor= 0.989;
try {
while (!ScanKey) {
Play("2q.G3sCCqAeBB2qG3CeAAqB");
Play("q.CsCCeCCCCBDDDDDqB");
Play("e.AsADCeAetDDDeAsEGeBFsFDFDeEsFACGeC");
Play("e.AsADCeAetDDDeAsEGeBFsFDFDeEsFACGeC");
}
} catch
PutExcept;
Snd(0);
}
Song;
TempleOS/Accts/TS/TAD/MusicOrgan/reasoning.CPP → Accts/TS/TAD/MusicOrgan/reasoning.CPP
+1 -1
View File
@@ -15,7 +15,7 @@ U0 Song()
"Watch \0 \0those \0 \0thoughts. \0 \0 \0 \0Head \0 \0on \0 \0straight.\n\0 \0 \0 \0 \0");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
Accts/TS/TAD/MusicOrgan/reliance.CPP
+37
View File
@@ -0,0 +1,37 @@
//8 has words
U0 Song()
{
CTask *task;
Fs->task_end_cb=&SndTaskEndCB;
music_tempo=2.5;
try {
task=PopUpViewStr(
"$$WW+H,1$$$LK,"BF:Matthew,6:11"$\n\n"
"I find two things interesting. Jesus asks for "
"the bare minimum... can't ask for less than daily bread. "
"Also, He actually demands it. I find that funny.\n\n"
"$LK,"BF:Matthew,10:31"$\n\n"
"I have a funny story. I used to shoot birds with a BB-gun. "
"That passage didn't snd so comforting!! How many sparrows "
"am I worth?\n"
);
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
DocRecalc(DocPut(task)); //Reformat word-wrap with new window size.
while (!ScanKey) {
Play("3qGsB2G3B2G3eF2G3sGGGGeRFC2G3qFC",
"Where's \0my \0 \0 \0next \0 \0 \0meal!!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
Play("GsB2G3B2G3eF2G3sGGGGeRFC2G3qFC",
"God, \0we \0 \0 \0had \0 \0a \0deal!!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
Play("B2GsG3A2G3AeCCsCECEqACsGFGF",
"Day \0old \0bread?\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
Play("qB2GsG3A2G3AeCCsCECEqACsGFGF",
"'Dai\0ly' \0I \0 \0 \0 \0said.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
}
} catch
PutExcept;
Snd(0);
}
Song;
TempleOS/Accts/TS/TAD/MusicOrgan/reposes.CPP → Accts/TS/TAD/MusicOrgan/reposes.CPP
+1 -1
View File
@@ -17,7 +17,7 @@ U0 Song()
"Take \0 \0the \0step,\n\0 \0 \0 \0 \0 \0 \0 \0not \0back.\n\0 \0 \0 \0");
}
} catch
CatchAll;
PutExcept;
Snd(0);
}
Accts/TS/TAD/MusicOrgan/restless.CPP
+27
View File
@@ -0,0 +1,27 @@
//9 has words
U0 Song()
{
CTask *task;
Fs->task_end_cb=&SndTaskEndCB;
MusicSettingsRst;
music_tempo= 1.710;
music_stacatto_factor= 0.736;
try {
task=PopUpViewStr("$LK,"Ecclesiastes,5:12",A="BF:Ecclesiastes,5:12"$\n");
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
while (!ScanKey) {
Play("3sDDDACCADDACCAe.DsCCC2G3FD2G3FD2G3CCAe.D",
"I \0 \0 \0 \0got \0 \0 \0paid, \0 \0 \0to\0 \0 \0day.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
Play("qD2sG3G2G3GetGDAeF2GqG3etFBAEACECE",
" \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0 \0can't \0 \0 \0get \0 \0to \0");
Play("qD2sG3G2G3GetGDAeF2GqG3etFBAEACECE",
"sleep.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
}
} catch
PutExcept;
Snd(0);
}
Song;
Accts/TS/TAD/MusicOrgan/rifled.CPP
BIN
View File
Binary file not shown.
Loaded 100 of 1416 files, more files were not shown because too many files have changed in this diff. Show more