Google
 

Trailing-Edge - PDP-10 Archives - KS10_APT_INSTALL_TAPE - uetp/lib/cmlbpr.mac
There is 1 other file named cmlbpr.mac in the archive. Click here to see a list.
	TITLE	KLNPRS	PARAMETERS AND LAYOUTS SPECIFIC TO KOELN
	SUBTTL	C.MITCHELL 1977. ROUTINES WRITTEN AT COLOGNE.

	SEARCH	MONSYM,MACSYM,CMLBSM

	IFNDEF	.PSECT,<
	.DIRECT	.XTABM>

	SALL

	;THIS IS A LIBRARY FOR VARIOUS PROGRAMS WHICH CONTAINS
	;THE PARAMETERS, TABLES, AND PAGE LAYOUTS SPECIFIC TO THE
	;INSTALLATION. FOR EXAMPLE, THE HEADER PAGES FOR THE
	;NEWSLETTER AND THE ACCOUNTING SYSTEM ARE KEPT HERE. ALSO
	;TABLES FOR INSTALLATION DEFAULTS ARE KEPT HERE. AS SUCH
	;THEY FORM A TEMPLATE FOR THOSE WISHING TO RUN ANY OF
	;THE PROGRAMS ON SOME OTHER INSTALLATION.

	PRGEND
	TITLE	DEFDIR	DEFAULT DIRECTORIES
	SUBTTL	C.MITCHELL 1977. ROUTINES WRITTEN AT COLOGNE.

	SEARCH	MONSYM,MACSYM,CMLBSM

	IFNDEF	.PSECT,<
	.DIRECT	.XTABM>

	SALL

	ENTRY	ST$CMP,DR$CMP
	ENTRY	ST$ACC,DR$ACC
	ENTRY	ST$DSK,DR$DSK
	ENTRY	ST$DLU,DR$DLU
	ENTRY	ST$FCT,DR$FCT
	ENTRY	ST$PRS,DR$PRS

	;DEFAULT DIRECTORIES

ST$CMP:	ASCIZ /USERS:/
DR$CMP:	ASCIZ /MITCHEL/	;NEWSLETTER COMPONENETS

ST$PRS:	ASCIZ /USERS:/
DR$PRS:	ASCIZ /MITCHEL/		;OUTPUT OF NEWSLETTERS

ST$ACC:	ASCIZ /USERS:/
DR$ACC:	ASCIZ /MITCHEL/	;ACCOUNTS REPORTS

ST$DSK:	ASCIZ /USERS:/
DR$DSK:	ASCIZ /MITCHEL/		;DSKLSTS

ST$DLU:	ASCIZ /USERS:/
DR$DLU:	ASCIZ /MITCHEL/	;"DLUSER" FILES

ST$FCT:	ASCIZ /USERS:/
DR$FCT:	ASCIZ /MITCHEL/	;"FACT" FILES


	PRGEND
	TITLE	ACCNTS	ACCOUNTING SPECIFIC ITEMS
	SUBTTL	C.MITCHELL 1977.


	SEARCH MONSYM,MACSYM,CMLBSM


	;STRING FOR CURRENCY

	ENTRY	CURNCY

CURNCY:	ASCIZ /DOLLARS/

	;TABLE OF CHARGES FOR CHARGE TYPES

	ENTRY	CHGTPB

CHGTPB:	CHGSIZ,,CHGMAX
	TB (FRECHG,FREE)
	TB (INHCHG,IN-HOUSE)
	TB (0,NON-STANDARD-VALUES)
	TB (OUTCHG,OUTSIDE-USER)
CHGSIZ==.-CHGTPB-1
CHGMAX==CHGSIZ+1

	;CHARGE TABLES FOR ABOVE

FRECHG:	CHB (0,0,0,0,0)

INHCHG:	CHB (INHNCN,INHNCP,INHPCN,INHPCP,INHDSK)

OUTCHG:	CHB (OUTNCN,OUTNCP,OUTPCN,OUTPCP,OUTDSK)

	PRGEND
	TITLE	DIRPAR	DIRECTORY PARAMETERS
	SUBTTL	C.MITCHELL 1977. ROUTINES WRITTEN AT COLOGNE.

	SEARCH	MONSYM,MACSYM,CMLBSM

	IFNDEF	.PSECT,<
	.DIRECT	.XTABM>

	SALL

	ENTRY	TYPTAB,TYPNUM

	;TABLE OF DIRECTORY TYPES

