/*
 *
 * pascaldebug  Version 0.0  28NOV83
 *
 * This is the Pascal debug subtree.
 *
 */

/*
 * TNIX/Unix/VMS Version
 * Keyshell Version Number 2
 */

pascaldebug
{
#if (_micro == _68000uP)
	>
	>\kF1-F5\e - Previously selected file names.
	>
	>\klistfiles\e - Lists files in current directory.
	>
	>To \uexit\n from pdb, type \uexit<Return>\n.
	>
	cmd(^pdb.assist ), msg(^Enter name of emulator setup file: %f),
	next;
	f1;;hist;
	f2;;hist;
	f3;;hist;
	f4;;hist;
	f5;;hist;
#ifdef _UNIX
	f6;listfiles; call, cmd(^ls *.ie), exec, return;
#else
#ifdef _VMS
	f6;listfiles; call, cmd(^dir *.ie), exec, return;
#else
Error!  No operating system specified.
#endif
#endif
	f7;manual; man (pdb);
	f8;done; msg, break;
    }, {
	msg(^Function keys are disabled while in pdb.  To leave pdb type "exit<Return>".),
	exec, msg, cmd, break;
#else
	>
	>The output of \kics\e is a load module file.  This file is downloaded to the
	>emulator memory for debugging.  Enter the name of the file.
	>\mNote: pdb assumes that the emulator hardware has already been setup.\n
	>
	>\klistfiles\e - Lists files in current directory.
	>
	>To \uexit\n from pdb, type \uexit<Return>\n.
	>
	cmd(^pdb.assist ), msg(^Enter name of load module: %f),
	next;
	f1;;hist;
	f2;;hist;
	f3;;hist;
	f4;;hist;
	f5;;hist;
#ifdef _UNIX
	f6;listfiles; call, cmd(^ls), exec, return;
#else
#ifdef _VMS
	f6;listfiles; call, cmd(^dir), exec, return;
#else
Error!  No operating system specified.
#endif
#endif
	f7;manual; man (pdb);
	f8;done; msg, break;
    }, {
	msg(^Function keys are disabled while in pdb.  To leave pdb type "exit<Return>".),
	exec, msg, cmd, break;
#endif
}
