.MCALL .MODULE .MODULE RESUSR,VERSION=1,COMMENT=,IDENT=NO ; Copyright (c) 1998 by Mentec, Inc., Nashua, NH. ; All rights reserved ; ; This software is furnished under a license for use only on a ; single computer system and may be copied only with the ; inclusion of the above copyright notice. This software, or ; any other copies thereof, may not be provided or otherwise ; made available to any other person except for use on such ; system and to one who agrees to these license terms. Title ; to and ownership of the software shall at all times remain ; in Mentec, Inc. ; ; The information in this document is subject to change without ; notice and should not be construed as a commitment by Digital ; Equipment Corporation, or Mentec, Inc. ; ; Digital and Mentec assume no responsibility for the use or ; reliability of its software on equipment which is not supplied ; by Digital or Mentec, and listed in the Software Product ; Description. ; Edit History: ; 001 George Stevens Overlaid version of RESORC. Created from RESORC ; Version 97 .NLIST .INCLUDE /SRC:RESPFX.MAC/ .MCALL .DATE .LIST .SBTTL USERS - Show system users ;+ ; Show who is using the system. ;- ORIGIN RESUSR USERS:: TST A$$ ; Is this the all option. BNE 10$ ; Yes, then don't print it. .DATE ; Check for the magic value CMP R0,#2074 ; which is 002075 BNE 4$ ; If not magic, give the YOU message .PRINT #ME ; Otherwise do the ME message RETURN 4$: .PRINT #YOU ; Tell him that there is only you. 10$: RETURN ; Return to the caller. ME: .ASCII <15><12> .WORD 052122,030455,020061,027065,020067,031131,020113,067567 .WORD 065562,061040,020171,064524,020155,064123,070157,060560 .BYTE 0 YOU: .ASCIZ <15><12>"Nobody but you!" .EVEN .END