Google
 

Trailing-Edge - PDP-10 Archives - BB-X116C-BB - 10,7/netgen/ngndat.mac
There are 7 other files named ngndat.mac in the archive. Click here to see a list.
;	TITLE	NGNDAT - NETGEN Data Segment
;		======

	SEARCH	NGNMAC

	INIGEN (NGNDAT)			; Initialize GLXLIB assembly options
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1980,1981,1982,1985,1986.
;ALL RIGHTS RESERVED.
;
;
;  module NGNDAT, containing the global data sections for the 
;		  NETGEN - Network configurator program
;
;
;	SUMMARY OF EDIT HISTORY - FOR FULL DETAILS SEE MODULE NETGEN.MAC
;
;	EDIT #		DATE
;	46.		26Oct82
; 4.1
;	2.		23Nov82
;      25.		08Apr83
;      35.		06Jan85
;      38.		15Jul85
;
;
;  In order to keep this data base at the same length for downward
; compatability, areas where outdated variables were kept are being
; recycled.  This is done by defining new variables in now-unused areas
; and initializing them when updating an old configuration file.
;
;  The canidates for recycling are made local, and the following macros
; insure that the new definitions do not overwite the available area.
; See examples already in place for these macro's usage.
;

DEFINE RECYCLE (VARNAM),<
	RECLEN=.-VARNAM			;;Length of area
	RELOC	VARNAM			;;Back to beginning of area
	RECLEN=RECLEN			;;Cause display of size>

DEFINE ENDRECYCLE (VARNAM),<
	RECLEN=VARNAM+RECLEN-.		;;Space left
IFL RECLEN, DSPRECYCLE VARNAM, \<-RECLEN> ;;Too much used!
	RELOC	.+RECLEN		;;Off to end of area
	RECLEN=RECLEN			;;Cause display of size>

DEFINE DSPRECYCLE (VARNAM,LEFT),<
IF2 ,<	PRINTX ?Replacement data exceedes VARNAM area by LEFT words>>
;
;  EQUATED SYMBOLS
;
NOILEN==:^D32				;LENGTH OF NODE ID
PSWLEN==:^D8				;LENGTH OF PASSWORD STRINGS
PSXLEN==:^D16				;LENGTH OF PASSWORD STRINGS	
MXCIR==:^D30				;MAX NUMBER X25 CIRCUITS	
DSSIZ==:^D20				;MAX NUMBER OF DESTINATIONS
GRPSIZ==:^D20				;MAX NUMBER OF GROUPS
DSSSIZ==:^D4				;LENGTH OF DESTINATION ENTRIES
NDN20==:^D1				;DN20 node type
NDN200==:^D2				;DN200 node type
NX25==:^D3				;X.25 node type
NUMKDP==:^D3				;MAX KMC11S CONTROLLING DUP11
DUPRMC==:^D4				;MAX DUP11S PER KMC11
NUMDUP==:NUMKDP*DUPRMC			;MAX DUP11S
NUMDRP==:^D256				;NUMBER OF DROPS
NUMDMC==:^D6				;MAX DMC11S
NUMDMR==:^D6				;MAX DMR11S
;NUMDMP==^D6				;MAX DMP11S
NUMDMX==:^D6				;MAX DMC11S+DMR11S+DMP11S
NUMLPT==:^D1				;MAX LPTS SUPPORTED
NUMCDR==:^D1				;MAX CDRS SUPPORTED
NUMNOD==:^D285				;MAX number of nodes
NUMPTN==:^D64				;MAX PHASE-II NODES SUPPORTED
NUMPRC==:^D20				;MAX NON-STD PROCESSES & RSX DRIVERS/TASKS
;   Save file name
;
SRNAM::ASCIZ	/NODNAM.CNF/

DBBEG::					;Start of File Data Base
;
;***** THE NEXT TWO WORDS MUST BE IN THIS ORDER AND MUST
;***** BE THE FIRST TWO WORDS OF THE SAVED FILE
;
DBLEN::	EXP SAVLNW			;Length Of Data Base
FILVER::BLOCK 1				;Version of Data Base
CCBNUM::BLOCK 1				;NUMBER OF CCBS
CCBSTA::BLOCK 1				;STATUS OF CCB VALUE
NODNAM::BLOCK 2				;NODE NAME
NONSTA::BLOCK 1				;NODE NAME STATUS
					;****** RECYCLE *****
