Google
 

Trailing-Edge - PDP-10 Archives - bb-r775d-bm_tops20_ks_upd_4 - sources/data.bli
There are 12 other files named data.bli in the archive. Click here to see a list.
 %TITLE 'DATA - Common Data Definitions'
MODULE DATA (				! Common Data Definitions
		IDENT = '3-013'			! File: DATA.BLI Edit: CJG3013
		) =
BEGIN
!
!		      COPYRIGHT (c) 1980, 1985, 1981 BY
!	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!		ALL RIGHTS RESERVED.
!
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
! ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
! INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
! COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
! OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
! TRANSFERRED.
!
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
! AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
! CORPORATION.
!
! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
!

!++
! FACILITY:	EDT -- The DEC Standard Editor
!
! ABSTRACT:
!
!	This module contains common data definitions used throughout
!	the editor.
!
! ENVIRONMENT:	Used in all EDT configurations.
!
! AUTHOR: Bob Kushlis, CREATION DATE:  6-AUG-1979
!
! MODIFIED BY:
!
! Dan Szymanski,  21-JUL-80,  01
!	As part of the expanded key definition facilities, the default
!	definitions for VT52 and VT100 keypads have been moved to KEYPAD.
!	The table TRN_TBL  now contains (relative) pointers to the strings
!	of nokeypad commands defining the keys.  The variable TRN_TBLINIT  was
!	added to indicate the initialization of the translation table.
!
! Dan Szymanski,  15-JAN-81,  02
!	Variable DEL_CHLEN  added to keep track of length of the deleted
!	character buffer.
!
! Dan Szymanski,  28-JAN-81,  03
!	Variable CAS_TYP  added to indicate type of changecase.
!
! 2-004	- Regularized the header and removed some symbols not being used.
!	   JBS 13-Feb-1981
! 2-005	- Added IOFI_NFND .  JBS 19-Feb-1981
! 2-006	- Fixed file name and module name.  JBS 04-Mar-1981
! 2-007	- Change EOB_LINE to EOB_LN .  JBS 30-Mar-1981
! 2-008	- Add REQUIRE for TRAROUNAM.REQ.  JBS 17-Apr-1981
! 2-009	- Correct a typo in a comment.  JBS 01-MAY-1981
! 2-010	- Make the journal buffer 256 bytes long.  JBS 18-Jun-1981
! 2-011	- Add more control C variables.  JBS 22-Jun-1981
! 2-012 - add REF_USER_ENTITIES vector  TMV 3-Aug-81
! 2-013	- Remove MAC_LST , no longer used.  JBS 07-Aug-1981
! 2-014	- Add PA_NOQUO .  JBS 26-Aug-1981
! 2-015 - Add RPT . STS 26-Aug-1981
! 2-016 - Add FNF_MSGFLG  TMV 10-Sep-1981
! 2-017 - Add DFLT_VERB for changecase mode.  STS 21-Sep-1981
! 2-018 - Add G_SUMRY to type out summary or not. STS 01-Oct-1981
! 2-019 - Add new variables for text strings. STS 06-Oct-1981
! 2-020	- Add strings for prompting.  JBS 20-Oct-1981
! 2-021 - Add variables for para and word types.  STS 21-Oct-1981
! 2-022	- Add four more prompts, amd make max length 31 chars.  JBS 23-Oct-1981
! 2-023	- Remove RNG_ALLRNG.  JBS 02-NOV-1981
! 2-024 - Remove all references to addresses to make sharable, and move
!	   all initialization out to EDT$INIT.  STS 05-Nov-1981
! 2-025	- Add a cell for /VAR and /STREAM.  JBS 28-Nov-1981
! 2-026 - Add variables for file i/o routine and environment. STS 11-Dec-1981
! 2-027	- Revise control C variables and add one more.  JBS 29-DEC-1981
! 2-028	- Add a flag and a counter for the 'working' message.  JBS 12-Jan-1982
! 2-029 - Add IO_VFCHD, (this was in IOMOD) STS 20-Jan-1982
! 2-030 - Line numbers declarations moved here from system specific routines.
!	  New line number globals added.  SMB 29-Jan-1982
! 2-031 - Change definition of maximum line number.  SMB 1-Feb-1982
! 2-032 - Add more line number globals.  SMB 3-Feb-1982
! 2-033 - Add a global for actual count of lines resequenced.  SMB 7-Feb-1982
! 2-034	- Add a global for enabling autorepeat manipulation.  JBS 09-Feb-1982
! 2-035 - Add globals for EDT$WORKIO address and environment. STS 10-Feb-1982
! 2-036 - Add global for workfile record descriptor.  STS 15-Feb-1982
! 2-037 - Add global to flag entering and leaving EXT command mode.  SMB 26-Feb-1982
! 2-038 - Add callable literals. STS 08-Mar-1982
! 2-039 - Change definition of EOB marker.  SMB 08-Mar-1982
! 2-040 - Add flag for re-entry. STS 11-Mar-1982
! 2-041	- Add OPTIONS.  This will replace CMD and JOU.  JBS 18-Mar-1982
! 2-042	- Remove the EDT$K_ symbols to EDT$FILEIO, and remove CMD and JOU.
!	   JBS 23-Mar-1982
! 2-043 - Add flags to indicate input file and/or command file open. STS 07-Apr-1982
! 2-044 - Add global to indicate quotes around key. STS 08-Apr-1982
! 2-045	- Add JOU_VALID.  JBS 09-Apr-1982
! 2-046	- Add COM_NAM.  JBS 04-May-1982
! 2-047	- Add CHAIN_INFO and CC_DONE.  JBS 24-May-1982
! 2-048 - Add MESSAGE_LINE for change mode messages. SMB 15-Jun-1982
! 2-049 - Add CHM_FRST_ENTERED for callable edt.   SMB 1-Jul-1982
! 2-050	- Add FMT_BOT, FMT_LCNT and LASTMSG, remove
!	   CHM_FRST_ENTRY.  JBS 05-Jul-1982
! 2-051 - Remove PMT_PRTC. STS 07-Jul-1982
! 2-052 - Add SAV_TIWID to save terminal width. STS 08-Jul-1982
! 2-053	- Remove EDT$$A_STR_CMP, add EDT$$B_CHAR_INFO.  JBS 19-Jul-1982
! 2-054 - Add descriptor for signalled filename.  STS 10-Jul-1982
! 2-055 - Initialize EDT$$G_PST_CNT to zero.  SMB 22-Jul-1982
! 2-056 - Add some new globals for terminal characteristics.  SMB 30-Jul-1982
! 2-057 - Add a flag to abort a write. STS 05-Aug-1982
! 2-058	- Revise key translation data base.  JBS 12-Aug-1982
! 2-058 - Add globals for xlate routine address and environment word. STS 13-Aug-1982
! 2-059	- Revise key translation data base.  JBS 12-Aug-1982
! 2-060 - Add global literals for options word masks. STS 17-Aug-1982
! 2-061	- Add EDT$$G_TI_SCROLL and EDT$$G_TI_EDIT.  JBS 01-Sep-1982
! 2-062	- Remove reference to EDT$$TI_WRLN, no longer used.  JBS 02-Sep-1982
! 2-063 - Add new screen package globals.  SMB 11-Sep-1982
! 2-064 - Change the definition of EDT$$Z_EOB_LN again.  SMB 20-Sep-1982
! 2-065 - Add a screen pointer global for EOB.  SMB 05-Oct-1982
! 2-066 - Add a flag to indicate we must! do a put to journal file. STS 06-Oct-1982
! 2-067	- Add EDT$$G_SCR_REBUILD.  JBS 09-Oct-1982
! 2-068 - Add new select buffer global.  SMB 11-Oct-1982
! 2-069	- Add EDT$$G_TI_DUMB.  JBS 16-Oct-1982
! 2-070 - Add memory allocation maximum global.  SMB 18-Oct-1982
! 2-071	- Add a counter for records inserted.  JBS 21-Oct-1982
! 2-072	- Make the counter also count records deleted.  JBS 27-Oct-1982
! 2-073	- Add EDT$$G_BOT_LINE.  JBS 02-Dec-1982
! 2-074	- Remove cells which appear to be unused.  JBS 14-Dec-1982
! 2-075	- Add EDT$$G_CS_OLDCHNO.  JBS 27-Dec-1982
! 2-076 - Add scrolling region globals.  SMB 11-Jan-1983
! 2-077	- Add EDT$$G_RECSCRUPD.  JBS 21-Jan-1983
! 2-078	- Add conditionals for WPS and VT220 support.  JBS 10-Feb-1983
! 2-079	- Add new value for EDT$$G_SCR_CHGD.  JBS 02-Mar-1983
! 2-080	- Add character names table.  JBS 04-Mar-1983
!
! 3-001 - Modify for LCG operation. CJG 08-Oct-1982
! 3-002 - Remove XLATE_?? locations because we don't use them. CJG 2-Jun-1983
! 3-003 - Change control-C counters. CJG 17-Jun-1983
! 3-004 - Change the way that filespecs are handled. CJG 22-Jun-1983
! 3-005 - Add new labels AAAAAA and ZZZZZZ so that everything can be zeroed
!	  in one go by INIT. CJG 22-Jun-1983
! 3-006 - Add EDT$M_NEWFILE flag to OPTION for CREATE command. CJG 12-Jul-1983
! 3-007 - Add CTRL_T for SET/SHOW CONTROL-T command. CJG 25-Sep-1983
! 3-008 - Add PROMPT_LENGTH for correct positioning of errors. CJG 7-Oct-1983
! 3-009 - Add IGN_LEN and IGN_PTR for SET SEARCH IGNORE. CJG 2-Nov-1983
! 3-010 - Add a flag for use with the PUSH command - PUSH_FLAG. CJG 22-Nov-1983
! 3-011 - Add CC_WAIT so that ^C can be seen during terminal I/O. CJG 5-Jan-1984
! 3-012 - Add FMT_FREE to improve speed of format routines. CJG 11-Jan-1984
! 3-013 - Add ERR_NUMBER for last TOPS20 error. GB 6-Aug-1984
!--

