HP Pascal/iX Reference Manual (31502-90022)

12- 80
3 7.000 0 TYPE
3 8.000 0 answer = (yes,no);
4 9.000 0 rec = RECORD
5 10.000 0 ch : char;
6 11.000 0 CASE tag : answer OF
7 12.000 0 yes : (message : PACKED ARRAY [1..20] OF char);
8 13.000 0 no : (i : integer);
9 14.000 0 END;
9 15.000 0 VAR
9 16.000 0 customer : rec;
10 17.000 0
0 18.000 0 PROCEDURE proc1 (VAR num : real);
2 19.000 0 VAR
2 20.000 0 debt : Boolean;
3 21.000 0
3 22.000 0 PROCEDURE subproc1;
4 23.000 1 BEGIN
4 24.000 1 IF debt THEN writeln;
6 25.000 1 END;
I D E N T I F I E R M A P
IDENTIFIER CLASS TYPE ADDRESS/VALUE
DEBT NON LOC VAR BOOLEAN LEVEL 1
LOCAL STORAGE USED = 0 TEMPORARY STORAGE USED = 0
PARAMETER STORAGE USED = 0 CONSTANT STORAGE USED = 0
6 26.000 1 BEGIN
6 27.000 1 END;
**** WARNING # 1 "DEBT" ACCESSED, BUT NOT INITIALIZED (535)
I D E N T I F I E R M A P
IDENTIFIER CLASS TYPE ADDRESS/VALUE
DEBT VARIABLE BOOLEAN SP- 28.0 (1.0)
NUM PARAMETER REAL PSP- 24.0 (4.0)
SUBPROC1 PROCEDURE
LOCAL STORAGE USED = 1 TEMPORARY STORAGE USED = 0
PARAMETER STORAGE USED = 4 CONSTANT STORAGE USED = 0
0 28.000 0 FUNCTION func1 : integer; EXTERNAL;
0 29.000 0
10 30.000 1 BEGIN
10 31.000 1 END.
I D E N T I F I E R M A P
IDENTIFIER CLASS TYPE ADDRESS/VALUE
ANSWER USER DEFINED ENUMERATED
CUSTOMER VARIABLE RECORD DP+ 8.0 (18.0)
FUNC1 FUNCTION
INPUT PARAMETER FILE input (248.0)
MAXSIZE CONSTANT INTEGER 100
NO CONSTANT ENUMERATED 1
OUTPUT PARAMETER FILE output (248.0)
PROC1 PROCEDURE
REALNUM CONSTANT REAL 1.99000E+01
REC USER DEFINED RECORD MAX RECORD SIZE = C0 BITS
CH FIELD CHAR VALUE 0.0 @ 1.0
TAG TAG FIELD ENUMERATED 1.0 @ 1.0
MESSAGE FIELD ARRAY 4.0 @ 14.0
I FIELD INTEGER 4.0 @ 4.0
TITLE CONSTANT STRING LITERAL 'Customer list'
YES CONSTANT ENUMERATED 0