Google
 

Trailing-Edge - PDP-10 Archives - bb-h138e-bm_tops20_v6_1_distr - 6-1-sources/ulist.mac
There are 21 other files named ulist.mac in the archive. Click here to see a list.
; UPD ID= 144, SNARK:<6.1.UTILITIES>ULIST.MAC.7,  18-Jun-85 16:06:31 by LEACHE
;TCO 6.1.1458 Move data structures out of PC section and increase MAXUSR
; UPD ID= 50, SNARK:<6.1.UTILITIES>ULIST.MAC.6,  20-Nov-84 01:08:54 by GROSSMAN
;UPDATE COPYRIGHT FOR RELEASE 6
; UPD ID= 578, SNARK:<6.UTILITIES>ULIST.MAC.5,   8-Aug-84 10:35:34 by PURRETTA
;Remove OMIT command from help display.
; UPD ID= 472, SNARK:<6.UTILITIES>ULIST.MAC.4,   8-Feb-84 10:09:28 by EVANS
;Add flag to edit number so I VER will display it in decimal.
; UPD ID= 315, SNARK:<6.UTILITIES>ULIST.MAC.3,   7-Jul-83 21:11:59 by TGRADY
; Update version number to be unique to V6.
; UPD ID= 267, SNARK:<6.UTILITIES>ULIST.MAC.2,  20-Apr-83 10:30:41 by LEACHE
;TCO 6.1623 - Remove INCLUDE/OMIT and associated password display code
; UPD ID= 977, SNARK:<5.UTILITIES>ULIST.MAC.4,  29-Aug-80 14:17:32 by SCHMITT
;GENERATE FORM FEED BEFORE MINI LISTING
; UPD ID= 525, SNARK:<5.UTILITIES>ULIST.MAC.3,  16-May-80 13:47:18 by LYONS
;ADD NEW PRIV BITS FOR ARPANET-ACCESS AND DECNET-ACCESS
;<4.UTILITIES>ULIST.MAC.24, 12-Mar-79 14:25:52, EDIT BY KONEN
;UPDATE COPYRIGHT FOR RELEASE 4
;<4.UTILITIES>ULIST.MAC.23, 23-Jan-79 16:22:13, Edit by KONEN
;UPDATE VERSION NUMBER FOR RELEASE 4
;<4.UTILITIES>ULIST.MAC.22,  13-APR-78 14:22:52 EDIT BY COWER
;TCO 1902 - INFO ON MORE THAN ONE STRUCTURE IN SESSION



;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1976,1977,1978,1979,1980,1984 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

TITLE ULIST  LIST USER DIRECTORY
	SEARCH MONSYM, MACSYM
	.REQUIRE SYS:MACREL
	SALL
	IFNDEF .PSECT,<
	.DIRECT .XTABM>

; VERSION NUMBER DEFINITIONS

VMAJOR==6		;MAJOR VERSION OF ULIST
VMINOR==1		;MINOR VERSION NUMBER
VEDIT==VI%DEC+^D12	;EDIT NUMBER
VWHO==0			;GROUP WHO LAST EDITED PROGRAM (0=DEC DEVELOPMENT)

VULIST== <VWHO>B2+<VMAJOR>B11+<VMINOR>B17+VEDIT

F=0		;FLAG AC
A=1
B=2
C=3
D=4
E=5
NC=6
T1=7
T2=10
T3=11
BP=12
CH=13
CX=16
P=17

COLWID==^D32			;COLUMN WIDTH FOR MINI LISTING
NARCOL==^D72/COLWID		;NUMBER OF COLUMNS ON NARROW LISTING
WIDCOL==^D132/COLWID		;NUMBER OF COLUMNS ON WIDE LISTING

NCHPW==5		;NUMBER OF ASCII CHARACTERS PER WORD

;Note: increasing this parameter can force certain tables out of the
;PC section - in which case you, Mr programmer, have some work to do.
MAXUSR==40000		;MAXIMUM USER NUMBER+1

PAGLEN==^D56		;LINES WRITTEN ON A PAGE
COMFRE==50		;FREE SPACE AFTER COMMAND TABLE
GRPLSZ==17000		;SIZE OF MASTER GROUP BIT MAP
NGPUSR==10		;ESTIMATED AVERAGE # OF GROUPS/USER
GRPSIZ==1000		;SIZE OF GROUP BLOCKS
GBFSIZ==^D12/5+1	;SIZE OF GROUP BUFFER FOR OUTPUT
BUFSIZ==200		;SIZE OF INPUT TEXT BUFFER
ATMSIZ==200		;SIZE OF ATOM BUFFER
GJFSIZ==.GJRTY+2	;SIZE OF GTJFN BLOCK FOR COMND JSYS

C.FF==14		;FORMFEED

NAMPAG==100000			;PAGE FOR NAME STRING STORAGE
NAMPTR==200000			;POINTERS TO THE NAME STRINGS

TEMPS==NAMPTR			;START OF PAGES TO BE ZEROED
 UGRTAB==NAMPTR+MAXUSR		;USER GROUP POINTERS
 DGRTAB==UGRTAB+MAXUSR		;DIRECTORY GROUP POINTERS
 ORDRTB=DGRTAB+MAXUSR		;TABLE OF INDECES INTO OTHER TABLES, SORTED
 PRVTAB==ORDRTB+MAXUSR		;TABLE OF PRIVILEGE BITS
 TYPTAB==PRVTAB+MAXUSR		;TABLE OF USER TYPE BITS
ETEMPS==PRVTAB+MAXUSR-1		;END OF ZEROED AREA
 ;Force these 2 tables into next section
XTEMP==DTSEC,,0			;BEGIN EXTENDED TEMP AREA
 DGLTAB==XTEMP			;TABLE OF DIR GROUP LISTS
 UGLTAB==DGLTAB+NGPUSR*MAXUSR	;TABLE OF USER GROUP LISTS
EXTEMP==DGLTAB+NGPUSR*MAXUSR-1	;END EXTENDED TEMP AREA

USERLH==500000			;LEFT HALF OF A USER NUMBER
SUBTTL	MACRO DEFINITIONS

; FUNCTION DESCRIPTOR BLOCK FOR COMND JSYS

DEFINE CMFDB (TYPE,FLAGS,DATA,HELP,DEFLT,LST)
<	..XX== < FLD(TYPE,CM%FNC) + FLAGS + LST >
  IFNB <HELP>,< ..XX== ..XX+CM%HPP >
  IFNB <DEFLT>,< ..XX== ..XX+CM%DPP >
	..XX
  IFNB <DATA>,<DATA>
  IFB <DATA>,<0>
  IFNB <HELP>, <POINT 7,[ASCIZ\HELP\] >
  IFB <HELP>,  <0>
  IFNB <DEFLT>, <POINT 7,DEFLT >
  IFB <DEFLT>, <0>
>

DEFINE TXT(TEXT) <POINT 7,[ASCIZ\TEXT\]>
;FLAGS

R.WIDE==10		;WIDE PAPER IF ONE
R.DGRP==20		;DIRECTORY GROUP LISTING IF ONE.
R.LIN2==100		;SECOND LINE NEEDED IN NARROW LISTING
R.DGM==200		;GROUP HAS A MEMBER
R.LPT==400		;USER ASKED FOR OUTPUT TO LPT VIA LPT CMD
R.ALPH==1000		;ALPHABETIC LISTING
R.NUM==2000		;NUMERIC LISTING
R.MINI==4000		;MINI LISTING
R.COLL==10000		;HAVE COLLECTED AND SORTED NAMES

;FLAGS TO BE CLEARED AFTER COMMAND COMPLETION

F.CLR==R.DGRP+R.LPT+R.ALPH+R.NUM+R.MINI

;FLAGS TO BE DEFAULTED ON

F.DEF==R.WIDE
	PCSEC==1		;PC section
	DTSEC==2		;Data section

;PROGRAM ENTRY VECTOR

ENTVEC:	JRST START		;STARTING LOCATION
	JRST START		;REENTER LOCATION
	VULIST			;VERSION NUMBER

ENTRY START

START:	XMOVEI A,100		;Get our PC section
	HLRZS A			;...
	CAIN A,PCSEC		;Are we there already?
	JRST XSTART		;Yes
	HRLI A,.FHSLF
	MOVE B,[.FHSLF,,PCSEC]
	MOVE C,[SM%RD!SM%WR!SM%EX!1]
	SMAP%
	XJRSTF JRSBLK
XSTART:	RESET
	SETZ F,			;INIT FLAGS
	HRROI A,DIRBUF		;POINT TO DIR NAME
	MOVEM A,STRPTR		;INIT STRUCURE PNTR
RESTRT:	MOVE P,PDP
	TRZ F,F.CLR		;RESET FLAGS
	TRO F,F.DEF		;SET DEFAULT FLAGS
	SETOM OUTFIL
	MOVEI A,400000
	RPCAP
	TRNN B,600000		;WHEEL OR OPER?
	JRST NOCANDO
	MOVEM C,OLDCAP		;WILL RESTORE TO THESE CAPS ON EXIT
	MOVEM B,C
	EPCAP
	HRROI A,-1
	CLOSF
	 JSHLT			;UNEXPECTED ERROR

	SETZM A
	MOVEI B,DTSEC		;Map a section for extended data
	HRLI B,.FHSLF		;Get our fork #
	MOVE C,[SM%RD!SM%WR!1]	;Read/write, map 1 section
	SMAP%
SUBTTL	COMMAND PARSER AND DISPATCH

	HRROI A,PROMPT		;GET POINTER TO PROMPT STRING
	MOVEM A,CMDBLK+.CMRTY	;PUT RE-TYPE PROMPT POINTER IN STATE BLOCK
	HRROI A,BUFFER		;GET POINTER TO INPUT TEXT BUFFER
	MOVEM A,CMDBLK+.CMPTR	;SAVE POINTER TO COMMAND STRING
	MOVEM A,CMDBLK+.CMBFP	;SAVE POINTER TO START-OF-BUFFER
	MOVE A,[.PRIIN,,.PRIOU] ;GET PRIMARY INPUT,, OUTPUT JFN'S
	MOVEM A,CMDBLK+.CMIOJ	;SAVE PRIMARY JFN'S
	MOVEI A,PARSE1		;GET RE-PARSE ADDRESS
	MOVEM A,CMDBLK+.CMFLG	;SAVE RE-PARSE ADDRESS
	SETZM CMDBLK+.CMINC	;INITIALIZE # OF CHARACTERS AFTER POINTER
	MOVEI A,BUFSIZ*NCHPW	;GET # OF CHARACTERS IN BUFFER AREA
	MOVEM A,CMDBLK+.CMCNT	;SAVE INITIAL # OF FREE CHARACTER POSITIONS
	HRROI A,ATMBFR		;GET POINTER TO ATOM BUFFER
	MOVEM A,CMDBLK+.CMABP	;SAVE POINTER TO LAST ATOM INPUT
	MOVEI A,ATMSIZ*NCHPW	;GET # OF CHARACTERS IN ATOM BUFFER
	MOVEM A,CMDBLK+.CMABC	;SAVE COUNT OF SPACE LEFT IN ATOM BUFFER
