-
Notifications
You must be signed in to change notification settings - Fork 0
/
PASCAL.PAS
30 lines (25 loc) · 1.6 KB
/
PASCAL.PAS
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
(*************************************************************)
(* Programmname : PASCAL.PAS V1.0 *)
(* Programmautor : Michael Rippl *)
(* Compiler : Turbo Pascal V5.0 *)
(* Letzte Änderung : 05-Mar-1990 *)
(* Inhalt : Hauptprogramm des Compilers PASCAL V1.0 *)
(* Bemerkung : Hauptdatei von PASCAL.PAS V1.0 *)
(*************************************************************)
PROGRAM Pascal(input, output, source, target);
USES Crt; (* Ein/Ausgabe-Routinen *)
(*$I GLOBAL.PAS*) (* Globale Definitionen *)
(*$I ERRORS.PAS*) (* Fehlerbehandlung *)
(*$I EMITTER.PAS*) (* Codeerzeugung *)
(*$I SYMTAB.PAS*) (* Symboltabelle *)
(*$I SCANNER.PAS*) (* Lexikalsiche Analyse *)
(*$I PARSER.PAS*) (* Syntaktische Analyse *)
(*$I INITIAL.PAS*) (* Initialisierungen *)
BEGIN (* Hauptprogramm *)
CheckParameters; (* Parameter überprüfen *)
InitVariables; (* Vorinitialisierung *)
Parser; (* Syntaxüberprüfung *)
IF ErrorPos <> 0 THEN PrintErrorSet; (* Zeile hatte Fehler *)
CleanUp;
END. (* Hauptprogramm *)