TempleOSCDV4.04.ISO
This commit is contained in:
1 parent
0f1a4a5d65
commit
d1856315e0
67 files changed
+722
-697
No files matched your search
Binary file not shown.
@@ -27,8 +27,6 @@ $WW,1$$FG,5$$TX+CX,"TODO"$$FG$
|
||||
|
||||
* $LK,"DOCEF_REMALLOC_DATA",A="FF:::/Adam/DolDoc/DocChar.CPP,DOCEF_REMALLOC_DATA"$ HexEdit Remalloc.
|
||||
|
||||
* No way to clear $LK,"DOCEf_HOLD",A="MN:DOCEf_HOLD"$ entries.
|
||||
|
||||
* $LK,"DOCF_DBL_DOLLARS",A="MN:DOCF_DBL_DOLLARS"$ in $LK,"Reindention",A="MN:EdCodeTools2"$.
|
||||
|
||||
* Compiler Optimization: Local array vars --> reg. Might exist.
|
||||
@@ -42,8 +40,6 @@ $WW,1$$FG,5$$TX+CX,"TODO"$$FG$
|
||||
* 01/10/2016 find-replace editor hung on $LK,"CounterRenaissance",A="FI:::/Home/Web/TAD/CounterRenaissance.TXT"$ "Rennaisance"
|
||||
* 01/06/2016 Editor filter "str" applied to output from LineRep looks broken.
|
||||
|
||||
* Document $$DA zero terminator. Explain str or not.
|
||||
|
||||
* Document, perhaps with video, $LK,"GetStr",A="MN:GetStr"$() all the way down into $LK,"PutKey",A="MN:PutKey"$() code.
|
||||
|
||||
* Better dictionary.
|
||||
@@ -173,7 +169,7 @@ CHashFun *fun_ptr;
|
||||
$ID,-5$
|
||||
* extern of fun with dft arg of str?
|
||||
|
||||
* Might want to warn switch() dup case numbers.
|
||||
* Might want to warn switch[] dup case numbers.
|
||||
|
||||
* Make $LK,"Clamp",A="MN:Clamp"$(), $LK,"Min",A="MN:Min"$(), $LK,"Max",A="MN:Max"$() into asm routines?
|
||||
|
||||
@@ -392,12 +388,13 @@ Offer only in approved place $TX,"Deuteronomy 12:13-18",HTML="http://www.bibleg
|
||||
Jesus' zeal for the Temple $TX,"John 2:14-19",HTML="http://www.biblegateway.com/passage/?search=John%202:14-19&version=NIV"$
|
||||
Famine not for bread $TX,"Amos 8:11-12",HTML="http://www.biblegateway.com/passage/?search=Amos%208:11-12&version=NIV"$
|
||||
Meek and humble of heart $TX,"Matthew 11:29",HTML="http://www.biblegateway.com/verse/en/Matthew%2011:29"$
|
||||
There is no council against the Lord $TX,"Proverbs 21:30",HTML="http://www.biblegateway.com/verse/en/Proverbs%2021:30"$
|
||||
|
||||
|
||||
$FG,5$$TX+CX,"Misc Notes"$$FG$
|
||||
Intel CEO's name: Brian Krzanich
|
||||
>$FG,2$lspci -v$FG$
|
||||
Size:$TX,"17358 KB",D="DD_TEMPLEOSCD_K_SIZE"$
|
||||
Size:$TX,"17364 KB",D="DD_TEMPLEOSCD_K_SIZE"$
|
||||
|
||||
$FG,5$$TX+CX,"My Web Bookmarks"$$FG$$WW,0$
|
||||
$TX,"My FireFox Bookmarks",HTML="http://www.templeos.org/Wb/Home/Downloads/Blog/Bookmarks"$
|
||||
@@ -406,11 +403,16 @@ Frosting $HC,"<center><img src=\"http://www.templeos.org/images/Frosting.jpg\" w
|
||||
Soap Carvings $HC,"<center><img src=\"http://www.templeos.org/images/SoapCarvings.jpg\" width=\"640\" height=\"480\" alt=\"\"></center>"$
|
||||
CottonTail $HC,"<center><img src=\"http://www.templeos.org/images/CttnTail.jpg\" width=\"644\" height=\"1113\" alt=\"\"></center>"$
|
||||
TempleOS Logo $HC,"<center><img src=\"http://www.templeos.org/images/Logo128x152.jpg\" width=\"640\" height=\"760\" alt=\"\"></center>"$
|
||||
Pew Pew Pew $HC,"<center><img src=\"http://i.imgur.com/sMpJ0ch.jpg\" width=\"640\" height=\"480\" alt=\"\"></center>"$
|
||||
Iceberg $HC,"<center><img src=\"https://upload.wikimedia.org/wikipedia/commons/3/38/Blue_ice_in_South_Greenland_-_Visit_Greenland.jpg\" width=\"640\" height=\"480\" alt=\"\"></center>"$
|
||||
I made dis $HC,"<center><img src=\"http://i.imgur.com/cZKkxTX.jpg\" width=\"640\" height=\"800\" alt=\"\"></center>"$
|
||||
NIST Beacon $HC,"<center><img src=\"http://www.nist.gov/itl/csd/ct/images/beacon_architecture_2013.jpg\" width=\"550\" height=\"278\" alt=\"\"></center>"$
|
||||
$TX,"SimStructure",HTML="http://www.templeos.org/files/SimStrSetUp.zip"$
|
||||
$TX,"ASU_Transcripts",HTML="http://www.templeos.org/files/ASU_Transcripts.pdf"$ $TX,"ASU Course Catalog (See page 261)",HTML="https://catalog.asu.edu/files/shared/archives/1994-1996/general/UG1994-1996.pdf/1994-1996-UG-241-267.pdf"$
|
||||
$TX,"Dr. David Pheanis",HTML="https://webapp4.asu.edu/directory/person/77201"$ $TX,"Dr. Konstantinos S. Tsakalis",HTML="http://ecee.engineering.asu.edu/directory/tenured-and-tenure-track-faculty/kostantinos-s-tsakalis"$ $TX,"Dr. Walter Higgins",HTML="https://webapp4.asu.edu/directory/directorysearch?cn=Walter+Higgins"$
|
||||
$TX,"Peter Gadwa",HTML="http://www.wired.com/magazine/2010/11/mf_ticketmaster/all/1"$
|
||||
$TX,"Tom Foley",HTML="http://web.gccaz.edu/~tfoley/perspage.html"$
|
||||
$TX,"Graphic Technologies",HTML="https://web.archive.org/web/20020811060541/http://www.graphic-technologies.com/"$ $TX,"Lexmark vs Static Control",HTML="https://en.wikipedia.org/wiki/Lexmark_International,_Inc._v._Static_Control_Components,_Inc."$
|
||||
|
||||
|
||||
$FG,5$$TX+CX,"Web Bookmarks"$$FG$
|
||||
@@ -422,12 +424,16 @@ $TX,"Look at PCI interrupt routing.",HTML="http://forum.osdev.org/viewtopic.php?
|
||||
$TX,"The sins of Newton",HTML="https://www.brainpickings.org/2012/01/04/isaac-newton-list-of-sins"$
|
||||
$TX,"Stalin's Tanks",HTML="https://boardgamegeek.com/boardgame/5198/stalins-tanks"$
|
||||
$TX,"Lamp shades",HTML="http://www.lampsplus.com/products/lamp-shades"$
|
||||
$TX,"The Original Jewish Temple",HTML="http://www.jewishvirtuallibrary.org/jsource/Judaism/The_Temple.html"$
|
||||
$TX,"KingJamesBible with LineNums",HTML="http://www.templeos.org/files/NumBible.TXT"$
|
||||
$TX,"Higgs 5-Sigma Proof",HTML="http://understandinguncertainty.org/explaining-5-sigma-higgs-how-well-did-they-do"$
|
||||
$TX,"Dwight: Nerd torture",HTML="http://www.noob.us/humor/the-office-dwight-faces-nerd-torture-of-the-highest-form"$
|
||||
$TX,"TOSZ Compression",HTML="http://www.templeos.org/Wb/Linux/TOSZ.CPP"$
|
||||
$TX,"ATA/ATAPI spec",HTML="http://www.t13.org/Documents/UploadedDocuments/docs2007/D1532v1r4b-AT_Attachment_with_Packet_Interface_-_7_Volume_1.pdf"$
|
||||
|
||||
$TX,"WWW.OSDEV.ORG",HTML="http://www.osdev.org"$
|
||||
$TX,"NIST Beacon",HTML="http://www.nist.gov/itl/csd/ct/nist_beacon.cfm"$
|
||||
$TX,"The Perfect Coin Toss",HTML="http://hackaday.com/2014/12/19/nist-randomness-beacon"$
|
||||
$TX,"BBC",HTML="http://www.knpr.org"$
|
||||
$TX,"KNPR",HTML="http://www.knpr.org"$
|
||||
$TX,"BBC_News_24",HTML="http://www.wherever.tv/tv-channels/BBC-News-24.jsf"$
|
||||
|
||||
@@ -2,7 +2,7 @@ $TR-UL,"Adam"$
|
||||
$ID,2$$TR,"SysMsgFlags"$
|
||||
$ID,2$sys_msg_flags[0]=0xFF;
|
||||
$ID,-2$$TR,"SysRegVer"$
|
||||
$ID,2$registry_version=4.030;
|
||||
$ID,2$registry_version=4.040;
|
||||
$ID,-2$$ID,-2$$TR-UL,"TempleOS"$
|
||||
$ID,2$$TR,"TOS"$
|
||||
$ID,2$I64 tos_code_walk_thru=105,tos_after_egypt_in_action=46;
|
||||
@@ -39,7 +39,7 @@ $ID,-2$$TR,"BomberGolf"$
|
||||
$ID,2$I64 best_score=175;
|
||||
$ID,-2$$ID,-2$$TR,"DemoCompany"$
|
||||
$ID,2$$TR,"Game1"$
|
||||
$ID,2$F64 best_score=166.32939;
|
||||
$ID,2$F64 best_score=1344.86889;
|
||||
$TR,"SimpleVal"$
|
||||
$ID,2$1298;
|
||||
$ID,2$1300;
|
||||
$ID,-2$$ID,-2$$ID,-2$
|
||||
@@ -4,7 +4,7 @@ U8 *BlogLocalDir(CDate cdt=0)
|
||||
CDateStruct ds;
|
||||
if (!cdt) cdt=Now+local_time_offset;
|
||||
Date2Struct(&ds,cdt);
|
||||
StrPrint(dir,"::/Home/Web/" PERSONAL_INITIALS "/Blog/%d%Z",
|
||||
StrPrint(dir,BLOG_LOCAL_BASE "/%d%Z",
|
||||
ds.year,ds.mon-1,"ST_MONTHS");
|
||||
if (!FileFind(dir,,FUF_JUST_DIRS))
|
||||
MkDir(dir);
|
||||
@@ -28,7 +28,7 @@ U8 *BlogWebDir(CDate cdt=0)
|
||||
CDateStruct ds;
|
||||
if (!cdt) cdt=Now+local_time_offset;
|
||||
Date2Struct(&ds,cdt);
|
||||
StrPrint(dir,PERSONAL_WEB "/Home/Web/" PERSONAL_INITIALS "/Blog/%d%Z",
|
||||
StrPrint(dir,BLOG_WEB_BASE "/%d%Z",
|
||||
ds.year,ds.mon-1,"ST_MONTHS");
|
||||
return dir;
|
||||
}
|
||||
@@ -85,23 +85,32 @@ U0 BlogScreenShot()
|
||||
|
||||
public U0 MakeWebSitePartial()
|
||||
{
|
||||
MkDir("D:/Wb");
|
||||
MkDir("D:/Wb/Home");
|
||||
MkDir("D:/Wb/Home/Web");
|
||||
MkDir("D:/Wb/Home/Web/TAD");
|
||||
MkDir("D:/Wb/Home/Web/TAD/Blog");
|
||||
|
||||
FreshenWebDir("/Home/Web");
|
||||
FreshenWebDir("/Home/Web/" PERSONAL_INITIALS);
|
||||
FreshenWebDir(BlogLocalDir+2);
|
||||
Drv('C');
|
||||
}
|
||||
|
||||
U0 Blog()
|
||||
public U0 Blog()
|
||||
{
|
||||
if (!FileFind(BlogLocalFile,,FUF_JUST_FILES))
|
||||
Copy("::/Home/Downloads/Blog/DailyBlogHeader.TXT.Z",BlogLocalFile);
|
||||
WinMax;
|
||||
AutoComplete;
|
||||
WinBorder;
|
||||
WinMax;
|
||||
Msg(MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN|SCF_CTRL);
|
||||
Msg(MSG_KEY_DOWN_UP,0,SC_F6|SCF_ALT);
|
||||
Msg(MSG_KEY_DOWN_UP,'\n',0);
|
||||
if (Ed(BlogLocalFile,EDF_WAS_WRITE)) {
|
||||
Copy(BlogLocalFile,"::Home/Web/" PERSONAL_INITIALS "/DailyBlog.TXT.Z");
|
||||
MakeWebSitePartial;
|
||||
Copy(BlogLocalFile,"::" DAILY_BASE ".TXT.Z");
|
||||
Copy(BlogLocalFile,"D:" DAILY_BASE ".TXT.Z");
|
||||
Copy(BlogLocalFile,"D:/Wb" DAILY_BASE ".TXT.Z");
|
||||
TOSWebFile("D:/Wb" DAILY_BASE ".TXT.Z");
|
||||
}
|
||||
}
|
||||
@@ -2,6 +2,10 @@
|
||||
|
||||
#define PERSONAL_WEB "http:/" "/www.templeos.org/Wb"
|
||||
#define PERSONAL_INITIALS "TAD"
|
||||
#define BLOG_BASE "/Home/Web/" PERSONAL_INITIALS "/Blog"
|
||||
#define DAILY_BASE "/Home/Web/" PERSONAL_INITIALS "/DailyBlog"
|
||||
#define BLOG_LOCAL_BASE "::" BLOG_BASE
|
||||
#define BLOG_WEB_BASE PERSONAL_WEB BLOG_BASE
|
||||
|
||||
#define SLOP BLK_SIZE
|
||||
U0 TOSBootRescueDrv1()
|
||||
|
||||
@@ -230,10 +230,6 @@ U0 TOSDistroPrep()
|
||||
virtual machine, not bare metal hardware because it's settings could cause
|
||||
problems. The hard drive must be partitioned. Install Std Distro, then
|
||||
install this on top.
|
||||
>$LK,"TSInstall",A="FF:::/Demo/AcctExample/TOSDistro.CPP,TSInstall"$;
|
||||
>$LK,"TSUpgrade",A="FF:::/Demo/AcctExample/TOSDistro.CPP,TSUpgrade"$;
|
||||
See $LK,"MakeDistrosAndBackUp",A="FF:::/Demo/AcctExample/TOSDistro.CPP,MakeDistrosAndBackUp"$() to reproduce the ISO's in $FG,4$E:/Wb$FG$. It makes this
|
||||
website, too.
|
||||
*/
|
||||
Drv('C');
|
||||
DistroPrep;
|
||||
@@ -249,7 +245,7 @@ U0 MakeTOSDistro()
|
||||
ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
|
||||
DefinePrint("DD_TEMPLEOSTS_SIZE",
|
||||
"Download $TX,"TempleOS V4.03",D="DD_OS_NAME_VERSION"$ - T.S. Company Internal Distro (%0.1f MB)",
|
||||
"Download $TX,"TempleOS V4.04",D="DD_OS_NAME_VERSION"$ - T.S. Company Internal Distro (%0.1f MB)",
|
||||
0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
@@ -284,7 +280,7 @@ U0 MakeDbgDistro()
|
||||
ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
|
||||
DefinePrint("DD_TEMPLEOSDBG_SIZE",
|
||||
"Download $TX,"TempleOS V4.03",D="DD_OS_NAME_VERSION"$ - Debug Distro (%0.1f MB)",
|
||||
"Download $TX,"TempleOS V4.04",D="DD_OS_NAME_VERSION"$ - Debug Distro (%0.1f MB)",
|
||||
0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
@@ -332,7 +328,7 @@ U0 MakeLiteDistro()
|
||||
ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
|
||||
DefinePrint("DD_TEMPLEOSLITE_SIZE",
|
||||
"Download $TX,"TempleOS V4.03",D="DD_OS_NAME_VERSION"$ - Lite Distro (%0.1f MB)",
|
||||
"Download $TX,"TempleOS V4.04",D="DD_OS_NAME_VERSION"$ - Lite Distro (%0.1f MB)",
|
||||
0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
@@ -365,7 +361,7 @@ U0 MakeUltraDistro()
|
||||
ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
|
||||
DefinePrint("DD_TEMPLEOSULTRA_SIZE",
|
||||
"Download $TX,"TempleOS V4.03",D="DD_OS_NAME_VERSION"$ - UltraLite Distro (%0.1f MB)",
|
||||
"Download $TX,"TempleOS V4.04",D="DD_OS_NAME_VERSION"$ - UltraLite Distro (%0.1f MB)",
|
||||
0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
@@ -374,12 +370,12 @@ U0 UpdateISODocDefines()
|
||||
{
|
||||
try {
|
||||
DefinePrint("DD_TEMPLEOSCD_SIZE",
|
||||
"Download $TX,"TempleOS V4.03",D="DD_OS_NAME_VERSION"$ - Standard Distro (%0.1f MB)",
|
||||
"Download $TX,"TempleOS V4.04",D="DD_OS_NAME_VERSION"$ - Standard Distro (%0.1f MB)",
|
||||
0.1*(10*Size("D:/Wb/TempleOSCD.ISO","+s")/1024/1024));
|
||||
DefinePrint("DD_TEMPLEOSCD_K_SIZE",
|
||||
"%d KB",Size("D:/Wb/TempleOSCD.ISO","+s")/1024);
|
||||
DefinePrint("DD_TEMPLEOSULTRA_SIZE",
|
||||
"Download $TX,"TempleOS V4.03",D="DD_OS_NAME_VERSION"$ - UltraSmall Distro (%0.1f MB)",
|
||||
"Download $TX,"TempleOS V4.04",D="DD_OS_NAME_VERSION"$ - UltraSmall Distro (%0.1f MB)",
|
||||
0.1*(10*Size("D:/Wb/TempleOSUltra.ISO","+s")/1024/1024));
|
||||
DefinePrint("DD_TEMPLEOSULTRA_K_SIZE",
|
||||
"%d KB",Size("D:/Wb/TempleOSUltra.ISO","+s")/1024);
|
||||
|
||||
@@ -322,8 +322,6 @@ U0 MyBibleLines(U8 *st,I64 num_lines,I64 radix,Bool modulo,Bool plus_one)
|
||||
I64 i,start;
|
||||
U8 *verse;
|
||||
if (*st && (doc_out=DocPut)) {
|
||||
DocPrint(doc_out,"$$BG,LTGRAY$$");
|
||||
|
||||
i=Str2I64(st,radix);
|
||||
if (modulo) {
|
||||
if (radix==16)
|
||||
@@ -344,7 +342,7 @@ U0 MyBibleLines(U8 *st,I64 num_lines,I64 radix,Bool modulo,Bool plus_one)
|
||||
DocPrint(doc_out,"-->Line:%d\n",start);
|
||||
|
||||
verse=BibleLine2Verse(start);
|
||||
DocPrint(doc_out,"$TX,"KingJamesBible",HTML="http://www.templeos.org/files/NumBible.TXT"$ (%s)\n$$BG$$\nGod says...\n$$RED$$",verse);
|
||||
DocPrint(doc_out,"$TX,"KingJamesBible",HTML="http://www.templeos.org/files/NumBible.TXT"$ (%s)\n\nGod says...\n$$RED$$",verse);
|
||||
Free(verse);
|
||||
|
||||
doc_in=DocNew;
|
||||
@@ -377,23 +375,26 @@ U0 MyBibleLines(U8 *st,I64 num_lines,I64 radix,Bool modulo,Bool plus_one)
|
||||
}
|
||||
}
|
||||
|
||||
#define GBP_SHORT 0
|
||||
#define GBP_MEDIUM 1
|
||||
#define GBP_LONG 2
|
||||
|
||||
public U0 GodBooksPassage(U8 *files_find_mask,I64 len=512,
|
||||
I64 rand_i32=MIN_I64,Bool full=FALSE)
|
||||
I64 rand_i32=MIN_I64,I64 verbosity=GBP_SHORT)
|
||||
{//Make God pick a book passage. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.TXT"$
|
||||
CDirEntry *tempde=FilesFind(files_find_mask,
|
||||
FUF_RECURSE|FUF_JUST_FILES|FUF_JUST_TXT),
|
||||
*tempde1=tempde;
|
||||
I64 i=0;
|
||||
U8 *st,*st2=NULL;
|
||||
"$$BG,LTGRAY$$";
|
||||
while (tempde) {
|
||||
st=FileRead(tempde->full_name);
|
||||
tempde->user_data=StrLen(st);
|
||||
if (full)
|
||||
if (verbosity==GBP_LONG)
|
||||
"%08X-",i;
|
||||
if (tempde->user_data>=len)
|
||||
i+=tempde->user_data+1-len;
|
||||
if (full)
|
||||
if (verbosity==GBP_LONG)
|
||||
"%08X:$$LK,\"%s\",A=\"FI:%s\"$$\n",
|
||||
i-1,tempde->full_name+2,tempde->full_name;
|
||||
Free(st);
|
||||
@@ -401,10 +402,12 @@ public U0 GodBooksPassage(U8 *files_find_mask,I64 len=512,
|
||||
}
|
||||
if (rand_i32<0)
|
||||
rand_i32=GodBits(32);
|
||||
if (full)
|
||||
" \n%08X*%08X",rand_i32,i;
|
||||
if (verbosity==GBP_LONG)
|
||||
'\n';
|
||||
if (verbosity>=GBP_MEDIUM)
|
||||
"%08X*%08X",rand_i32,i;
|
||||
i*=rand_i32;
|
||||
if (full)
|
||||
if (verbosity>=GBP_MEDIUM)
|
||||
"=%08X.%08X\n",i.u32[1],i.u32[0];
|
||||
i=i.u32[1];
|
||||
tempde=tempde1;
|
||||
@@ -415,7 +418,7 @@ public U0 GodBooksPassage(U8 *files_find_mask,I64 len=512,
|
||||
st=FileRead(tempde->full_name);
|
||||
st2=st+(tempde->user_data+1-len)+i;
|
||||
st2[len]=0;
|
||||
"%s\n$$BG$$\nGod says...\n$$RED$$%s$$FG$$\n",tempde->full_name,st2;
|
||||
"%s\nGod says...\n$$RED$$%s$$FG$$\n",tempde->full_name,st2;
|
||||
Free(st);
|
||||
}
|
||||
}
|
||||
@@ -424,7 +427,7 @@ public U0 GodBooksPassage(U8 *files_find_mask,I64 len=512,
|
||||
DirTreeDel(tempde1);
|
||||
}
|
||||
|
||||
#define NIST_TIME_OFFSET (-7884-local_time_offset/CDATE_FREQ)
|
||||
#define NIST_TIME_OFFSET (-7900-local_time_offset/CDATE_FREQ)
|
||||
#define NIST_TIME_TO_SWITCH 3
|
||||
|
||||
public U0 NISTSync()
|
||||
@@ -456,29 +459,29 @@ U0 InsMyURL()
|
||||
"GenerateData\0WebBookMark\0Roulette\0Movie\0Metallica\0")) {
|
||||
case:
|
||||
if (DocForm(url(CRandHexBeacon5Form *))) {
|
||||
"$$BG,LTGRAY$$";
|
||||
// if (FileFind("::/Home/Web/TAD/NISTPassage.TXT.Z"))
|
||||
// Type("::/Home/Web/TAD/NISTPassage.TXT.Z",0);
|
||||
"$$TX,\"Guidelines for Talking with God.\","
|
||||
"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
|
||||
"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\t";
|
||||
"$$TX,\"How this random Bible passage was chosen.\","
|
||||
"HTML=\"http://www.templeos.org/Wb"
|
||||
"/Home/Web/TAD/NISTPassage.html\"$$\n";
|
||||
tag=MStrPrint("https:/beacon.nist.gov/rest/record/%d",url->timestamp);
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n$$BG$$",tag,tag;
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n",tag,tag;
|
||||
Free(tag);
|
||||
MyBibleLines(url->special,20,16,TRUE,TRUE);
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(url(CRandHexBeacon8Form *))) {
|
||||
"$$BG,LTGRAY$$";
|
||||
// if (FileFind("::/Home/Web/TAD/NISTPick.TXT.Z"))
|
||||
// Type("::/Home/Web/TAD/NISTPick.TXT.Z",0);
|
||||
"$$TX,\"Guidelines for Talking with God.\","
|
||||
"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
|
||||
"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\t";
|
||||
"$$TX,\"How this random book pick was chosen.\","
|
||||
"HTML=\"http://www.templeos.org/Wb"
|
||||
"/Home/Web/TAD/NISTPick001.html\"$$\n";
|
||||
tag=MStrPrint("https:/beacon.nist.gov/rest/record/%d",url->timestamp);
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n$$BG$$",tag,tag;
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n",tag,tag;
|
||||
Free(tag);
|
||||
GodBooksPassage("C:/Home/Downloads/Text/*",,
|
||||
Str2I64(url->special,16),TRUE);
|
||||
Str2I64(url->special,16),GBP_MEDIUM);
|
||||
}
|
||||
break;
|
||||
case:
|
||||
@@ -554,69 +557,69 @@ U0 InsMyURL()
|
||||
break;
|
||||
case:
|
||||
if (DocForm(url(CRandDecForm *))) {
|
||||
"$$BG,LTGRAY$$$$TX,\"Guidelines for Talking with God\","
|
||||
"$$TX,\"Guidelines for Talking with God\","
|
||||
"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
|
||||
tag="http://www.randomnumbers.info";
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n$$BG$$",tag,tag;
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n",tag,tag;
|
||||
MyBibleLines(url->special,20,10,FALSE,TRUE);
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(url(CRandDecForm *))) {
|
||||
"$$BG,LTGRAY$$$$TX,\"Guidelines for Talking with God\","
|
||||
"$$TX,\"Guidelines for Talking with God\","
|
||||
"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
|
||||
tag="http://www.random.org";
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n$$BG$$",tag,tag;
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n",tag,tag;
|
||||
MyBibleLines(url->special,20,10,FALSE,FALSE);
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(url(CRandDecForm *))) {
|
||||
"$$BG,LTGRAY$$$$TX,\"Guidelines for Talking with God\","
|
||||
"$$TX,\"Guidelines for Talking with God\","
|
||||
"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
|
||||
tag="https://passed.pw";
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n$$BG$$",tag,tag;
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n",tag,tag;
|
||||
MyBibleLines(url->special,20,10,FALSE,FALSE);
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(url(CRandCertForm *))) {
|
||||
"$$BG,LTGRAY$$$$TX,\"Guidelines for Talking with God\","
|
||||
"$$TX,\"Guidelines for Talking with God\","
|
||||
"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
|
||||
tag="http://virtual-notary.org";
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n",tag,tag;
|
||||
tag="Here is the certificate";
|
||||
st=MStrPrint("http://www.templeos.org/Certs/virtual-notary-cert"
|
||||
"-randomnum-%d.p12",url->cert);
|
||||
"\n$$TX,\"%Q: %d\",HTML=\"%Q\"$$.\n$$BG$$",tag,url->cert,st;
|
||||
"\n$$TX,\"%Q: %d\",HTML=\"%Q\"$$.\n",tag,url->cert,st;
|
||||
Free(st);
|
||||
MyBibleLines(url->special,20,10,FALSE,FALSE);
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(url(CRandHexForm *))) {
|
||||
"$$BG,LTGRAY$$$$TX,\"Guidelines for Talking with God\","
|
||||
"$$TX,\"Guidelines for Talking with God\","
|
||||
"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
|
||||
tag="http://qrng.anu.edu.au/NIST.php";
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n$$BG$$",tag,tag;
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n",tag,tag;
|
||||
MyBibleLines(url->special,20,16,TRUE,TRUE);
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(url(CRandHexForm *))) {
|
||||
"$$BG,LTGRAY$$$$TX,\"Guidelines for Talking with God\","
|
||||
"$$TX,\"Guidelines for Talking with God\","
|
||||
"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
|
||||
tag="https://www.fourmilab.ch/hotbits/secure_generate.html";
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n$$BG$$",tag,tag;
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n",tag,tag;
|
||||
MyBibleLines(url->special,20,16,TRUE,TRUE);
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(url(CRandDecForm *))) {
|
||||
"$$BG,LTGRAY$$$$TX,\"Guidelines for Talking with God\","
|
||||
"$$TX,\"Guidelines for Talking with God\","
|
||||
"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
|
||||
tag="http://www.generatedata.com";
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n$$BG$$",tag,tag;
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n",tag,tag;
|
||||
MyBibleLines(url->special,20,10,FALSE,FALSE);
|
||||
}
|
||||
break;
|
||||
@@ -631,10 +634,10 @@ U0 InsMyURL()
|
||||
break;
|
||||
case:
|
||||
if (DocForm(url(CRandDecForm *))) {
|
||||
"$$BG,LTGRAY$$$$TX,\"Guidelines for Talking with God\","
|
||||
"$$TX,\"Guidelines for Talking with God\","
|
||||
"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
|
||||
tag="https://www.dublinbet.com";
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n$$BG$$",tag,tag;
|
||||
"$$TX,\"%Q\",HTML=\"%Q\"$$\n",tag,tag;
|
||||
MyBibleLines(url->special,20,10,FALSE,FALSE);
|
||||
}
|
||||
break;
|
||||
|
||||
@@ -150,7 +150,7 @@ public CDoc *Doc2Html(CDoc *doc_in,U8 *html_header=NULL,U8 *body_header=NULL,
|
||||
"<head>\n"
|
||||
"<meta http-equiv=\"Content-Type\" "
|
||||
"content=\"text/html;charset=US-ASCII\">\n"
|
||||
"<meta name=\"generator\" content=\"$TX,"TempleOS V4.03",D="DD_OS_NAME_VERSION"$\">\n";
|
||||
"<meta name=\"generator\" content=\"$TX,"TempleOS V4.04",D="DD_OS_NAME_VERSION"$\">\n";
|
||||
if (!body_header) body_header=
|
||||
"<body>\n"
|
||||
"<pre style=\"font-family:courier;font-size:10pt\">\n";
|
||||
@@ -173,14 +173,14 @@ public CDoc *Doc2Html(CDoc *doc_in,U8 *html_header=NULL,U8 *body_header=NULL,
|
||||
y=doc_e->y;
|
||||
while (doc_e!=doc_in) {
|
||||
if (!(doc_e->de_flags&DOCEF_SKIP)) {
|
||||
if (line_anchors && y!=old_y) {
|
||||
if (y!=old_y && line_anchors) {
|
||||
DocPrint(doc_out,"<a name=\"l%d\"></a>",y+1);
|
||||
old_y=y;
|
||||
}
|
||||
while (y<doc_e->y) {
|
||||
HtmlPutS(doc_out,doc_e->settings.final_u32_attr,
|
||||
&old_u32_attr,"\n",&col,style_bitmap);
|
||||
if (line_anchors && ++y!=old_y) {
|
||||
if (++y!=old_y && line_anchors) {
|
||||
DocPrint(doc_out,"<a name=\"l%d\"></a>",y+1);
|
||||
old_y=y;
|
||||
}
|
||||
@@ -349,12 +349,19 @@ U0 TOSWebFile(U8 *name)
|
||||
{
|
||||
U8 *name2;
|
||||
CDirEntry de;
|
||||
Bool line_anchors;
|
||||
if (FileFind(name,&de)) {
|
||||
Free(de.full_name);
|
||||
"File:%s\n",name;
|
||||
UncollapseFile(name,NULL);
|
||||
Touch(name,"",,de.datetime);
|
||||
name2=ChgExt(name,"html");
|
||||
|
||||
if (StrMatch(BLOG_BASE,name) || StrMatch(DAILY_BASE,name))
|
||||
line_anchors=FALSE;
|
||||
else
|
||||
line_anchors=TRUE;
|
||||
|
||||
TOSToHtml(name,name2,
|
||||
"<!DOCTYPE HTML>\n"
|
||||
"<html style=\"background-color:#FFFFFF;\">\n"
|
||||
@@ -365,7 +372,7 @@ U0 TOSWebFile(U8 *name)
|
||||
"<meta name=\"keywords\" "
|
||||
"content=\"Operating System,64-Bit,64 Bit,"
|
||||
"Temple,OS,TempleOS,Free,Open Source,Public Domain,x86_64\">\n"
|
||||
"<meta name=\"generator\" content=\"$TX,"TempleOS V4.03",D="DD_OS_NAME_VERSION"$\">\n",
|
||||
"<meta name=\"generator\" content=\"$TX,"TempleOS V4.04",D="DD_OS_NAME_VERSION"$\">\n",
|
||||
|
||||
"<body style=\"background-color:#55FFFF; border-style:solid;
|
||||
border-width:8px; border-color:#0000AA;
|
||||
@@ -374,7 +381,7 @@ U0 TOSWebFile(U8 *name)
|
||||
"<div style=\"margin-left:auto; margin-right:auto;"
|
||||
" width: 640px;\">\n",
|
||||
"</div></pre></body>\n",
|
||||
"</html>\n");
|
||||
"</html>\n",,line_anchors);
|
||||
Touch(name2,"",,de.datetime);
|
||||
Free(name2);
|
||||
}
|
||||
@@ -411,12 +418,6 @@ U0 FreshenWebDir(U8 *dirname)
|
||||
CDirEntry *tempde,*tempde1;
|
||||
U8 *src,*dst;
|
||||
|
||||
MkDir("D:/Wb");
|
||||
MkDir("D:/Wb/Home");
|
||||
MkDir("D:/Wb/Home/Web");
|
||||
MkDir("D:/Wb/Home/Web/TAD");
|
||||
MkDir("D:/Wb/Home/Web/TAD/Blog");
|
||||
|
||||
src=MStrPrint("D:/Wb%s",dirname);
|
||||
MkDir(src);
|
||||
Free(src);
|
||||
@@ -439,3 +440,4 @@ U0 FreshenWebDir(U8 *dirname)
|
||||
}
|
||||
DirTreeDel(tempde1);
|
||||
}
|
||||
|
||||
@@ -99,7 +99,7 @@
|
||||
|
||||
#define IC_JMP 0x52
|
||||
#define IC_SWITCH 0x53
|
||||
#define IC_NOBOUND_SWITCH 0x54
|
||||
#define IC_NOBOUND_SWITCH 0x54
|
||||
|
||||
#define IC_ADD_RSP 0x55
|
||||
#define IC_ADD_RSP1 0xC1
|
||||
|
||||
+30
-38
@@ -20,35 +20,36 @@ F64 gate_
|
||||
$BG,10$#define GE_COW 0
|
||||
|
||||
|
||||
$SP,"<1>",BI=1$
|
||||
$SP,"<1>",BI=1$ $SP,"<2>",BI=2$ $SP,"<3>",BI=3$
|
||||
#define GE_BULL 1
|
||||
|
||||
|
||||
$SP,"<2>",BI=2$
|
||||
$SP,"<4>",BI=4$ $SP,"<5>",BI=5$ $SP,"<6>",BI=6$
|
||||
#define GE_HORSE 2
|
||||
|
||||
|
||||
$SP,"<3>",BI=3$
|
||||
$SP,"<7>",BI=7$ $SP,"<8>",BI=8$
|
||||
#define GE_NUM 3
|
||||
|
||||
|
||||
$SP,"<4>",BI=4$
|
||||
$SP,"<9>",BI=9$
|
||||
$BG$
|
||||
class RHCSprite
|
||||
{
|
||||
U8 *img;
|
||||
I64 min_x,max_x,min_y,max_y;
|
||||
} rh_sprite[GE_NUM];
|
||||
#define ANIMAL_WIDTH 20
|
||||
#define ANIMAL_HEIGHT 16
|
||||
|
||||
U8 *cow_imgs[4] ={$IB,"<1>",BI=1$,$IB,"<2>",BI=2$,$IB,"<3>",BI=3$,$IB,"<2>",BI=2$},
|
||||
*bull_imgs[4] ={$IB,"<4>",BI=4$,$IB,"<5>",BI=5$,$IB,"<6>",BI=6$,$IB,"<5>",BI=5$},
|
||||
*horse_imgs[4]={$IB,"<7>",BI=7$,$IB,"<8>",BI=8$,$IB,"<7>",BI=7$,$IB,"<8>",BI=8$};
|
||||
|
||||
#define NUM_ANIMALS 100
|
||||
|
||||
class Animal
|
||||
{
|
||||
I64 num,x,y,dx,dy;
|
||||
RHCSprite *ge;
|
||||
U32 buddy;
|
||||
U8 type;
|
||||
Bool dead,pad[2];
|
||||
I64 num,x,y,dx,dy;
|
||||
U8 **imgs;
|
||||
U32 buddy;
|
||||
U8 type,frame0;
|
||||
Bool dead,pad;
|
||||
} *a;
|
||||
|
||||
//************************************
|
||||
@@ -199,7 +200,7 @@ U0 DrawIt(CTask *task,CDC *dc)
|
||||
static I64 last_pos_x=0;
|
||||
static Bool left=TRUE;
|
||||
F64 t;
|
||||
I64 i,
|
||||
I64 i,frame=4*tS,
|
||||
cx=(MAP_WIDTH -task->pix_width)/2,
|
||||
cy=(MAP_HEIGHT-task->pix_height)/2;
|
||||
if (task->scroll_x+cx<0)
|
||||
@@ -222,7 +223,8 @@ U0 DrawIt(CTask *task,CDC *dc)
|
||||
dc->flags|=DCF_JUST_MIRROR|DCF_SYMMETRY;
|
||||
DCSymmetrySet(dc,a[i].x.i32[1]-cx,0,a[i].x.i32[1]-cx,1);
|
||||
}
|
||||
Sprite3(dc,a[i].x.i32[1]-cx,a[i].y.i32[1]-cy,0,a[i].ge->img);
|
||||
Sprite3(dc,a[i].x.i32[1]-cx,a[i].y.i32[1]-cy,0,
|
||||
a[i].imgs[(frame+a[i].frame0)&3]);
|
||||
dc->flags&=~(DCF_JUST_MIRROR|DCF_SYMMETRY);
|
||||
}
|
||||
|
||||
@@ -235,9 +237,8 @@ U0 DrawIt(CTask *task,CDC *dc)
|
||||
DCSymmetrySet(dc,ip.pos.x-task->pix_left-task->scroll_x,0,
|
||||
ip.pos.x-task->pix_left-task->scroll_x,1);
|
||||
}
|
||||
Sprite3(dc,
|
||||
ip.pos.x-task->pix_left-task->scroll_x,
|
||||
ip.pos.y-task->pix_top -task->scroll_y,0,rh_sprite[GE_HORSE].img);
|
||||
Sprite3(dc,ip.pos.x-task->pix_left-task->scroll_x,
|
||||
ip.pos.y-task->pix_top -task->scroll_y,0,horse_imgs[frame&3]);
|
||||
dc->flags&=~(DCF_JUST_MIRROR|DCF_SYMMETRY);
|
||||
last_pos_x=ip.pos.x;
|
||||
|
||||
@@ -393,13 +394,13 @@ U0 AnimateTask(CTask *parent)
|
||||
}
|
||||
|
||||
//Keep on map
|
||||
if (!(MAP_BORDER-tempa->ge->min_x
|
||||
<=tempa->x.i32[1]<MAP_WIDTH-MAP_BORDER-tempa->ge->max_x)) {
|
||||
if (!(MAP_BORDER+ANIMAL_WIDTH/2
|
||||
<=tempa->x.i32[1]<MAP_WIDTH-MAP_BORDER-ANIMAL_WIDTH/2)) {
|
||||
tempa->x -=tempa->dx;
|
||||
tempa->dx=-tempa->dx;
|
||||
}
|
||||
if (!(MAP_BORDER-tempa->ge->min_y
|
||||
<=tempa->y.i32[1]<MAP_HEIGHT-MAP_BORDER-tempa->ge->max_y)) {
|
||||
if (!(MAP_BORDER+ANIMAL_HEIGHT
|
||||
<=tempa->y.i32[1]<MAP_HEIGHT-MAP_BORDER)) {
|
||||
tempa->y -=tempa->dy;
|
||||
tempa->dy=-tempa->dy;
|
||||
}
|
||||
@@ -464,7 +465,7 @@ U0 ReInit()
|
||||
|
||||
//Plot fence
|
||||
for (i=FENCE_WIDTH;i>0;i-=16)
|
||||
Sprite3(map_dc,i,FENCE_HEIGHT,0,$IB,"<4>",BI=4$);
|
||||
Sprite3(map_dc,i,FENCE_HEIGHT,0,$IB,"<9>",BI=9$);
|
||||
map_dc->pen_width=1;
|
||||
map_dc->color=BROWN;
|
||||
for (i=0;i<FENCE_HEIGHT-16;i+=16)
|
||||
@@ -489,9 +490,10 @@ U0 ReInit()
|
||||
a[i].y=(64+RandU32%(MAP_WIDTH-128))<<32;
|
||||
} while (!CheckMap(a[i].x>>32,a[i].y>>32));
|
||||
if (i&1)
|
||||
a[i].ge=&rh_sprite[GE_COW];
|
||||
a[i].imgs=cow_imgs;
|
||||
else
|
||||
a[i].ge=&rh_sprite[GE_BULL];
|
||||
a[i].imgs=bull_imgs;
|
||||
a[i].frame0=RandU16&3;
|
||||
BuddySelect(i);
|
||||
}
|
||||
outside_cnt=NUM_ANIMALS;
|
||||
@@ -504,16 +506,6 @@ U0 ReInit()
|
||||
U0 Init()
|
||||
{
|
||||
I64 i;
|
||||
RHCSprite *ge;
|
||||
|
||||
rh_sprite[0].img=$IB,"<1>",BI=1$;
|
||||
rh_sprite[1].img=$IB,"<2>",BI=2$;
|
||||
rh_sprite[2].img=$IB,"<3>",BI=3$;
|
||||
for (i=0;i<GE_NUM;i++) {
|
||||
ge=&rh_sprite[i];
|
||||
SpriteExtents(ge->img,&ge->min_x,&ge->max_x,&ge->min_y,&ge->max_y);
|
||||
}
|
||||
|
||||
RiverNew;
|
||||
rd_lock=0;
|
||||
QueInit(&rd_root);
|
||||
@@ -590,9 +582,9 @@ rh_done:
|
||||
}
|
||||
|
||||
RawHide;
|
||||
| ||||