|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1700 (0x6a4)
Types: TextFile
Names: »INITIALIZE.S«
└─⟦f81e11cf7⟧ Bits:30005196 8" CR80 Floppy CR80FD_0194 ( CR/D/2497 TEST-TDX VS0102 Source moduler Att. Holger Bay 820208/AEK )
└─⟦d066df9e9⟧
└─ ⟦this⟧ »INITIALIZE.S«
«ff»
"INITIALIZE.S "
"----------------"
PROCEDURE INITIALIZE;
"**********************************************************************
AUTHOR: TLM
DATE: 810317
***********************************************************************
COMMENTS:
***********************************************************************
CHANGE RECORD:
VERSION AUTHOR/DATE DESCRIPTION OF CHANGE
------- ----------- ---------------------
**********************************************************************"
VAR I : INTEGER;
PNAME_U : ARRAY [0..5] OF CHAR;
GNAME_U : ARRAY [0..3] OF CHAR;
BEGIN
CH_COUNT := 0;
LINE_LENGTH := 0;
INFILEPOS := 0L;
ACTPARAMETERCOUNT := 0;
PROCEDURECOUNT := 0;
PARAMETERCOUNT := 0;
NO_OF_INTEGERS := 0;
CCP := 1;
PC := CCP;
CURR_SP := 1;
STACK[CURR_SP] := 0;
PROC_DECLARING := FALSE;
REPEAT_DECLARING := FALSE;
TABLES_OPEN := FALSE;
IGNORE_REST_OF_LINE := FALSE;
INSTALL_PROCNAME := FALSE;
PARAMETERS.VARIABLE_MASK := 0;
PARAMETERS.NO_OF_PARAMS := 0;
PNAME_U := 'TDX000';
GNAME_U := 'INTR';
PACK(PNAME_U[0], CURRENT_DRIVER.PNAME.NAME[0], 6);
PACK(GNAME_U[0], CURRENT_DRIVER.GNAME[0], 4);
CURRENT_DRIVER.PNAME.NAME_IDENT := 0;
FOR I := 1 TO MAX_CHANNEL DO
CHANNELS[I].OPEN := FALSE;
FOR I := 1 TO MAX_INIT_OPS DO
INIT_OPERATIONS[I].OCCUPIED := FALSE;
NEW(BLEP);
END; " INITIALIZE " «a5»