%SBTTL 'Declarations'
!
! TABLE OF CONTENTS:
!
!	NONE
!
! INCLUDE FILES:
!

REQUIRE 'EDTSRC:TRAROUNAM';

REQUIRE 'EDTSRC:EDTREQ';

LIBRARY 'EDTSRC:SUPPORTS';

LIBRARY 'EDTSRC:TRANSLATE';

LIBRARY 'EDTSRC:KEYPADDEF';

!
! MACROS:
!
!	NONE
!
! EQUATED SYMBOLS:
!

LITERAL
    NO_SELECT = -1;

!
! OWN STORAGE:
!
!	NONE
!
! EXTERNAL REFERENCES:
!
!	NONE
!<BLF/PAGE>
!+
! The remainder of this module defines storage used throughout the editor.
!-

!+
!************************************************************
!
! The following label must not be moved. All data beetween AAAAAA and
! ZZZZZZ will be set to zero by INIT. Any data which must retain its
! preset value should be placed after ZZZZZZ.
!
!************************************************************
!-

GLOBAL
    AAAAAA;

GLOBAL
!+
! Command buffer and pointers
!-
    CMD_BUF : BLOCK [CH$ALLOCATION (256, BYTE_SIZE)],	! Command line buffer
    CMD_PTR,				! Pointer into command buffer
    CMD_END,				! Pointer to end of command
    CMD_LEN,				! Length of command buffer
    TEMP_BUFFER : BLOCK [CH$ALLOCATION (260, BYTE_SIZE)],	! Temporary string buffer
    PROMPT_LENGTH,			! Length of prompt string