NODNUM:	BLOCK 1				;*NODE NUMBER
NOUSTA:	BLOCK 1				;*NODE NUMBER STATUS
					;****** RECYCLE *****
NODID::	BLOCK <NOILEN/5>+1		;NODE ID
NOISTA::BLOCK 1				;NODE ID STATUS
XMTPSW::BLOCK <PSWLEN/5>+1		;TRANSMIT PASSWORD
PSXSTA::BLOCK 1				;TRANSMIT PASSWORD STATUS
RCVPSW::BLOCK <PSWLEN/5>+1		;RECEIVE PASSWORD
PSRSTA::BLOCK 1				;RECEIVE PASSWORD STATUS
NODTYP::BLOCK 1				;NODE TYPE (NDN20,NDN200,NX25)
NOTSTA::BLOCK 1				;NODE TYPE STATUS
LPTNUM::BLOCK 1				;NUMBER OF LP11S AND LP20S
LPTSTA::EXP   1				;STATUS
LPTUSE::BLOCK NUMLPT			; -1 = UNUSED, 1 = LP11, 2 = LP20
LPTUPC::BLOCK NUMLPT			; 1 = UPPER CASE, 2 = LOWER
CR1NUM::BLOCK 1				;NUMBER OF CR11S
CR1STA::BLOCK 1				;STATUS
CR1USE::BLOCK NUMCDR			; -1 = UNUSED, 0 = USED
DTENUM::BLOCK 1				;DTE20 NUMBER, OR -1 FOR NONE
DTESTA::BLOCK 1				;STATUS
NRLNUM::BLOCK 1				;NUMBER OF NRM LOGICAL LINKS
NRLSTA::BLOCK 1				;STATUS
					;****** REUSED ******
INCTOP:	BLOCK 1				;*Inclusion of TOPOL
INCOPR:	BLOCK 1				;*Inclusion of POSI and TTDRV
	RECYCLE INCTOP			;****** REUSED ******
NMLTYP::BLOCK 1				;-1=no NML, 0=NML, 1=NMS
DBLVL::	BLOCK 1				;Data base update level
	ENDRECYCLE INCTOP		;********************
;
; CONTINUED ON NEXT PAGE
;
;
; OWN STORAGE, CONTINUED
;
					;****** RECYCLE *****
LLKNUM:	BLOCK 1				;*NUMBER OF LOGICAL LINKS
LLKSTA:	BLOCK 1				;*STATUS 
					;****** RECYCLE *****
RDBNUM::EXP   1				;NUMBER OF RDBS
RDBSTA::BLOCK 1				;STATUS
					;****** REUSED ******
RDBNME:	BLOCK 1				;*EMERGENCY RDBS
RDESTA:	BLOCK 1				;*STATUS
SDBNUM:	BLOCK 1				;*NUMBER OF SDBS
SDBSTA:	BLOCK 1				;*STATUS
SDBLEN:	BLOCK 1				;*SIZE OF AN SDB
SDLSTA:	EXP   1				;*STATUS
	RECYCLE RDBNME			;****** REUSED ******
BUFDIF::BLOCK 1				;Allowable buffer pool shrinkage
DMCPXB::BLOCK 1				;DMC Transmit buffer count
	ENDRECYCLE RDBNME		;********************
RDBLEN::BLOCK 1				;SIZE OF AN RDB
RDSSTA::BLOCK 1				;STATUS
POLLEN:	BLOCK 1				;AMOUNT OF POOL SPACE
POLSTA:	BLOCK 1				;STATUS
PFUDGE:	BLOCK 1				;FUDGE FACTOR
FLOWCT::BLOCK 1				;Flow Count for NRD and ATS
FLOSTA::EXP   1				;Status
KDPSTA::BLOCK 1				;Status
KDPNUM::BLOCK 1				;Number of KMC11s Controlling DUP11s
KDPLNM::BLOCK NUMKDP			;Number of DUP11s / KMC11
DUPUSE::BLOCK NUMDUP			;>=0 If DUP is in use
					;****** REUSED ******
DUPDRP:	BLOCK NUMDUP*NUMDRP		;*TERMINAL NUMBER OF EACH DROP ON EACH DUP11
	RECYCLE DUPDRP			;****** REUSED ******
