Changed binary signature from TOSB to ZCCB.

Cleaned up TestSuite a little and added SysRep to it.
This commit is contained in:
Void NV 2020-04-12 17:32:53 -05:00
parent c6dddb932b
commit 93fc6abc29
3 changed files with 143 additions and 144 deletions

View File

@ -2,6 +2,7 @@ $WW,1$$FG,5$$TX+CX,"ChangeLog"$$FG$
$IV,1$----04/12/20 17:06:38----$IV,0$
* Added $LK,"CIDTEntry",A="MN:CIDTEntry"$ and rewrote $LK,"IntEntryGet",A="MN:IntEntryGet"$() and $LK,"IntEntrySet",A="MN:IntEntrySet"$(). $LK,"dev",A="MN:CDevGlobals"$.idt is now $LK,"allocated",A="FF:::/Kernel/KInterrupts.CC,CAllocAligned"$ on an 8-byte boundary as per Intel SDM recommendation.
* Updated $LK,"OS version",A="MN:sys_os_version"$.
* Changed $LK,"BIN_SIGNATURE_VAL",A="MN:BIN_SIGNATURE_VAL"$ from 'TOSB' to 'ZCCB'.
$IV,1$----04/11/20 18:10:58----$IV,0$
* Beginning efforts to reformat files some. Currently, keeping a temp log of progress at $LK,"FilesRefactored",A="FI:C:/Home/FilesRefactored.DD"$.

View File

