/ 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 $$$$$$