DataMuseum.dk

top - download

    Length: 2608 (0xa30)
    Types: TextFile
    Names: »VAR.S«

└─⟦f81e11cf7⟧ Bits:30005196 8" CR80 Floppy CR80FD_0194 ( CR/D/2497 TEST-TDX VS0102 Source moduler Att. Holger Bay 820208/AEK )
    └─⟦d066df9e9⟧ 
        └─ ⟦this⟧ »VAR.S« 

TextFile

«ff»
"VAR.S           "
"----------------"

%NOLIST
$@**GENS.D*PARSE.D*VARS.S
%LIST
      INTEGERS : ARRAY [1..MAX_PATTERN_SIZE] OF INTEGER;
      NO_OF_INTEGERS : INTEGER;
      PATTERN  : ARRAY [1..MAXSYMBOLLENGTH ] OF CHAR;
      PARAMETERS : PARAMETER_TYPE;
      ACTPARAMETERCOUNT          :  INTEGER;
      REPEATS,        CR80ADR,        HOSTNO,         PROTOCOL,
      CRID,           NOOFBYTES,      SPEED,          MAXPACKET,
      PATTERNNO,      BUFFERNO,       STARTADDR,      TIME,
      ENDADDR,        OPREF,
      ANY :
               SINGLE_PARAMETER;
      DUMP_AT_COMPLETION : BOOLEAN;
      IDENTIFIER,
      STRING         : SYMBOLBUF_TYPE;
      CONSTANT       : INTEGER;
      IGNORE_REST_OF_LINE        :  BOOLEAN;

      PROCEDURES     :  ARRAY [1..MAX_PROCEDURE] OF PROCEDURE_ENTRY;
      PROCEDURECOUNT :  INTEGER;
      PROCNAME                   :  NAME_TYPE;
      INSTALL_PROCNAME           :  BOOLEAN;

      FORM_PARAMS    :  ARRAY [1..MAX_PARAMETER] OF PARAMETER_ENTRY;
      PARAMETERCOUNT :  INTEGER;

      CODE           :  ARRAY [1..MAX_CODE] OF INTEGER;

      STACK          :  ARRAY [1..MAX_STACK] OF INTEGER;

      CCP,              "CURRENT CODE POINTER"
      PC, CURR_SP    :  INTEGER;

      PROC_DECLARING,
      REPEAT_DECLARING : BOOLEAN;
      XVM            :  INTEGER;
      DATA_EXPECTED  :  BOOLEAN;
      REPEAT_CODE_PTR            :  INTEGER;
      PROC_CODE_PTR              :  INTEGER;

«ff»
      CURRENT_DRIVER             :  FILE_SYSTEM_NAME;

      CHANNELS                   :  ARRAY [1..MAX_CHANNEL] 
                                          OF CHANNEL_TYPE;

      TABLES_OPEN                :  BOOLEAN;
      TABLEFILE                  :  FILE;
      TABLESTREAM                :  STREAM;

      "----- VARIABLES USED BY MOST OF THE INTERPRETER PROCEDURES -----"

      I                          :  INTEGER;
      VM                         :  INTEGER;
      F                          :  FILE;
      BLEP                       :  BLEPTR;

      "----- DATA BUFFERS AND TEST PATTERNS -----"

      BUFFERS                    :  ARRAY [1..MAX_BUFFERS]
                                          OF IO_BUFFER_TYPE;

      PATTERNS                   :  ARRAY [1..MAX_PATTERNS]
                                          OF PATTERN_TYPE;

      INIT_OPERATIONS            :  ARRAY [1..MAX_INIT_OPS]
                                          OF INIT_OPERATION_TYPE;

      CURRENT_LINE               :  LINE;
      CH_COUNT                   :  INTEGER;
      LINE_LENGTH                :  INTEGER;

      INFILEPOS                  :  LONG_INTEGER;