DUPCST::BLOCK NUMDUP			;Cost of each KDP Circuit
DTECST::BLOCK 1				;Cost of DTE Circuit
LNTYP::	BLOCK NUMDUP			;Line Type
CHRAGL::BLOCK NUMDUP			;LOW DTE RANGE
CHRAGH::BLOCK NUMDUP			;HIGH DTE RANGE
DTEADR::BLOCK NUMDUP*4			;DTE adresses
DUPDUP::BLOCK NUMDUP			;Duplex of DUP
DCPNUM::BLOCK 1				;Number of KDPs which are XPT lines
	ENDRECYCLE DUPDRP		;********************
DUPRAT::BLOCK NUMDUP			;SPEED OF THE DUP11
DMXNUM::BLOCK 1				;NUMBER OF DMC11S+DMR11S+DMP11S
DMCNUM::BLOCK 1				;NUMBER OF DMC11S
DMCSTA::BLOCK 1				;STATUS
DMCUSE::BLOCK NUMDMC			;SET 0 IF IN USE, -1 IF NOT.
					;****** REUSED ******
DMCDRP:	BLOCK NUMDMC*NUMDRP		;*TERMINAL NUMBER OF EACH DROP ON EACH DMC11
	RECYCLE DMCDRP			;****** REUSED ******
DMCCST::BLOCK NUMDMC			;Cost of each DMC Circuit
DMCDUP::BLOCK NUMDMC			;Duplex of each DMC Line
X25CIR::BLOCK MXCIR*4			;Circuit name table
DTECIR::BLOCK MXCIR*4			;CIR DTE
CIRCHP::BLOCK MXCIR			;CIRC CHANNLES
CIRCHD::BLOCK MXCIR			;CIRC CHANNLES
MXDATP::BLOCK MXCIR			;MAX DATA CIR X-25
MXDATD::BLOCK MXCIR			;MAX DATA CIR X-25
MXWINP::BLOCK MXCIR			;MAXIMUM WINDOW 
MXWIND::BLOCK MXCIR			;MAXIMUM WINDOW 
DSACCT::BLOCK DSSIZ*DSSSIZ		;DES ACCOUNT
DSMASK::BLOCK DSSIZ*DSSSIZ		;CALL MASK
DSVAL::	BLOCK DSSIZ*DSSSIZ		;CALL VALUE
DSNUM::	BLOCK DSSIZ*DSSSIZ		;DEST. DTE
DSOBJS::BLOCK DSSIZ*DSSSIZ		;DEST OBJECT NAME
DSOBJN::BLOCK DSSIZ			;DEST OBJECT NUMBER
DSPASS::BLOCK DSSIZ*DSSSIZ		;DEST PASSWORD
DSSUBL::BLOCK DSSIZ			;DEST SUB-ADDRESS RANGE LOW
DSSUBH::BLOCK DSSIZ			;DEST SUB-ADDRESS RANGE HIGH
DSUSER::BLOCK DSSIZ*DSSSIZ		;DEST USER NAME
DSNODE::BLOCK DSSIZ*DSSSIZ		;DEST NODE NAME
DSGRUP::BLOCK DSSIZ*DSSSIZ		;DEST GROUP
DSPRIO::BLOCK DSSIZ			;DEST PRIORITY
DESNAM::BLOCK DSSIZ*DSSSIZ		;DESTINATION NAME
	ENDRECYCLE DMCDRP		;********************
DMRNUM::BLOCK 1				;NUMBER OF DMR11S
DMRSTA::EXP   1				;STATUS
DMRUSE::BLOCK NUMDMR			;SET 0 IF IN USE, -1 IF NOT.
					;****** REUSED ******
DMRDRP:;BLOCK NUMDMR*NUMDRP		;*TERMINAL NUMBER OF EACH DROP ON EACH DMR11
	BLOCK NUMDMR*NUMDRP-NUMNOD	;****** REUSED ******
XPTMXA::BLOCK NUMNOD			;Maximum addresses
	RECYCLE DMRDRP
