

/

/ fx5 -- declare implicit

.globl	declimpl
.globl	getname

declimpl:
	bit	$7,symtab(r3)
	bne	1f		/ already declared
	jsr	r5,getname
	movb	symbuf,r0
	cmp	r0,$'a
	blo	2f
	sub	$6,r0		/