Trailing-Edge
-
PDP-10 Archives
-
tops10and20_integ_tools_v9_3-aug-86
-
tools/crc/browse/cruser.mac
There are no other files named cruser.mac in the archive.
title cruser - returns user name
search crcsym,monsym,macsym
entry cruser
external gtbufa,ptbufa
;
;refer from fortran with CALL CRUSER(IUSER)
;where IUSER is an area to receive the users name
;
cruser: seto t1, ;-1 for current job
move t2,[-1,,t4] ;move 1 word from table to t4
movei t3,2 ;get user number
getji% ;get the info
jrst err
movx t1,0 ;get pointer to o/p area
call gtbufa ;may be f77 character
move t2,t4 ;user number to t2
dirst% ;convert no. to name
jrst err
err: movx t1,0 ;get pointer to o/p area
call ptbufa ;copy f77 characters to o/p area
ret ;return
end