$LARGE(READSUB HAS READ$DB$MOD; EXPORTS READ$DB)
$LARGE(WRITESUB HAS WRITE$DB$MOD; EXPORTS WRITE$DB)
$TITLE('MAINLINE MODULE')

/****************************************************************************/
/*                                                                          */
/*              INTEL CORPORATION PROPRIETARY INFORMATION                   */
/*                                                                          */
/*              (C) COPYRIGHT INTEL CORPORATION 1981,1982                   */
/*                                                                          */
/****************************************************************************/

/*{#  MAINLINE$CODE
+TD$START
*This is the mainline code for WSST86.  It sets the DETMON public variable
USER$NUMBER$OF$TESTS to 1DH.  The user can then manually set this variable
(word type) to 20H to reveal tests 1D, 1E, and 1F.  These tests are designed
as software debugging tools for the experienced user.  After setting
USER$NUMBER$OF$TESTS, TD$START is called to start DETMON running.  DETMON
then calls USER$RESET$HARDWARE and USER$RESET$SOFTWARE (located in the
RESET MODULE).  After the two reset routines are finished, DETMON prompts for
input through its command line interrupter.

See the DETMON EPS for additional details about DETMON.}*/

MAINLINE: DO;

$INCLUDE(:F1:DETMON.EXT)

/* SET USER$NUMBER$OF$TESTS TO HIDE SOFTWARE TOOLS TESTS 1D, 1E, AND 1F */
USER$NUMBER$OF$TESTS = 1DH;

CALL TD$START;

END MAINLINE;