TYPTAB:	TYPSIZ,,TYPMAX
CUSTYP:	TB (CUSNUM,CUSTOMER)
DEMTYP:	TB (DEMNUM,DEMONSTRATION)
DECTYP:	TB (DECNUM,DIGITAL-RESERVED)
INHTYP:	TB (INHNUM,IN-HOUSE-USER)
PRSTYP:	TB (PRSNUM,PROSPECT)
SYSTYP:	TB (SYSNUM,SYSTEM-AREA)
TRNTYP:	TB (TRNNUM,TRAINING)
TYPSIZ==.-TYPTAB-1
TYPMAX==TYPSIZ+1


TYPNUM:
CUSNUM:	TYP%US+CUSDEF		;CUSTOMER
DECNUM:	TYP%NP+DECDEF		;DIGITAL-RESERVED
DEMNUM:	DEMDEF			;DEMONSTRATION
INHNUM:	TYP%US+INHDEF		;IN-HOUSE USER
PRSNUM:	TYP%US+PRSDEF		;PROSPECT
SYSNUM:	TYP%NP+SYSDEF		;SYSTEM
TRNNUM:	TYP%US+TRNDEF		;TRAINING


PAGE
	;PARAMETER BLOCKS FOR DIRECTORY TYPES. MUST CONSIST OF
	;A "TPB" MACRO FOLLOWED BY A "CHB" MACRO.

	DEFINE	X(A)<A>	

CUSDEF:	TPB CUSTYP,PMAX,WMAX,M0,PRVLOW,DPRNOR,FPRNOR,GENSTD,CUSGRP
CUSCHG:	CHB OUTNCN,OUTNCP,OUTPCN,OUTPCP,OUTDSK

DECDEF:	TPB DECTYP,PMAX,WMAX,M1,PRVMIN,DPRLIB,FPRLIB,GENSTD,DECGRP
DECCHG:	CHB 0,0,0,0,0

DEMDEF:	TPB DEMTYP,PSML,WSML,M0,PRVLOW,DPRLIB,FPRLIB,GENSTD,DEMGRP
DEMCHG:	CHB 0,0,0,0,0

INHDEF:	TPB INHTYP,PNOR,WNOR,M0,PRVNOR,DPRNOR,FPRNOR,GENSTD,INHGRP
INHCHG:	CHB 0,0,0,0,0

PRSDEF:	TPB PRSTYP,PMAX,WMAX,M0,PRVLOW,DPRNOR,FPRNOR,GENSTD,PRSGRP
PRSCHG:	CHB 0,0,0,0,0

SYSDEF:	TPB SYSTYP,PMAX,WMAX,M1,PRVMIN,DPRLIB,FPRLIB,GENSTD,SYSGRP
SYSCHG:	CHB 0,0,0,0,0

TRNDEF:	TPB TRNTYP,PSML,WSML,M0,PRVLOW,DPRNOR,FPRNOR,GENSTD,TRNNUM
TRNCHG:	CHB 0,0,0,0,0


PAGE
	;DEFAULT GROUPS FOR DIRECTORIES

	DEFINE	GP(A,B)<
	XWD	[ASCIZ /A/],[ASCIZ /B/]>

CUSGRP:	GP <0>,<0>
DECGRP:	GP <0>,<0>
DEMGRP:	GP <50,10,0>,<50,0>
INHGRP:	GP <10,0>,<10,0>
PRSGRP:	GP <0>,<0>
SYSGRP:	GP <0>,<0>
TRNGRP:	GP <70,0>,<70,0>

PAGE
	PRGEND
	TITLE	DLUFMT	HEADER FOR "DLUSER" FILE
	SUBTTL	C.MITCHELL 1977. 

	IFNDEF	.PSECT,<
	.DIRECT	.XTABM>

	SALL

	ENTRY	DLUFMT

	;HEADER FORMAT OF "DLUSER" FILE

DLUFMT:
	ASCIZ /

DIRECTORY TYPE
OWNER
CHARGES (NCN,NCP,PCN,PCP,DSK)
DIRECTORY NAME
 PASSWORD
 LOGGED IN QUOTA
 CAPABILITIES
 FILES ONLY, ALPHA ACCTS, REPEAT LMSG
 LOGGED OUT QUOTA
 DIRECTORY NUMBER
 DEFAULT FILE PROTECTION
 DIRECTORY PROTECTION
 DEFAULT RETENTION SPECIFICATION
 LAST LOGIN
 USER GROUPS
 DIRECTORY GROUPS

/
 

	END