<<>> <> <> <> <> <> 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..