!+
! Line buffer and pointers
!-
    LN_BUF : BLOCK [CH$ALLOCATION (256, BYTE_SIZE)],	! Current line buffer
    LN_PTR,				! Pointer to char in current line
    LN_END,				! Pointer to end of line
    LN_LEN,				! Length of current line
!+
! Filespec descriptor blocks
!-
    INP_NAM : BLOCK [DSC$K_SIZE],	! Input file descriptor
    OUT_NAM : BLOCK [DSC$K_SIZE],	! Output file descriptor
    CMD_NAM : BLOCK [DSC$K_SIZE],	! Command file descriptor
    JOU_NAM : BLOCK [DSC$K_SIZE],	! Journal file descriptor
    WRT_NAM : BLOCK [DSC$K_SIZE],	! Write file descriptor
    INC_NAM : BLOCK [DSC$K_SIZE],	! Include file descriptor
    HELP_NAM : BLOCK [CH$ALLOCATION (80, BYTE_SIZE)],
    HELP_NAMLEN,			! Help file storage
    GETJFN_BLOCK : BLOCK [16],		! GTJFN block for everyone

!+
! Control-C and control-T handling
!-

    CC : VOLATILE,			! Set when control C is typed.
    CC_CNT1,				! Times tested since last journal record
    CC_CNT2,				! Second control C counter
    CC_FLAG,				! Second control C flag
    CC_DONE,				! Set if control C has been acted upon
    CC_WAIT,				! Set when ^C may occur in terminal I/O
    SECOND : VOLATILE,			! Set once a second (using an AST) for the 'working' message
    WORKCOUNT,				! Counter to support the 'working' message
    CTRL_T,				! Set if CTRL/T = Tab function