PARSE:
COMMAN:	MOVEI A,CMDBLK		;GET ADDRESS OF COMMAND STATE BLOCK
	MOVEI B,[CMFDB (.CMINI)] ;GET FUNCTION DESCRIPTOR BLOCK
	COMND			;INITIALIZE COMMAND SCANNER JSYS

PARSE1:	MOVE A,[GJFBLK,,GJFBLK+1] ;SET UP TO CLEAR GTJFN BLOCK
	SETZM GJFBLK		;CLEAR FIRST WORD OF BLOCK
	BLT A,GJFBLK+GJFSIZ-1	;CLEAR GTJFN BLOCK

	MOVEI A,GJFBLK		;GET ADDRESS OF GTJFN BLOCK
	MOVEM A,CMDBLK+.CMGJB	;STORE POINTER TO GTJFN BLOCK
	MOVEI A,CMDBLK		;GET POINTER TO COMMAND STATE BLOCK
	MOVEI B,[CMFDB (.CMKEY,,COMTB1)] ;GET FUNCTION BLOCK
	COMND			;DO INITIAL PARSE
	TXNN A,CM%NOP		;VALID COMMAND ENTERED ?
	JRST PARSE5		;YES, GO DISPATCH TO PROCESSING ROUTINE
	CALL TSTCOL		;GO SEE IF CRLF NEEDED
	TMSG <? ULIST: No such ULIST command as ">
	MOVE A,CMDBLK+.CMABP	;GET POINTER TO ATOM BUFFER
	PSOUT			;OUTPUT STRING ENTERED BY USER
	TMSG <"
>				;OUTPUT END-OF-MESSAGE
	JRST PARSE		;GO TRY TO GET A COMMAND AGAIN

PARSE5:	HRRZ A,(B)		;GET DISPATCH ADDRESS
	CALL (A)		;PERFORM REQUESTED FUNCTION
	JRST PARSE		;GO PARSE NEXT COMMAND
TYPCOM:	PSOUT
	JRST COMMAN

CRLFM:	ASCIZ /
/
NOLPT:	HRROI A,[ASCIZ /
? LPT: is not available. Use an OUTPUT command.
/]
	JRST TYPCOM
;USED TO SPECIFY STR OTHER THAN DEFAULT

.STR:	STKVAR <STRDV>
	SETZM	STRDEV		;TCO 1902
	TRZ	F,R.COLL	;TCO 1902
	HRROI A,DIRBUF		;INIT POINTER
	MOVEM A,STRPTR
	MOVEI A,CMDBLK		;COMND INFO
	MOVEI B,[CMFDB (.CMNOI,,<TXT(TO USE)>)]
	COMND
	MOVEI B,[CMFDB (.CMDEV,CM%SDH,,<STRUCTURE NAME>,<[ASCIZ "DSK"]>)]
	COMND
	TXNE A,CM%NOP		;LOSAGE?
	JRST [	TMSG <?Invalid structure name given
>
		RET]
	MOVEM B,STRDV		;SAVE DESIGNATOR A WHILE
	MOVEI B,[CMFDB (.CMCFM)]
	COMND
	TXNE A,CM%NOP
	CALLRET COMER1
	MOVE A,STRDV		;GET DEVICE DESIGNAORT
	DVCHR
	LDB A,[POINTR B,DV%TYP]
	CAIE A,.DVDSK		;GRNTEE DISK
	 JRST [	TMSG <?Invalid structure name given
>
		RET]
	MOVE B,STRDV		;DEVICE DESIGNATOR
	MOVE A,STRPTR		;GET PNTR
	DEVST			;GET STRING
	 JRST [	JSERR
		RET]
	MOVEI B,":"		;TERMINATE WITH COLON
	IDPB B,A		;...
	MOVEM A,STRPTR		;UPDATE PNTR
	RET			;GET NEXT COMMAND
.BEGIN:	MOVEI A,CMDBLK		;GET ADDRESS OF COMMAND STATE BLOCK
	MOVEI B,[CMFDB (.CMNOI,,<TXT(LISTING)>)]
	COMND			;PARSE NOISE FIELD
	MOVEI B,[CMFDB (.CMCFM)] ;GET CONFIRM FUNCTION BLOCK
	COMND			;WAIT FOR CONFIRMATION
	TXNE A,CM%NOP		;GARBAGE AT END-OF-COMMAND ?
	CALLRET COMER1		;YES, ISSUE ERROR MESSAGE
	SKIPL OUTFIL		;OUTPUT GET SPECIFIED?
	JRST GO1		;YES.
	MOVSI A,400001		;NO. TRY THE TTY OR LPT.
	HRROI B,[ASCIZ /TTY:USERS.TXT;P770000/]	;TTY IS THE DEFAULT UNLESS
	TRNE F,R.LPT		; PRINT COMMAND WAS TYPED.
	HRROI B,[ASCIZ /LPT:USERS.TXT;P770000/]	; ..
	GTJFN			; ..
	  JRST NOLPT		;NO SUCH BEAST
	HRRZM A,OUTFIL		;GOT ITS NAME
	MOVE B,[070000,,100000]	;OPEN FOR ASCII OUTPUT
	OPENF			; ..
	  JRST NOLPT		;NOT AVAIL?
GO1:	PUSHJ P,COLECT		;GET DATA IF NOT DONE ALREADY
	TRNN F,R.ALPH!R.MINI!R.NUM!R.DGRP	;ANY LISTING ASKED FOR?
	TRO F,R.NUM		;NO. DEFAULT IS NUMERIC
	TRNE F,R.DGRP		;PRODUCE LISTINGS REQUESTED
	PUSHJ P,DIRGRP		;DIRECTORY GROUPS LISTING ASKED FOR
	TRNE F,R.ALPH
	PUSHJ P,ALPHA
	TRNE F,R.NUM
	PUSHJ P,NUMRIC
	TRNE F,R.MINI
	PUSHJ P,MINI
DONE:	SETO A,
	CLOSF
	 JSHLT			;UNEXPECTED FATAL ERROR
	SETOM OUTFIL		;NO OUTPUT FILE OPEN
	MOVEI A,400000
	MOVE B,OLDCAP		;RESET TO CAPABILITIES
	MOVE C,B		;SET ON ENTRY
	EPCAP			; ..
	JRST RESTRT		;RESTART IN CASE WANT MORE.

.HELP:	MOVEI A,CMDBLK		;GET ADDRESS OF COMMAND STATE BLOCK
	MOVEI B,[CMFDB (.CMCFM)] ;GET FUNCTION BLOCK FOR CONFIRM
	COMND			;WAIT FOR END-OF-COMMAND
	TXNE A,CM%NOP		;GARBAGE AT END-OF-COMMAND ?
	CALLRET COMER1		;YES, ISSUE ERROR MESSAGE
	HRROI A,HLPTXT
	PSOUT
	JRST PARSE		;GO DO NEXT COMMAND

NUMRIC:	SETZM USERNO		;NUMERIC LISTING. START AT USER 0
	SETZM LINENO		;AND START OF PAPER
	SETZM PAGENO		; ..
NUMERL:	PUSHJ P,DUMP
	 JFCL
	AOS A,USERNO
	CAIGE A,MAXUSR
	JRST NUMERL
	PUSHJ P,FORM		;END THE PAGE
	POPJ P,0		;RETURN FROM NUMERIC.
;COMMAND TABLES

DEFINE COMS <
CC (<ALPHABETIC>,.ALPHA)
CC (<BEGIN>,.BEGIN)
CC (<DIRECTORY>,.DIR)
CC (<EXIT>,.EXIT)
CC (<HELP>,.HELP)
CC (<MINI>,.MINI)
CC (<NARROW>,.NARRO)
CC (<NUMERIC>,.NUMER)
CC (<OUTPUT>,.OUTPT)
CC (<PRINT>,.PRINT)
CC (<STRUCTURE>,<.STR>)
CC (<WIDE>,.WIDE)
>

COMTB1:	NCOMS-1 ,, COMFRE
	DEFINE CC (WORD,TAG,HELP)<
	[ASCIZ /WORD/],,TAG>

	COMS
NCOMS==.-COMTB1

FRECOM:	BLOCK COMFRE-NCOMS
.NUMER:	MOVEI A,CMDBLK		;GET ADDRESS OF COMMAND STATE BLOCK
	MOVEI B,[CMFDB (.CMNOI,,<TXT(LIST OF USERS)>)]
	COMND			;PARSE NOISE FIELD
	MOVEI B,[CMFDB (.CMCFM)] ;GET FUNCTION BLOCK FOR CONFIRMATION
	COMND			;WAIT FOR END-OF-COMMAND
	TXNE A,CM%NOP		;GARBAGE AT END-OF-COMMAND ?
	CALLRET COMER1		;YES, ISSUE ERROR MESSAGE
	TRO F,R.NUM
	JRST PARSE		;GO GET NEXT COMMAND
.ALPHA:	MOVEI A,CMDBLK		;GET ADDRESS OF COMMAND STATE BLOCK
	MOVEI B,[CMFDB (.CMNOI,,<TXT(LIST OF USERS)>)]
	COMND			;PARSE NOISE FIELD
	MOVEI B,[CMFDB (.CMCFM)] ;GET FUNCTION BLOCK FOR CONFIRMATION
	COMND			;WAIT FOR END-OF-COMMAND
	TXNE A,CM%NOP		;GARBAGE AT END-OF-COMMAND ?
	CALLRET COMER1		;YES, ISSUE ERROR MESSAGE
	TRO F,R.ALPH
	JRST PARSE		;GO GET NEXT COMMAND


.DIR:	MOVEI A,CMDBLK		;GET ADDRESS OF COMMAND STATE BLOCK
	MOVEI B,[CMFDB (.CMNOI,,<TXT(GROUP LISTING)>)]
	COMND			;PARSE NOISE FIELD
	MOVEI B,[CMFDB (.CMCFM)] ;GET FUNCTION BLOCK FOR CONFIRMATION
	COMND			;WAIT FOR END-OF-COMMAND
	TXNE A,CM%NOP		;GARBAGE AT END-OF-COMMAND ?
	CALLRET COMER1		;YES, ISSUE ERROR MESSAGE
	TRO F,R.DGRP
	JRST PARSE

