Trailing-Edge
-
PDP-10 Archives
-
steco_19840320_1er_E35
-
10,5676/teco/macros/getnam.tco
There is 1 other file named getnam.tco in the archive. Click here to see a list.
!;GETNAM -- Returns the user's name in Q0 !
EO[D !; Save EO level in Q-reg D !
[A [B [C !;save some regs!
-1,^O32^GUA !;get second half of user's name!
QA&^O377777777777UB !;copy it, but avoid negative numbers!
5< QB&^O77UC [C QB/64UB > !;get characters from right to left!
QA"L QB#32UB' [B !;correct dropped bit on first char!
-1,^O31^GUA !;get first half of user's name!
QA&^O377777777777UB !;copy it, but avoid negative numbers!
5< QB&^O77UC [C QB/64UB > !;get characters from right to left!
QA"L QB#32UB' [B !;correct dropped bit on first char!
.UA !;remember where we are!
12< ]C QC+32I$ > !;copy the name into the buffer!
!CLEAN! R 1A-32"E D OCLEAN$' C !;get rid of trailing spaces!
QA,.X0 QA,.K !;put it in Q0 and get rid of it!
]C ]B ]A !;restore the regs!
QDEO]D !;restore EO level!