!+
! Text buffers
!-

    CUR_BUF : REF TBCB_BLOCK,		! The current text buffer control block
    PRV_BUF : REF TBCB_BLOCK,		! Previous tbcb address.
    MAC_BUF : REF TBCB_BLOCK,		! Pointer to current macro tbcb
    PST_BUF : REF TBCB_BLOCK,		! The paste text buffer control block
    BUF_LST,				! List of active text buffers.

!+
! Other flags etc.
!-

    INPUT_OPN,				! indicates main input file open
    CMD_OPN,				! indicates command file open
    EXT_MOD : INITIAL (0),		! 1 = in EXT command mode
    EDIT_MOD,				! Current editting mode
    EDIT_DFLTMOD,			! The mode to enter after startup.
    SAV_CNT,				! Flush count for audit trail.
    ABT_WRITE,				! abort any write being done
    EXITD,				! Set to indicate the editor has exited
    HELP_SET,				! Help-file JFN
    PUT_JOU,
    OPTIONS,				! Options bits
    NOS,				! Line numbers enabled flag
    CAS_FLG,				! Flag case (upper, lower none)
    EXCT_MATCH,				! Exact matches required?
    SEA_BEG,				! End searches at beginning?
    SEA_BNDD,				! Search bounded?
    IGN_LEN,				! Length of IGNORE string
    IGN_PTR,				! Pointer to IGNORE string
    QUIET,				! Quiet mode
    RPT,				! Allow repeat counts?
    FNF_MSGFLG,				! Print file not found message
    EIGHT_BIT,				! Eightbit mode
    VFY,				! Do we verify command files?
    JOU_VALID,				! 1 = journal record is valid, 0 = it isn't, don't write.
    ALT_BUF,				! Alternate buffer for copy etc.
    TI_TYP,				! Terminal type.
    TT_OPEN,				! Terminal status, 1 = open
    TI_PLEN,				! Terminal page length
    TI_RESET : INITIAL (0),		! Terminal char have been reset
    SAV_TIWID,				! original terminal width
    KPAD,				! Use the keypad?
    WD_WRAP,				! word wrap?
    US_ENT : VECTOR [4],		! Pointers to user defined entities.
    US_TXT : VECTOR [2],		! Address of user defined texts
    TAB_SIZ,				! Structured tab size.
    TAB_LVL,				! Structured tab level.
    TADJ,				! Tabs adjust level.
    INP_SRC,				! Source of command input.
    INP_CNT,				! Count since last flush.
    RCOV_MOD,				! Are we in recovery mode.
    PUSH_FLAG,				! Non-zero if PUSH was last command
    FORK_HANDLE,			! Fork handle for sub-fork
    RECSCRUPD;				! Counter for updating the screen in recovery mode

!+
! Change mode data declarations.
!+