.NARRO:	TRZA F,R.WIDE
.WIDE:	TRO F,R.WIDE
	MOVEI A,CMDBLK		;GET ADDRESS OF COMMAND STATE BLOCK
	MOVEI B,[CMFDB (.CMNOI,,<TXT(PAPER FORMAT)>)]
	COMND			;PARSE NOISE FIELD
	MOVEI B,[CMFDB (.CMCFM)] ;GET FUNCTION BLOCK FOR CONFIRMATION
	COMND			;WAIT FOR END-OF-COMMAND
	TXNE A,CM%NOP		;GARBAGE AT END-OF-COMMAND ?
	CALLRET COMER1		;YES, ISSUE ERROR MESSAGE
	JRST PARSE

.MINI:	MOVEI A,CMDBLK		;GET ADDRESS OF COMMAND STATE BLOCK
	MOVEI B,[CMFDB (.CMNOI,,<TXT(LISTING FORMAT)>)]
	COMND			;PARSE NOISE
	MOVEI B,[CMFDB (.CMCFM)] ;GET FUNCTION BLOCK FOR END-OF-COMMAND
	COMND			;CONFIRM
	TXNE A,CM%NOP		;GARBAGE AT END-OF-COMMAND ?
	CALLRET COMER1		;YES, ISSUE ERROR MESSAGE
	TRO F,R.MINI
	JRST PARSE		;GO PARSE NEXT COMMAND
.PRINT:	MOVEI A,CMDBLK		;GET ADDRESS OF COMMAND STATE BLOCK
	MOVEI B,[CMFDB (.CMNOI,,<TXT(LISTING ON PRINTER)>)]
	COMND			;PARSE NOISE FIELD
	MOVEI B,[CMFDB (.CMCFM)] ;GET CONFIRM FUNCTION BLOCK
	COMND			;PARSE END-OF-COMMAND
	TXNE A,CM%NOP		;GARBAGE AT END-OF-COMMAND ?
	CALLRET COMER1		;YES, ISSUE ERROR MESSAGE
	TRO F,R.LPT		;OUTPUT TO LINEPRINTER
	JRST COMMAN
.EXIT:	MOVEI A,CMDBLK		;GET ADDRESS OF COMMAND STATE BLOCK
	MOVEI B,[CMFDB (.CMNOI,,<TXT(TO MONITOR)>)]
	COMND			;PARSE NOISE FIELD
	MOVEI B,[CMFDB (.CMCFM)] ;GET CONFIRM FUNCTION BLOCK
	COMND			;WAIT FOR END-OF-COMMAND
	TXNE A,CM%NOP		;GARBAGE AT END-OF-COMMAND ?
	CALLRET COMER1		;YES, ISSUE ERROR MESSAGE
	HALTF			;TO THE EXEC
	JRST RESTRT		;IN CASE OF CONTINUE
ALPHA:	SETZM LINENO
	SETZM PAGENO		;CLEAR FORMAT COUNTERS
	MOVEI A,DUMP		;STANDARD OUTPUT ROUTINE
	HRRM A,DMPADR		; FOR DISPATCH
	PUSHJ P,ALFDMP		;ALPHABETIZE AND THEN DUMP
	PUSHJ P,FORM		;END THE PAGE
	POPJ P,0		;END OF ALPHA ROUTINE
;MINI LISTING MAKER

MINI:	CALL FORM		;GENERATE FORM FEED
	MOVEI A,NARCOL		;COLUMNS IF NARROW
	TRNE F,R.WIDE		;WIDE PAPER?
	MOVEI A,WIDCOL		;YES.
	MOVEM A,MAXCOL
	MOVEI A,1		;START AT USER NUMBER 1
	MOVEM A,PAGBAS
MINI04:	SETZM LINENO
	MOVE A,OUTFIL		;JFN TO USE
	HRROI B,[ASCIZ "    List of structure: "]
	MOVEI C,0
	SOUT
	MOVE B,STRDEV		;DEVICE DESIGNATOR
	DEVST			;TELL WHICH STR
	 JSERR
	MOVEI B,11
	BOUT			;TAB OVER
	SETO B,			;CURRENT DATE/TIME
	MOVSI C,322401
	ODTIM			;TO LISTING
	HRROI B,CRLFM
	MOVEI C,0
	SOUT
	HRROI B,CRLFM		;LEAVE A BLANK LINE
	SOUT
MINI03:	SETZM COLUMN
	SETZM LINPOS		;CLEAR LINE POSITION
MINI02:	MOVEI A,PAGLEN		;COMPUTE CURRENT USER NUMBER
	IMUL A,COLUMN
	ADD A,LINENO
	ADD A,PAGBAS
	MOVEM A,USERNO
	CAMLE A,TOPUSR		;OVER THE TOP?
	JRST MINEOL		;YES
	MOVE A,OUTFIL		;NO. OUTPUT THE NUMBER
	HRRZ B,USERNO
	MOVX C,NO%LFL+<FLD (5,NO%COL)>+8 ;IN 5 COL OCTAL
	NOUT
	  JFCL
	MOVEI B,40		;SPACE ONE
	BOUT
	MOVEI B,6		;ACCOUNT FOR SPACE USED BY NUMBER
	ADDM B,LINPOS
	HRRZ B,USERNO		;GET NAME STRING
	MOVE D,NAMPTR(B)
	HRLI D,(<POINT 7,0>)	;POINTER TO NAME
MINI06:	ILDB B,D		;GET A CHAR OF NAME
	JUMPE B,MINI07		;QUITS ON NULL
	BOUT			;OUTPUT CHAR
	AOS LINPOS		;COUNT LINE POSITION
	JRST MINI06		;LOOP FOR ALL CHARS OF NAME

MINI07:	MOVE C,COLUMN		;CURRENT COLUMN NUMBER
	ADDI C,1		;COMPUTE DISTANCE TO NEXT COLUMN START
	IMULI C,COLWID
	SUB C,LINPOS
MINI05:	MOVEI B,40
	BOUT
	AOS LINPOS
	SOJG C,MINI05		;FILL COLUMN WITH SPACES
	; ..
MINI01:	AOS A,COLUMN		;FILLED COLUMN?
	CAMGE A,MAXCOL		; ..
	JRST MINI02		;NO
MINEOL:	HRROI B,CRLFM		;YES. TERMINATE THE LINE
	MOVE A,OUTFIL
	MOVEI C,0
	SOUT
	AOS LINENO		;COUNT LINES ON PAGE
	MOVE A,LINENO		;SEE IF THROUGH
	ADD A,PAGBAS		;NUMBER WE WOULD NOW BE UP TO
	CAMLE A,TOPUSR		;TOO HIGH?
	JRST MINEND		;YES.
	MOVE A,LINENO		;NO. SEE IF PAGE FULL
	CAIGE A,PAGLEN		; ..
	JRST MINI03		;NO.
MINEND:	PUSHJ P,FORM		;YES. FORMFEED.
	MOVEI A,PAGLEN
	IMUL A,MAXCOL
	ADDB A,PAGBAS
	CAMG A,TOPUSR
	JRST MINI04
	POPJ P,0
;ROUTINE TO DUMP ONE DIRECTORY
; CURSTR/ CURRENT STRUCTURE UNIQUE CODE
; USERNO/ DIRECTORY NUMBER

