%%HP: T(3)A(R)F(.);
@ HIPORT by Joe Horn.  For GX only!
@ Returns highest port number of card in GX slot 2.
@ 1 means "no card in slot 2".
"::
 CODE
	GOSBVL	=SAVPTR
	D0=(5)  #80533  <-- two nibs = card 2 size
	A=0	A
	A=DAT0	B
	A=A+1	B
	GOVLNG	=PUSH#ALOOP
ENDCODE
 UNCOERCE
;"