GLOBAL
    LN_CHGD,				! Indicates current line has changed.
    COL,				! The column we should be on.
    DIRN,				! The current direction.
    DEL_LN : BLOCK 			! Deleted line buffer.
	[CH$ALLOCATION (257, BYTE_SIZE)],
    DEL_LNLEN,				! Length of deleted line.
    DEL_WD : BLOCK 			! Deleted word buffer.
	[CH$ALLOCATION (81, BYTE_SIZE)],
    DEL_WDLEN,				! Length of deleted word.
    DEL_CH : BLOCK 			! Deleted character buffer.
	[CH$ALLOCATION (2, BYTE_SIZE)],
    DEL_CHLEN,				! Length of deleted character.
    DIR_MOD,				! The directional mode:
					! -1 for backup, 1 for advance.
    EXI,
    REVID,				! reverse video on?
    VERT,				! was last entity VERT?
    PST_CNT : INITIAL (0),		! No. of characters pasted.
    SEA_PTR,				! search string address.
    SEA_LEN,				! search string length
    RPL_STR,				! replace string address
    RPL_LEN,				! replace string length
    CAS_TYP,				! Type of changecase being performed
    DFLT_VERB,				! Default verb (move, chgu, or chgl)
    SUMRY,				! type out summary or not on exit
    WRDTYP,				! delimiter a word or not flag
    PARTYP,				! wps para or regular para flag
    TRN_TBLINIT;			! True if translation table has been initialized

GLOBAL
    TRN_TBL : VECTOR [K_KPAD_HASHSIZ];	! Hash table of key definitions
!+
! Globals for the new screen updater.
!-

GLOBAL
    MEM_CNT,				! Memory allocation count
    OLD_SEL,				! Address of old select buffer
    TRUN,				! Truncate or wrap long lines?
    TI_WID,				! Width of terminal line
    TI_SCROLL,				! 1 = terminal has scrolling regions
    TI_EDIT,				! 1 = terminal has 'edit' features (DL, IL, DCH, ICM)
    TI_DUMB,	! 1 = terminal driver does not track escape sequences (needs CR to avoid wrap)
    TOP_SCREG,				! Top of current scrolling region
    BOT_SCREG,				! Bottom of current scrolling region
    SCLL_TOP,				! top limit of cursor before scrolling
    SCLL_BOT,				! bottom limit of cursor before scrolling
    SCR_LNS,				! number of screen lines to use
    SCR_CHGD,				! see below
!+
! 0 = screen OK,
! 1 = screen must be cleared and repainted,
! 2 = terminal must be initialized, then screen cleared and repainted.
!-
    SCR_REBUILD,			! The text area of the screen must be rebuilt from the work file
    TXT_ONSCR,				! command put text on screen.
    RECS_INSERTED,			! Count of records inserted and deleted since last screen update
    SHF,				! The number of columns shifted.
    SEL_LN : LN_BLOCK,			! Relative line number of select.
    SEL_BUF : REF TBCB_BLOCK,		! select buffer.
    SCR_BUF : REF TBCB_BLOCK,		! Screen text buffer control block
    MESSAGE_LINE,			! Change mode message line
    MSGFLG,				! Indicates a message has been displayed
    LASTMSG,				! Number of the last message displayed
    LN_NO,				! current line number.
    CUR_COL,				! current column
    CS_LNO,				! cursor line number
    CS_CHNO,				! character position of cursor
    CS_OLDCHNO,				! Previous character position of cursor
    CS_LN : LN_BLOCK,			! relative line number of cursor line.
    PRV_LN,				! Previous line number.
    PRV_COL,				! Previous column number.
    TOP_LN : LN_BLOCK,			! Line number of enforced top line.
    SEL_POS,				! select position.
    CUR_SCRLN : LN_BLOCK,		! Current screen record
    EOB_SCRPTR,				! EOB sceen pointer
    CSR_SCRPTR,				! Pointer to cursor screen line info
    FST_SCRPTR,				! Pointer to first screen line info buffer
    LST_SCRPTR,				! Pointer to last screen line info buffer
    CUR_SCRPTR,				! Pointer to current screen line info buffer
    TOP_SCRPTR,				! Pointer to the top screen line
    BOT_SCRPTR,				! Pointer to the bottom screen line
    BOT_LINE,				! All screen lines below this one have been erased
    FST_AVLN;				! Number available screen line blocks


GLOBAL
    ENB_AUTRPT,				! 1 = enable autorepeat manipulation.
    K_AUTRPT,				! auto repeat indicator.
    RDAHEDBF : BLOCK [CH$ALLOCATION (K_RDAHED_LEN, BYTE_SIZE)],	! Read-ahead buffer
    RDAHED;				! number of characters in the buffer

!+
! Global data used by EDTWF
!-