DUMP:	TRZ F,R.LIN2		;ASSUME NO SECOND LINE ON NARROW FORM
	SKIPLE LINENO
	JRST S1
	AOS PAGENO
	MOVE A,OUTFIL
	MOVEI B,C.FF
	BOUT
	MOVEI A,PAGLEN-3	;LEAVE OFF HEADING IN COUNT
	MOVEM A,LINENO		;INITIALIZE PAGE LENGTH COUNTDOWN
	HRROI B,[ASCIZ /Name,Account/]	
	MOVE A,OUTFIL
	MOVEI C,0
	SOUT
	HRROI B,[ASCIZ /	(Structure: /]
	SOUT
	MOVE B,STRDEV
	DEVST
	 JFCL
	HRROI B,[ASCIZ /)	/]
	MOVEI C,0
	SOUT
	SETO B,			;CURRENT DATE
	MOVSI C,200401
	ODTIM			;DATE STAMP THE LISTING
	HRROI B,[ASCIZ /	Page /]
	MOVEI C,0
	SOUT
	MOVE B,PAGENO		;LIST PAGE NUMBER
	MOVEI C,^D10		;IN DECIMAL
	NOUT
	  JFCL
	PUSHJ P,LCRLF		;EOL (LOADS A, CLEARS C.)
	HRROI B,[ASCIZ /  Dir-#   Privileges  Login-Quota Logout-Quota User-Groups  Dir-Groups /]
	SOUT			;OUTPUT FIRST 5 HEADINGS
	TRNN F,R.WIDE		;IF NARROW FORMAT,
	PUSHJ P,LCRLF		;OUTPUT A LINEFEED HERE
	MOVEI B,"("		;IF NARROW
	TRNE F,R.WIDE
	MOVEI B," "		;IF WIDE
	BOUT
	HRROI B,[ASCIZ /   Modes     Def-File-Pro   Dir-Prot   Def-File-Ret /]
	SOUT
	MOVEI B,")"
	TRNN F,R.WIDE
	BOUT
	PUSHJ P,LCRLF
	PUSHJ P,LCRLF
S1:	HRRZ A,USERNO		;GET DIR NO.
	SKIPN B,NAMPTR(A)	;SEE IF ANY
	RET			;NO NAME - SKIP UT
	TLO B,-1		;FORM PNTR
	MOVE A,OUTFIL
	MOVEI C,0
	SOUT
	MOVE A,[UGROUP,,UGROUP+1];GET SOURCE, DESTINATION
	SETZM UGROUP		;CLEAR FIRST WORD OF BLOCK
	BLT A,UGROUP+GRPSIZ-1	;CLEAR REMAINDER OF USER GROUP BLOCK
	MOVE A,[DGROUP,,DGROUP+1] ;GET SOURCE,, DESTINATION
	SETZM DGROUP		;CLEAR FIRST WORD OF BLOCK
	BLT A,DGROUP+GRPSIZ-1	;CLEAR REMAINDER OF DIR GROUP BLOCK
	MOVEI A,UGROUP		;GET ADR OF USER GROUP BLOCK
	MOVEM A,STRBF+.CDUGP	;STORE ADR OF BLOCK FOR GTDIR
	MOVEI A,DGROUP		;GET ADR OF DIR GROUP BLOCK
	MOVEM A,STRBF+.CDDGP	;STORE ADR OF BLOCK FOR GTDIR
	MOVEI A,GRPSIZ		;GET SIZE OF USER AND DIR GROUP BLOCKS
	MOVEM A,UGROUP		;STORE SIZE IN BLOCK
	MOVEM A,DGROUP		;STORE SIZE IN DIR GROUP BLOCK
	HRRI A,ACTBUF		;ADDRESS OF DEFAULT ACCOUNT BUFFER
	HRLI A,(<POINT 7,>)	;MAKE IT A BYTE POINTER
	MOVEM A,STRBF+.CDDAC	;STORE IN BLOCK FOR GTDIR
	HRRZ A,USERNO
	HRL A,CURSTR		;STR #
	MOVEI C,20
	MOVEM C,STRBF+.CDLEN	;COUNT 20 WORDS
	MOVEI B,STRBF
	HRROI C,STRBF+STRPSW
	GTDIR
	 ERJMP CPOPJ
	SETZ C,
	HRRI A,ACTBUF		;PLACE WHERE DEFAULT ACCT WAS PUT
	HRLI A,(<POINT 7,>)	;MAKE IT A BYTE POINTER
	ILDB B,A		;GET FIRST CHARACTER OF ACCT
	JUMPE B,S12		;IS THERE A DEFAULT ACCOUNT?
	MOVEI B,","		;YES, PRINT IT OUT
	MOVE A,OUTFIL
	BOUT
	HRROI B,ACTBUF
	SETZ C,			;STOP ON NULL
	SOUT			;PRINT THE ACCOUNT
S12:	TRNE F,R.WIDE		;WIDE PAPER?
	JRST S11A		;YES. NO EXTRA FIDDLING
	MOVSI C,-NORDR2		;NARROW. SEE IF SECOND LINE NEEDED
	ADD C,[NORDR1,,NORDR1]	;POINT TO SECOND LINE DATA
LN2QL:	MOVE A,ORDERT(C)
	MOVE A,STRBF(A)		;GET USER DIR DATUM
	CAME A,DEFLTT(C)	;DIFFERENT FROM DEFAULT?
	TROA F,R.LIN2		;YES. NEED SECOND LINE.
	AOBJN C,LN2QL		;SEARCH FOR ANY DIFFERENCES.
S11A:	PUSHJ P,LCRLF
	MOVSI E,-NORDR2		;MAX NUMBER OF OCTAL DATA TO OUTPUT
	MOVEI B," "
	BOUT
	BOUT
S3:	MOVE A,OUTFIL		;WHERE TO WRITE
	MOVE C,ORDERT(E)	;GET THE DRIVING INFO
	HRRZ B,C		;GET OFFSET TO DATA
	CAIN B,.CDUGP		;DOING USER GROUPS ?
	JRST S3A		;YES, GO OUTPUT THE GROUPS
	CAIN B,.CDDGP		;  OR DIR GROUPS ?
	JRST S3B		;YES, GO OUTPUT THE GROUPS
	HRRI C,10		;OCTAL PRINT RADIX
	CAIE B,.CDLIQ		;QUOTAS SHOULD BE
	CAIN B,.CDLOQ		;PRINTED IN DECIMAL
	HRRI C,^D10
	MOVE B,STRBF(B)		;NO, GET THE DATA
	SKIPN B			;IS DATUM ZERO?
	TLZ C,(1B3)		;YES, NO LEADING ZEROES
	NOUT			;OUTPUT THE NUMBER
	  JFCL
	JRST S3B		;GO SEE IF WIDE OR NARROW LISTING
S3A:	CALL GRPOUT		;GO OUTPUT THE GROUP
S3B:	TRNE F,R.WIDE		;WIDE OR NARROW?
	JRST NOBRK		;WIDE. PROCEED
	MOVEI B,0(E)		;NARROW. END OF LINE 1 YET?
	CAIE B,NORDR1-1		; ..
	JRST NOBRK		;NO
	TRNN F,R.LIN2		;YES. SECOND LINE NEEDED?
	JRST NOLIN2		;NO. DONE THIS USER.
	PUSHJ P,LCRLF		;YES. PRINT AND COUNT EOL
	MOVEI B,"("		;FLAG SECOND LINE WITH PARENS
	JRST S3C
NOBRK:	MOVEI B," "
S3C:	BOUT
	AOBJN E,S3
	MOVEI B,")"		;CLOSE OFF LINE 2 IF NEEDED
	TRZE F,R.LIN2		; ..
	BOUT			; ..
NOLIN2:	PUSHJ P,LCRLF
CPOPJ1:	AOS 0(P)
CPOPJ:	POPJ P,0
; ROUTINE TO OUTPUT THE USER AND DIRECTORY GROUPS
;
;		CALL GRPOUT
; RETURNS +1	ALWAYS


GRPOUT:	STKVAR <UGRADR,DGRADR>;	;ALLOCATE TEMPORARY STORAGE
	SETZM UGRADR		;INITIALIZE NEXT ADR
	SETZM DGRADR		;INITIALIZE NEXT DIR GROUP ADR
	MOVE T1,STRBF+.CDUGP	;GET ADR OF USER GROUP BLOCK
	HRRZ T2,(T1)		;GET SIZE OF BLOCK
	CAIG T2,1		;AT LEAST ONE GROUP TO DO ?
	JRST GRPOU0		;NO, GO CHECK DIR GROUPS
	ADDI T1,1		;POINT TO FIRST GROUP #
	MOVEM T1,UGRADR		;SAVE ADR OF FIRST USER GROUP
GRPOU0:	MOVE T1,STRBF+.CDDGP	;GET ADR OF DIR GROUP BLOCK
	HRRZ T2,(T1)		;GET SIZE OF DIR GROUP BLOCK
	CAIG T2,1		;AT LEAST ONE GROUP TO DO ?
	JRST GRPOU1		;NO, DO NOT STORE ADR
	ADDI T1,1		;POINT TO FIRST GROUP #
	MOVEM T1,DGRADR		;SAVE DIR GROUP # ADDRESS

GRPOU1:	MOVE T1,UGRADR		;GET ADR OF USER GROUP #
	JUMPE T1,[ HRROI B,[ASCIZ/            /]
		   SETZM C
		   SOUT
		   JRST GRPOU2 ] ;GO SEE IF ANY DIR GROUPS REMAIN
	CALL GRPLIN		;OUTPUT A LINE OF USER GROUPS
	 SETZM T1		;INDICATE ALL USER GROUPS OUTPUT
	MOVEM T1,UGRADR		;SAVE ADR OF USER GROUPS
	MOVEI B," "		;GET A SPACE
	BOUT			;OUTPUT THE SPACE
GRPOU2:	MOVE T1,DGRADR		;GET ADR OF DIR GROUP #
	JUMPE T1,[ HRROI B,[ASCIZ/           /]
		   SETZM C
		   SOUT
		   JRST GRPOU3]	;IF NO DIR GROUPS LEFT, SEE IF DONE
	CALL GRPLIN		;GO OUTPUT LINE OF DIR GROUP #'S
	 SETZM T1		;INDICATE ALL DIR GROUPS OUTPUT
	MOVEM T1,DGRADR		;SAVE ADR OF NEXT DIR GROUP #

GRPOU3:	SKIPN UGRADR		;MORE USER GROUPS TO DO ?
	SKIPE DGRADR		;MORE DIRECTORY GROUPS TO DO ?
	JRST GRPOU4		;YES, GO OUTPUT A CRLF AND SPACING
	RET			;RETURN TOW WHENCE WE CAME ...
GRPOU4:	CALL LCRLF		;GO TO NEXT LINE
	MOVE A,OUTFIL
	HRROI B,[ASCIZ/					       /]
	SETZM C			;TERMINATE ON NULL
	SOUT			;OUTPUT THE CRLF AND SPACING
	JRST GRPOU1		;GO OUTPUT NEXT LINE OF USER AND DIR GROUPS
; ROUTINE TO OUTPUT ONE LINE OF A GROUP LIST.  GROUPS ARE OUTPUT
;  UNTIL THE END OF THE GROUP LIST, OR UNTIL THE NEXT GROUP WOULD
;  OVERFLOW 12 COLUMNS FROM THE FIRST GROUP OUTPUT ON THE LINE.
;
; ACCEPTS IN T1/	ADR OF FIRST GROUP TO OUTPUT
;			CALL GRPLIN
;			  END-OF-LIST
;			MORE GROUPS TO OUTPUT
; CLOBBERS T2, T3
; RETURNS ADR OF LAST GROUP # OUTPUT IN T1

GRPLIN:	STKVAR <COLS>;		;ALLOCATE TEMP STORAGE
	SETZM COLS		;INITIALIZE COLUMN COUNTER
	MOVE A,[GRPBUF,,GRPBUF+1] ;GET SOURCE,,DESTINATION
	SETZM GRPBUF		;CLEAR FIRST WORD OF BUFFER
	BLT A,GRPBUF+GBFSIZ-1	;CLEAR REMAINDER OF BUFFER
	HRROI A,GRPBUF		;GET POINTER TO GROUP BUFFER
	MOVEI C,^D10		;USE DECIMAL RADIX
GRPLN1:	SKIPN B,(T1)		;MORE GROUPS ?
	JRST GRPLN3		;NO, OUTPUT BUFFER AND RETURN
	MOVE T2,B		;COPY GROUP #
	SETZM D			;INITIALIZE COLUMN COUNTER
GRPLN2:	IDIVI T2,^D10		;COMPUTE # OF DIGITS
	ADDI D,1		;INCREMENT # OF COLUMNS IN #
	JUMPN T2,GRPLN2		;SEE IF MORE COLUMNS
	ADD D,COLS		;COMPUTE TOTAL # OF COLUMNS
	CAILE D,^D10		;ENOUGH COLUMNS LEFT ?
	JRST GRPLN4		;NO, OUTPUT BUFFER AND RETURN
	MOVEM D,COLS		;YES, UPDATE COLUMN TOTAL
	NOUT			;OUTPUT THE GROUP NUMBER
	 JSERR			;UNEXPECTED ERROR
	MOVEI B,","		;GET DELIMITER
	SKIPE 1(T1)		;IS THERE ANOTHER GROUP TO OUTPUT ?
	BOUT			;YES, OUTPUT DELIMITER
	SKIPE 1(T1)		;ANOTHER GROUP TO OUTPUT ?
	AOS COLS		;YES, INCREMENT COLUMN COUNT FOR ","
	AOJA T1,GRPLN1		;GO DO NEXT GROUP NUMBER

; HERE WHEN BUFFER FULL

GRPLN3:	TDZA D,D		;MARK THAT NO GROUPS ARE LEFT
GRPLN4:	SETOM D			;MARK THAT GROUPS ARE LEFT
	MOVE A,OUTFIL		;GET OUTPUT JFN
	MOVEI B," "		;GET A SPACE
	MOVEI C,^D11		;GET # OF COLUMNS TO OUTPUT
	SUB C,COLS		;COMPUTE # OF COLUMNS LEFT
	JUMPE C,GRPLN6		;NONE LEFT, OUTPUT GROUPS
GRPLN5:	BOUT			;OUTPUT A SPACE
	SOJG C,GRPLN5		;GO OUTPUT REMAINING SPACES
GRPLN6:	HRROI B,GRPBUF		;GET POINTER TO GROUPS
	SETZM C			;TERMINATE ON NULL
	SOUT			;OUTPUT THE GROUPS
	JUMPE D,R		;RETURN IF NO MORE GROUPS
	RETSKP			;SKIP RETURN IF GROUPS LEFT
;SUBR TO COLLECT THE NAMES AND DIRECTORY GROUP INFO

COLECT:	STKVAR <LSTDGP,LSTUGP,DIRJFN>;	;ALLOCATE TEMPORARY STORAGE
	TRNE F,R.COLL		;ALREADY GOT DATA?
	RET			;YES. RETURN
	MOVE A,[GRPLST,,GRPLST+1] ;GET SOURCE,,DESTINATION
	SETZM GRPLST		;CLEAR FIRST WORD OF MASTER GROUP LIST
	BLT A,GRPLST+GRPLSZ-1	;CLEAR REMAINDER OF MASTER GROUP LIST
	MOVE A,[DGLTAB]		;GET ADR OF DIR GROUP LIST TABLE
	MOVEM A,LSTDGP		;INITIALIZE NEXT FREE CELL IN TABLE
	MOVE A,[UGLTAB]		;GET ADR OF USER GROUP LIST TABLE
	MOVEM A,LSTUGP		;INITIALIZE NEXT FREE CELL IN TABLE
	SETZM TOPUSR		;CLEAR HIGHEST USER NUMBER
	MOVE A,STRPTR		;GET POINTER TO STR NAME
	HRROI B,[ASCIZ /<*>/]	;T2/ POINTER TO SOURCE
	SETZ C,			;T3/ STOP ON NULL
	SOUT			;APPEND <*> TO STR:
	MOVX A,RC%EMO!RC%AWL	;T2/ EXACT MATCH, ALLOW WILD CARDS
	HRROI B,DIRBUF		;POINT TO STR:<*>
	RCDIR			;GET FIRST DIRECTORY
	 ERJMP [ TMSG <
?Failed to get first directory>
		JSERR
		RET]
	TXNE A,RC%NOM!RC%AMB!RC%NMD ;ANY ERRORS?
	JRST [	TMSG <
?Failed to get first directory>
		RET]
	MOVEM C,USERNO		;NO. SAVE DIRECTORY NUMBER
	HRROI A,STRBF		;A/ POINTER TO DESTINATION
	MOVE B,USERNO		;B/ DIRECTORY NUMBER
	DIRST			;WRITE DIRECTORY NAME IN STRBF
	 JFCL
	SETZM CURSTR		;NONE YET
	SETZ NC,		;START USER SCAN AT 0, NO GRPS SEEN
	SETZM TEMPS		;ACQUIRE AND CLEAR FRESH STORAGE
	MOVE A,[TEMPS,,TEMPS+1]
	BLT A,ETEMPS		; ..

	;Clear the extended temp area
	SETZM @[XTEMP]
	MOVEI A,EXTEMP-XTEMP+1
	MOVE B,[XTEMP]
	MOVE C,[XTEMP+1]
	XBLT. A

	MOVEI E,NAMPAG		;E HOLDS CURRENT STRING FREE ADDR
	MOVE C,USERNO		;C/ DIRECTORY NUMBER
	SKIPN STRDEV		;SET STR YET?
	CALL SETSTR		;NO - SET IT UP NOW

;LOOP THROUGH ALL DIRECTORIES, GATHERING DATA

COLL1:	HRRZ B,USERNO		;DIR # RHS ONLY
	CAMLE B,TOPUSR
	HRRZM B,TOPUSR		;SAVE HIGHEST SO FAR
	MOVE A,E		;POINT TO NEXT AVAILABLE POSITION IN NAMPAG
	HRLI A,(<POINT 7,0>)
	MOVE B,USERNO		;B/ DIRECTORY NUMBER
	DIRST			;WRITE DIRECTORY NAME
	 JFCL
	HRRZ B,USERNO		;GET DIRECTORY NUMBER
	MOVEM E,NAMPTR(B)	;STORE ADDRESS OF THIS DIRECTORY'S NAME
	IBP A			;ADVANCE OVER NULL
	MOVEI E,1(A)		;AND NEXT AVAILABLE CELL TO E
	MOVE A,LSTUGP		;GET ADR OF USER GROUP LIST
	MOVEM A,STRBF+.CDUGP	;SET UP TO GET USER GROUPS
	MOVE C,A		;GET IT IN C
	SUB C,[UGLTAB]		;CALCULATE WORDS IN USE
	MOVEI B,NGPUSR*MAXUSR	;GET # OF WORDS IN TABLE
	SUB B,C			;COMPUTE # OF WORDS LEFT
	MOVEM B,(A)		;STORE # OF WORDS IN LIST
	MOVE A,LSTDGP		;GET ADR OF USER GROUP LIST
	MOVEM A,STRBF+.CDDGP	;SET UP TO GET USER GROUPS
	MOVE C,A		;GET IT IN C
	SUB C,[DGLTAB]		;CALCULATE WORDS IN USE
	MOVEI B,NGPUSR*MAXUSR	;GET # OF WORDS IN TABLE
	SUB B,C			;COMPUTE # OF WORDS LEFT
	MOVEM B,(A)		;STORE # OF WORDS IN LIST
	SETZM STRBF+.CDLEN	;ZERO COUNT WORD
	MOVE A,USERNO		;NOW GET THE DIRECTORY DATA
	MOVEI B,STRBF		;WHERE TO HOLD IT FOR A MOMENT
	HRROI C,STRBF+STRPSW	;PLACE FOR PASSWORD (NOT NEEDED)
	GTDIR
	 ERJMP [TMSG <?GTDIR Failed for - >
		HRRZ B,USERNO
		HRRO A,NAMPTR(B)
		PSOUT
		JSERR
		JRST COLN1]	;REPORT FAILURE AND PROCEED
	MOVE B,STRBF+.CDUGP		;USER GROUP POINTER
	MOVEM B,UGRTAB(A)	;STORE IT
	MOVE B,(B)		;GET # OF GROUPS IN LIST
	ADDM B,LSTUGP		;COMPUTE NEXT FREE CELL IN TABLE
	MOVE B,STRBF+.CDDGP		;DIR GROUP POINTER
	MOVEM B,DGRTAB(A)	;STORE THEM TOO
	MOVE B,(B)		;GET # OF GROUPS IN LIST
	ADDM B,LSTDGP		;COMPUTE NEXT FREE CELL IN TABLE
	MOVE A,STRBF+.CDUGP	;GET ADR OF USR GROUP LIST
	CALL MSKGRP		;GO ADD TO MASTER GROUP LIST
	MOVE A,STRBF+.CDDGP	;GET ADR OF DIR GROUP LIST
	CALL MSKGRP		;GO ADD TO MASTER GROUP LIST
	MOVE A,USERNO		;GET USER NUMBER AGAIN
	MOVE B,STRBF+.CDPRV		;WHEEL, OPER, CONFI BITS
	MOVEM B,PRVTAB(A)	;STORE
	MOVE B,STRBF+.CDMOD		;FILES ONLY, ETC.
	MOVEM B,TYPTAB(A)	; ..

;HERE TO STEP TO NEXT DIRECTORY

COLN1:	MOVX A,RC%EMO!RC%AWL!RC%STP ;A/ NO RECOGNTION, ALLOW WILD CARDS, STEP
	HRROI B,DIRBUF		;B/ POINT TO STR:<*>
	MOVE C,USERNO		;C/ DIRECTORY NUMBER FROM LAST CALL
	RCDIR			;GET NEXT DIRECTORY NUMBER
	 ERJMP [ TMSG <
?Failed to get next directory>
		JSERR
		JRST COLN2]
	TXNE A,RC%NOM!RC%AMB	;ANY ERRORS?
	JRST [	TMSG <
?Failed to get next directory>
		JRST COLN2]
	TXNE A,RC%NMD		;NO MORE DIRECTORIES?
	JRST COLN2		;YES. DONE
	MOVEM C,USERNO		;GOT ONE. SAVE DIRECTORY NUMBER
	JRST COLL1		;GO GET THIS DIRECTORY'S DATA

;HERE WHEN ALL DIRECTORIES HAVE BEEN LOOKED AT

COLN2:	PUSHJ P,SORT		;MAKE THE SORTED INDEX POINTERS
	PUSHJ P,GDFLT		;GET DIRECTORY DEFAULTS
	TRO F,R.COLL		;NOW HAVE ALL THE DATA
	TMSG < Done

>
	RET			;ALL DONE
;ROUTINE TO SET DEFAULT DIR VALUES

GDFLT:	MOVEI A,0		;GET DIR #0
	SETZM STRBF+.CDLEN	;ZERO COUNT WORD
	MOVEI B,STRBF		;TEMP BUFFER
	HRROI C,STRBF+STRPSW	;TEMP 
	SETZM STRBF+.CDUGP	;NO DEFAULTS
	SETZM STRBF+.CDDGP
	GTDIR
	 ERJMP [JSHLT]		;FATAL ERROR
	MOVSI C,-NORDR2		;INIT COUNTER
	AOBJN C,.+1		;SKIP FIRST ITEM (DIRNUM)
GDFLT1:	HRRZ B,ORDERT(C)	;OFFSET INTO TABLE
	MOVE A,STRBF(B)		;GET ITEM
	MOVEM A,DEFLTT(C)	;STORE INTO DEFAULT TABLE
	AOBJN C,GDFLT1		;LOOP TILL DONE
	RET			;RETURN

;ROUTINE TO SETUP CURRENT STR
; C/ DIRECTORY NUMBER
; STRBF/ DIRECTORY NAME STRING

SETSTR:	HLRZM C,CURSTR		;REMEMBER STR UNIQUE CODE
	HRROI A,STRBF		;POINT TO NAME STRING
	STDEV			;GET DEVICE DESIGNATOR
	 JSHLT
	MOVEM B,STRDEV		;SAVE IT
	RET			;RETURN
; ROUTINE TO TURN ON THE BITS IN THE MASTER GROUP LIST CORRESPONDING
; TO THE GROUPS IN A GROUP LIST.
;
; ACCEPTS IN A/	ADDRESS OF GROUP LIST
;
;		CALL MSKGRP
; RETURNS +1	ALWAYS
;
; CLOBBERS A,B,C, T1

MSKGRP:	JUMPE A,R		;RETURN IF NO LIST GIVEN
	ADDI A,1		;POINT TO FIRST GROUP IN LIST

MSKGP1:	MOVE B,(A)		;GET A GROUP FROM THE LIST
	JUMPE B,R		;RETURN IF END-OF-LIST
	IDIVI B,^D36		;COMPUTE WORD OFFSET, BIT POSITION
	CAIL B,GRPLSZ		;WILL THIS FIT IN THE TABLE?
	JRST [	PUSH P,A	;NO
		HRROI A,[ASCIZ/
? GROUP NUMBER OUT OF RANGE, SKIPPED.
/]
		PSOUT
		POP P,A
		AOJA A,MSKGP1]
	ADDI B,GRPLST		;COMPUTE ADR OF WORD CONTAINING THE BIT
	MOVX T1,.MINFI		;GET A LEFT-JUSTIFIED BIT
	MOVN C,C		;SHIFT IN CORRECT DIRECTION
	LSH T1,0(C)		;POSITION MASK IN CORRECT POSITION
	IORM T1,(B)		;MARK THE BIT IN MASTER LIST
	AOJA A,MSKGP1		;GO CHECK NEXT GROUP IN LIST


LCRLF:	MOVE A,OUTFIL
	HRROI B,CRLFM
	MOVEI C,0
	SOUT
	SOS LINENO
	POPJ P,0

NOCANDO:
	HRROI A,[ASCIZ /
? ULIST: Not privileged to read system files.
/]
	PSOUT
	HALTF
	JRST DONE

FORM:	MOVE A,OUTFIL
	MOVEI B,C.FF
	BOUT
	POPJ P,0
SORT:	SETOM USERNO		;NO PREVIOUS DUMP
	SETZM SORTP		;AND FIRST CELL IN SORTED BLOCK
ALPHA1:	MOVEI T1,0		;START TESTING AT ZERO
ALPL1:	SKIPE NAMPTR(T1)	;FIND SOMEBODY, ANYBODY AT ALL
	JRST ALPHA2		;GOT ONE.
	CAIGE T1,MAXUSR-1	;ANYONE EXIST?
	AOJA T1,ALPL1		;MAYBE
	POPJ P,0		;NO. IMPOSSIBLE. DONE.

ALPHA2:	SKIPGE USERNO		;FIRST PASS?
	JRST ALPHA3		;YES. THIS T1 IS BEST SO FAR
	MOVE A,NAMPTR(T1)	;NO. GET NAME STRING ADR FOR CHECK
ALP2A:	MOVE B,USERNO		;COMPARE WITH PREVIOUS
	MOVE B,NAMPTR(B)	; ..
	PUSHJ P,STCAML		;SKIP IF STRING(A) LESS THAN STRING (B)
	  JRST ALPHA3		;B .GE. A
ALP2B:	CAML T1,TOPUSR		;RUN THRU THEM ALL?
	POPJ P,0		;YES. NONE AFTER PREVIOUS. DONE.
	SKIPE A,NAMPTR+1(T1)	;NEXT T1 IN USE?
	AOJA T1,ALPHA2		;YES. GO CHECK IT
	AOJA T1,ALP2B		;NO. LOOK FURTHER.

ALPHA3:	MOVEI T2,0		;START SECOND CHECK AT ZERO TOO
	SKIPN NAMPTR(T2)	;THIS USER EXIST?
	AOJA T2,.-1		;NO. FIND ONE. MUST BE ONE, WAS ABOVE.
ALP3A:	SKIPGE USERNO		;ANY PREVIOUS?
	JRST ALPHA4		;NO.
	MOVE A,NAMPTR(T2)	;YES. COMPARE T2 WITH PREVIOUS
ALP3B:	MOVE B,USERNO		; ..
	MOVE B,NAMPTR(B)	; ..
	PUSHJ P,STCAML		;SKIP IF T2 BEFORE OLD
	  JRST ALPHA4		;T2 AFTER OLD. IT'S A CANDIDATE
ALPHA6:	CAML T2,TOPUSR		;T2 NOT A CANDIDATE. AT END?
	JRST ALPHA7		;YES. BEST GUY POSSIBLE IS IN T1
	SKIPN A,NAMPTR+1(T2)	;NOT AT END. TRY ANOTHER.
	AOJA T2,ALPHA6		;THAT ONE NOT IN USE. SKIP IT.
	AOJA T2,ALP3A		;OK, TRY THIS ONE.

ALPHA4:	MOVE A,NAMPTR(T1)	;COMPARE THE TWO TEST NAMES
	MOVE B,NAMPTR(T2)	; ..
	PUSHJ P,STCAML		;SKIP IF T1 BEFORE T2
	  MOVE T1,T2		;T2 WAS FIRST. MOVE TO BEST SO FAR.
	JRST ALPHA6		;BEST IS IN T1. TRY ANOTHER T2.

ALPHA7:	HRRZM T1,USERNO		;THIS IS BEST GUY.
	MOVE T2,SORTP		;POINTER INTO SORTED BLOCK
	HRRZM T1,ORDRTB(T2)	;STORE ANSWER
	AOS SORTP		;PREPARE FOR NEXT ONE
	JRST ALPHA1		;AND START ALL OVER FOR ANOTHER ONE.
DIRGRP:	PUSHJ P,COLECT		;GET THE NAMES, USER AND DIR GRPS
	MOVE A,OUTFIL		;TITLE PAGE
	MOVEI C,0
	HRROI B,[ASCIZ /


	     USER and DIRECTORY groups on structure: /]
	SOUT
	MOVE B,STRDEV		;DEVICE DESIGNATOR
	DEVST			;LIST STR NAME
	 JSERR
	HRROI B,[ASCIZ /

		/]
	MOVEI C,0
	SOUT			;NEXT LINE
	SETO B,			;CURRENT DATE
	MOVSI C,322401		;PRINT DATE ONLY
	ODTIM
	PUSHJ P,LCRLF
	HRROI B,[ASCIZ /


The following groups are in use:

/]
	SOUT

	SETZB D,LASTGP		;INITIALIZE HIGHEST GROUP #
	MOVEI T1,GRPLST		;GET ADR OF MASTER GROUP LIST
DIRGL1:	MOVE T2,(T1)		;GET A WORD FROM LIST
DIRGL2:	JFFO T2,DIRGL5		;COUNT BITS
	 JRST DIRG10		;NO BITS IN THIS WORD, DO NEXT WORD
DIRGL5:	TDZ T2,BITTAB(T3)	;CLEAR BIT JUST FOUND
	MOVE B,T1		;GET ADDRESS OF THIS WORD
	SUBI B,GRPLST		;COMPUTE OFFSET INTO TABLE
	IMULI B,^D36		;COMPUTE POSITION OF FIRST BIT + 1
	ADDI B,(T3)		;ADD POSITION OF BIT IN THIS WORD
	CAMLE B,LASTGP		;FOUND A NEW HIGHEST GROUP # ?
	MOVEM B,LASTGP		;YES, STORE NEW HIGHEST GROUP #
	MOVEI C,^D10		;GET DECIMAL RADIX
	NOUT			;OUTPUT THE GROUP NUMBER
	 JSERR			;UNEXPECTED ERROR
	MOVEI B,.CHTAB		;TYPE A TAB
	BOUT
	AOS D			;SEE IF CRLF NEEDED
	CAIGE D,^D9
	JRST DIRGL2		;NO
	CALL LCRLF		;YES, TYPE CRLF
	SETZ D,			;INITIALIZE COUNT
	JRST DIRGL2		;GO DO NEXT BIT IN THIS WORD
DIRG10:	CAIGE T1,GRPLST+GRPLSZ-1 ;DONE ALL WORDS IN TABLE YET ?
	AOJA T1,DIRGL1		;NO, GO DO NEXT WORD IN TABLE

	HRROI B,[ASCIZ /

The highest directory in use is number: /]
	MOVEI C,0
	SOUT
	MOVE B,TOPUSR		;GET HIGHEST DIR NUMBER
	MOVEI C,10
	NOUT
	  JFCL
	HRROI B,[ASCIZ /

The first free directory number is: /]
	MOVEI C,0
	SOUT
	SETZ B,			;INIT TO ZERO
	MOVEI E,20		;START AT DIR #20
LOWHL:	SKIPN NAMPTR(E)		;LOOK FOR UNUSED
	JRST [	MOVE B,E	;USE THIS
		JRST LOWH1]
	CAMGE E,TOPUSR		;CHECK IF DONE
	AOJA E,LOWHL		;LOOP
LOWH1:	JUMPE B,[HRROI B,[ASCIZ "None available"]
		 SETZ C,
		 SOUT
		 JRST LOWH2]
	MOVEI C,10
	NOUT
	  JFCL
LOWH2:	HRROI B,CRLFM
	MOVEI C,0
	SOUT
	MOVEI B,C.FF		;NEW PAGE
	BOUT			; ..
	MOVEI A,1		;START WITH GROUP NUMBER 1
	MOVEM A,GROUPN		;SAVE INITIAL GROUP NUMBER
DIRDL1:	TRZ F,R.DGM		;INITIALIZE TO NO MEMBERS OF GROUP
	MOVEI A,DIRDA		;WHERE TO GO FOR DUMP TEST AND DUMP
	HRRM A,DMPADR		; FOR DISPATCH
	PUSHJ P,ALFDMP		;SCAN USERS
	JRST DIRDB		;YES.
GNOUT:	MOVE A,OUTFIL		;HANDY SETUP OF A. OUTPUT GRP NUMBER
	MOVE B,GROUPN
	MOVE C,[120002,,12]
	NOUT
	  JFCL
	POPJ P,0

GNOUTE:	PUSHJ P,GNOUT		;OUTPUT GROUP NUMBER AND
	JRST LCRLF		; EOL, RETURN WITH A/OUTFIL, C/0

DGNAME:	MOVE A,OUTFIL
	HRROI B,[ASCIZ /, /]
	MOVEI C,0
	TRNE F,R.DGM		;IF NOT FIRST,
	SOUT			;OUTPUT A COMMA AND A SPACE
	MOVEI A,2		;AND COUNT THOSE POSITIONS
	TROE F,R.DGM		;UNLESS FIRST TIME THRU (FLAG NOT FIRST)
	ADDM A,COLUMN		;UPDATE COLUMN COUNTER
DGNM1:	HRROI A,STRBF		;SCRATCH STORAGE
	HRRO B,NAMPTR(E)	;NAME TO TYPE OUT
	MOVEI C,1000		;LENGTH OF STRING
	MOVEI D,0		;TERMINATES ON A NULL
	SOUT
	MOVNS C			;COMPUTE STRING LENGTH
	ADDI C,1000		;GET CHARACTERS IN NAME
	ADDB C,COLUMN		;UPDATE COLUMN COUNT
	TRNN F,R.WIDE		;WIDE OR NARROW PAPER?
	 JRST [	CAIGE C,^D70	;WOULD IT OVERFLOW?
		JRST DGNGO	;NO. GO OUTPUT IT
		JRST DGNCR]	;YES. DO AN EOL AND RETRY.
	CAIGE C,^D130		;WOULD IT OVERFLOW WIDE PAPER?
	JRST DGNGO		;NO, IT FITS
DGNCR:	PUSHJ P,LCRLF		;OUTPUT NEW LINE
	SETZM COLUMN		;CLEAR COLUMN COUNTER
	JRST DGNM1		;AND TRY AGAIN

DGNGO:	MOVE A,OUTFIL		;OUTPUT THE NAME AT LAST
	MOVEI C,0		;INDEFINITE STRING
	HRRO B,NAMPTR(E)	;POINT TO NAME STRING
	SOUT			;OUTPUT IT
	POPJ P,0		;AND RETURN
DIRDB:	TRZ F,R.DGM		;NOW DO THE USERS OF THE GROUP.
	MOVEI A,DIRUA		;ROUTINE TO TEST USER GROUP AND DUMP
	HRRM A,DMPADR		; FOR DISPATCH
	PUSHJ P,ALFDMP		;ALPHABETIZE, DUMP IF IN GRP
	JRST DIRDC		;YES.

DIRDC:	MOVE A,GROUPN		;GET CURRENT GROUP
	CALL GETNGP		;GET NEXT GROUP NUMBER
	 JRST DIRDC0		;NO MORE
	MOVEM A,GROUPN		;SAVE NEW GROUP NUMBER
	JRST DIRDL1		;LOOP BACK FOR THIS GROUP

DIRDC0:	MOVEI A,BITDMP		;FOLLOWING ALL USE BIT TEST DUMP ROUTINE
	HRRM A,DMPADR		; FOR DISPATCH
	MOVE A,OUTFIL		;SPACE TO NEW PAGE
	MOVEI B,C.FF		; ..
	BOUT			; ..
	MOVEI T1,PRVTAB		;FIRST OF TWO TABLES WITH BITS
DIRDC1:	MOVEM T1,BITTBA		;TABLE ADDRESS
	MOVSI T1,(1B0)		;BIT TO TEST, START AT LEFT.
	MOVEM T1,BIT		; ..
BITDL:	MOVSI T2,-MAXUSR		;CHECK ALL USERS FOR CURRENT BIT
	HRR T2,BITTBA		;IN RIGHT TABLE
	MOVE T1,BIT		;BIT TO LOOK FOR
	TDNE T1,0(T2)		;THIS USER HAVE BIT?
	JRST DIRDC2		;YES.
	AOBJN T2,.-2		;NO. DOES ANYONE HAVE IT?
	JRST DIRDCN		;NO. NO OUTPUT FOR THIS BIT.
DIRDC2:	MOVEI B,0		;CLEAR TEXT POINTER
	MOVSI E,-NBITN		;COUNTER THRU BITS WITH TEXT
DDC2L:	LSH E,1			;DOUBLE INDEX
	MOVE T1,BITT2(E)	;BIT IN TABLE
	MOVE T2,BITT2+1(E)	;AND TABLE TO CHECK IN
	ASH E,-1		;GET AOBJN POINTER BACK (INCL SIGN)
	CAMN T1,BIT		;IS THIS THE ONE WE FOUND?
	CAME T2,BITTBA		;AND IN RIGHT TABLE?
	SKIPA			;NO.
	HRRO B,BITT1(E)		;YES. GET THE MESSAGE.
	AOBJN E,DDC2L		;TRY TO FIND THE MESSAGE.
	MOVE A,OUTFIL		;SET UP FOR I/O
	MOVEI C,0		; ..
	JUMPN B,[	SOUT
			JRST DIRDC3]
	HRROI B,[ASCIZ /

The following users have /]
	SOUT
	MOVE T1,BITTBA		;WHICH KIND OF BIT?
	HRROI B,[ASCIZ /privilege bit /]
	CAIE T1,PRVTAB
	HRROI B,[ASCIZ /user type bit /]
	SOUT			;DESCRIBE BIT WHICH HAS NO MESSAGE
	MOVE T1,BIT		;GET BIT NUMBER
	JFFO T1,.+1
	MOVEI B,(T2)
	MOVEI C,12		;IN DECIMAL
	NOUT
	  JFCL
	HRROI B,[ASCIZ /

/]
	MOVEI C,0
	SOUT
DIRDC3:	SETZM COLUMN		;START OF A LINE AFTER FOLLOWING TEXTS
	TRZ F,R.DGM		;FOR THE COMMA FIDDLER
	PUSHJ P,ALFDMP		;AND DUMP CLASS MEMBERS IN SORTED ORDER
DIRDCN:	MOVE E,BIT		;NEXT BIT IN MEMORY CELL
	LSH E,-1
	MOVEM E,BIT		; ..
	JUMPN E,BITDL		;LOOP IF MORE.
	MOVEI T1,TYPTAB		;FINISHED ONE TABLE. DONE BOTH?
	CAME T1,BITTBA		; ..
	JRST DIRDC1		;NO. TRY BITS IN TYPTAB TOO
	PUSHJ P,LCRLF		;LIST A COUPLE BLANK LINES
	PUSHJ P,LCRLF
	POPJ P,0		;DONE WITH DIR GRP LISTING

ALFDMP:	SETZB T1,SORTP		;START WITH FIRST SORTED INDEX
ALFDL1:	SKIPN T1,ORDRTB(T1)	;GET NEXT GUY ALPHABETICALLY
	POPJ P,0		;RAN OUT.
	MOVEM T1,USERNO		;STORE TO DRIVE DUMPERS
	PUSHJ P,@DMPADR		;DUMP OR TEST AND DUMP
	  JFCL
	AOS T1,SORTP		;UP TO NEXT ONE
	CAIGE T1,MAXUSR		;DONE ALL DIRECTORIES ?
	JRST ALFDL1		;NO. TRY THIS ONE
	POPJ P,0		;YES. END OF LINE.


;ROUTINE TO GET NEXT GROUP NUMBER
;ACCEPTS IN A/	CURRENT GROUP NUMBER
;RETURNS +1:	NO MORE GROUPS
;	 +2:	A/	NEXT GROUP NUMBER

GETNGP:	IDIVI A,^D36		;GET BIT NUMBER AND INDEX INTO TABLE
	MOVX C,.MINFI		;GET BIT POSITION
	MOVNS B
	ASH C,0(B)		;GET MASK OF BITS NOT WANTED
	MOVE T1,GRPLST(A)	;GET WORD FROM GROUP TABLE
	TDZ T1,C		;TURN OFF UNWANTED BITS
GETNG0:	JFFO T1,GETNG1		;ANY MORE BITS IN THIS WORD?
GETNG2:	AOS A			;STEP TO NEXT WORD IN TABLE
	CAIL A,GRPLSZ		;REACHED END?
	RET			;YES, NONE FOUND
	SKIPN T1,GRPLST(A)	;NO, ANY BITS ON IN THIS WORD?
	JRST GETNG2		;NO, GO TO NEXT WORD
	JRST GETNG0		;YES, GO RETURN THE GROUP NUMBER

GETNG1:	IMULI A,^D36		;YES, GO RETURN THIS NUMBER
	ADD A,T2
	RETSKP
DIRDA:	MOVE E,USERNO		;DRIVER OF DUMP ROUTINE IS USER NUMBER
	MOVE T3,GROUPN		;GET CURRENT GROUP NUMBER
	SKIPN T1,DGRTAB(E)	;GET ADDRESS OF GROUP LIST FOR DIRECTORY
	RET			;NO GROUPS FOR THIS DIRECTORY
	MOVE T2,(T1)		;GET LENGTH OF GROUP LIST
DIRDA0:	ADDI T1,1		;INCREMENT POINTER
	SOJLE T2,R		;IF END-OF-LIST, RETURN NOT-IN-GROUP
	CAME T3,(T1)		;THIS DIR IN THIS GROUP ?
	JRST DIRDA0		;NO, GO CHECK NEXT GROUP IN LIST
	TRNE F,R.DGM		;YES, FIRST ONE?
	JRST DIRDA1		;NO.
	PUSHJ P,LCRLF
	HRROI B,[ASCIZ /

The following directories are in group /]
	SOUT
	PUSHJ P,GNOUTE
	PUSHJ P,LCRLF
	SETZM COLUMN
DIRDA1:	PUSHJ P,DGNAME
	JRST CPOPJ1

DIRUA:	MOVE E,USERNO		;DRIVER OF DUMP ROUTINE IS USER NUMBER
	MOVE T3,GROUPN		;GET CURRENT GROUP NUMBER
	SKIPN T1,UGRTAB(E)	;GET ADDRESS OF GROUP LIST FOR DIRECTORY
	RET			;NO GROUPS FOR THIS DIRECTORY
	MOVE T2,(T1)		;GET LENGTH OF GROUP LIST
DIRUA0:	ADDI T1,1		;INCREMENT POINTER
	SOJLE T2,R		;IF END-OF-LIST, RETURN NOT-IN-GROUP
	CAME T3,(T1)		;THIS DIR IN THIS GROUP ?
	JRST DIRUA0		;NO, GO CHECK NEXT GROUP IN LIST
	TRNE F,R.DGM		;FOUND A USER. FIRST?
	JRST DIRUA1		;NO
	PUSHJ P,LCRLF		;YES. HEAD THE USER GROUP.
	HRROI B,[ASCIZ /

The following users have access to group /]
	SOUT
	PUSHJ P,GNOUTE		;TYPE THE NUMBER
	PUSHJ P,LCRLF		;BLANK LINE
	SETZM COLUMN		;CLEAR COLUMN COUNTER
DIRUA1:	PUSHJ P,DGNAME		;LIST THE USER NAME
	JRST CPOPJ1		;AND SEE WHO ELSE THERE IS
BITDMP:	MOVE E,USERNO		;GET USER NUMBER
	MOVE T1,BITTBA		;AND LOCATION IN TABLE
	ADDI T1,0(E)		; ..
	MOVE A,BIT		;AND PRIV BIT TO CHECK
	TDNE A,0(T1)		;IS IT ON?
	PUSHJ P,DGNAME		;YES. TYPE IT.
	POPJ P,0		;END OF BITDMP

BITT1:	[ASCIZ /

The following users are WHEELS:

/]
	[ASCIZ /

The following users are OPERATORS:

/]
	[ASCIZ /

The following users have CONFIDENTIAL INFORMATION ACCESS:

/]
	[ASCIZ /

The following users have MAINTENANCE ACCESS:

/]
	[ASCIZ /

The following users have IPCF privilege:

/]
	[ASCIZ /

The following users have ENQ-DEQ privilege:

/]
	[ASCIZ	/

The following users have ARPANET-WIZARD privilege:

/]
	[ASCIZ	/

The following users have ABSOLUTE-ARPANET-SOCKETS privilege:

/]
	[ASCIZ	/

The following users have DECNET-ACCESS privilege:

/]
	[ASCIZ	/

The following users have ARPANET-ACCESS privilege:

/]
	[ASCIZ /

The following directories are FILES-ONLY:

/]
	[ASCIZ /

The following may use ALPHANUMERIC ACCOUNTS:

/]
	[ASCIZ /

The following users always see LOGIN message:

/]
NBITN==.-BITT1
BITT2:	EXP SC%WHL,PRVTAB
	EXP SC%OPR,PRVTAB
	EXP SC%CNF,PRVTAB
	EXP SC%MNT,PRVTAB
	EXP SC%IPC,PRVTAB
	EXP SC%ENQ,PRVTAB
	EXP SC%NWZ,PRVTAB
	EXP SC%NAS,PRVTAB
	EXP SC%DNA,PRVTAB
	EXP SC%ANA,PRVTAB
	EXP 1B0,TYPTAB
	EXP 1B1,TYPTAB
	EXP 1B2,TYPTAB

;XWD NOUT FLAGS FOR LH C,  INDEX INTO DIR BLK
ORDERT:	XWD 500005,.CDNUM	;DIRECTORY NUMBER
	XWD 500014,.CDPRV	;PRIVILEGES
	XWD 500014,.CDLIQ	;LOGIN QUOTA
	XWD 500014,.CDLOQ	;LOGOUT QUOTA
	XWD 540014,.CDUGP	;USR GRPS
	XWD 540014,.CDDGP	;DIR GRPS
NORDR1==.-ORDERT	;NUMBER ALWAYS PRINTED EVEN ON NARROW FORM.
;BELOW HERE PRINTED ONLY IF NON-STD IN NARROW FORM.
	XWD 500014,.CDMOD	;USER TYPE
	XWD 500014,.CDFPT	;DEFAULT FILE PROT
	XWD 500014,.CDDPT	;DIR PROT
	XWD 500014,.CDRET	;DEF FILE RETENTION
NORDR2==.-ORDERT

DEFLTT: EXP -1			;DEFAULT VALUES OF ABOVE
	BLOCK NORDR2-1		;IN THE SAME ORDER
.OUTPT:	TRZ F,R.LPT
	MOVEI A,CMDBLK		;GET ADDRESS OF COMMAND STATE BLOCK
	MOVEI B,[CMFDB (.CMNOI,,<TXT(TO FILE)>)]
	COMND			;PARSE NOISE FIELD
	MOVE D,[GJFBLK,,GJFBLK+1] ;SET UP TO CLEAR GTJFN BLOCK
	SETZM GJFBLK		;CLEAR FIRST WORD OF BLOCK
	BLT D,GJFBLK+GJFSIZ-1	;CLEAR GTJFN BLOCK FOR COMND JSYS
	HRROI D,[ASCIZ/USERS/]	;GET DEFAULT FILENAME
	MOVEM D,GJFBLK+.GJNAM	;SAVE DEFUALT FILENAME
	HRROI D,[ASCIZ/TXT/]	;GET DEFAULT FILE TYPE POINTER
	MOVEM D,GJFBLK+.GJEXT	;SAVE DEFAULT FILE TYPE
	HRROI D,[ASCIZ/770000/]	;GET DEFAULT PROTECTION
	MOVEM D,GJFBLK+.GJPRO	;SAVE DEFAULT PROTECTION
	MOVX D,GJ%FOU		;FOR OUTPUT USE
	MOVEM D,GJFBLK+.GJGEN	;GET NEXT HIGHEST GENERATION
	MOVEI B,[CMFDB (.CMFIL)] ;GET FUNCTION BLOCK FOR OUTPUT FILE
	COMND			;GO PARSE FILE NAME
	TXNN A,CM%NOP		;NAME PARSED OK ?
	JRST .OUTP1		;YES, GO SAVE JFN
	CALL TSTCOL		;NO, SEE IF CRLF NEEDED
	TMSG <? ULIST: Invalid file specification
>				;OUTPUT MESSAGE
	RET			;RETURN
.OUTP1:	MOVEM B,OUTFIL
	MOVEI B,[CMFDB (.CMCFM)] ;GET CONFIRM FUNCTION BLOCK
	COMND			;WAIT FOR END-OF-COMMAND
	TXNE A,CM%NOP		;GARBAGE AT END-OF-COMMAND ?
	CALLRET COMER1		;YES, ISSUE ERROR MESSAGE
	MOVE A,OUTFIL		;GET JFN OF OUTPUT FILE
	MOVSI B,7B23
	HRRI B,101000
	OPENF
	 JRST .OUTP2
	JRST PARSE

.OUTP2:	SKIPL A,OUTFIL
	RLJFN
	  JFCL
	SETOM OUTFIL
	CALL TSTCOL		;SEE IF CRLF NEEDED
	TMSG <? ULIST: Cannot OPEN specified file
>				;OUTPUT ERROR MESSAGE
	RET			;RETURN TO PARSER

STCAML:	HRLI A,440700
	HRLI B,440700		;MAKE TWO STRING POINTERS
STCMLL:	ILDB C,A
	ILDB D,B		;GET TWO CHARACTERS
	CAMGE C,D		;TO A DIFFERENCE WITH A LOWER?
	JRST CPOPJ1		;YES. SKIP RETURN
	CAME C,D		;B LOWER?
	POPJ P,0		;YES. NON-SKIP RETURN
	JUMPN C,STCMLL		;SAME. LOOP UNLESS BOTH NULLS.
	JRST CPOPJ1		;END ON MATCHING NULLS.
SUBTTL	COMMAND ERROR SUBROUTINES

; INVALID END-OF-COMMAND

COMER1:	CALL TSTCOL		;TEST COLUMN POSITION
	TMSG <? ULIST: Garbage at end-of-command
>				;OUTPUT ERROR MESSAGE
	RET			;RETURN TO WHENCE WE CAME ...


; SUBROUTINE TO TEST COLUMN POSITION AND OUTPUT CRLF IF NEEDED

TSTCOL:	movei A,.priou		;get primary output designator
	rfpos			;read file position
	hrrz B,B		;keep just the column position
	JUMPE B,R		;IF AT COLUMN 1 DO NOT OUTPUT CRLF
	tmsg <
>				;no, output a crlf
	RET			;RETURN
HLPTXT:	ASCIZ	"
Commands are:

ALPHABETIC (LIST OF USERS)
BEGIN (LISTING)			[Starts outputting the listing]
DIRECTORY (GROUP LISTING)
EXIT (TO MONITOR)
HELP
MINI (LISTING FORMAT)		[Name & Directory number only]
NARROW (PAPER FORMAT)
NUMERIC (LIST OF USERS)
OUTPUT (TO FILE) FILE-SPEC
PRINT (LISTING ON PRINTER)
STRUCTURE (TO USE) STR-NAME
WIDE (PAPER FORMAT)

Assumed are: NUMERIC, WIDE, and output to TTY:
"
PROMPT:	ASCIZ /ULIST>/
JRSBLK:	0
	1,,XSTART
BITTAB:	REPEAT ^D36,<	EXP 1B<.-BITTAB>>
FCOCB:	BYTE (2)1,1,1,1,1,1,1,2,1,2,2,1,2,2,1,1,1,1
FCOCC:	BYTE (2)1,1,1,1,1,1,1,1,1,1,1,1,1,2

PDP:	IOWD 200,PDL
PDL:	BLOCK 200

STRBF:	BLOCK 60
	STRPSW==30		;PLACE TO PUT PASSWORD IN STRBF

COMWRD:	BLOCK 10		;STORAGE FOR COMMAND WORD
ECMWRD==.-1
BP0:	XWD 010700,COMWRD-1	;POINTER WHICH IDPB'S TO FIRST CHAR
				; OF COMMAND WORD STORAGE
COMX:	BLOCK 1		;COMMAND INDEX
USERNO:	BLOCK 1		;DIRECTORY NUMBER
TOPUSR:	BLOCK 1		;HIGHEST USER IN USE
PAGBAS:	BLOCK 1		;FIRST USER NUMBER ON PAGE IN MINILIST
MAXCOL:	BLOCK 1		;COLUMNS PER LINE OF PAPER
LINENO:	BLOCK 1		;LENGTH OF PAGE COUNTER
DMPADR: PCSEC,,0	;DISPATCH FOR DUMP ROUTINE
PAGENO:	BLOCK 1		;PAGE COUNTER
OLDCAP:	BLOCK 1		;CAPABILITIES ON ENTRY
OUTFIL:	BLOCK 1		;OUTPUT JFN
GROUPS:	BLOCK 1		;OR OF ALL GROUP BITS IN SYSTEM
LASTGP:	BLOCK 1		;HIGHEST G$OUP NUMBER IN USE
GROUPN:	BLOCK 1		;GROUP NUMBER CURRENTLY CONSIDERING
COLUMN:	BLOCK 1		;COLUMN ON OUTPUT PAGE FOR GROUP ROUTINE
LINPOS:	BLOCK 1		;CHARACTER POSITION ON CURRENT LINE
COMCHC:	BLOCK 1		;COUNT OF CHARS IN COMMAND WORD
SORTP:	BLOCK 1		;POINTER TO SORTED USER BLOCK
UGROUP:	BLOCK GRPSIZ+1+1  ;USER GROUP BLOCK
DGROUP:	BLOCK GRPSIZ+1+1  ;DIR GROUP BLOCK
ACTBUF:	BLOCK 11	;BUFFER FOR DEFAULT DIRECTORY ACCOUNT
BIT:	BLOCK 1		;BIT TO TEST IN PRIV WORD IN BITDMP
BITTBA:	BLOCK 1		;WHICH BIT TABLE BEING CHECKED
LOGDES:	BLOCK 1		;TTY FOR ERROR MESSAGES
CURSTR:	BLOCK 1		;CURRENT STRUCTURE
STRDEV: BLOCK 1		;DEVICE DESIGNATOR FOR STR
DIRBUF:	BLOCK 20	;NAME STRING FOR <ROOT-DIRECTORY>
STRPTR:	BLOCK 1		;PNTR TO DIRBUF
GRPBUF:	BLOCK GBFSIZ	;BUFFER FOR OUTPUTTING GROUPS
GRPLST:	BLOCK GRPLSZ	;LIST OF ALL GROUPS IN USE ON SYSTEM
CMDBLK:	BLOCK .CMGJB+5		;COMMAND STATE BLOCK FOR COMND JSYS
ATMBFR:	BLOCK ATMSIZ		;ATOM BUFFER
BUFFER:	BLOCK BUFSIZ		;INPUT TEXT BUFFER
GJFBLK:	BLOCK GJFSIZ		;GTJFN BLOCK FOR COMND JSYS

PATCH:	BLOCK 400

	END <3,,ENTVEC>