.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