Trailing-Edge
-
PDP-10 Archives
-
red405a2
-
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