ORCA-Pascal/pascal.pas at master · byteworksinc/ORCA-Pascal · GitHub

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
{$optimize -1}
{$stacksize $4000}
{------------------------------------------------------------}
{							     }
{  ORCA/Pascal 2.2					     }
{							     }
{  A native code compiler for the Apple IIGS.		     }
{							     }
{  By Mike Westerfield					     }
{							     }
{  Copyright March 1988					     }
{  By the Byte Works, Inc.				     }
{							     }
{------------------------------------------------------------}
{							     }
{  Version 2.2 prepared in March, 1996		     	     }
{  Version 2.1 prepared in July, 1994		     	     }
{  Version 2.0.1 prepared in June, 1993		     	     }
{  Version 2.0.0 prepared in March, 1993		     }
{  Version 1.4.2 prepared in October, 1992		     }
{  Version 1.4.1 prepared in October, 1991		     }
{  Version 1.4 prepared in September, 1991		     }
{  Version 1.3 prepared in September, 1990		     }
{							     }
{------------------------------------------------------------}

program pascal (output);

{$segment 'pascal'}

{$LibPrefix '0/obj/'}

uses PCommon, CGI, Scanner, Symbols, Parser;

begin
{initialization:}
MMInit;					{memory manager}
InitPCommon;				{common module}
InitScalars;				{global variables}
InitSets;
CodeGenScalarInit;
scanner_init;
enterstdtypes;
stdnames;
entstdnames;
EnterUndecl;
if progress or list then begin
   writeln('ORCA/Pascal 2.2.0'); 	{write banner}
   writeln('Copyright 1987,1988,1991,1993,1994,1996, Byte Works, Inc.');
   writeln;
   end; {if}
level := 1;				{set the top symbol level}
top := 1;

{compile:}
InSymbol;				{get the first symbol}
programme(blockbegsys+statbegsys-[casesy]); {compile the program}

{termination:}
if codeGeneration then CodeGenFini;	{shut down code generator}
scanner_fini;				{shut down scanner}
StopSpin;
end.