@ -1519,194 +1519,192 @@ U0 OSTestSuite()
ts_i=0;
TS("BlackDiamond"); DoBlackDiamond;
TS("Talons"); DoTalons;
TS("FlatTops"); DoFlatTops;
TS("DunGen"); DoDunGen;
TS("FPS"); DoFPS;
TS("ZoneOut"); DoZoneOut;
TS("Varoom"); DoVaroom;
TS("Rocket"); DoRocket;
TS("Talons"); DoTalons;
TS("FlatTops"); DoFlatTops;
TS("DunGen"); DoDunGen;
TS("FPS"); DoFPS;
TS("ZoneOut"); DoZoneOut;
// TS("Varoom"); DoVaroom;
TS("Rocket"); DoRocket;
TS("RocketScience"); DoRocketScience;
TS("BattleLines"); DoBattleLines;
TS("BigGuns"); DoBigGuns;
TS("FlapBat"); DoFlapBat;
TS("BigGuns"); DoBigGuns;
TS("FlapBat"); DoFlapBat;
// TS("Titanium"); DoTitanium;
TS("ToTheFront"); DoToTheFront;
TS("Psalmody"); DoPsalmody;
TS("JukeBox"); DoJukeBox;
TS("Span"); if (!sys_heap_init_flag) DoSpan; //Has FloodFill
// TS("Strut"); DoStrut;
TS("RawHide"); DoRawHide;
TS("KeepAway"); DoKeepAway;
TS("XCaliber"); DoXCaliber;
TS("Wenceslas"); DoWenceslas;
TS("Psalmody"); DoPsalmody;
TS("JukeBox"); DoJukeBox;
TS("Span"); if (!sys_heap_init_flag) DoSpan; //Has FloodFill
// TS("Strut"); DoStrut;
TS("RawHide"); DoRawHide;
TS("KeepAway"); DoKeepAway;
TS("XCaliber"); DoXCaliber;
TS("Wenceslas"); DoWenceslas;
TS("BomberGolf"); DoBomberGolf;
TS("TheDead"); DoTheDead;
TS("TheDead"); DoTheDead;
TS("TreeCheckers"); DoTreeCheckers;
TS("RadixDort"); TSFile("::/Demo/RadixSort");
TS("MPAdd"); DoMPAdd;
TS("Primes"); TSFile("::/Demo/MultiCore/Primes");
TS("Palindrome"); TSFile("::/Demo/MultiCore/Palindrome");
TS("MPRadix"); if (mp_count>1) TSFile("::/Demo/MultiCore/MPRadix");
TS("LoadTest"); if (mp_count>1 && DriveIsWritable(':'))
TSFileChar("::/Demo/MultiCore/LoadTest");
TS("MPPrint"); if (mp_count>1) TSFile("::/Demo/MultiCore/MPPrint");
TS("Lock"); if (mp_count>1) TSFile("::/Demo/MultiCore/Lock");
TS("RadixDort"); TSFile("::/Demo/RadixSort");
TS("MPAdd"); DoMPAdd;
TS("Primes"); TSFile("::/Demo/MultiCore/Primes");
TS("Palindrome"); TSFile("::/Demo/MultiCore/Palindrome");
TS("MPRadix"); if (mp_count>1) TSFile("::/Demo/MultiCore/MPRadix");
TS("LoadTest"); if (mp_count>1 && DriveIsWritable(':')) TSFileChar("::/Demo/MultiCore/LoadTest");
TS("MPPrint"); if (mp_count>1) TSFile("::/Demo/MultiCore/MPPrint");
TS("Lock"); if (mp_count>1) TSFile("::/Demo/MultiCore/Lock");
TS("Interrupts"); if (mp_count>1) TSFile("::/Demo/MultiCore/Interrupts");
TS("SpritePlot"); TSFileChar("::/Demo/Graphics/SpritePlot");
TS("Elephants"); TSFileChar("::/Demo/Graphics/Elephant",,CH_SHIFT_ESC);
TS("Elephants"); TSFileChar("::/Demo/Graphics/Elephant",,CH_SHIFT_ESC);
TS("SpritePlot3D"); TSFileChar("::/Demo/Graphics/SpritePlot3D");
TS("SpritePut"); TSFile("::/Demo/Graphics/SpritePut");
TS("SpritePut"); TSFile("::/Demo/Graphics/SpritePut");
TS("SpritePutExt"); TSFile("::/Demo/Graphics/SpritePutExt");
TS("SpriteText"); TSFile("::/Demo/Graphics/SpriteText");
TS("SpriteRaw"); TSFile("::/Demo/Graphics/SpriteRaw");
TS("EdSprite"); TSFile("::/Demo/Graphics/EdSprite");
TS("SpriteRaw"); TSFile("::/Demo/Graphics/SpriteRaw");
TS("EdSprite"); TSFile("::/Demo/Graphics/EdSprite");
// TS("Balloon"); TSFile("::/Demo/Graphics/Balloon",0);
TS("Carry"); TSFile("::/Demo/Carry");
TS("Carry"); TSFile("::/Demo/Carry");
TS("Directives"); TSFile("::/Demo/Directives");
TS("RandDemo"); DoRandDemo;
TS("Extents"); TSFileChar("::/Demo/Graphics/Extents");
TS("NetOfDots"); TSFileChar("::/Demo/Graphics/NetOfDots");
TS("SunMoon"); TSFileChar("::/Demo/Graphics/SunMoon");
TS("RandDemo"); DoRandDemo;
TS("Extents"); TSFileChar("::/Demo/Graphics/Extents");
TS("NetOfDots"); TSFileChar("::/Demo/Graphics/NetOfDots");
TS("SunMoon"); TSFileChar("::/Demo/Graphics/SunMoon");
TS("LowPassFilter"); DoLowPassFilter;
TS("MathAudioDemo"); DoMathAudioDemo;
TS("Lines"); TSFileChar("::/Demo/Graphics/Lines");
TS("Bounce"); TSFileChar("::/Demo/Graphics/Bounce",,CH_SHIFT_ESC,FALSE);
TS("Lines"); TSFileChar("::/Demo/Graphics/Lines");
TS("Bounce"); TSFileChar("::/Demo/Graphics/Bounce",,CH_SHIFT_ESC,FALSE);
TS("MessageLoop"); DoMessageLoop;
TS("ASCIIOrgan"); DoASCIIOrgan;
TS("MorseCode"); DoMorseCode;
TS("MorseCode"); DoMorseCode;
TS("PixCollision"); DoPixCollision;
TS("Doodle"); DoDoodle;
TS("Doodle"); DoDoodle;
TS("MassSpring"); DoMassSpring;
TS("SpeedLine"); DoSpeedLine;
TS("KeyBitMap"); DoKeyBitMap;
TS("BSpline"); DoBSpline;
TS("GrModels"); DoGrModels;
TS("Blot"); TSFileChar("::/Demo/Graphics/Blot",1800);
TS("SpeedLine"); DoSpeedLine;
TS("KeyBitMap"); DoKeyBitMap;
TS("BSpline"); DoBSpline;
TS("GrModels"); DoGrModels;
TS("Blot"); TSFileChar("::/Demo/Graphics/Blot",1800);
TS("ScreenCapture"); if (DriveIsWritable('~')) DoScreenCapture;
TS("Grid"); DoGrid;
TS("Pick"); DoPick;
TS("Pick3D"); DoPick3D;
TS("Whap"); DoWhap;
TS("Palette"); DoPalette;
TS("Print"); TSFile("::/Demo/Print");
TS("Shading"); TSFileChar("::/Demo/Graphics/Shading",1500);
TS("Grid"); DoGrid;
TS("Pick"); DoPick;
TS("Pick3D"); DoPick3D;
TS("Whap"); DoWhap;
TS("Palette"); DoPalette;
TS("Print"); TSFile("::/Demo/Print");
TS("Shading"); TSFileChar("::/Demo/Graphics/Shading",1500);
TS("RotateTank"); TSFileChar("::/Demo/Graphics/RotateTank",1500);
TS("3DPoly"); TSFileChar("::/Demo/Graphics/3DPoly",1500);
TS("Box"); TSFileChar("::/Demo/Graphics/Box",1500);
TS("Symmetry"); DoSymmetry;
TS("Shadow"); TSFileChar("::/Demo/Graphics/Shadow",1500);
TS("Transform"); TSFileChar("::/Demo/Graphics/Transform",,CH_SHIFT_ESC);
TS("3DPoly"); TSFileChar("::/Demo/Graphics/3DPoly",1500);
TS("Box"); TSFileChar("::/Demo/Graphics/Box",1500);
TS("Symmetry"); DoSymmetry;
TS("Shadow"); TSFileChar("::/Demo/Graphics/Shadow",1500);
TS("Transform"); TSFileChar("::/Demo/Graphics/Transform",,CH_SHIFT_ESC);
TS("LightTable"); DoLightTable;
TS("PredatorPrey"); DoPredatorPrey;
TS("PoleZeros"); DoPoleZeros;
TS("Digits"); DoDigits;
TS("Stadium"); DoStadium;
TS("PoleZeros"); DoPoleZeros;
TS("Digits"); DoDigits;
TS("Stadium"); DoStadium;
TS("ElephantWalk"); DoElephantWalk;
TS("Halogen"); DoHalogen;
TS("Maze"); TSFileChar("::/Demo/Games/Maze",,CH_SHIFT_ESC);
TS("FontEd"); TSFileChar("::/Demo/Graphics/FontEd",,CH_SHIFT_ESC);
TS("Lattice"); DoLattice;
TS("CtrlR1"); DoCtrlR1;
TS("F2Macro"); DoF2Macro;
TS("Halogen"); DoHalogen;
TS("Maze"); TSFileChar("::/Demo/Games/Maze",,CH_SHIFT_ESC);
TS("FontEd"); TSFileChar("::/Demo/Graphics/FontEd",,CH_SHIFT_ESC);
TS("Lattice"); DoLattice;
TS("CtrlR1"); DoCtrlR1;
TS("F2Macro"); DoF2Macro;
TS("SubIntAccess"); TSFile("::/Demo/SubIntAccess");
TS("DemoDoc"); DoDemoDoc;
TS("TreeDemo"); TSFile("::/Demo/DolDoc/TreeDemo");
TS("TextDemo"); TSFile("::/Demo/DolDoc/TextDemo");
TS("DemoDoc"); DoDemoDoc;
TS("TreeDemo"); TSFile("::/Demo/DolDoc/TreeDemo");
TS("TextDemo"); TSFile("::/Demo/DolDoc/TextDemo");
TS("CursorMove"); TSFile("::/Demo/DolDoc/CursorMove");
TS("MiniCompiler"); DoMiniCompiler;
// TS("MiniGrLib"); TSFile("::/Demo/Lectures/MiniGrLib",0);
TS("TimeIns"); TSFileChar("::/Demo/TimeIns");
TS("TimeIns"); TSFileChar("::/Demo/TimeIns");
TS("PhoneNumWords"); DoPhoneNumWords;
TS("UnusedSpaceRep"); TSFile("::/Demo/Disk/UnusedSpaceRep");
TS("BlkDevRep"); TSFile("::/Demo/Disk/BlkDevRep");
TS("LastClass"); DoLastClass;
TS("FPrintF"); if (DriveIsWritable('~')) DoFPrintF;
TS("UnusedSpaceRep"); TSFile("::/Demo/Disk/UnusedSpaceRep");
TS("BlkDevRep"); TSFile("::/Demo/Disk/BlkDevRep");
TS("LastClass"); DoLastClass;
TS("FPrintF"); if (DriveIsWritable('~')) DoFPrintF;
TS("SerializeTree"); TSFile("::/Demo/Disk/SerializeTree");
TS("Exceptions"); DoExceptions;
TS("ScreenDCodes"); TSFileChar("::/Demo/ScreenCodes");
TS("ExtChars"); TSFile("::/Demo/ExtChars");
TS("PanText"); TSFile("::/Demo/Graphics/PanText",0);
TS("ExtChars"); TSFile("::/Demo/ExtChars");
TS("PanText"); TSFile("::/Demo/Graphics/PanText",0);
TS("CharAnimation"); TSFile("::/Demo/Graphics/CharAnimation");
TS("CharDemo"); DoCharDemo;
TS("DateTime"); TSFile("::/Demo/DateTime");
TS("SubSwitch"); TSFile("::/Demo/SubSwitch");
TS("NullCase"); TSFile("::/Demo/NullCase");
TS("CharDemo"); DoCharDemo;
TS("DateTime"); TSFile("::/Demo/DateTime");
TS("SubSwitch"); TSFile("::/Demo/SubSwitch");
TS("NullCase"); TSFile("::/Demo/NullCase");
TS("Magicpairs"); TSFile("::/Demo/MagicPairs");
TS("Hanoi"); TSFileChar("::/Demo/Graphics/Hanoi",3000);
TS("Squirt"); DoSquirt;
TS("CommonAncestor");
TSFileChar("::/Demo/Graphics/CommonAncestor",1500,CH_SHIFT_ESC);
TS("Cartesian"); DoCartesian;
TS("RainDrops"); TSFileChar("::/Demo/Games/RainDrops",,CH_SHIFT_ESC);
TS("Collision"); TSFileChar("::/Demo/Games/Collision",1500);
TS("Logic"); DoLogic;
TS("Hanoi"); TSFileChar("::/Demo/Graphics/Hanoi",3000);
TS("Squirt"); DoSquirt;
TS("CommonAncestor"); TSFileChar("::/Demo/Graphics/CommonAncestor",1500,CH_SHIFT_ESC);
TS("Cartesian"); DoCartesian;
TS("RainDrops"); TSFileChar("::/Demo/Games/RainDrops",,CH_SHIFT_ESC);
TS("Collision"); TSFileChar("::/Demo/Games/Collision",1500);
TS("Logic"); DoLogic;
TS("CompileDemo"); TSFile("::/Demo/CompileDemo");
TS("Prompt"); DoPrompt;
TS("WebLog"); if (DriveIsWritable('~')) DoWebLog;
TS("RevFile"); if (DriveIsWritable('~')) DoRevFile;
TS("SortFile"); if (DriveIsWritable('~')) DoSortFile;
TS("Prompt"); DoPrompt;
TS("WebLog"); if (DriveIsWritable('~')) DoWebLog;
TS("RevFile"); if (DriveIsWritable('~')) DoRevFile;
TS("SortFile"); if (DriveIsWritable('~')) DoSortFile;
TS("ToHtmlToTXT"); if (DriveIsWritable('~')) DoToHtmlToTXT;
TS("RegistryDemo"); if (DriveIsWritable('~'))
TSFile("::/Demo/RegistryDemo");
TS("Define"); DoDefine;
TS("RegistryDemo"); if (DriveIsWritable('~')) TSFile("::/Demo/RegistryDemo");
TS("Define"); DoDefine;
TS("GlobalVars"); TSFile("::/Demo/GlobalVars");
TS("FileRead"); DoFileRead;
TS("ParenWarn"); TSFile("::/Demo/ParenWarn");
TS("DefineStr"); TSFile("::/Demo/DolDoc/DefineStr");
TS("Data"); TSFile("::/Demo/DolDoc/Data");
TS("CallBack"); TSFile("::/Demo/DolDoc/CallBack");
TS("ClassMeta"); TSFile("::/Demo/ClassMeta");
TS("Form"); DoForm;
TS("FileRead"); DoFileRead;
TS("ParenWarn"); TSFile("::/Demo/ParenWarn");
TS("DefineStr"); TSFile("::/Demo/DolDoc/DefineStr");
TS("Data"); TSFile("::/Demo/DolDoc/Data");
TS("CallBack"); TSFile("::/Demo/DolDoc/CallBack");
TS("ClassMeta"); TSFile("::/Demo/ClassMeta");
TS("Form"); DoForm;
TS("ClickCallBack"); DoClickCallBack;
TS("MenuBttn"); DoMenuBttn;
TS("MenuSprite");DoMenuSprite;
TS("SuggestedSpelling"); DoSuggestedSpelling;
TS("MenuBttn"); DoMenuBttn;
TS("MenuSprite"); DoMenuSprite;
TS("SuggestedSpelling");DoSuggestedSpelling;
TS("WordSearch"); TSFileChar("::/Demo/WordSearch");
TS("StackGrow"); TSFile("::/Demo/StackGrow");
TS("MemDemo"); TSFile("::/Demo/MemDemo");
TS("WaterFowl"); TSFileChar("::/Demo/Sound/WaterFowl");
TS("StackGrow"); TSFile("::/Demo/StackGrow");
TS("MemDemo"); TSFile("::/Demo/MemDemo");
TS("WaterFowl"); TSFileChar("::/Demo/Sound/WaterFowl");
TS("AsmHelloWorld"); TSFile("::/Demo/Asm/AsmHelloWorld");
TS("AsmAndC1"); DoAsmAndC1;
TS("AsmAndC2"); DoAsmAndC2;
TS("AsmAndC3"); TSFile("::/Demo/Asm/AsmAndC3");
TS("MulByHand"); TSFile("::/Demo/Asm/MulByHand");
TS("DivByHand"); TSFile("::/Demo/Asm/DivByHand");
TS("BuzzFizz"); TSFile("::/Demo/Asm/BuzzFizz");
TS("PutDec"); TSFile("::/Demo/Asm/PutDec");
TS("AsmAndC1"); DoAsmAndC1;
TS("AsmAndC2"); DoAsmAndC2;
TS("AsmAndC3"); TSFile("::/Demo/Asm/AsmAndC3");
TS("MulByHand"); TSFile("::/Demo/Asm/MulByHand");
TS("DivByHand"); TSFile("::/Demo/Asm/DivByHand");
TS("BuzzFizz"); TSFile("::/Demo/Asm/BuzzFizz");
TS("PutDec"); TSFile("::/Demo/Asm/PutDec");
task=User;
TS("Prof"); XTalkWait(task,"DocMax;Prof;HeapLog(ON);\n");
TS("PCIRep"); XTalkWait(task,"PCIRep;Sleep(750);\n");
TS("MemBIOSRep"); XTalkWait(task,"MemBIOSRep;Sleep(750);\n");
TS("MemPageRep"); XTalkWait(task,"MemPageRep;Sleep(750);\n");
TS("MemRep"); XTalkWait(task,"MemRep;Sleep(750);\n");
TS("ProfRep"); XTalkWait(task,"ProfRep;Sleep(750);\n");
TS("HeapLogSizeRep"); XTalkWait(task,"HeapLogSizeRep;Sleep(750);\n");
TS("CPURep"); if (mp_count>1)
XTalkWait(task,"CPURep(TRUE);Sleep(750);\n");
TS("DiskCheck"); if (DriveIsWritable(':'))
XTalkWait(task,"DiskCheck;Sleep(750);\n");
TS("DriveView"); if (DriveIsWritable(':')) {
XTalkWait(task,"DriveView;\n");
Sleep(750);
MessagePostWait(task,MESSAGE_KEY_DOWN_UP,CH_SPACE,0);
}
TS("DiskView"); if (DriveIsWritable(':')) {
XTalkWait(task,"DiskView;\n");
Sleep(250); //Short because ATARep takes time.
MessagePostWait(task,MESSAGE_KEY_DOWN_UP,CH_SPACE,0);
}
TS("ATARep"); XTalkWait(task,"ATARep;\npSleep(750);\n");
TS("HashDepthRep"); XTalkWait(task,"HashDepthRep(zenith_task->hash_table);Sleep(750);\n");
TS("Who"); XTalkWait(task,"Who;Sleep(750);\n");
TS("DriveRep"); XTalkWait(task,"DriveRep;Sleep(750);\n");
TS("TaskRep"); XTalkWait(task,"TaskRep;Sleep(750);\n");
TS("VideoRep"); XTalkWait(task, "VideoRep;Sleep(750);\n");
DeathWait(&task,TRUE);
TS("Prof"); XTalkWait(task, "DocMax;Prof;HeapLog(ON);\n");
TS("PCIRep"); XTalkWait(task, "PCIRep;Sleep(750);\n");
TS("MemBIOSRep"); XTalkWait(task, "MemBIOSRep;Sleep(750);\n");
TS("MemPageRep"); XTalkWait(task, "MemPageRep;Sleep(750);\n");
TS("MemRep"); XTalkWait(task, "MemRep;Sleep(750);\n");
TS("ProfRep"); XTalkWait(task, "ProfRep;Sleep(750);\n");
TS("HeapLogSizeRep"); XTalkWait(task, "HeapLogSizeRep;Sleep(750);\n");
TS("CPURep"); if (mp_count > 1) XTalkWait(task, "CPURep(TRUE);Sleep(750);\n");
TS("DiskCheck"); if (DriveIsWritable(':')) XTalkWait(task, "DiskCheck;Sleep(750);\n");
TS("DriveView"); if (DriveIsWritable(':'))
{
XTalkWait(task, "DriveView;\n");
Sleep(750);
MessagePostWait(task, MESSAGE_KEY_DOWN_UP, CH_SPACE, 0);
}
TS("DiskView"); if (DriveIsWritable(':'))
{
XTalkWait(task, "DiskView;\n");
Sleep(250); //Short because ATARep takes time.
MessagePostWait(task, MESSAGE_KEY_DOWN_UP, CH_SPACE, 0);
}
TS("ATARep"); XTalkWait(task, "ATARep;\npSleep(750);\n");
TS("HashDepthRep"); XTalkWait(task, "HashDepthRep(zenith_task->hash_table);Sleep(750);\n");
TS("Who"); XTalkWait(task, "Who;Sleep(750);\n");
TS("DriveRep"); XTalkWait(task, "DriveRep;Sleep(750);\n");
TS("TaskRep"); XTalkWait(task, "TaskRep;Sleep(750);\n");
TS("VideoRep"); XTalkWait(task, "VideoRep;Sleep(750);\n");
TS("SysRep"); XTalkWait(task, "SysRep;Sleep(750);\n");
DeathWait(&task, TRUE);
ProgressBarsReset("ZenithOS/OSTestSuite");
"Elapsed Time:%5.3f\n",tS-ts_t0;
"Elapsed Time:%5.3f\n", tS - ts_t0;
}
OSTestSuite;