TempleOS V5.03 Nightly (ISO SHA-1 f723193)

Author: Terry A. Davis

0000Boot/0000Kernel.BIN.C

@@ -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",

Adam/ADefine.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);
 }

Adam/God/GodSong.HC

@@ -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);

Compiler/Compiler.BIN

@@ -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"$

Compiler/CompilerB.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);