/*
 *
 * reg8bit  Version 0.0  28NOV83
 *
 * This is the register subtree for the 8-bit processors.
 *
 */

/*
 * TNIX/Unix/VMS Version
 * Keyshell Version Number 1
 */
 
/*
 * This is the set subtree for *most* of the microprocessors
 */

nrmlset
{
				>
				cmd (^s ), msg (^Register name: %p), next;
				f1;; hist;
				f2;; hist;
				f3;; hist;
				f4;; hist;
				f5;; hist;
				f6;; hist;
				f7;manual; man (s);
				f8;done; msg (^), cmd (^), break;
			}, {
				>
				cmd (=), msg ( value: %p), exec,
				msg (^), cmd (^), back;
				f1;; hist;
				f2;; hist;
				f3;; hist;
				f4;; hist;
				f5;; hist;
				f6;; hist;
				f7;manual; man (s);
				f8;done; msg (^), cmd (^), break;
}

reg8bit
{
			>
			>\kshow reg\e - Shows the register contents.
			>
			>\kset\e - Changes the register contents.
			>
			>\kreset\e - Resets the emulator.
			f1;show reg; msg (^Displaying register contents...),
				cmd (^ds), exec, msg (^), cmd (^);
			f2;set; [nrmlset];
			f3;reset; msg (^), cmd (^reset), exec;
			f7;manual; man (s), man (reset);
			f8;done; msg (^), cmd (^), break;
}
