From 07a766f3e84a1b8656738f88606cd9d9aba738aa Mon Sep 17 00:00:00 2001
From: "Terry A. Davis" <tdavis@templeos.org>
Date: Mon, 20 Nov 2017 00:00:23 -0500
Subject: [PATCH] TempleOS V5.03 Nightly (ISO SHA-1 f723193)

---
 0000Boot/0000Kernel.BIN.C    | Bin 190016 -> 190016 bytes
 Adam/ADefine.HC              |   2 +-
 Adam/God/GodSong.HC          |  19 +++++++++++++++----
 Compiler/Compiler.BIN        | Bin 193087 -> 193087 bytes
 Compiler/CompilerB.HH        |   1 +
 Demo/AcctExample/Registry.HC |   2 +-
 Kernel/KernelC.HH            |   2 +-
 7 files changed, 19 insertions(+), 7 deletions(-)

diff --git a/0000Boot/0000Kernel.BIN.C b/0000Boot/0000Kernel.BIN.C
index 3e80087d47f46f4768558d8b01e19252edcdaf83..f06c8115af9e78e788a49762617de03b99674a0c 100644
GIT binary patch
delta 340
zcmX?bhWo%7?g=LBeJoWvKkT?SFJ!sMyqSk(lM5rm=KUVQQjCh5g_F;Vvc%`5mT!Jm
zF^`>b>gLvlXRIu}Pu&?OU+5E=+}w7Vsi<;#U^t`j<m~ni7S(M)iTX~($r2sL%)71x
zPWJ2YWqI)$s`_=C=;jk0$&4@=MzPH`UBN8Vk1b;q*nGe51~<^&9kck2SQ6htb=*JG
z!IE_e$Z@oh*xY<}1~>En|No~ytYQ?|Y;^N06JyY1jXPCL`9+(T-1))6^#A|nc@G=x
z83VS<D>80XVv3r&{hBl5JbuO%(@TRH>p}c)!Hl=~8LcNTXc681ESXV`9VEz>&G=TB
zarX8vb&U4@jBmG_oMQ}UX9wB@0@Ej5W%Oj;{KkDc&`|O1U#~LCn=>kH7v*Kr=3-`G
UVA$>~&a}>&(QEssASS=b08WyOF#rGn

delta 336
zcmX?bhWo%7?g=LB^R;>Hzu9qbUdVEhc{2~oCKtxk&HFuqr5IH<3n!l!WzmabVA%Yu
zVjer=l+CRT&sbR|KXqrEe4$Tda&y~drew|Of#Hn8le619Sah}lCF(mBCrfk~Gs~<F
zn(Wu%%kt(mRQ2mN(ak41k{Mw#j8dCxx`J64^)_GVd(I7{cFf{8Vo7-mRet|W2TRc<
zAji>0VsrD^8Qe^bjFSt2W*FW4%ETBkS>sL>QyRnOC3k+XFflT0p7*f9p3#51ydvXP
zC8m#4wqJ8*oX5|&c6w<rV?BufEtv5ZKa-i|<b^FF+n*&f%CUn)*|Hhm3Ny~z{-uu5
z-k<Tyc9V0A;q2@&1`J%B3JTLFU1juS-ulLUI?z<{?O(4l%9}H)Z5QQb(&l2;<Ko)x
REY7sfn$d6jrywT3$p8lNezE`n

diff --git a/Adam/ADefine.HC b/Adam/ADefine.HC
index 76a541d..c64911d 100644
--- a/Adam/ADefine.HC
+++ b/Adam/ADefine.HC
@@ -15,7 +15,7 @@ U0 LoadDocDefines()
   //$LK,"DD_BOOT_HIGH_LOC_DVD",A="FF:::/Adam/Opt/Boot/BootDVD.HC,DD_BOOT_HIGH_LOC_DVD"$
 
 $TR,"LineRep"$
-$ID,2$DefinePrint("DD_TEMPLEOS_LOC","80,859");
+$ID,2$DefinePrint("DD_TEMPLEOS_LOC","80,871");
 $ID,-2$
   DefinePrint("DD_MP_VECT","%08X",MP_VECT_ADDR);
   DefinePrint("DD_MP_VECT_END","%08X",
diff --git a/Adam/God/GodSong.HC b/Adam/God/GodSong.HC
index ebf2524..078e1d6 100644
--- a/Adam/God/GodSong.HC
+++ b/Adam/God/GodSong.HC
@@ -161,11 +161,22 @@ public U8 *GodSongStr()
   return buf;
 }
 
-public U0 GodSong()
-{//Make God generate 2measuresx2+2measuresx2. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.DD"$
-  U8 *st1=GodSongStr,*st2=GodSongStr;
+public U8 *GodSongStdStr()
+{//Make std God generate song. (2measuresx2+2measuresx2).
+  U8 *st=NULL,*st1=GodSongStr,*st2=GodSongStr;
   if (st1 && st2)
-    DocPrint(DocPut,"$$SO,\"<Song>\",A=\"%s%s%s%s\"$$",st1,st1,st2,st2);
+    st=MStrPrint("%s%s%s%s",st1,st1,st2,st2);
   Free(st1);
   Free(st2);
+  return st;
+}
+
+#help_index "God;DolDoc"
+public U0 DocInsGodSongStd(CDoc *doc=NULL)
+{//Ins Std God generate song.
+  U8 *st;
+  if (!doc) doc=DocPut;
+  if (st=GodSongStdStr)
+    DocPrint(doc,"$$SO,\"<Song>\",A=\"%s\"$$",st);
+  Free(st);
 }
diff --git a/Compiler/Compiler.BIN b/Compiler/Compiler.BIN
index 153df116e87091ced9bc3f73a5f0f576534e0663..ed1e21682bded4a7e79d27c2ace4a72d8721dc3f 100644
GIT binary patch
delta 135
zcmV;20C@ku<O{##3$Sn@0xnv!av^xb0m-xL<UJ1s000100kbXijwJ#B0Jpsv0jV(p
zY;3n^O99~l0iU-@O#ycS1?{y*0RWf&OaU*q^-cjEo0oIz0TH((>H!o30d2QA?Ey;+
p0RWeAdIA);nfU?jI|2Xzm%aP}7`LD`0z?Uy3_=1iw-rAEDziz0FR1_k

delta 140
zcmdo0gnR!J?hOTsObiU0ixevkGoIi4`iU(+tDXV_P(=4jpDGi-!S=n9j4KU+O15Ws
zGd^TwT(sTGm$96Y_48JDMuzGCd>Hk&fAwROo6X3*UE~#`3NvHMcFVVn-aL%l(+jJZ
rM7GcT$@tcq?LQbyKlq1HWcvbBCKpcT?J-Hy`JI^bwu{;`X>A4o6(ckZ

diff --git a/Compiler/CompilerB.HH b/Compiler/CompilerB.HH
index 166cd12..989e1f4 100644
--- a/Compiler/CompilerB.HH
+++ b/Compiler/CompilerB.HH
@@ -72,6 +72,7 @@ public extern U0 Ui(U8 *buf,U8 **_rip,I64 seg_size=64,
 	I64 *_jmp_dst=NULL,Bool just_ins=FALSE);
 public extern I64 Un(U8 *rip,I64 cnt=0x80,I64 seg_size=64);
 extern CUAsmGlbls uasm;
+
 #help_index "Hash/System"
 public extern I64 HashEntrySize(CHashSrcSym *tmph);
 public extern I64 HashEntrySize2(CHashSrcSym *tmph);
diff --git a/Demo/AcctExample/Registry.HC b/Demo/AcctExample/Registry.HC
index 31d7375..7b99a0d 100644
--- a/Demo/AcctExample/Registry.HC
+++ b/Demo/AcctExample/Registry.HC
@@ -60,7 +60,7 @@ $ID,-2$$TR,"Titanium"$
 $ID,2$I64 best_score=16469;
 $ID,-2$$TR,"TOSRegen"$
 $ID,2$progress1_tf=0.000;progress2_tf=0.000;
-progress3_tf=0.000;progress4_tf=89.879;
+progress3_tf=0.000;progress4_tf=92.922;
 $ID,-2$$TR,"TempleTetris"$
 $ID,2$I64 hiscore=0;
 $ID,-2$$ID,-2$$TR,"Once"$
diff --git a/Kernel/KernelC.HH b/Kernel/KernelC.HH
index 9afd74c..e8f7b22 100644
--- a/Kernel/KernelC.HH
+++ b/Kernel/KernelC.HH
@@ -91,6 +91,7 @@ public extern U8 *AStrNew(U8 *buf);
 
 #help_index "Char/Operations;Memory/Heap"
 public extern U8 *StrNew(U8 *buf,CTask *mem_task=NULL);
+
 #help_index "Char/Output;StdOut"
 public extern U0 GetOutOfDollar();
 public extern Bool IsSilent();
@@ -153,7 +154,6 @@ public extern I64	LinkedLstCnt(U8 **_lst);
 public extern U8	*LinkedLstCopy(U8 **_lst,CTask *mem_task=NULL);
 public extern U0	LinkedLstDel(U8 **_lst);
 public extern I64	LinkedLstSize(U8 **_lst);
-
 #help_index "Data Types/Queue Vector"
 public extern U0	QueVectU8Del(CQueVectU8 *v);
 public extern I64	QueVectU8Get(CQueVectU8 *v,I64 idx);