*************************************************************************
*	NamePorts V1.0 (No further version will be available,		*
*	because the subject isn't that fascinating...)			*
*	Christian Schneider/Power Point Thu Sep 27 12:26:49 1990	*
*************************************************************************
start:
	move.l	4.w,a6
	jsr	-120(a6)
	moveq	#ppp-Powerport,d0
	moveq	#1,d1
	jsr	-198(a6)
	move.l	d0,a1;			If I don't get this,
	move.l	d0,d2
	beq.s	exit;			good by world.....
	lea	Powerport(pc),a0
copyloop:
	move.b	(a0)+,(a1)+
	bne.s	copyloop
	lea	$188(a6),a0
checkportsloop:
	move.l	(a0),d0
	beq.s	exit
	move.l	d0,a0
	tst.l	10(a0)
	bne.s	checkportsloop
	move.l	d2,10(a0)
	bra.s	checkportsloop
exit:
	jsr	-126(a6)
	moveq	#0,d0
	rts

Powerport:	dc.b	"NoNamePort!",0
ppp: