	.title	gtddir
	.globl	gtddir, .rdfui, .ppasc
;
;	implements the following fortran subroutine call
;
;	call gtddir(dir)
;
gtddir::
	call	.rdfui			; get default uic (binary) into r1
	mov	r1,r3			; need it in r3 for .ppasc
	mov	2(r5),r2		; address of dir in r2
	mov	#1,r4			; desire separators and leading zeroes
	call	.ppasc			; convert to [ggg,mmm]
	clrb	(r2)			; r2 points to EOS location
	return
	.end
