Trailing-Edge
-
PDP-10 Archives
-
BB-D480F-SB_FORTRAN10_V10
-
lexaid.bli
There are 12 other files named lexaid.bli in the archive. Click here to see a list.
!COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1974, 1985
!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.
!AUTHOR: D. B. TOLMAN/PLB/TFV/AlB
! LEXAID.BLI
GLOBAL BIND LEXAIV = #10^24 + 0^18 + #2501; ! Version Date: 20-Nov-84
%(
***** Begin Revision History *****
***** Begin Version 7 *****
1563 PLB 18-Jun-82
Change OUTTYx macros for TOPS-20 native execution,
and REQUIRE FTTENX.
***** Begin Version 10 *****
2265 TFV 12-Jan-84
Increase POOLSIZE to 6000 words so we can compile programs with
large blocks of comment lines. The standard allows unlimited
numbers of comment lines between initial and continuation lines.
2474 TFV 21-Sep-84, AlB 30-Oct-84
Fix continuation processing to handle unlimited numbers of blank
and comment lines between continuation lines. The lines are
recorded in a linked list of four word entries, defined here.
If there are too many blank and comment lines, the buffer will
get an overflow. When this happens, the buffer is compacted
using the information in the linked list. The info is also used
to speed up continuation processing in the lexeme scan. Also
decrease POOLSIZE to 1000 so it can handle 5000 characters.
2477 AlB 13-nov-84
Change poolsize to 2000 words.
2500 AlB 14-Nov-84
Change the list of entries for source lines from a linked list
in dynamic memory to a fixed-length list in static memory.
2501 AlB 20-Nov-84
Special handling of errors found in comment lines. Since these
errors can be detected while scanning unprinted comment lines, they
cannot go through the normal error queueing process.
***** End V10 Development *****
***** End Revision History *****
)%
REQUIRE 'FTTENX.REQ'; ![1563] NEEDED FOR OUTTYx MACROS
! MACROS WHICH DEFINE THE RELATIONAL LEXEME CODES
MACRO
REL(N) = RELATIONLOP^18+N$,
DOTNE = REL(6)$,
DOTEQ = REL(2)$,
DOTGT = REL(7)$,
DOTLT = REL(1)$,
DOTGE = REL(5)$,
DOTLE = REL(3)$;
! THIS FILE CONTAINS THE BINDS FOR THE CHARACTER CASSIFICATION
! CODES AND THEIR NAMES, USED BY ROUTINE LEXICAL. NOTE THAT THE
! CODE NAMES AND LEXEME NAMES HAVE BEEN OVERLAYED AS MUCH AS
! POSSIBLE SO AS TO MAINTAIN A MINIMUM OF CONFUSION.
!
! --------------------------------------------------
! CHARACTER CODE CLASSIFICATIONS, USED BY ROUTINE LEXICAL
! THE "SMALL" STATES USE ONLY THE FIRST 11 CODES.
! THE "BIG" STATES USE THE ENTIRE 32 CODES.
!
! CHARACTER CODES 11 THROUGH 21 ARE THE SAME NAME AND ASSOCIATED
! NUMBER AS THE LEXEME NAMES.
!
! --------------------------------------------------
BIND
ILL = 1, % ILLEGAL CHARACTER%
TAB = 2,
LT = 3, % <CR>, <LF>, <VT>, AND <FF> %
BLANK = 4,
SPEC = 5, % FORTRAN-10 RECOGNIZED SPECIAL CHARACTERS%
DIGIT = 6, % 0,1,...,9 %
UPPER = 7, % UPPER CASE ALPHABETIC %
LOWER = 8, % LOWER CASE ALPHABETIC %
FOS = 9, % END OF FILE OR END OF STATEMENT %
EOB = 10, % POSSIBLE END OF INTERNAL STATEMENT BUFFER OR END OF FILE
CONTROL-Z AND DELETE (177) ARE CLASSIFIED AS THIS
CNTROL-Z AND INPUT FROM TTY: IMPILES EOF
A FULL WORD OF 1'S IMPLIES END OF INTERNAL STATEMENT BUFFER %
REMARK = 11, % ! %
LASTSMALCODE= REMARK , % LAST SMALL STATE CHARACTER CODE %
% THE FOLLOWING 11 ARE IDENTICAL TO THE LEXEME NAMES
ANDSGN = 12,
LPAREN = 13,
RPAREN = 14,
COLON = 15,
COMMA = 16,
DOLLAR = 17,
MINUS = 18,
SLASH = 19,
PLUS = 20,
ASTERISK = 21,
EQUAL = 22,
%
LTSGN = 23, % < %
GTSGN = 24, % > %
NEQSGN = 25, % # %
DOT = 26, % . %
SEMICOL = 27, % ; %
LITSGN = 28, % ' %
OCTSGN = 29, % " %
COMNTSGN= 30, % UPPER AND LOWER CASE C %
DEBUGSGN= 31, % UPPER AND LOWER CASE D %
UPAROW = 32, % ^ %
LASTBIGCODE = UPAROW ; % LAST BIG STATE CHARACTER CODE %
! SOME BINDS ONTO THE END OF THE CHARACTER SET
BIND EOF = #200 , ! END OF FILE ON INPUT
OVRFLO = #201 , ! INTERNAL STATEMENT BUFFER OVERFOW
EOS = #202 ; ! END OF STATEMENT INDICATOR
EXTERNAL ENDOFILE;! END OF FILE INDICATOR RETURNED BY LEXICAL
! END OF INTERNAL STATEMENT BUFFER INDICATOR. A WORD
! THAT EQUALS THIS IN THE INTERNAL STATEMENT BUFFER INDICATES
! THAT THIS IS THE END.
BIND
ENDBUFLAG = #777777777776 ;
MACRO LEFT = 18,18 $,
ADRS = 0,0 $,
RIGHT = 0,18 $,
%2474% FULL = 0,36$;
EXTERNAL POOL; ! INTERNAL STATEMENT BUFFER
EXTERNAL CURPTR ; ! POINTER TO CURRENT CHARACTER IN POOL
! The POOL is 10000 characters to allow for LSN's and nulls in
! the buffer. The standard permits lines of up to 1320
! characters of code.
%2477% BIND POOLSIZE = 2000; ! **** Same definition as in GLOBAL.BLI ****
BIND POOLEND = POOL[POOLSIZE-1]<0,0>;
MACRO CURWORD = .CURPTR<RIGHT> $;
EXTERNAL CURPOOLEND ;
BIND POOLBEGIN = POOL[0]<0,0> ;
EXTERNAL EOPSAVE ;
BIND SAVESIZE = EOPSAVE<LEFT> ,
SAVESTART = EOPSAVE<RIGHT> ;
MACRO FIRSTCHAR = 29,7 $;
MACRO LASTCHAR = 1,7 $;
BIND LF = #12,
VT = #13,
FF = #14,
CR = #15;
! LINE PROCESSING GLOBALS
EXTERNAL
LINELINE, ! CURRENT LINE NUMBER
LASTLINE, ! LAST LINE NUMBER
CHARPOS, ! CHARACTER POS ON PRINT LINE
ISN, ! STATEMENT LINE NUMBER
STPTR, ! CHARACTER POINTER TO BEGINNING-1 OF STATEMENT
STLPTR, ! CHARACTER POINTER TO BEGINNING-1 OF LINE CONTAINING CURRENT STATEMENT
STPOS, ! CHARACTER POS ON LINE OF BEGINNING OF STATEMENT
! WILL BE 72 IF BEGINNING OF LINE
ERRFLAG, ! IF 1 INDICATES THAT THERE HAVE ALREADY BEEN
! ERRORS IN THIS STATEMENT
LINEPTR, ! CHARACTER POINTER TO BEGINNING CHARACTER-1 OF LINE
SEQLAST, ! IF 1 INDICATES THAT THE LINE BEGINNING THIS PROGRAM
! UNIT HAS A LINE SEQUENCE NUMBER IN LINELINE
CLASPTR, ! CHARACTER POINTER FOR CLASSIFICATION BACKUP
CLASLPT, ! BEGINNING OF LINE POINTER FOR CLASSIFICATION BACKUP
%2500% CLASLCUR, ! Source list entry for classification backup
CONTPTR, ! CHARACTER POINTER FOR CONTINUATION BACKUP
%2474% CONTLCUR, ! Source list entry for continuation backup
NOCR, ! IF 1 INDICATES THAT THIS LINE WAS MISSING A <CR>
LEXLINE, ! LINE NUMBER ASSOCIATED WITH THE CURRENT LEXEME
! USED FOR ERROR REPORTING
LINENO, ! AREA FOR BUILDING LINE NUMBER
PAGELINE, ! CURRENT LINE ON PAGE
%2500% LINLLIST, ! Start of list of source line entries
%2500% LINLEND, ! End of list of source line entries
%2474% FCHARPOS, ! CHARPOS for first entry in pool source list
%2474% LASTCODELINE, ! Pointer to last pool source entry containing code
%2474% LINLCURR, ! Current entry in source list
%2474% LINLLAST, ! Pointer to last non-deleted entry in source list
%2474% LINLPREV, ! Pointer to latest non-comment entry in source list
%2474% NOLTLINE; ! Flag for last line in pool has no line terminator
BIND LINESPERPAGE = 59;
BIND ALLCHAR = 0, LINESONLY = 1; ! PARAMETERS TO BACKTYPE
MACRO INTERR (STRNG ) =
BEGIN
EXTERNAL FATLERR,E61;
FATLERR ( PLIT ( STRNG ), .ISN , E61<0,0> )
END $;
MACRO PFLD = 30,6 $, SFLD = 24,6 $;
MACRO
ISCAN ( REG,PTR ) =
BEGIN
MACHOP ILDB = #134;
ILDB ( REG,PTR )
END
$;
MACRO
NSCAN ( REG,PTR ) =
BEGIN
MACHOP LDB = #135;
LDB ( REG,PTR )
END
$;
%2474% ! Macros to access fields source list of lines in the POOL.
%2474% !
%2474% ! --------------------------------------------
%2501% ! | LINENUM | LFLAGS | ERRCOMNT |
%2474% ! --------------------------------------------
%2474% ! | FIRSTBP |
%2474% ! --------------------------------------------
%2474% ! | LASTBP |
%2474% ! --------------------------------------------
BIND
%2500% LINLSENT = 3; ! Length of each entry
%2500% ! **** Also defined in GLOBAL
MACRO
%2501% LINENUM(X) = (.(X))<LEFT>$, ! Line number for source line
%2501% LFLAGERR(X) = (.(X))<RIGHT>$, ! Flags and error code
%2501% HASCODE(X) = (.(X))<16,1>$, ! Line has code
%2501% NOCONTINUE(X) = (.(X))<15,1>$, ! Line is not continuation one
%2501% PRINTED(X) = (.(X))<14,1>$, ! Line was printed
%2501% ERRCOMNT(X) = (.(X))<0,3>$, ! Code for comment error
%2501% FIRSTBP(X) = (.(X) + 1)<FULL>$, ! BP to start of line
%2501% LASTBP(X) = (.(X) + 2)<FULL>$; ! BP to end of line
%2501% ! Definition of code values for ERRCOMNT
%2501% ! WARNCOMT contains a case statement which uses these values
BIND
%2501% ERRCMT1 = 1, ! ANSI Improper character in column 1
%2501% ERRCMT2 = 2, ! VMS Improper character in column 1
%2501% ERRCMT3 = 3, ! BOTH Improper character in column 1
%2501% ERRCMT4 = 4, ! ANSI Comment on statement
%2501% ERRCMT5 = 5; ! ANSI DEBUG lines invalid
% DESCRIPTION OF THE ERROR MESSAGE QUEUE BLOCK %
MACRO
EMSGNUM(X) = (.X)<18,16> $, !ERROR MESSAGE NUMBER
ENODLINK(X) = (.X)<RIGHT> $, !LINK TO NEXT ENTRY IN LIST
! 0 IF NONE LEFT
ERRTYPD(X) = (.X)<34,1> $, ! IF 1 INDICATES THAT THE MESSAGE
! HAS ALREADY BEEN TYPED ON THE TTY
ERRLINE(X) = (.X+1)<FULL> $, ! LINE NUMBER ASSOCIATED
ERRENT1(X) = (.X+2)<FULL> $, ! MESSAGE PARAMETER 1
ERRENT2(X) = (.X+3)<FULL> $, ! MESSAGER PARAMETER 2
ENODSIZ = 4 $ ; ! SIZE OF THE NODE
MACRO
OUTTY ( PTR ) =
%1563% IF NOT FTTENEX
%1563% THEN
BEGIN
% DIRECT OUTSTRING %
MACHOP OUTSTR = #051 ;
OUTSTR (3,PTR)
END
%1563% ELSE
%1563% BEGIN
%1563% EXTERNAL TTYSTR;
%1563% TTYSTR(PTR<0,0>)
%1563% END
$;
MACRO
OUTTYI ( PTR ) =
%1563% IF NOT FTTENEX
%1563% THEN
BEGIN
% INDIRECT OUTSTRING %
MACHOP OUTSTR = #051 ;
OUTSTR (3,PTR,0,1)
END
%1563% ELSE
%1563% BEGIN
%1563% EXTERNAL TTYSTR;
%1563% TTYSTR(\PTR)
%1563% END
$;
MACRO
OUTTYX ( PTR ) =
%1563% IF NOT FTTENEX
%1563% THEN
BEGIN
% INDEXED OUTSTRING %
MACHOP OUTSTR = #051 ;
OUTSTR (3,0,PTR)
END
%1563% ELSE
%1563% BEGIN
%1563% EXTERNAL TTYSTR;
%1563% TTYSTR(@PTR)
%1563% END
$;
%ENDLEXBND%