# ****************** # FILE=RATDEF.RT # ****************** # #==============DEFINITIONS FOR RT-11 RATFOR PREPROCESSOR=============== # DEFINE (DEFAULTOPEN="SY:") #DEFAULT FOR INCLUDE FILES DEFINE(VNUMBER,"RATFOR/RT-11 Y20.4") #VERSION NUMBER #LINK LIBRARY FOR COMPILE/LINK/GO OPTION DEFINE (LINKLIBRARY, "SY:FORLIB.OBJ") DEFINE (STDIN=1) #STANDARD INPUT FILE LUN DEFINE (STDOUT=8) #STANDARD OUTPUT FILE LUN DEFINE (LISTOUT=6) #LUN OF STANDARD LISTING OUTPUT DEFINE (USERIN=5) #COMMAND INPUT LUN DEFINE (USEROUT=7) #USER'S TERMINAL LUN!!! # DEFINE (ASCII,) #TURN OFF CONVERSION IN RAT1,2,3 DEFINE (BUFSIZE=160) #PUSHBACK BUFFER FOR 'NGETCH' AND 'PUTBAK' DEFINE (CONTINCHAR=DOLLAR) #FORTRAN CONTINUATION LINES FLAG CHAR (COL 6) DEFINE (LEXBREAK=-110) DEFINE (LEXDIGITS=) DEFINE (LEXDO=) DEFINE (LEXELSE=) DEFINE (LEXEND=) DEFINE (LEXFOR=) DEFINE (LEXIF=) DEFINE (LEXNEXT=) DEFINE (LEXOTHER=) DEFINE (LEXREPEAT=) DEFINE (LEXUNTIL=) DEFINE (LEXWHILE=) DEFINE (LEXRETURN=) DEFINE (LEXSTOP=) DEFINE (LEXDEFINE=) DEFINE (LEXMACRO=) DEFINE (LEXIFDEF=) DEFINE (LEXIFNOT=) DEFINE (LEXENDIF=) DEFINE (LEXINCLUD=) DEFINE (LEXSTRNG=) DEFINE (MACTYPE=-9) DEFINE (MAXCARD=90) #LENGTH OF INPUT/OUTPUT LINES DEFINE (MAXCHARS=8) #MAX CHARACTER STRING SIZE FOR 'OUTNUM' DEFINE (MAXDEF=80) #MAX LENGTH OF A DEFNINITION DEFINE (MAXFORSTK=120) #MAX SPACE FOR FOR REINIT CLAUSES DEFINE (MAXLINE=) #SIZE OF STRING TO HOLD INPUT/OUTPUT LINES DEFINE (MAXNAME=16) #!!! RT-11 !!! MAX FILESPEC LENGTH (CHRS). DEFINE (MAXPTR=200) #MAX NUMBER OF DEFINED SYMBOLIC CONSTANTS DEFINE (MAXSTACK=100) #MAX STACK DEPTH FOR PARSER DEFINE (MAXSTR=300) #MAX NUMBER OF CHAR IN ALL STRINGS IN A PROG. DEFINE (MAXTBL=2200) #MAX CHARS IN ALL DEFINITIONS DEFINE (MAXTOK=70) #MAX CHARS IN A TOKEN DEFINE (NFILES=3) #MAX DEPTH OF FILE INCLUSION !!!RT-11!!! DEFINE (NOT=BANG) #EXCLAMATION MARK FOR ASCII; CHANGE FOR EBCDIC DEFINE (NLOP=4) #NUMBER OF /L:xxx OPTIONS DEFINE (NSWT=10) #TOTAL NUMBER OF OPTIONS/SWITCHES DEFINE (NUMSTR=20) #MAX NUMBER OF STRINGS IN 1 PROGRAM DEFINE (PAGELENGTH=57) #LISTING PAGE LENGTH; 57 FOR 6 L/IN DEFINE (PASSCHAR=DOLLAR) #1 CHAR. TO PASS ARGUMENTS TO MACROS DEFINE (STRINGS,) #COMMENT TO UNDEFINE STRING KEYWORD #===========================================================================