Trailing-Edge
-
PDP-10 Archives
-
BB-H138F-BM_1988
-
7-sources/init.bli
There are 10 other files named init.bli in the archive. Click here to see a list.
%TITLE 'INIT - initialize'
MODULE INIT ( ! Initialize
IDENT = '3-013' ! File: INIT.BLI Edit: CJG3013
) =
BEGIN
!COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1981, 1988. 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 THAT IS NOT SUPPLIED BY DIGITAL.
!
!
!++
! FACILITY: EDT -- The DEC Standard Editor
!
! ABSTRACT:
!
! Initialize EDT
!
! ENVIRONMENT: Runs at any access mode - AST reentrant
!
! AUTHOR: Bob Kushlis, CREATION DATE: August 6, 1979
!
! MODIFIED BY:
!
! 1-001 - Original. DJS 18-FEB-1981. This module was created by
! extracting routine EDT$$INIT from module TINPUT.
! 1-002 - Regularized the headers and arranged to call EDT$$FATAL_IOERR for I/O errors. JBS 19-Feb-1981
! 1-003 - Changed from IO_STS and IO_FNF to IOFI_NFND . JBS 19-Feb-1981
! 1-004 - Fixed module and file name. JBS 04-Mar-1981
! 1-005 - Fix the file name. JBS 11-Mar-1981
! 1-006 - Use new message codes. JBS 04-Aug-1981
! 1-007 - Check for storage exhausted when defining the permanent buffers, and return
! a value rather than printing a message if the primary input file is not found. JBS 16-Aug-1981
! 1-008 - Initialization moved from EDT$DATA to here. STS 05-Nov-1981
! 1-009 - Add some initialization of the TBCB for the main buffer. (a bug
! surfaced where the cur_line was not zero.) STS 13-Nov-1981
! 1-010 - Change this to initialize everything necessary for sharable
! image. STS 17-Nov-1981
! 1-011 - Initialize the control C data by calling EDT$$CLR_CC. JBS 29-Dec-1981
! 1-012 - Convert to fileio to open input file. STS 06-Jan-1982
! 1-013 - Remove reference to sys_prirab. STS 22-Jan-1982
! 1-014 - Autorepeat is initially on. JBS 30-Jan-1982
! 1-015 - Initialize ENB_AUTRPT. JBS 11-Feb-1982
! 1-016 - Use routine edt$workio to open workfile. STS 08-Feb-1982
! 1-017 - Initialize descriptor WF_DESC. STS 15-Feb-1982
! 1-018 - Add literals needed for callable EDT. STS 08-Mar-1982
! 1-019 - Initialize line number correctly. STS 10-Mar-1982
! 1-020 - Change CMD and JOU to OPTIONS. JBS 18-Mar-1982
! 1-021 - The file I/O routine returns a status code. Watch for EDT$_NONSTDFIL.
! JBS 26-Mar-1982
! 1-022 - Correct a typo in non-standard file handling. JBS 27-Mar-1982
! 1-023 - Don't clear EIGHT_BIT. JBS 05-Apr-1982
! 1-024 - Set up input file open flag. STS 07-Apr-1982
! 1-025 - Don't initialiaze the TBCBs -- now done by EDT$$GET_BUFPTR. JBS 08-Apr-1982
! 1-026 - Initialize JOU_VALID. JBS 09-Apr-1982
! 1-027 - Improve the message if the primary input file cannot be opened. JBS 03-Jun-1982
! 1-028 - Pass the default file name in the RHB parameter. JBS 15-Jun-1982
! 1-029 - Set CHM_FRST_ENTRY to 1 for callable EDT. SMB 01-Jul-1982
! 1-030 - Initialize LASTMSG, remove CHM_FRST_ENTRY. JBS 05-JUL-1982
! 1-031 - Take out reference to PRTC prompt. STS 07-Jul-1982
! 1-032 - Save original terminal width. STS 08-Jul-1982
! 1-033 - Change the line mode insert prompt. SMB 14-Jul-1982
! 1-034 - Remove EDT$$A_STR_CMP. JBS 19-Jul-1982
! 1-035 - Add initialization of select range. STS 06-Aug-1982
! 1-036 - Move open input file first and get out if not found and
! nocreate. STS 10-Aug-1982
! 1-037 - New implementation of defined keys. JBS 12-Aug-1982
! 1-038 - Make use of the bit masks in the options word. STS 17-Aug-1982
! 1-039 - Fix up references to EDT$M_. JBS 23-Aug-1982
! 1-040 - Zero out the help file open flag. STS 27-Aug-1982
! 1-041 - Call EDT$$INIT_IO. JBS 27-Aug-1982
! 1-042 - Initialize EDT$$G_ENB_AUTRPT in the terminal initialization. JBS 02-Sep-1982
! 1-043 - Initialize some screen structure globals. SMB 10-Oct-1982
! 1-044 - Initialize the keypad translation table. JBS 17-Oct-1982
! 1-045 - New handling of EDT$$G_SCR_REBUILD. JBS 21-Oct-1982
! 1-046 - Make edt$$wf_desc static not dynamic descriptor. STS 11-Nov-1982
! 1-047 - Initialize EDT$$A_OLD_SEL. JBS 02-Dec-1982
! 1-048 - Remove reference to EDT$$T_EXE_LNO. JBS 14-Dec-1982
! 1-049 - Initialize EDT$$G_CS_LNO. JBS 29-Dec-1982
! 1-050 - Initialize EDT$$G_TOP_SCREG, EDT$$G_BOT_SCREG. SMB 11-Jan-1983
! 1-051 - Initialize EDT$$G_RECSCRUPD. JBS 21-Jan-1983
! 1-052 - Add conditionals for WPS support. JBS 10-Feb-1983
! 3-001 - Change CH$MOVE to EDT$$CPY_STR for TOPS so we get string ptrs. GB 24-Jan-1983
! 3-002 - Initialise FMT_CUR with a real string ptr. GB 3-Feb-1983
! 3-003 - Initialise prompt strings correctly. GB 09-Feb-1983
! 3-004 - Modify call to EDT$$CALLFIO. CJG 19-Apr-1983
! 3-005 - Remove call to EDT$$INIT_IO. CJG 2-Jun-1983
! 3-006 - Remove call to EDT$$CALLFIO, and EDT$$CALLWIO. CJG 10-Jun-1983
! 3-007 - Remove <CR><LF> from front of default prompts. CJG 15-Jun-1983
! 3-008 - Change the way that filespecs are handled. CJG 22-Jun-1983
! 3-009 - Use CH$FILL to clear the data area. CJG 22-Jun-1983
! 3-010 - Call EDT$$PA_CMDLN here, after clearing database. CJG 27-Jun-1983
! 3-011 - Deal with the CREATE command (EDT$M_NEWFILE). CJG 12-Jul-1983
! 3-012 - Preset CTRL_T to 1. CJG 4-Jan-1984
! 3-013 - Add FMT_FREE to improve speed of format routines. CJG 11-Jan-1984
!--
%SBTTL 'Declarations'
!
! TABLE OF CONTENTS:
!
REQUIRE 'EDTSRC:TRAROUNAM';
FORWARD ROUTINE
EDT$$INIT;
!
! INCLUDE FILES:
!
REQUIRE 'EDTSRC:EDTREQ';
LIBRARY 'EDTSRC:SUPPORTS';
LIBRARY 'EDTSRC:KEYPADDEF';
!
! MACROS:
!
! NONE
!
! EQUATED SYMBOLS:
!
! NONE
!
LITERAL
NO_SELECT = -1;
!
!
! OWN STORAGE:
!
! NONE
!
! EXTERNAL REFERENCES:
!
! In the routine
%SBTTL 'EDT$$INIT - Initialize EDT'
GLOBAL ROUTINE EDT$$INIT ! Initialize EDT
=
!++
! FUNCTIONAL DESCRIPTION:
!
! Initialize EDT
!
! FORMAL PARAMETERS:
!
! NONE
!
! IMPLICIT INPUTS:
!
! LNO_EMPTY
! CUR_BUF
! INP_NAM
! IOFI_NFND
!
! IMPLICIT OUTPUTS:
!
! Most of EDT's global variables
!
! ROUTINE VALUE:
!
! 0 Primary input file was not found
! 1 Primary input file was found
! 2 Primary input file does not have standard text format
! 3 Primary input file open failure or other fatal error--abort
!
! SIDE EFFECTS:
!
! Initializes most variables.
! Opens the work file and terminal.
! Establishes the MAIN and PASTE buffers, or fails.
! Any I/O errors are fatal.
!
!--
BEGIN
EXTERNAL ROUTINE
EDT$FILEIO,
EDT$$WF_OPN,
EDT$$PA_CMDLN : NOVALUE, ! Parse the initial command line
EDT$$FMT_MSG,
EDT$$TI_OPN,
EDT$$ALO_HEAP, ! allocate heap storage for strings
EDT$$GET_BUFPTR,
EDT$$FND_BUF,
EDT$$NEW_BUF,
EDT$$CLR_CC : NOVALUE, ! Clear control C state
EDT$$FIOPN_ERR : NOVALUE; ! Report a file open error
EXTERNAL LITERAL
EDT$M_RECOVER,
EDT$M_NOCREATE,
EDT$M_NEWFILE,
EDT$K_OPEN_INPUT,
EDT$K_INPUT_FILE;
EXTERNAL
AAAAAA, ! First and last locations to clear
ZZZZZZ,
TOP_SCREG, ! Top of scrolling region
BOT_SCREG, ! Bottom of scrolling regon
LNO_EMPTY : LN_BLOCK, ! Empty record
TOP_LN : LN_BLOCK, ! Top screen record
LASTMSG, ! The last message printed
WORKCOUNT, ! Working message flag
MESSAGE_LINE, ! Line number for messages
INPUT_OPN, ! input file open flag
CUR_BUF : REF TBCB_BLOCK, ! Current text buffer control block.
INP_NAM, ! Name of input file.
PRV_BUF, ! Previous tbcb.
PST_BUF, ! Paste buffer tbcb.
EDIT_MOD,
EDIT_DFLTMOD,
SAV_CNT,
PRV_LN,
CTRL_T,
NOS,
SEA_BEG,
RPT,
FNF_MSGFLG,
TRUN,
TI_WID,
SAV_TIWID,
KPAD,
WD_WRAP,
SCLL_TOP,
SCLL_BOT,
SCR_LNS,
CS_LNO,
SCR_REBUILD,
US_ENT : VECTOR,
US_TXT : VECTOR,
RCOV_MOD,
DIR_MOD,
SEL_POS,
SUMRY,
PARTYP,
K_AUTRPT,
WK_GRTSTBUK,
FMT_CUR,
FMT_FREE,
FMT_WRRUT,
PA_CURTOK,
PMT_LINE : VECTOR,
! PMT_KPD : VECTOR,
! PMT_NOKPD : VECTOR,
PMT_HCCHG : VECTOR,
PMT_INS : VECTOR,
! PMT_INSN : VECTOR,
PMT_QUERY : VECTOR,
FMT_BUF,
EDT$$TI_WRLN,
CMD_BUF,
IOFI_NFND, ! 1 = open failed due to file not found
WF_DESC : BLOCK [8],
OPTIONS : BITVECTOR [36]; ! Options bits, bit 0 = /RECOVER
MESSAGES ((INSMEM, INPFILOPN));
LOCAL
LEN,
NEW,
RETURN_VALUE,
IO_STS;
RETURN_VALUE = 1; ! Assume success
!+
! Initialize a lot of variables. This is done by calling CH$FILL to
! copy zeros throughout the data area. (See DATA.BLI)
!-
AAAAAA = 0; ! Clear the first word
CH$FILL (0, ZZZZZZ - AAAAAA, CH$PTR (AAAAAA, 0, 36));
WF_DESC [DSC$W_LENGTH] = 512;
MOVELINE (LNO_EMPTY, TOP_LN);
EDIT_MOD = LINE_MODE;
EDIT_DFLTMOD = LINE_MODE;
SAV_CNT = 3;
WORKCOUNT = -1; ! No working message
LASTMSG = 1; ! No last message
NOS = 1;
SEA_BEG = 1;
RPT = 1;
TRUN = 1;
KPAD = 1;
CTRL_T = 1;
TI_WID = 80;
MESSAGE_LINE = 22;
WD_WRAP = 256;
SCLL_TOP = 7;
SCLL_BOT = 14;
SCR_LNS = 22;
!+
! Set scrolling boundaries to 99 to ensure that they get set the
! first time thru change mode.
!-
TOP_SCREG = 99;
BOT_SCREG = 99;
PRV_LN = 999;
SEL_POS = NO_SELECT;
SCR_REBUILD = 1;
CS_LNO = -1;
DIR_MOD = 1;
SUMRY = 1;
PARTYP = 1;
K_AUTRPT = 1;
WK_GRTSTBUK = 1;
PA_CURTOK = CMD_BUF;
!+
! Parse the initial command line and set recovery mode accordingly.
!-
EDT$$PA_CMDLN ();
RCOV_MOD = ((.OPTIONS AND EDT$M_RECOVER) NEQ 0);
!+
! Open the terminal. If it fails, abort.
!-
EDT$$TI_OPN ();
!+
! Attempt open first
!-
FNF_MSGFLG = 1;
FMT_CUR = CH$PTR (FMT_BUF,, BYTE_SIZE);
FMT_FREE = FMT_BUFLEN;
FMT_WRRUT = EDT$$TI_WRLN;
EDT$$CLR_CC ();
!+
! Make sure the command wasn't CREATE file/NOCREATE
!-
IF ((.OPTIONS AND EDT$M_NEWFILE) EQL 0)
THEN
BEGIN
IF ((.OPTIONS AND EDT$M_NOCREATE) NEQ 0)
THEN
BEGIN
IO_STS = 0;
IOFI_NFND = 1; ! Pretend not found error
END
!+
! Open the input file if not CREATE command.
!-
ELSE
IO_STS = EDT$FILEIO (EDT$K_OPEN_INPUT, EDT$K_INPUT_FILE, INP_NAM);
IF ( NOT .IO_STS)
THEN
BEGIN
IF .IOFI_NFND
THEN
BEGIN
RETURN_VALUE = 0;
IF ((.OPTIONS AND EDT$M_NOCREATE) NEQ 0) THEN RETURN (0);
END
ELSE
BEGIN
EDT$$FIOPN_ERR (EDT$_INPFILOPN, INP_NAM);
RETURN_VALUE = 3;
END;
END
ELSE
INPUT_OPN = 1; ! indicate input file open
END;
!+
! Set the default prompts. Note that leading <CR><LF> is not needed on TOPS-20.
!-
PMT_LINE [0] = 1;
CH$MOVE (1, CH$PTR (UPLIT (%STRING ('*'))),
CH$PTR (PMT_LINE [1],, BYTE_SIZE));
PMT_HCCHG [0] = 2;
CH$MOVE (2, CH$PTR (UPLIT (%STRING ('C', '*'))),
CH$PTR (PMT_HCCHG [1],, BYTE_SIZE));
PMT_INS [0] = 12;
CH$MOVE (12, CH$PTR (UPLIT (%STRING (' '))),
CH$PTR (PMT_INS [1],, BYTE_SIZE));
! PMT_INSN [0] = 0;
! PMT_INSN [1] = 0;
PMT_QUERY [0] = 1;
CH$MOVE (1, CH$PTR (UPLIT (%STRING ('?'))),
CH$PTR (PMT_QUERY [1],, BYTE_SIZE));
! PMT_KPD = 0;
! PMT_NOKPD = 0;
!+
! Allocate some VM for the string such as page and end text and entity specifications
!-
LEN = 10;
IF EDT$$ALO_HEAP (LEN, US_TXT [0]) ! end text
THEN
BEGIN
.US_TXT [0] = .LEN - 5;
CH$MOVE (.LEN - 5, CH$PTR (UPLIT (%STRING ('[EOB]'))),
CH$PTR (.US_TXT [0] + 1,, BYTE_SIZE));
END
ELSE
BEGIN
EDT$$FMT_MSG (EDT$_INSMEM);
RETURN (3);
END;
LEN = 9;
IF EDT$$ALO_HEAP (LEN, US_TXT [1]) ! page text
THEN
BEGIN
.US_TXT [1] = .LEN - 5;
CH$MOVE (.LEN - 5, CH$PTR (UPLIT (%STRING ('<FF>'))),
CH$PTR (.US_TXT [1] + 1,, BYTE_SIZE));
END
ELSE
BEGIN
EDT$$FMT_MSG (EDT$_INSMEM);
RETURN (3);
END;
LEN = 11;
IF EDT$$ALO_HEAP (LEN, US_ENT [0]) ! word entity
THEN
BEGIN
.US_ENT [0] = .LEN - 5;
CH$MOVE (.LEN - 5, CH$PTR (UPLIT (%STRING (' ', %CHAR( 9, 10, 11, 12, 13)))),
CH$PTR (.US_ENT [0] + 1,, BYTE_SIZE));
END
ELSE
BEGIN
EDT$$FMT_MSG (EDT$_INSMEM);
RETURN (3);
END;
LEN = 8;
IF EDT$$ALO_HEAP (LEN, US_ENT [1]) ! sent entity
THEN
BEGIN
.US_ENT [1] = .LEN - 5;
CH$MOVE (.LEN - 5, CH$PTR (UPLIT (%STRING ('.', '!', '?'))),
CH$PTR (.US_ENT [1] + 1,, BYTE_SIZE));
END
ELSE
BEGIN
EDT$$FMT_MSG (EDT$_INSMEM);
RETURN (3);
END;
LEN = 7;
IF EDT$$ALO_HEAP (LEN, US_ENT [2]) ! sect entity
THEN
BEGIN
.US_ENT [2] = .LEN - 5;
CH$MOVE (.LEN - 5, CH$PTR (UPLIT (%CHAR (13, 13))),
CH$PTR (.US_ENT [2] + 1,, BYTE_SIZE));
END
ELSE
BEGIN
EDT$$FMT_MSG (EDT$_INSMEM);
RETURN (3);
END;
LEN = 6;
IF EDT$$ALO_HEAP (LEN, US_ENT [3]) ! page entity
THEN
BEGIN
.US_ENT [3] = .LEN - 5;
CH$MOVE (.LEN - 5, CH$PTR (UPLIT (%CHAR (12))),
CH$PTR (.US_ENT [3] + 1,, BYTE_SIZE));
END
ELSE
BEGIN
EDT$$FMT_MSG (EDT$_INSMEM);
RETURN (3);
END;
!+
! Save the terminal width gotten from the operating system
!-
SAV_TIWID = .TI_WID;
!+
! Open the workfile. If it fails, abort.
!-
EDT$$WF_OPN ();
!+
! Open the paste text buffer.
!-
IF ( NOT EDT$$FND_BUF (CH$PTR (UPLIT ('PASTE')), 5))
THEN
BEGIN
EDT$$FMT_MSG (EDT$_INSMEM);
RETURN (3);
END;
PST_BUF = .CUR_BUF;
!+
! And the MAIN text buffer.
!-
IF ( NOT EDT$$GET_BUFPTR (CH$PTR (UPLIT ('MAIN')), 4, CUR_BUF, NEW))
THEN
BEGIN
EDT$$FMT_MSG (EDT$_INSMEM);
RETURN (3);
END;
PRV_BUF = .CUR_BUF;
IF .INPUT_OPN THEN CUR_BUF [TBCB_INPUT_RAB] = 1;
EDT$$NEW_BUF ();
RETURN (.RETURN_VALUE);
END; ! of routine EDT$$INIT
END
ELUDOM