GLOBAL
    WK_AVAIL,
    WK_CURBUK,
    WK_GRTSTBUK,
    WK_MODFD,
    WK_NXTLNO : LN_BLOCK,		! Line number following an insert
    WK_STARTNO : LN_BLOCK,		! Line number of line preceding an insert
    WK_INSCNT : LN_BLOCK,		! The count of inserted lines
    WK_RESCNT : LN_BLOCK,		! The count of resequenced lines
    WK_LN : REF LIN_BLOCK,
    WK_BUK : REF BLOCK [WF_BUKT_SIZE] FIELD (WFB_FIELDS);

!+
! Data used by FORMAT
!-

GLOBAL
    FMT_BUF : BLOCK [CH$ALLOCATION (FMT_BUFLEN, BYTE_SIZE)],
    FMT_CUR,				! Current pointer
    FMT_FREE,				! Space left in format buffer
    FMT_LNPOS,				! Position on formatted line (on screen)
    FMT_WRRUT,				! Current write routine
    FMT_BOT,				! 1 = formatted output printed on bottom of screen
    FMT_LCNT;				! Number of lines printed at the bottom of the screen

!+
! Data used by EXEC
!-

GLOBAL
    EXE_SUBCNT,
    EXE_QRYQUIT,
    EXE_SBITS,
    EXE_SBLK : REF NODE_BLOCK,
    EXE_CURCMD : REF NODE_BLOCK;

!+
! Data used by line mode parser
!-

GLOBAL
    PA_ABO,				! flag indicating to abort parse
    DEFKEY,				! flag indicating getting a key
    PA_CURRNG : REF NODE_BLOCK,		! the current range node
    PA_THRURNG : REF NODE_BLOCK,	! The currently being built thru type range
    PA_MORE,				! More data on command line
    PA_ERRNO,				! Error number of parsing error.
    PA_SP,
    PA_BUFRNG : REF NODE_BLOCK,
    PA_ANDLSTHD : REF NODE_BLOCK,
    PA_CURTOK,				! start of the current token
    PA_CURTOKLEN,			! length of current token
    PA_CURCMD,
    PA_NUMVAL : LIN_BLOCK,		! the value of a numeric literal
    PA_STK : BLOCKVECTOR [NUM_NODES, NODE_SIZE] FIELD (NODE_FIELDS);

!+
! Data used by RANGE
!-

GLOBAL
    RNG_MORELN,				! Used by EDT$$NXT_LNRNG  to indicate more lines.
    RNG_FRSTLN,				! Indicates first line in a range.
    RNG_NOOFLN,				! Count of number of lines in a range.
    RNG_EOL : LN_BLOCK,			! The line number at which this range ends
    RNG_CURRNG : REF NODE_BLOCK,		! The current range node
    RNG_ORIGPOS : POS_BLOCK,			! To save the position at start of command.
    RNG_SAVPOS : POS_BLOCK;			! To save the beginning of range

!+
! Data used by TINPUT
!-

GLOBAL
    TIN_ECHOFLG,
    TIN_ECHOPOS,
    TIN_OBUFPOS,				! Next byte to store in journal buffer
    TIN_OBUF : VECTOR [CH$ALLOCATION (256, BYTE_SIZE)],	! Journal file buffer
    TIN_IBUFPTR,
    TIN_IRECLEN,
    TIN_IRECEND,
    TIN_INREC : BLOCK [CH$ALLOCATION (255, BYTE_SIZE)];

!+
! Data used by UTIL
!-

GLOBAL
    SEA_STR : BLOCK [CH$ALLOCATION (64, BYTE_SIZE)],	! Last search string.
    SEA_STRLEN,				! Length of above.
    SUB_STR : BLOCK [CH$ALLOCATION (64, BYTE_SIZE)],	! Last SUBSTITUTE string.
    SUB_STRLEN;				! Length of above.

!+
! Data used by IOMOD
!-

GLOBAL
    IO_VFCHD : BLOCK [CH$ALLOCATION (255, BYTE_SIZE)],
    WF_DESC : BLOCK [8],		! descriptor for workfile
    IO_FNAM,				! filename in signal arguments
    ERR_NUMBER,				! Last system error number
    IOFI_NFND;				! 1 = the open error was 'file not found'


!+
! define literals for the bit masks of the options word.
! These are made global so that we can make them accessible
! outside of EDT.
!-

