Trailing-Edge
-
PDP-10 Archives
-
decnet_mcb_cusps_703a
-
10,7/dcnmcb/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