/* 
 *
 * breakpoint  Verion 0.0  28NOV83
 *
 * This is the breakpoint subtree.  It is generic for *all* processors.
 *
 */

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

breakpoint
{
			>
			>\kshow bk\e - Displays breakpoint status.
			>
			>\kset bk 1\e - Allows you to set breakpoint 1.
			>
			>\kset bk 2\e - Allows you to set breakpoint 2.
			>
			>\kclr bk 1\e - Clears breakpoint 1.
			>
			>\kclr bk 2\e - Clears breakpoint 2.
			f1;show bk; msg (^Displaying breakpoint status...),
				cmd (^bk), exec, msg (^), cmd (^);
			f2;set bk 1; {
				>
				cmd (^bk 1 ),
					msg (^Break at what address? %p), exec,
					msg (^), break;
				f1;; hist;
				f2;; hist;
				f3;; hist;
				f4;; hist;
				f5;; hist;
				f6;; hist;
				f7;manual; man (bk);
				f8;done; msg (^), cmd (^), break (1);
			};
			f3;set bk 2; {
				>
				cmd (^bk 2 ),
					msg (^Break at what address? %p), exec,
					msg (^), break;
				f1;; hist;
				f2;; hist;
				f3;; hist;
				f4;; hist;
				f5;; hist;
				f6;; hist;
				f7;manual; man (bk);
				f8;done; msg (^), cmd (^), break (1);
			};
			f5;clr bk 1; msg (^), cmd (^bk 1 clr), exec;
			f6;clr bk 2; msg (^), cmd (^bk 2 clr), exec;
			f7;manual; man (bk);
			f8;done; msg (^), cmd (^), break;
}