DMRCST::BLOCK NUMDMR			;Cost of each DMR Circuit
DMRDUP::BLOCK NUMDMR			;Duplex of each DMR Line
NUMDES::BLOCK 1				;NUMBER OF DESTINATIONS
NUMCIR::BLOCK 1				;NUMBER OF X25 CIRCUITS
NEWNAM::BLOCK 1				;NEW CIRCIUT NAME FLG.
NETNAM::BLOCK 4				;network name
XTPBLK::BLOCK 1				; X25 - MAX BLK SIZE (bytes)
XTDBLK::BLOCK 1				; X25 - MAX BLK SIZE (bytes)
XTPWS::BLOCK 1				; X25 - MAX WINDOW SIZE (line)
XTDWS::BLOCK 1				; X25 - MAX WINDOW SIZE (line)
XTPIT1::BLOCK 1				; X25 - RETRANSMIT TIMER (ms.)
XTDIT1::BLOCK 1				; X25 - RETRANSMIT TIMER (ms.)
XTPIRC::BLOCK 1				; X25 - RETRANSMIT COUNT
XTDIRC::BLOCK 1				; X25 - RETRANSMIT COUNT
XTPDPS::BLOCK 1				; X25 - DEFAULT DATA SIZE
XTDDPS::BLOCK 1				; X25 - DEFAULT DATA SIZE
XTPDWS::BLOCK 1				; X25 - DEFAULT WINDOW SIZE
XTDDWS::BLOCK 1				; X25 - DEAULT WINDOW SIZE
XTPMPS::BLOCK 1				; X25 - MAX DATA SIZE
XTDMPS::BLOCK 1				; X25 - MAX DATA SIZE
XTPMWS::BLOCK 1				; X25 - MAX WINDOW SIZE
XTDMWS::BLOCK 1				; X25 - MAX WINDOW SIZE
XTPTCA::BLOCK 1				; X25 - CALL TIMER
XTDTCA::BLOCK 1				; X25 - CALL TIMER
XTPTCL::BLOCK 1				; X25 - CLEAR TIMER
XTDTCL::BLOCK 1				; X25 - CLEAR TIMER
XTPTRE::BLOCK 1				; X25 - RESET TIMER
XTDTRE::BLOCK 1				; X25 - RESET TIMER
XTPTRS::BLOCK 1				; X25 - RESTART TIMER
XTDTRS::BLOCK 1 			; X25 - RESTART TIMER
XTPRCL::BLOCK 1				; X25 - MAX CLEARS
XTDRCL::BLOCK 1				; X25 - MAX CLEARS
XTPRRE::BLOCK 1				; X25 - MAX RESETS
XTDRRE::BLOCK 1				; X25 - MAX RESETS
XTPRRS::BLOCK 1				; X25 - MAX RESTARTS
XTDRRS::BLOCK 1				; X25 - MAX RESTARTS
XTPLCN::BLOCK 1				; X25 - MAX CHANNELS
XTDLCN::BLOCK 1				; X25 - MAX CHANNELS
XTPPVC::BLOCK 1				; X25 - MAX PERM CIR
XTDPVC::BLOCK 1				; X25 - MAX PERM CIR
XTPUGS::BLOCK 1				; X25 - MAX GROUPS
XTDUGS::BLOCK 1				; X25 - MAX GROUPS
XTDCKT::BLOCK 1				; X25 - MAX CIRCUITS
XTPDST::BLOCK 1				; X25 - MAX DESTINATIONS
XTDDST::BLOCK 1				; X25 - MAX DESTINATIONS
XTPDTC::BLOCK 1				; X25 - DTE COMMAND ADDR
XTDDTC::BLOCK 1				; X25 - DTE COMMAND ADDR
XTPDCC::BLOCK 1				; X25 - DCE COMMAND ADDR
XTDDCC::BLOCK 1				; X25 - DCE COMMAND ADDR
XTPDTR::BLOCK 1				; X25 - DTE RESPONSE ADDR
XTDDTR::BLOCK 1				; X25 - DTE RESPONSE ADDR
XTPDCR::BLOCK 1				; X25 - DCE RESPONSE ADDR
XTDDCR::BLOCK 1				; X25 - DCE RESPONSE ADDR 
GBLFLT::BLOCK 7				; NMX - Global event filters 0-6
NUMGRP::BLOCK 1				;NUMBER OF GROUPS DEFINED
GRPNUM::BLOCK GRPSIZ*NUMDUP		;GROUP NUMBER
GRPTYP::BLOCK GRPSIZ			;GROUP TYPE
GRPDTE::BLOCK GRPSIZ*4
GRPNAM::BLOCK GRPSIZ*4			;GROUP NAME
	ENDRECYCLE DMRDRP		;********************
