/*
 *
 * portcmds  Version 0.0  28NOV83
 *
 * Port commands include file.  It contains the subtrees for the
 * generic rd and wrt commands.
 *
 */

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

/*
 * Read port subscript.  It is generic and microprocessor independent.
 */

rdport {
	>
	cmd (^rd ), msg (^Portnumber: %P), exec, msg (^), cmd (^), break;
	f1;; hist;
	f2;; hist;
	f3;; hist;
	f4;; hist;
	f5;; hist;
	f6;; hist;
	f7;manual; man (rd);
	f8;done; msg (^), cmd (^), break;
}

/*
 * This is the write port subscript.  This is generic for all
 * microprocessors that support this command.
 */

wrtport {
	>
	cmd (^wrt ), msg (^Portnumber: %P), next;
	f1;; hist;
	f2;; hist;
	f3;; hist;
	f4;; hist;
	f5;; hist;
	f6;; hist;
	f7;manual; man (wrt);
	f8;done; msg (^), cmd (^), break; 
}, {
	>
	msg ( value: %p), exec, msg (^), cmd (^), break;
	f1;; hist;
	f2;; hist;
	f3;; hist;
	f4;; hist;
	f5;; hist;
	f6;; hist;
	f7;manual; man (wrt);
	f8;done; msg (^), cmd (^), break;
}
