/*
 * macstat  Version 0.0  28NOV83
 * 
 * This is the macstat subscript.  It is generic and microprocessor
 * independent.
 *
 */

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

macstat {
	>
	>\kregisters\e - Show register contents.
	>
	>\kmode\e - Shows current emulation mode (0, 1 or 2).
	>
	>\kmemory\e - Shows memory partitioning, emulator name and program loaded.
	>
	>\kbreaks\e - Show emulator breakpoints.
	>
	>\kall\e - Show all of the above.
	f1;registers; msg (^Displaying register contents...),
		cmd (^ds), exec, msg(^), cmd (^);
	f2;mode; msg (^Displaying emulation mode...),
		cmd (^em), exec, msg (^), cmd (^);
	f3;memory; msg (^Displaying memory status...),
#ifdef _UNIX
		cmd (^al; memsp; map; stat), exec,
#else
#ifdef _VMS
		cmd (^icom al), exec,
#else
		cmd (^al), exec,
#endif
		cmd (^memsp), exec,
		cmd (^map), exec,
		cmd (^stat), exec,
#endif
			msg (^), cmd (^);
	f4;breaks; msg (^Displaying breakpoint status...),
#ifdef _UNIX
		cmd (^tra; bk), exec,
#else
		cmd (^tra), exec,
		cmd (^bk), exec,
#endif
			msg (^), cmd (^);
	f5;all; msg (^Displaying emulator status...),
#ifdef _UNIX
		cmd (^em; ds; al; memsp; map; tra; bk), exec,
#else
		cmd (^em), exec,
		cmd (^ds), exec,
#ifdef _VMS
		cmd (^icom al), exec,
#else
		cmd (^al), exec,
#endif
		cmd (^memsp), exec,
		cmd (^map), exec,
		cmd (^tra), exec,
		cmd (^bk), exec,
#endif
		msg (^), cmd (^);
	f8;done; cmd (^), msg (^), break;
}