PLKNUM::BLOCK 1				;NUMBER OF PHYSICAL LINKS
		;  ie, #SLT$DFs with TLI as the LLC (excludes X.25 links)
PLKSTA::BLOCK 1				;STATUS
CNTPMT::BLOCK ^D10			;SPACE FOR 49 CHARACTER PROMPT FOR KDP ETC.
;
;Continued on next page
;
;
;Own Storage Continued
;
NTPLIX::EXP   1				; CEX - Number of line indices
					;  (ie, #SLT$DFs in CETAB)
NTDLIX::BLOCK 1				; CEX - Number of line indices
NTPEBQ::BLOCK 1				; XPT - ECL buffer quota (to NSP)
NTDEBQ::BLOCK 1				; XPT - ECL buffer quota (to NSP)
NTPIBQ::BLOCK 1				; XPT - Input buffer quota (from NSP)
NTDIBQ::BLOCK 1				; XPT - Input buffer quota (from NSP)
NTPLBQ::BLOCK 1				; XPT - Line buffer quota
NTDLBQ::BLOCK 1				; XPT - Line buffer quota
NTPMXC::BLOCK 1				; XPT - Maximum total path cost
NTDMXC::BLOCK 1				; XPT - Maximum total path cost
NTPMXH::BLOCK 1				; XPT - Maximum network diameter (hops)
NTDMXH::EXP   1				; XPT - Maximum network diameter (hops)
					;****** RECYCLE *****
NTPMXL:	BLOCK 1				;*Maximum data link cost
NTDMXL:	BLOCK 1				;*Maximum data link cost
					;****** RECYCLE *****
NTPMXP::BLOCK 1				; XPT - Maximum Phase II logical links
NTDMXP::BLOCK 1				; XPT - Maximum Phase II logical links
NTPMXV::BLOCK 1				; XPT - Maximum visits (XP.mxh * 2)
NTDMXV::BLOCK 1				; XPT - Maximum visits (XP.mxh * 2)
NTPNN::	BLOCK 1				; XPT - Number of nodes in net
NTDNN::	BLOCK 1				; XPT - Number of nodes in net
NTPT1::	BLOCK 1				; XPT - Maximum time between routing messages
NTDT1::	BLOCK 1				; XPT - Maximum time between routing messages
NTPT2::	BLOCK 1				; XPT - Minimum time between routing messages
NTDT2::	BLOCK 1				; XPT - Minimum time between routing messages
NTPT3::	BLOCK 1				; XPT - Time between hello messages
NTDT3::	BLOCK 1				; XPT - Time between hello messages
NTPT4::	BLOCK 1				; XPT - Node listener timeout
NTDT4::	BLOCK 1				; XPT - Node listener timeout

NTPACT::BLOCK 1				; NSP - Inactivity timer value
NTDACT::BLOCK 1				; NSP - Inactivity timer value
NTPBUF::EXP   1				; NSP - Minimum SC receive buffer size
NTDBUF::BLOCK 1				; NSP - Minimum SC receive buffer size
NTPDLY::BLOCK 1				; NSP - NSP delay factor
NTDDLY::BLOCK 1				; NSP - NSP delay factor
NTPRET::BLOCK 1				; NSP - Retransmission threshold
NTDRET::BLOCK 1				; NSP - Retransmission threshold
NTPSLF::BLOCK 1				; NSP - Local node address
NTDSLF::BLOCK 1				; NSP - Local node address
NTPTPT::BLOCK 1				; NSP - Total number of ports supported
NTDTPT::BLOCK 1				; NSP - Total number of ports supported
NTPTRS::EXP   1				; NSP - Total number of reserved ports
NTDTRS::BLOCK 1				; NSP - Total number of reserved ports
NTPWGT::BLOCK 1				; NSP - Round trip delay estimation factor
NTDWGT::BLOCK 1				; NSP - Round trip delay estimation factor
NTPITM::BLOCK 1				; SC - Incoming connect timer default
NTDITM::BLOCK 1				; SC - Incoming connect timer default
;
;Continued on Next Page
;
NTPOTM::BLOCK 1				; SC - Outgoing connect timer default
NTDOTM::BLOCK 1				; SC - Outgoing connect timer default
NTPOPN::BLOCK 1				; SC - Number of OPEN ports to keep
NTDOPN::BLOCK 1				; SC - Number of OPEN ports to keep
NTPNCK::BLOCK 1				; NMX - # NMX Circuits 
		; (<#phys links,incl X.25 circuits,ie #SLT$DFs>+fudge)
NTPNLN::BLOCK 1				; NMX - # NMX Lines
		; (<#SLT$DFs w/0 or null station addr> + fudge)
NTPNMO::BLOCK 1				; NMX - # NMX Modules
		; (<#X.25 circuits, ie #SLT$DFs with LLC not = TLI>+fudge)
NTPBLK::EXP   1				; DL Block Size
NTDBLK::BLOCK 1				; DL Block Size
;
;PHASE II NODE INFORMATION
;
PTNNAM::BLOCK 2*NUMPTN			;SPACE FOR NUMPTN NODE NAMES
PTNNUM::BLOCK NUMPTN			;SPACE FOR NUMPTN NODE NUMBERS
CURPTN::BLOCK 1				;POINTS TO NEXT VACANT SLOT
PTNSTA::BLOCK 1				;PHASE-II-NODE STATUS

;PROCESS/RSX TASK INFORMATION

PRCNAM::BLOCK NUMPRC			;SPACE FOR MCB PROCESS NAME
PRCUSE::BLOCK NUMPRC			;-1 FOR NO LLC, 0 FOR LLC
PRCDRV::BLOCK NUMPRC			;RSX DRIVER NAME (0 FOR NONE)
PRCMDT::EXP  -1				;-1 FOR NO MDT, 0 FOR MDT
RSTNAM::BLOCK NUMPRC*2			;SPACE FOR RSX TASKS
RSTUSE::BLOCK NUMPRC			;-1 NOT STARTED, 0 START AUTOMATICALLY
RSDNAM::BLOCK NUMPRC			;SPACE FOR RSX DRIVERS
PRCPTR::BLOCK 1				;POINTER TO CURRENT MCB NAME
RSTPTR::BLOCK 1				;POINTER TO CURRENT RSX TASK NAME
RSDPTR::BLOCK 1				;POINTER TO CURRENT RSX DRIVER NAME
;
SAVLNW==:<.-DBBEG>
SAVDON::BLOCK 1				;Save done for this configuration
DEVTYP::BLOCK 1				;Device type code
DEVTXT::BLOCK 1				;Current device name
CTLNUM::BLOCK 1				;Current device controller number
UNTNUM::BLOCK 1				;Current device unit number
NAMFLG::BLOCK 1				;-1 tells GETNOD to pad names w/spaces
					; 0 tells GETNOD to pad names w/nulls
NCIR::	BLOCK 1				;MAX CIR TEMP
DMXCSR::BLOCK 1				;CURRENT CSR ADDRESS FOR DMx DEVICES
DMXINT::BLOCK 1				;CURRENT INTERRUPT VECTOR FOR DMx DEVICES
;
;	NML PASSWORD
;
ACNLEN==:^D16
PASLEN==:^D8
USRLEN==:^D16
ACTSTR:: BLOCK	<ACNLEN/5>+1		;ACCESS CONTROL ACCOUNT STRING
ACTSTA:: BLOCK	1
PASSTR:: BLOCK	<PASLEN/5>+5		;ACCESS CONTROL PASSWORD STRING
PASSTA:: BLOCK	1
USRSTR:: BLOCK	<USRLEN/5>+5		;ACCESS CONTROL USER-ID STRING
USRSTA:: BLOCK	1
;
;	X25 PASSWORD
;
ACXLEN==^D16
PAXLEN==^D16
USXLEN==^D16
ACTSXR:: BLOCK	<ACXLEN/5>+1		;ACCESS CONTROL ACCOUNT STRING
ACTSXA:: BLOCK	1
PASSXR:: BLOCK	<PAXLEN/5>+5		;ACCESS CONTROL PASSWORD STRING
PASSXA:: BLOCK	1
USRSXR:: BLOCK	<USXLEN/5>+5		;ACCESS CONTROL USER-ID STRING
USRSXA:: BLOCK	1

	END