%%HP: T(3)A(D)F(.);
@ SPORT ( Search PORT, a Port Management Utility ) by Dave Marsh
@ Modified by Joe Horn
@ ***** FOR G Series ONLY!!! *****
@ Searches for a name or lib in all your ports & tells where it is.
@ Global Name *or* library ID --> list of ports containing the input
@ Example:  'FOOBAR' SPORT --> { 2 9 }
@             ports 2 & 9 contain a backup object called 'FOOBAR'.
@ Example:  776 SPORT --> { }
@             no port contains a lib with ID of 776.
"
::
  ::
    CK1NoBlame CK&DISPATCH1
    real COERCE
    id NOP
  ;
  ::
    TOTEMPOB NULL{}
    { NULLLAM NULLLAM } BIND
CODE
	GOSBVL	=SAVPTR
	D0=(5)	#80533
	A=0	A
	A=DAT0	B
	A=A+1	B
	A=A+1	B
	GOVLNG	=PUSH#ALOOP
ENDCODE
    ZERO
    DO
      2GETLAM INDEX@ X@
      ITE
        ::
          2DROP 1GETLAM INDEX@ UNCOERCE >TCOMP 1PUTLAM
        ;
        DROP
      LOOP
    1GETLAM ABND
  ;
;"