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.. Κ 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 Κ-–(cedarcode) style•NewlineDelimiter ™šœ™Jšœ Οeœ1™