GLOBAL LITERAL
    EDT$M_RECOVER = 1,
    EDT$M_COMMAND = 2,
    EDT$M_NOJOURNAL = 4,
    EDT$M_NOOUTPUT = 8,
    EDT$M_NOCOMMAND = 16,
    EDT$M_NOCREATE = 32,
    EDT$M_NEWFILE = 64;

!+
! Prompt strings:
!-

GLOBAL
    PMT_LINE : VECTOR [32],		! Line-mode prompt
    PMT_KPD : VECTOR [32],		! Keypad change-mode prompt
    PMT_NOKPD : VECTOR [32],		! Nokeypad change-mode prompt
    PMT_HCCHG : VECTOR [32],		! Hardcopy change mode prompt
    PMT_INS : VECTOR [32],		! Line-mode insert prompt
    PMT_INSN : VECTOR [32],		! Line-mode insert nonumbers prompt
    PMT_QUERY : VECTOR [32];		! /QUERY prompt

!+
!************************************************************
!
! All preceding data is cleared by INIT.
!
!************************************************************
!-

GLOBAL
    ZZZZZZ;

!+
! BPWORD contains the number of bytes in a 36-bit word.
!-

GLOBAL
    BPWORD : INITIAL (BYTES_PER_WORD);

!+
! Define the powers of ten as longword constants, these are used both
! by name, and as a vector having the powers from 0 to 14.  Also define
! other line number related globals.
!-

!+
! In the LCG version, line numbers are stored in one word and one
! half-word. The following table leaves the spare half-word empty.
!-

GLOBAL BIND
    MAX_LINES = UPLIT(10676257905, 1) : VECTOR [2],		! 45035996273
    LNO_VFCMAX = UPLIT(6553500000, 0) : VECTOR [2],		! 6553500000
    LNO_ZERO = UPLIT(0, 0) : VECTOR [2],
    LNO_BIG = UPLIT(34359667872, 1310171) : VECTOR [2],	! 4503599627300000
    LNO_EMPTY = UPLIT (-1, -1, -1) : VECTOR [3],	! An initialization

    LNO0 = UPLIT(1, 0) : VECTOR [2],
    LNO1 = UPLIT(10, 0) : VECTOR [2],
    LNO2 = UPLIT(100, 0) : VECTOR [2],
    LNO3 = UPLIT(1000, 0) : VECTOR [2],
    LNO4 = UPLIT(10000, 0) : VECTOR [2],
    LNO5 = UPLIT(100000, 0) : VECTOR [2],
    LNO6 = UPLIT(1000000, 0) : VECTOR [2],
    LNO7 = UPLIT(10000000, 0) : VECTOR [2],
    LNO8 = UPLIT(100000000, 0) : VECTOR [2],
    LNO9 = UPLIT(1000000000, 0) : VECTOR [2],
    LNO10 = UPLIT(10000000000, 0) : VECTOR [2],
    LNO11 = UPLIT(31280523264, 2) : VECTOR [2],
    LNO12 = UPLIT(3567587328, 29) : VECTOR [2],
    LNO13 = UPLIT(1316134912, 291) : VECTOR [2],
    LNO14 = UPLIT(13161349120, 2910) : VECTOR [2],
    LNO15 = UPLIT(28534276096, 29103) : VECTOR [2];

GLOBAL
    LN_PREV : INITIAL (0),		! Previous VFC line number
    LN_INCR : VECTOR [2] INITIAL (0, 0);	! Current input increment

!+
! GLOBAL BINDS
!

GLOBAL BIND
    CHAR_INFO = UPLIT (CHAR_INFO_TAB);

GLOBAL BIND
    CHAR_NAMES = UPLIT (CHAR_NAMES_TAB);	! Names of some characters

MACRO
    LENGTH (LIST) =
	%LENGTH %;

GLOBAL LITERAL
    CHAR_NAMES_LEN = LENGTH (CHAR_NAMES_TAB);

UNDECLARE %QUOTE
    LENGTH;
!+
! This literal is pointed to when we are at an end of buffer.
!-

GLOBAL BIND
    EOB_LN = UPLIT(0, REP 2 OF (-1), REP 2 OF (0));


END

ELUDOM