/ WPUDKD - UDK POINTERS & SYSTEM BLOCK VALUES
/
/	033	Mart	15-aug-85	modified date and time sep for DUTCH
/	032	EMcD	28-Feb-85	Added DECDEV switch
/	031	AH	29-OCT-84	EXTENSION TO 029
/	030	WCE	08-OCT-84	INITIALIZE MNOPTC FOR STANDARD SYSTEM
/	029	AH	13-SEP-84	ADDED SYSTEM DATE, VERSION TO DIRECTORY
/	028	WCE	20-AUG-84	ADDED TELEPHONE DIRECTORY WORD
/	027	AH	10-AUG-84	CHANGED "RETURN" TO "ADVANCE" IN UDK 0
/	026	TCW	16-JUL-84	Definition of MNPRTB CHANGED
/	025	JAC	03-JUL-84	Fix Loading Sequence
/	024	JAC	15-APR-84	ZERO UNUSED UDK BLOCKS ON DISK
/	023	JAC	25-APR-84	100 UDK DEVELOPMENT
/	022	WCE	30-APR-84	Added words to system area for British
/	021	WJY	02-FEB-84	DECmate I compatability.
/	020	EPS	21-JUN-83	ADDED BOOKMARK UDK'S FOR CONDOR
/	019	WCE	21-JUN-83	Added conditional for Develop options
/	018	HLP	08-JUN-83	NCONDOR to use PB 4800
/	017	HLP	04-NOV-82	DM-II TM default to VT-100
/	016	MJS	12-OCT-82	Conditionalized "MNSECN" (the secondary
/					comm port characteristics on CONDOR
/					because "SETUP" mode uses this location
/					to save the terminal characteristics
/					(thus no other loc had to be defined)
/
/	015	SBB	17-SEP-82	Deleted ICP's for CONDOR. 4800 baudprt
/
/	014	AIB	11-AUG-82	Add UDK 5: editor math ICP, and UDK 6:
/					 list processing math ICP
/
/	013	SBB	25-AUG-82	Made timeout delays variable from MNXDLY
/						(DEFAULT TO CT=5)
/	012	HLP	30-JUN-82	TM default conditionalized for DM-II
/	011	GDH	16-OCT-81	TM option changes.
/	010	GR	05-OCT-81	Updated UDK's for ICP docs. for V2.0
/	009	GDH	23-SEP-81	made system value area location independent.
/	008	GDH	01-SEP-81	New write-out code conventions.
/	007	GR	06-AUG-81	ADDED MATH SWITCH FLAG
/	006	TT	07-JUL-81	Removed superfluous conditionals
/	005	DRH	 2-FEB-81	INSTALLED SORT ICP IN UDK 9
/	004	DAO	21-JAN-81	Changed stop bit default to 1 (was 2)
/					Most timeshare systems use 1.
/	003	DRH	20-JAN-81	INSTALLED KERNEL 1.0 SOFTWARE ICP IN
/					UDK 7 & LIST PROCESSING  ICP IN UDK 8
/	002	WCE	17-NOV-80	ADDED INITIALIZE VALUE FOR UNBUNDILING
/	001	DAO	11-NOV-80	Conditionalize DP2 baud rate to be set
/					to 9600 for a VT278 since it is used
/					for the LQPSE.
/	2.N-1	RLT	14-SEP-77	CHANGE FOR UDKPRT OPTION
/	2.N	KEE	 7-SEP-77	CHANGE 'MN' SYMBOLS FOR 4-FLOPPY SUPPORT
/
	FIELD 0
	*200
	JMP I	.+3
	JMP I	.+1
	7600
	RXLOAD
	*RXLDLS
	RXEWT=4
	RXEWT
	0
	RXQBLK=11
	RXQBLK
	.
	DLUDKS 			/ ++++
	1200 			/ ++++					/C023
	CDF 10 			/ ++++
/D025	-DSUDKS
	-2			/ Load Directory and next block only	/A025

	DLSVAL 			/ ++++
	600 			/ ++++
	CDF 10 			/ ++++
	-DSSVAL

	/ Below loads rest of zeroed udk blocks				/A025

	DLUDKS+2		/ ZERO THE UNUSED BLOCKS		/A024
	ZEROLA			/ BLOCK 0, 				/A024
	IFNDEF DECDEV <
	CDF 20			/ FIELD 2 (ASS'Y TIME)		/M032	/A024
	>
	IFDEF DECDEV <
	CDF 50			/ FIELD 2 (ASS'Y TIME)			/A032
	>
	-DSUDKS+2		/ SHOULD BE -17 = 7761			/A024

	0
/

	FIELD 1
	*1200
	RELOC CUDBUF
/ EACH LOCATION CONTAINS THE ADDRESS OF THE ASSOCIATED UDK. THAT IS,
/ WORD 0 CONTAINS THD ADDRESS OF UDK 0, WORD 1 CONTAINS THE ADDRESS OF
/ UDK 1, ETC. THE UDK DIRECTORY OCCUPIES ONE BLOCK; ONLY 100 DECIMAL
/ LOCATIONS ARE USED. THE ADDRESS WORD IS DECODED AS FOLLOWS:
/ BITS 0-3: RELATIVE BLOCK OF CORRESSPONDING UDK
/ BITS 4-11: WORD IN THE RELATIVE BLOCK
/
/ UDK'S START IN THE BLOCK FOLLOWING THE DIRECTORY (ALTHOUGH THEY DON'T
/ NECESSARILY HAVE TO) AND USE 16 DECIMAL BLOCKS. UDK'S MAY BE ANY LENGTH
/ AND MAY CROSS BLOCK BOUNDRIES. THE FIRST WORD OF A UDK IS THE UDK NUMBER
/ PLUS 2001 OCTAL; THE FIRST WORD OF UDK 1 WILL BE 2001 OCTAL, THE FIRST
/ WORD OF UDK 2 WILL BE 2002 OCTAL, ... , THE FIRST WORD OF UDK 99 WILL
/ BE 2144 OCTAL.
/
/ COMPUTATIONS FOR THE FIRST UDK DEFINED (NOT NECESSARILY UDK 0).
/ A SET OF THESE COMPUTATIONS IS REQUIRED FOR EACH UDK DEFINED.
	BLKSET= CUDBUF+400%400		/ BLOCK OF UDK DIRECTORY
	BLKADR= UDK0%400-BLKSET		/ RELATIVE BLOCK OF UDK
	RELADR= UDK0-CUDBUF-400		/ RELATIVE CORE ADDRESS
	BLKWRD= RELADR%400^400		/ ADDRESS OF FIRST WORD OF BLOCK
	WRDADR= RELADR-BLKWRD		/ ADDRESS OF WORD IN BLOCK

	BLKADR^400+WRDADR		/ ADDRESS OF UDK 0

	0				/ 1
	0				/ 2
	0				/ 3
	0				/ 4
	0				/ 5
	0				/ 6
	0				/ 7
	0				/ 8

	BLKADR= UDK9%400-BLKSET
	RELADR= UDK9-CUDBUF-400
	BLKWRD= RELADR%400^400
	WRDADR= RELADR-BLKWRD

	BLKADR^400+WRDADR		/ ADDRESS OF UDK 9

	ZBLOCK 400-.+CUDBUF-14		/ZERO REST OF DIRECTORY		/C029

	DLRLRE			/ EDITOR RULERS				/A031
	DLRLRP			/ PRINTER SETTINGS			/A031
	DLSVAL			/ SYSTEM PARAMETERS			/A031
	DLUDKD			/ UDK DEFINITIONS			/A031

	SYSVER			/ VERSION NUMBER, 8-BIT ASCII		/A029
	SYSBAS			/ BASE LEVEL NUMBER			/A029
	SYSREV			/ BASE LEVEL REV. NUMBER		/A029

	BLDDY			/ BUILD DAY, BINARY			/A029
	BLDMO			/ 	MON				/A029
	BLDYR			/	YR				/A029

	TEXT "UDK"		/ UDK DIRECTORY BLOCK IDENTIFIER, 2WORDS/A029

	NOP			/ PLACE HOLDER SO ADDRESS OF UDK 0
				/ IS NOT ZERO. THIS PREVENTS HAVING A UDK
				/ DEFINED WHOSE ADDRESS IN THE DIRECTORY
				/ IS ZERO. A ZERO ADDRESS IN THE DIRECTORY
				/ WOULD INDICATE THAT THAT UDK WAS NOT
				/ DEFINED.
UDK0,	0+CUUDID
	EDFIND		/SEARCH						/A020
	IFDEF ENGLSH <
	"*-200		/*						/A020
	"*-200		/*						/A020
	"*-200		/*						/A020
	"B-200		/B						/A020
	"O-200		/O						/A020
	"O-200		/O						/A020
	"K-200		/K						/A020
	" -200		/SPACE						/A020
	"M-200		/M						/A020
	"A-200		/A						/A020
	"R-200		/R						/A020
	"K-200		/K						/A020
	"*-200		/*						/A020
	"*-200		/*						/A020
	"*-200		/*						/A020
	>
	IFDEF ITALIAN <
	"*-200		/*						/A020
	"*-200		/*						/A020
	"*-200		/*						/A020
	"B-200		/B						/A020
	"O-200		/O						/A020
	"O-200		/O						/A020
	"K-200		/K						/A020
	" -200		/SPACE						/A020
	"M-200		/M						/A020
	"A-200		/A						/A020
	"R-200		/R						/A020
	"K-200		/K						/A020
	"*-200		/*						/A020
	"*-200		/*						/A020
	"*-200		/*						/A020
	>
/D027	EDNWLN		/RETURN						/A020
	EDADVN		/ADVANCE  NEW TERMINATOR FOR SEARCH		/A027
	EDRBCH		/RUB CHAR					/A020
	EDDLTW		/DEL WORD					/A020
	EDDLTC		/DEL CHAR					/A020
	EDDLTC		/DEL CHAR					/A020
	EDDLTC		/DEL CHAR					/A020
	EDDLTC		/DEL CHAR					/A020
	EDDLTC		/DEL CHAR					/A020
	EDDLTC		/DEL CHAR					/A020
	EDDLTC		/DEL CHAR					/A020
	EDDLTC		/DEL CHAR					/A020
	0								/A015

UDK9,	11+CUUDID
	EDNWLN		/RETURN						/A020
	IFDEF ENGLISH <
	"*-200		/*						/A020
	"*-200		/*						/A020
	"*-200		/*						/A020
	"B-200		/B						/A020
	"O-200		/O						/A020
	"O-200		/O						/A020
	"K-200		/K						/A020
	" -200		/SPACE						/A020
	"M-200		/M						/A020
	"A-200		/A						/A020
	"R-200		/R						/A020
	"K-200		/K						/A020
	"*-200		/*						/A020
	"*-200		/*						/A020
	"*-200		/*						/A020
	>
	IFDEF ITALIAN <
	"*-200		/*						/A020
	"*-200		/*						/A020
	"*-200		/*						/A020
	"B-200		/B						/A020
	"O-200		/O						/A020
	"O-200		/O						/A020
	"K-200		/K						/A020
	" -200		/SPACE						/A020
	"M-200		/M						/A020
	"A-200		/A						/A020
	"R-200		/R						/A020
	"K-200		/K						/A020
	"*-200		/*						/A020
	"*-200		/*						/A020
	"*-200		/*						/A020
	>
	EDSLCT		/SEL						/A020
	EDBKUP		/BACK-UP					/A020
	EDLINE		/LINE						/A020
	EDBOLD		/BOLD						/A020
	EDNWLN		/RETURN						/A020
	EDFILE		/GOLD:F						/A020
	0
	ZBLOCK 400-.+CUDBUF+400		/ ZERO REST OF BLOCK


/
/	DLSVAL - SYSTEM BLOCK INITAL SETTINGS
/	THESE ARE THE DEFAULT SYSTEM SETTING THAT ARE STORED ON THE DISK WHEN NEW
/
	RELOC
	*600 			/ STARTING ADDRESS TO LOAD FROM AT WRITEOUT TIME
/
X=MUSYSV-MUBUF-600		/ BASE OFFSET OF SYSTEM AREA.
*MNABRV-X;	2		/ MNABRV, USED BY THE EDITOR FOR ABBREVIATION
*MNLBRY-X;	3		/ MNLBRY, USED BY THE EDITOR FOR LIBRARY
*MNPGSZ-X;	66		/ MNPGSZ, USED BY THE EDITOR FOR PAGE SIZE
*MNSTAT-X; IFDEF CONDOR < 2 >	/ MNSTAT, USED BY THE EDITOR FOR STATUS LINE /C021
	   IFNDEF CONDOR < 0 >	/	HAVE DMI COME UP WITH ES=0	/A021
*MNFMAT-X;	0		/ MNFMAT, FORMAT WORD FOR DATE, CURRENCY, DICT. /A022

*MNSDRV-X;	0		/ USER DRIVE SELECTION FOR SPELLING	/A022
*MNPDFN-X;	0		/ PERSONAL DICTIONARY DRIVE & FILE NUMBER /A022
*MNLGFN-X;	0		/ LOGON EASY COMM DRIVE AND FILE NUMBER	/A022
*MNADFN-X;	0		/ AUTODIAL DIRECTORY DRIVE & FILE NUMBER /A028
IFDEF DUTCH <
*MNDSEP-X;	5500		/ DATE SEPARATOR TYPED IN BY USER	/A022
	>
IFNDEF DUTCH	<	
*MNDSEP-X;	5700		/ DATE SEPARATOR TYPED IN BY USER	/A022
	>	
*MNXTRA-X;	0		/ ** EXTRA WORD AVALAIBLE FOR SAVING	/A028

*MNCMTP-X;	0		/ MNCMTP - THE COMMUNICATIONS
				/          SET FOR 0 = CX 1 = MAGCARD
*MNXONF-X;	0		/ MNXONF - USE XON/XOF AT HANDLER LEVEL OF
				/          COMM PORT 0 = YES 1 = NO
				/ FOR A DETAILED DESCRIPTION OF THE TWO
				/ LOCATIONS SLU2PM AND 3 LOOK AT WPSYS
	SLDATA=4000		/ 8 Data bits	DDD D-- --- ---		/A004
	SLPARA=0200		/ No Parity	--- -PP --- ---		/A004
	SLSTOP=0020		/ 1 Stop bit	--- --- SS- ---		/A004
	SLBAUD=0005		/ 300 baud	--- --- --B BBB		/A004
	SLDFLT=SLDATA+SLPARA+SLSTOP+SLBAUD

*MNPRIM-X;	SLDFLT		/ MNPRIM - Primary port (0) settings.

	IFNDEF	CONDOR	< 						/A016
*MNSECN-X;	SLDFLT		/ MNSECN - Alternate port (1) settings.
			>	/ END IFNDEF CONDOR 			/A016
	IFDEF	CONDOR	< 						/A016
*MNSECN-X;	0		/ MNSECN - condor SETUP mode values	/A016
			>	/ END IFDEF CONDOR 			/A016


/	FORMAT FOR THE MNPRTB WORD:
/	BITS		INFORMATION
/
/	0-2	TERMINAL MODE (0=VT52, 1=VT100, 2=DECMATE, 3=VT125, 4=VT227
/
/	3-6		BREAK TIME (IN TENTHS OF A SECOND).
/
/
/
/	7		PORT SELECT (0=PRIMARY, 1=ALTERNATE)
/
/	8-11		PRINTER BAUD RATE.
/
/	**********************************************************
/
/	LIMITS - VALUES THAT ARE CHECKED FOR IN THE MENU
/
/	CHARACTER SIZE - CAN BE FROM 5 - 8
/
/	PARITY - 2 = NO PARITY, 1 = ODD, 0 = EVEN
/
/	STOP BITS - 1 OR 2 NOTE: IF SET FOR 5 FOR CHARACTER SIZE AND 1 FOR STOP
/	IT WILL AUTOMATICALLY SET FOR 1.5 STOP BITS
/
/	AND BAUD:
/
/	VALUE	BAUD
/	0	50
/	1	75
/	2	110
/	3	134.5	(MAGCARD)
/	4	150
/	5	300
/	6	600
/	7	1200
/	10	1800
/	11	2000
/	12	2400
/	13	3600
/	14	4800
/	15	7200
/	16	9600
/	17	19200
/
	
*MNPRTB-X;			/ MNPRTB - See WPCU3/WPCU4 for defn of bits

IFNDEF CONDOR <	0514 >		/	Initialized for PB=4800,	/C018
				/      	Primary port (0), BT=5.		/C012
				/	TM = WS52			/C012

IFDEF CONDOR <	1254 >		/	Initialized for PB=4800,/C017	/M026
				/      	Primary port (0), BT=5.		/A012
				/	TM = VT-100			/C017

*MNCXP-X;	0		/ MNCXP - DOCUMENT NUMBER FOR CX DOCUMENT
				/         TRANSFER PROTOCOL

*MNOPTC-X;			/ MNOPTC - USED BY THE UNBUNDLING CODE	/A002

	IFDEF	UNBUND	<						/A019
	COMBIT!LPBIT!SRBIT!MABIT / TURN ON SYSTEM OPTIONS		/C030
			>	/ END IFDEF UNBUND			/A019

	IFNDEF	UNBUND	< -1 >	/ MAKE SURE ALL OPTIONS ARE ACTIVE	/A019

*MNXDLY-X;	5		/ MNXDLY is used as a multiplier to mod	/A013
				/ the time out delays for DX		/A013

/ THE NEXT 3 ITEMS ARE NOT COPIED INTO THE SYSTEM AREA BECAUSE OF SPACE

//*MNCDV-X;	0		/ DOCUMENT DRIVE NUMBER (MNCDV)
//*MNCNO-X;	0		/ DOCUMENT NUMBER WITHOUT THE DRIVE (MNCNO)
//*MNCFAD-X;	0		/ START OF THE ASCII STRING THAT IS THE
				/          DOCUMENT NAME (MNCFAD)

	ZBLOCK 400-.+600


/ THE FOLLOWING SETS UP A DUMMY ZEROED FIELD TO LOAD TO UNUSED UDK BLOCKS/A024

	IFNDEF DECDEV <
	FIELD 2							/M032
	>			
	IFDEF DECDEV <
	FIELD 5							/A032
	>
	

	*0
ZEROLA,	ZBLOCK 7777

$$$$$$


