CirioPortNumStuff.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Sturgis, March 22, 1990 9:19 am PST
Spreitze, January 28, 1991 2:15 pm PST
Willie-s, May 14, 1992 2:20 pm PDT
DIRECTORY
Commander USING[CommandProc, Register],
IO USING[card, PutF1, PutFR1],
Labels USING[Create];
CirioPortNumStuff:
CEDAR
PROGRAM
IMPORTS Commander,
IO, Labels =
BEGIN
GetPortNum:
PROC
RETURNS[
CARD] =
TRUSTED
MACHINE
CODE
{"CirioNubLocalGetPort"};
CreateCirioPortButton: Commander.CommandProc =
{[] ¬ Labels.Create[[name: IO.PutFR1["CirioPort: %g", IO.card[GetPortNum[]]]]]};
ShowCirioPort: Commander.CommandProc =
{IO.PutF1[cmd.out, "%g\N", IO.card[GetPortNum[]]]};
Commander.Register["CirioPortButton", CreateCirioPortButton, "installs a button showing current Cirio Port, so long as exactly one DebugNub has been loaded and it has been started"];
Commander.Register["ShowCirioPort", ShowCirioPort, "shows current Cirio Port, so long as exactly one DebugNub has been loaded and it has been started"];
END..