DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦03f8c2ce7⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1b488b

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0490       |    |		.CONST	0x0490								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00c8       |    |		.CONST	0x00c8								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003c       | <  |		.CONST	0x003c								; Number of locals
000b			INIT_0008:
000b 0093 0000  |    |		push_full_address	0x0
000d 60ea       |`   |		Indirect_Literal	Discrete,0xf8,{0x80000000, 0x00010000}
000e 0273       | s  |		Execute	Discrete,Plus
000f 00db       |    |		Load_Top	At_Offset_3
0010 60e3       |`   |		Indirect_Literal	Discrete,0xf4,{0x00000000, 0x0000ffff}
0011 0279       | y  |		Execute	Discrete,And
0012 0273       | s  |		Execute	Discrete,Plus
0013 0129       | )  |		Execute	Any,Make_Visible
0014 0093 0000  |    |		push_full_address	0x0
0016 60d9       |`   |		Indirect_Literal	Discrete,0xf0,{0x80000000, 0x00020000}
0017 0273       | s  |		Execute	Discrete,Plus
0018 e20d       |    |		Load	0x1,0xd
0019 60da       |`   |		Indirect_Literal	Discrete,0xf4,{0x00000000, 0x0000ffff}
001a 0279       | y  |		Execute	Discrete,And
001b 0273       | s  |		Execute	Discrete,Plus
001c 0129       | )  |		Execute	Any,Make_Visible
001d 0093 0000  |    |		push_full_address	0x0
001f 60cc       |`   |		Indirect_Literal	Discrete,0xec,{0x80000000, 0x00030000}
0020 0273       | s  |		Execute	Discrete,Plus
0021 e20d       |    |		Load	0x1,0xd
0022 60d1       |`   |		Indirect_Literal	Discrete,0xf4,{0x00000000, 0x0000ffff}
0023 0279       | y  |		Execute	Discrete,And
0024 0273       | s  |		Execute	Discrete,Plus
0025 0129       | )  |		Execute	Any,Make_Visible
0026 0093 0000  |    |		push_full_address	0x0
0028 60bf       |`   |		Indirect_Literal	Discrete,0xe8,{0x80000000, 0x00040000}
0029 0273       | s  |		Execute	Discrete,Plus
002a e20d       |    |		Load	0x1,0xd
002b 60c8       |`   |		Indirect_Literal	Discrete,0xf4,{0x00000000, 0x0000ffff}
002c 0279       | y  |		Execute	Discrete,And
002d 0273       | s  |		Execute	Discrete,Plus
002e 0129       | )  |		Execute	Any,Make_Visible
002f 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0031 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0033 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0035 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0037 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0039 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
003b 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
003d 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
003f 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0041 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
0043 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0045 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0047 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
0049 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
004b 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
004d 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
004f 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
0051 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
0053 029a 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Visible,Unelaborated
0055 029a 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Visible,Unelaborated
0057 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
0059 029a 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call,Visible,Unelaborated
005b 029a 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call,Visible,Unelaborated
005d 029a 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call,Visible,Unelaborated
005f 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
0061 029a 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Outer_Call,Visible,Unelaborated
0063 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
0065 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
0067 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
0069 029a 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call,Visible,Unelaborated
006b 029a 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call,Visible,Unelaborated
006d 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
006f 4818       |H   |		Short_Literal	0x18
0070 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
0071 e20e       |    |		Load	0x1,0xe
0072 00d9       |    |		Load_Top	At_Offset_1
0073 029f 0483  |    |		Declare_Subprogram	INIT_0480,For_Call
0075 4802       |H   |		Short_Literal	0x2
0076 032e       | .  |		Declare_Type	Record,Defined,Visible
0077 00d8       |    |		Load_Top	At_Offset_0
0078 02a0       |    |		Declare_Subprogram	Null_Subprogram
0079 00db       |    |		Load_Top	At_Offset_3
007a 03c7       |    |		Complete_Type	Access,By_Defining
007b 00d9       |    |		Load_Top	At_Offset_1
007c 0129       | )  |		Execute	Any,Make_Visible
007d 00bf       |    |		Action	Accept_Activation
007e a002       |    |		Store_Unchecked	0x0,0x2
007f 00c6       |    |		Action	Check_Subprogram_Elaborated
0080 00d9       |    |		Load_Top	At_Offset_1
0081 00db       |    |		Load_Top	At_Offset_3
0082 e003       |    |		Load	0x0,0x3
0083 e004       |    |		Load	0x0,0x4
0084 4800       |H   |		Short_Literal	0x0
0085 0007       |    |		Action	Break_Optional
0086 029d 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call
0088 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0089 00c7       |    |		Action	Elaborate_Subprogram
008a 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0091 00c7       |    |		Action	Elaborate_Subprogram
0092 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0093 00c7       |    |		Action	Elaborate_Subprogram
0094 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0095 00c7       |    |		Action	Elaborate_Subprogram
0096 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0097 00c7       |    |		Action	Elaborate_Subprogram
0098 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0099 00c7       |    |		Action	Elaborate_Subprogram
009a 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
009b 00c7       |    |		Action	Elaborate_Subprogram
009c 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
009d 00c7       |    |		Action	Elaborate_Subprogram
009e 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
009f 00c7       |    |		Action	Elaborate_Subprogram
00a0 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00a1 00c7       |    |		Action	Elaborate_Subprogram
00a2 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00a3 00c7       |    |		Action	Elaborate_Subprogram
00a4 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00a5 00c7       |    |		Action	Elaborate_Subprogram
00a6 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00a7 00c7       |    |		Action	Elaborate_Subprogram
00a8 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00a9 00c7       |    |		Action	Elaborate_Subprogram
00aa 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00ab 00c7       |    |		Action	Elaborate_Subprogram
00ac 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00ad 00c7       |    |		Action	Elaborate_Subprogram
00ae 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00af 00c7       |    |		Action	Elaborate_Subprogram
00b0 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00b1 00c7       |    |		Action	Elaborate_Subprogram
00b2 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00b3 00c7       |    |		Action	Elaborate_Subprogram
00b4 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00b5 00c7       |    |		Action	Elaborate_Subprogram
00b6 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00b7 00c7       |    |		Action	Elaborate_Subprogram
00b8 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00b9 00c7       |    |		Action	Elaborate_Subprogram
00ba 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
00bb 00c7       |    |		Action	Elaborate_Subprogram
00bc 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
00bd 00c7       |    |		Action	Elaborate_Subprogram
00be 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
00c3 00c7       |    |		Action	Elaborate_Subprogram
00c4 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
00c5 00c7       |    |		Action	Elaborate_Subprogram
00c6 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
00c7 00c7       |    |		Action	Elaborate_Subprogram
00c8			BODY_0008:
00c8 00bc       |    |		Action	Signal_Activated
00c9 00bb       |    |		Action	Signal_Completion
00ca 0000 0000  |    |		.BLANK	0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d5       |    |		.CONST	0x00d5								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0002       |    |		.CONST	0x0002								; Number of locals
00d3			INIT_00d0:
00d3 e234       | 4  |		Load	0x1,0x34
00d4 0007       |    |		Action	Break_Optional
00d5			BODY_00d0:
00d5 e5fe       |    |		Load	0x2,-0x2
00d6 7003       |p   |		Jump_Nonzero	0xda
00d7 00db       |    |		Load_Top	At_Offset_3
00d8 a5fe       |    |		Store_Unchecked	0x2,-0x2
00d9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00da e5fe       |    |		Load	0x2,-0x2
00db e5ff       |    |		Load	0x2,-0x1
00dc 022f       | /  |		Execute	Access,Equal
00dd 6802       |h   |		Jump_Zero	0xe0
00de e210       |    |		Load	0x1,0x10
00df 0257       | W  |		Execute	Discrete,Raise
00e0 e5fe       |    |		Load	0x2,-0x2
00e1 823c       | <  |		Call	0x1,0x3c
00e2 0039       | 9  |		Store_Top	Access,At_Offset_1
00e3 00db       |    |		Load_Top	At_Offset_3
00e4 00d9       |    |		Load_Top	At_Offset_1
00e5 0227       | '  |		Execute	Access,All_Reference
00e6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00e7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
00ec 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
00f0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00f4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
00f8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00fc 0000 0000  |    |		.BLANK	0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0105       |    |		.CONST	0x0105								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0002       |    |		.CONST	0x0002								; Number of locals
0103			INIT_0100:
0103 e234       | 4  |		Load	0x1,0x34
0104 0007       |    |		Action	Break_Optional
0105			BODY_0100:
0105 e235       | 5  |		Load	0x1,0x35
0106 0322       | "  |		Declare_Variable	Record
0107 e5ff       |    |		Load	0x2,-0x1
0108 e235       | 5  |		Load	0x1,0x35
0109 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
010a 0119       |    |		Execute	Any,Check_In_Formal_Type
010b 00d9       |    |		Load_Top	At_Offset_1
010c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
010d e234       | 4  |		Load	0x1,0x34
010e 00d9       |    |		Load_Top	At_Offset_1
010f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0110 e234       | 4  |		Load	0x1,0x34
0111 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0112 0039       | 9  |		Store_Top	Access,At_Offset_1
0113 00d8       |    |		Load_Top	At_Offset_0
0114 e5fe       |    |		Load	0x2,-0x2
0115 e20e       |    |		Load	0x1,0xe
0116 0119       |    |		Execute	Any,Check_In_Formal_Type
0117 8216       |    |		Call	0x1,0x16
0118 0039       | 9  |		Store_Top	Access,At_Offset_1
0119 00d8       |    |		Load_Top	At_Offset_0
011a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
011b 0000 0000  |    |		.BLANK	0000[0x5]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0125       | %  |		.CONST	0x0125								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0002       |    |		.CONST	0x0002								; Number of locals
0123			INIT_0120:
0123 e234       | 4  |		Load	0x1,0x34
0124 0007       |    |		Action	Break_Optional
0125			BODY_0120:
0125 e235       | 5  |		Load	0x1,0x35
0126 0322       | "  |		Declare_Variable	Record
0127 e5ff       |    |		Load	0x2,-0x1
0128 e235       | 5  |		Load	0x1,0x35
0129 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
012a 0119       |    |		Execute	Any,Check_In_Formal_Type
012b 00d9       |    |		Load_Top	At_Offset_1
012c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
012d e234       | 4  |		Load	0x1,0x34
012e 00d9       |    |		Load_Top	At_Offset_1
012f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0130 e234       | 4  |		Load	0x1,0x34
0131 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0132 0039       | 9  |		Store_Top	Access,At_Offset_1
0133 e5fe       |    |		Load	0x2,-0x2
0134 00d9       |    |		Load_Top	At_Offset_1
0135 8214       |    |		Call	0x1,0x14
0136 c5fe       |    |		Store	0x2,-0x2
0137 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b e235       | 5  |		Load	0x1,0x35
013c 0322       | "  |		Declare_Variable	Record
013d 00db       |    |		Load_Top	At_Offset_3
013e e235       | 5  |		Load	0x1,0x35
013f 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0140 0119       |    |		Execute	Any,Check_In_Formal_Type
0141 00d9       |    |		Load_Top	At_Offset_1
0142 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0143 e5fe       |    |		Load	0x2,-0x2
0144 00d9       |    |		Load_Top	At_Offset_1
0145 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0146 e234       | 4  |		Load	0x1,0x34
0147 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0148 a5fe       |    |		Store_Unchecked	0x2,-0x2
0149 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
014a 0000 0000  |    |		.BLANK	0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0155       | U  |		.CONST	0x0155								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0002       |    |		.CONST	0x0002								; Number of locals
0153			INIT_0150:
0153 e234       | 4  |		Load	0x1,0x34
0154 0007       |    |		Action	Break_Optional
0155			BODY_0150:
0155 00db       |    |		Load_Top	At_Offset_3
0156 7002       |p   |		Jump_Nonzero	0x159
0157 e5fe       |    |		Load	0x2,-0x2
0158 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0159 00db       |    |		Load_Top	At_Offset_3
015a e5fe       |    |		Load	0x2,-0x2
015b 022f       | /  |		Execute	Access,Equal
015c 6802       |h   |		Jump_Zero	0x15f
015d e210       |    |		Load	0x1,0x10
015e 0257       | W  |		Execute	Discrete,Raise
015f 00db       |    |		Load_Top	At_Offset_3
0160 823c       | <  |		Call	0x1,0x3c
0161 0039       | 9  |		Store_Top	Access,At_Offset_1
0162 e5fe       |    |		Load	0x2,-0x2
0163 00d9       |    |		Load_Top	At_Offset_1
0164 0227       | '  |		Execute	Access,All_Reference
0165 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0166 00db       |    |		Load_Top	At_Offset_3
0167 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b e235       | 5  |		Load	0x1,0x35
016c 0322       | "  |		Declare_Variable	Record
016d 00db       |    |		Load_Top	At_Offset_3
016e e235       | 5  |		Load	0x1,0x35
016f 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0170 0119       |    |		Execute	Any,Check_In_Formal_Type
0171 00d9       |    |		Load_Top	At_Offset_1
0172 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0173 e5fe       |    |		Load	0x2,-0x2
0174 00d9       |    |		Load_Top	At_Offset_1
0175 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0176 e234       | 4  |		Load	0x1,0x34
0177 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0178 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0179 0000 0000  |    |		.BLANK	0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0187       |    |		.CONST	0x0187								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0003       |    |		.CONST	0x0003								; Number of locals
0183			INIT_0180:
0183 e234       | 4  |		Load	0x1,0x34
0184 0007       |    |		Action	Break_Optional
0185 00d8       |    |		Load_Top	At_Offset_0
0186 0007       |    |		Action	Break_Optional
0187			BODY_0180:
0187 e235       | 5  |		Load	0x1,0x35
0188 0322       | "  |		Declare_Variable	Record
0189 e5fe       |    |		Load	0x2,-0x2
018a e235       | 5  |		Load	0x1,0x35
018b 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
018c 0119       |    |		Execute	Any,Check_In_Formal_Type
018d 00d9       |    |		Load_Top	At_Offset_1
018e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
018f e234       | 4  |		Load	0x1,0x34
0190 00d9       |    |		Load_Top	At_Offset_1
0191 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0192 e234       | 4  |		Load	0x1,0x34
0193 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0194 003a       | :  |		Store_Top	Access,At_Offset_2
0195 e5ff       |    |		Load	0x2,-0x1
0196 7002       |p   |		Jump_Nonzero	0x199
0197 00d9       |    |		Load_Top	At_Offset_1
0198 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0199 e5ff       |    |		Load	0x2,-0x1
019a 823c       | <  |		Call	0x1,0x3c
019b 0039       | 9  |		Store_Top	Access,At_Offset_1
019c 00d9       |    |		Load_Top	At_Offset_1
019d 00d9       |    |		Load_Top	At_Offset_1
019e 0227       | '  |		Execute	Access,All_Reference
019f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01a0 e5ff       |    |		Load	0x2,-0x1
01a1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01a2 0000 0000  |    |		.BLANK	0000[0x6]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 00da       |    |		Load_Top	At_Offset_2
01ac 7002       |p   |		Jump_Nonzero	0x1af
01ad e234       | 4  |		Load	0x1,0x34
01ae 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01af e235       | 5  |		Load	0x1,0x35
01b0 0322       | "  |		Declare_Variable	Record
01b1 00db       |    |		Load_Top	At_Offset_3
01b2 0227       | '  |		Execute	Access,All_Reference
01b3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01b4 e235       | 5  |		Load	0x1,0x35
01b5 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
01b6 0119       |    |		Execute	Any,Check_In_Formal_Type
01b7 00d9       |    |		Load_Top	At_Offset_1
01b8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01b9 00db       |    |		Load_Top	At_Offset_3
01ba 0227       | '  |		Execute	Access,All_Reference
01bb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01bc 821b       |    |		Call	0x1,0x1b
01bd 00d9       |    |		Load_Top	At_Offset_1
01be 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01bf e234       | 4  |		Load	0x1,0x34
01c0 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c2 0000 0000  |    |		.BLANK	0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb e5fd       |    |		Load	0x2,-0x3
01cc 7002       |p   |		Jump_Nonzero	0x1cf
01cd e234       | 4  |		Load	0x1,0x34
01ce 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01cf e235       | 5  |		Load	0x1,0x35
01d0 0322       | "  |		Declare_Variable	Record
01d1 e5fd       |    |		Load	0x2,-0x3
01d2 0227       | '  |		Execute	Access,All_Reference
01d3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01d4 85fe       |    |		Call	0x2,-0x2
01d5 e235       | 5  |		Load	0x1,0x35
01d6 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
01d7 0119       |    |		Execute	Any,Check_In_Formal_Type
01d8 00d9       |    |		Load_Top	At_Offset_1
01d9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01da e5fd       |    |		Load	0x2,-0x3
01db 0227       | '  |		Execute	Access,All_Reference
01dc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01dd 4ffe       |O   |		Short_Literal	-0x2
01de 4802       |H   |		Short_Literal	0x2
01df 0099       |    |		Action	Reference_Dynamic
01e0 4fff       |O   |		Short_Literal	-0x1
01e1 4802       |H   |		Short_Literal	0x2
01e2 0099       |    |		Action	Reference_Dynamic
01e3 821c       |    |		Call	0x1,0x1c
01e4 00d9       |    |		Load_Top	At_Offset_1
01e5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01e6 e234       | 4  |		Load	0x1,0x34
01e7 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01e8 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01e9 0000 0000  |    |		.BLANK	0000[0x7]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 e234       | 4  |		Load	0x1,0x34
01f4 00ca       |    |		Action	Exit_Nullary_Function
01f5 0000 0000  |    |		.XXX[0x3]
01f7 0000       |    |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fd       |    |		.CONST	0x01fd								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0002       |    |		.CONST	0x0002								; Number of locals
01fb			INIT_01f8:
01fb e234       | 4  |		Load	0x1,0x34
01fc 0007       |    |		Action	Break_Optional
01fd			BODY_01f8:
01fd 00db       |    |		Load_Top	At_Offset_3
01fe 7002       |p   |		Jump_Nonzero	0x201
01ff e211       |    |		Load	0x1,0x11
0200 0257       | W  |		Execute	Discrete,Raise
0201 00db       |    |		Load_Top	At_Offset_3
0202 0227       | '  |		Execute	Access,All_Reference
0203 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0204 0039       | 9  |		Store_Top	Access,At_Offset_1
0205 00db       |    |		Load_Top	At_Offset_3
0206 e237       | 7  |		Load	0x1,0x37
0207 e238       | 8  |		Load	0x1,0x38
0208 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
0209 8002       |    |		Call	0x0,0x2
020a c5ff       |    |		Store	0x2,-0x1
020b 00d8       |    |		Load_Top	At_Offset_0
020c a5ff       |    |		Store_Unchecked	0x2,-0x1
020d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
020e 0000 0000  |    |		.XXX[0x2]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0215       |    |		.CONST	0x0215								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0002       |    |		.CONST	0x0002								; Number of locals
0213			INIT_0210:
0213 e234       | 4  |		Load	0x1,0x34
0214 0007       |    |		Action	Break_Optional
0215			BODY_0210:
0215 00db       |    |		Load_Top	At_Offset_3
0216 e5fe       |    |		Load	0x2,-0x2
0217 0227       | '  |		Execute	Access,All_Reference
0218 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0219 820f       |    |		Call	0x1,0xf
021a 6804       |h   |		Jump_Zero	0x21f
021b e5fe       |    |		Load	0x2,-0x2
021c 821e       |    |		Call	0x1,0x1e
021d c5fe       |    |		Store	0x2,-0x2
021e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
021f e5fe       |    |		Load	0x2,-0x2
0220 0229       | )  |		Execute	Access,All_Read
0221 00d8       |    |		Load_Top	At_Offset_0
0222 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0223 e5ff       |    |		Load	0x2,-0x1
0224 e20e       |    |		Load	0x1,0xe
0225 0119       |    |		Execute	Any,Check_In_Formal_Type
0226 821f       |    |		Call	0x1,0x1f
0227 00d9       |    |		Load_Top	At_Offset_1
0228 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0229 00d1       |    |		Pop_Control	Pop_Count_1
022a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
022b 0000 0000  |    |		.BLANK	0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0239       | 9  |		.CONST	0x0239								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0004       |    |		.CONST	0x0004								; Number of locals
0233			INIT_0230:
0233 e234       | 4  |		Load	0x1,0x34
0234 0007       |    |		Action	Break_Optional
0235 00d8       |    |		Load_Top	At_Offset_0
0236 0007       |    |		Action	Break_Optional
0237 00e1       |    |		Load_Encached	Boolean_Cache
0238 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0239			BODY_0230:
0239 e5ff       |    |		Load	0x2,-0x1
023a 003b       | ;  |		Store_Top	Access,At_Offset_3
023b 00cf       |    |		Action	Mark_Auxiliary
023c 7819       |x   |		Jump	0x256
023d e5fe       |    |		Load	0x2,-0x2
023e e402       |    |		Load	0x2,0x2
023f 0227       | '  |		Execute	Access,All_Reference
0240 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0241 820f       |    |		Call	0x1,0xf
0242 0f00       |    |		Execute_Immediate	Equal,0x0
0243 00da       |    |		Load_Top	At_Offset_2
0244 0278       | x  |		Execute	Discrete,Or
0245 6809       |h   |		Jump_Zero	0x24f
0246 00da       |    |		Load_Top	At_Offset_2
0247 e402       |    |		Load	0x2,0x2
0248 0227       | '  |		Execute	Access,All_Reference
0249 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
024a e20e       |    |		Load	0x1,0xe
024b 0119       |    |		Execute	Any,Check_In_Formal_Type
024c 8216       |    |		Call	0x1,0x16
024d 003b       | ;  |		Store_Top	Access,At_Offset_3
024e 7802       |x   |		Jump	0x251
024f 4801       |H   |		Short_Literal	0x1
0250 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0251 00db       |    |		Load_Top	At_Offset_3
0252 0227       | '  |		Execute	Access,All_Reference
0253 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0254 a402       |    |		Store_Unchecked	0x2,0x2
0255 00c9       |    |		Action	Pop_Auxiliary_Loop
0256 00db       |    |		Load_Top	At_Offset_3
0257 77e5       |w   |		Jump_Nonzero	0x23d
0258 00ce       |    |		Action	Pop_Auxiliary
0259 00d9       |    |		Load_Top	At_Offset_1
025a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
025b 0000 0000  |    |		.BLANK	0000[0x5]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0267       | g  |		.CONST	0x0267								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0003       |    |		.CONST	0x0003								; Number of locals
0263			INIT_0260:
0263 e234       | 4  |		Load	0x1,0x34
0264 0007       |    |		Action	Break_Optional
0265 00d8       |    |		Load_Top	At_Offset_0
0266 0007       |    |		Action	Break_Optional
0267			BODY_0260:
0267 e5ff       |    |		Load	0x2,-0x1
0268 003a       | :  |		Store_Top	Access,At_Offset_2
0269 00cf       |    |		Action	Mark_Auxiliary
026a 7813       |x   |		Jump	0x27e
026b e5fe       |    |		Load	0x2,-0x2
026c 00db       |    |		Load_Top	At_Offset_3
026d 0227       | '  |		Execute	Access,All_Reference
026e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
026f 820f       |    |		Call	0x1,0xf
0270 7008       |p   |		Jump_Nonzero	0x279
0271 00d9       |    |		Load_Top	At_Offset_1
0272 00db       |    |		Load_Top	At_Offset_3
0273 0227       | '  |		Execute	Access,All_Reference
0274 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0275 e20e       |    |		Load	0x1,0xe
0276 0119       |    |		Execute	Any,Check_In_Formal_Type
0277 8216       |    |		Call	0x1,0x16
0278 003a       | :  |		Store_Top	Access,At_Offset_2
0279 00da       |    |		Load_Top	At_Offset_2
027a 0227       | '  |		Execute	Access,All_Reference
027b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
027c 003b       | ;  |		Store_Top	Access,At_Offset_3
027d 00c9       |    |		Action	Pop_Auxiliary_Loop
027e 00da       |    |		Load_Top	At_Offset_2
027f 77eb       |w   |		Jump_Nonzero	0x26b
0280 00ce       |    |		Action	Pop_Auxiliary
0281 00d8       |    |		Load_Top	At_Offset_0
0282 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0283 0000 0000  |    |		.BLANK	0000[0x5]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0291       |    |		.CONST	0x0291								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0004       |    |		.CONST	0x0004								; Number of locals
028b			INIT_0288:
028b e234       | 4  |		Load	0x1,0x34
028c 0007       |    |		Action	Break_Optional
028d 00d8       |    |		Load_Top	At_Offset_0
028e 0007       |    |		Action	Break_Optional
028f e234       | 4  |		Load	0x1,0x34
0290 0007       |    |		Action	Break_Optional
0291			BODY_0288:
0291 e5fe       |    |		Load	0x2,-0x2
0292 003b       | ;  |		Store_Top	Access,At_Offset_3
0293 e234       | 4  |		Load	0x1,0x34
0294 003a       | :  |		Store_Top	Access,At_Offset_2
0295 00cf       |    |		Action	Mark_Auxiliary
0296 7829       |x)  |		Jump	0x2c0
0297 e5ff       |    |		Load	0x2,-0x1
0298 e402       |    |		Load	0x2,0x2
0299 0227       | '  |		Execute	Access,All_Reference
029a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
029b 820f       |    |		Call	0x1,0xf
029c 681c       |h   |		Jump_Zero	0x2b9
029d 00da       |    |		Load_Top	At_Offset_2
029e 7007       |p   |		Jump_Nonzero	0x2a6
029f 00db       |    |		Load_Top	At_Offset_3
02a0 003a       | :  |		Store_Top	Access,At_Offset_2
02a1 00db       |    |		Load_Top	At_Offset_3
02a2 0227       | '  |		Execute	Access,All_Reference
02a3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02a4 a5fe       |    |		Store_Unchecked	0x2,-0x2
02a5 7808       |x   |		Jump	0x2ae
02a6 00db       |    |		Load_Top	At_Offset_3
02a7 003a       | :  |		Store_Top	Access,At_Offset_2
02a8 00db       |    |		Load_Top	At_Offset_3
02a9 0227       | '  |		Execute	Access,All_Reference
02aa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ab 00db       |    |		Load_Top	At_Offset_3
02ac 0227       | '  |		Execute	Access,All_Reference
02ad 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02ae 00db       |    |		Load_Top	At_Offset_3
02af 0227       | '  |		Execute	Access,All_Reference
02b0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02b1 a402       |    |		Store_Unchecked	0x2,0x2
02b2 00d9       |    |		Load_Top	At_Offset_1
02b3 e237       | 7  |		Load	0x1,0x37
02b4 e238       | 8  |		Load	0x1,0x38
02b5 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
02b6 8002       |    |		Call	0x0,0x2
02b7 003a       | :  |		Store_Top	Access,At_Offset_2
02b8 7806       |x   |		Jump	0x2bf
02b9 00db       |    |		Load_Top	At_Offset_3
02ba 003b       | ;  |		Store_Top	Access,At_Offset_3
02bb 00db       |    |		Load_Top	At_Offset_3
02bc 0227       | '  |		Execute	Access,All_Reference
02bd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02be a402       |    |		Store_Unchecked	0x2,0x2
02bf 00c9       |    |		Action	Pop_Auxiliary_Loop
02c0 00db       |    |		Load_Top	At_Offset_3
02c1 77d5       |w   |		Jump_Nonzero	0x297
02c2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02c3 0000 0000  |    |		.BLANK	0000[0x5]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cf       |    |		.CONST	0x02cf								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0003       |    |		.CONST	0x0003								; Number of locals
02cb			INIT_02c8:
02cb e234       | 4  |		Load	0x1,0x34
02cc 0007       |    |		Action	Break_Optional
02cd 00d8       |    |		Load_Top	At_Offset_0
02ce 0007       |    |		Action	Break_Optional
02cf			BODY_02c8:
02cf e5ff       |    |		Load	0x2,-0x1
02d0 003a       | :  |		Store_Top	Access,At_Offset_2
02d1 00cf       |    |		Action	Mark_Auxiliary
02d2 780d       |x   |		Jump	0x2e0
02d3 00da       |    |		Load_Top	At_Offset_2
02d4 003a       | :  |		Store_Top	Access,At_Offset_2
02d5 00da       |    |		Load_Top	At_Offset_2
02d6 0227       | '  |		Execute	Access,All_Reference
02d7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02d8 003b       | ;  |		Store_Top	Access,At_Offset_3
02d9 00d9       |    |		Load_Top	At_Offset_1
02da e237       | 7  |		Load	0x1,0x37
02db e238       | 8  |		Load	0x1,0x38
02dc 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
02dd 8002       |    |		Call	0x0,0x2
02de 003a       | :  |		Store_Top	Access,At_Offset_2
02df 00c9       |    |		Action	Pop_Auxiliary_Loop
02e0 00da       |    |		Load_Top	At_Offset_2
02e1 77f1       |w   |		Jump_Nonzero	0x2d3
02e2 00ce       |    |		Action	Pop_Auxiliary
02e3 e234       | 4  |		Load	0x1,0x34
02e4 a5ff       |    |		Store_Unchecked	0x2,-0x1
02e5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02e6 0000 0000  |    |		.XXX[0x2]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ef       |    |		.CONST	0x02ef								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0003       |    |		.CONST	0x0003								; Number of locals
02eb			INIT_02e8:
02eb e234       | 4  |		Load	0x1,0x34
02ec 0007       |    |		Action	Break_Optional
02ed 00d8       |    |		Load_Top	At_Offset_0
02ee 0007       |    |		Action	Break_Optional
02ef			BODY_02e8:
02ef e5fd       |    |		Load	0x2,-0x3
02f0 003a       | :  |		Store_Top	Access,At_Offset_2
02f1 00cf       |    |		Action	Mark_Auxiliary
02f2 781b       |x   |		Jump	0x30e
02f3 00da       |    |		Load_Top	At_Offset_2
02f4 003a       | :  |		Store_Top	Access,At_Offset_2
02f5 00da       |    |		Load_Top	At_Offset_2
02f6 0227       | '  |		Execute	Access,All_Reference
02f7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02f8 003b       | ;  |		Store_Top	Access,At_Offset_3
02f9 00d9       |    |		Load_Top	At_Offset_1
02fa 0229       | )  |		Execute	Access,All_Read
02fb 00d8       |    |		Load_Top	At_Offset_0
02fc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02fd 00d8       |    |		Load_Top	At_Offset_0
02fe 0120       |    |		Execute	Any,Is_Value
02ff 6803       |h   |		Jump_Zero	0x303
0300 e20e       |    |		Load	0x1,0xe
0301 0122       | "  |		Execute	Any,Make_Root_Type
0302 011e       |    |		Execute	Any,Convert
0303 85fe       |    |		Call	0x2,-0x2
0304 00d9       |    |		Load_Top	At_Offset_1
0305 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0306 00d1       |    |		Pop_Control	Pop_Count_1
0307 00d9       |    |		Load_Top	At_Offset_1
0308 e237       | 7  |		Load	0x1,0x37
0309 e238       | 8  |		Load	0x1,0x38
030a 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
030b 8002       |    |		Call	0x0,0x2
030c 003a       | :  |		Store_Top	Access,At_Offset_2
030d 00c9       |    |		Action	Pop_Auxiliary_Loop
030e 00da       |    |		Load_Top	At_Offset_2
030f 77e3       |w   |		Jump_Nonzero	0x2f3
0310 00ce       |    |		Action	Pop_Auxiliary
0311 e234       | 4  |		Load	0x1,0x34
0312 a5fd       |    |		Store_Unchecked	0x2,-0x3
0313 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0314 0000 0000  |    |		.BLANK	0000[0x4]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b       |    |		.CONST	0x031b								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0001       |    |		.CONST	0x0001								; Number of locals
031b			BODY_0318:
031b			INIT_0318:
031b 00da       |    |		Load_Top	At_Offset_2
031c 7002       |p   |		Jump_Nonzero	0x31f
031d e211       |    |		Load	0x1,0x11
031e 0257       | W  |		Execute	Discrete,Raise
031f 00da       |    |		Load_Top	At_Offset_2
0320 0227       | '  |		Execute	Access,All_Reference
0321 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0322 00d8       |    |		Load_Top	At_Offset_0
0323 0120       |    |		Execute	Any,Is_Value
0324 7002       |p   |		Jump_Nonzero	0x327
0325 00d8       |    |		Load_Top	At_Offset_0
0326 011e       |    |		Execute	Any,Convert
0327 e20e       |    |		Load	0x1,0xe
0328 0119       |    |		Execute	Any,Check_In_Formal_Type
0329 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
032a 0000 0000  |    |		.BLANK	0000[0x6]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333       | 3  |		.CONST	0x0333								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0001       |    |		.CONST	0x0001								; Number of locals
0333			BODY_0330:
0333			INIT_0330:
0333 00da       |    |		Load_Top	At_Offset_2
0334 7002       |p   |		Jump_Nonzero	0x337
0335 e213       |    |		Load	0x1,0x13
0336 0257       | W  |		Execute	Discrete,Raise
0337 00da       |    |		Load_Top	At_Offset_2
0338 0227       | '  |		Execute	Access,All_Reference
0339 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
033a 003b       | ;  |		Store_Top	Access,At_Offset_3
033b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
033c 0000 0000  |    |		.BLANK	0000[0x4]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343       | C  |		.CONST	0x0343								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0001       |    |		.CONST	0x0001								; Number of locals
0343			BODY_0340:
0343			INIT_0340:
0343 00da       |    |		Load_Top	At_Offset_2
0344 022d       | -  |		Execute	Access,Is_Null
0345 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0346 0000 0000  |    |		.XXX[0x2]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034d       | M  |		.CONST	0x034d								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0002       |    |		.CONST	0x0002								; Number of locals
034b			INIT_0348:
034b e234       | 4  |		Load	0x1,0x34
034c 0007       |    |		Action	Break_Optional
034d			BODY_0348:
034d 00db       |    |		Load_Top	At_Offset_3
034e 0039       | 9  |		Store_Top	Access,At_Offset_1
034f 00cf       |    |		Action	Mark_Auxiliary
0350 780d       |x   |		Jump	0x35e
0351 e5fe       |    |		Load	0x2,-0x2
0352 00da       |    |		Load_Top	At_Offset_2
0353 0227       | '  |		Execute	Access,All_Reference
0354 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0355 820f       |    |		Call	0x1,0xf
0356 6802       |h   |		Jump_Zero	0x359
0357 4801       |H   |		Short_Literal	0x1
0358 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0359 00d9       |    |		Load_Top	At_Offset_1
035a 0227       | '  |		Execute	Access,All_Reference
035b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
035c 003a       | :  |		Store_Top	Access,At_Offset_2
035d 00c9       |    |		Action	Pop_Auxiliary_Loop
035e 00d9       |    |		Load_Top	At_Offset_1
035f 77f1       |w   |		Jump_Nonzero	0x351
0360 00ce       |    |		Action	Pop_Auxiliary
0361 4800       |H   |		Short_Literal	0x0
0362 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0363 0000 0000  |    |		.BLANK	0000[0x5]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036d       | m  |		.CONST	0x036d								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0002       |    |		.CONST	0x0002								; Number of locals
036b			INIT_0368:
036b e234       | 4  |		Load	0x1,0x34
036c 0007       |    |		Action	Break_Optional
036d			BODY_0368:
036d 00db       |    |		Load_Top	At_Offset_3
036e 823c       | <  |		Call	0x1,0x3c
036f 0039       | 9  |		Store_Top	Access,At_Offset_1
0370 00d8       |    |		Load_Top	At_Offset_0
0371 0227       | '  |		Execute	Access,All_Reference
0372 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0373 00d8       |    |		Load_Top	At_Offset_0
0374 0120       |    |		Execute	Any,Is_Value
0375 7002       |p   |		Jump_Nonzero	0x378
0376 00d8       |    |		Load_Top	At_Offset_0
0377 011e       |    |		Execute	Any,Convert
0378 e20e       |    |		Load	0x1,0xe
0379 0119       |    |		Execute	Any,Check_In_Formal_Type
037a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
037b 0000 0000  |    |		.BLANK	0000[0x5]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383       |    |		.CONST	0x0383								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0001       |    |		.CONST	0x0001								; Number of locals
0383			BODY_0380:
0383			INIT_0380:
0383 00da       |    |		Load_Top	At_Offset_2
0384 7002       |p   |		Jump_Nonzero	0x387
0385 4800       |H   |		Short_Literal	0x0
0386 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0387 00da       |    |		Load_Top	At_Offset_2
0388 8231       | 1  |		Call	0x1,0x31
0389 822a       | *  |		Call	0x1,0x2a
038a 0a01       |    |		Execute_Immediate	Plus,0x1
038b 00d8       |    |		Load_Top	At_Offset_0
038c 00e2       |    |		Load_Encached	Integer_Cache
038d 0260       | `  |		Execute	Discrete,In_Type
038e 7001       |p   |		Jump_Nonzero	0x390
038f 0801       |    |		Execute_Immediate	Raise,0x1
0390 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0391 0000 0000  |    |		.BLANK	0000[0x7]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			INIT_0398:
039b e235       | 5  |		Load	0x1,0x35
039c 0322       | "  |		Declare_Variable	Record
039d 00db       |    |		Load_Top	At_Offset_3
039e e235       | 5  |		Load	0x1,0x35
039f 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
03a0 0119       |    |		Execute	Any,Check_In_Formal_Type
03a1 00d9       |    |		Load_Top	At_Offset_1
03a2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03a3 e234       | 4  |		Load	0x1,0x34
03a4 00d9       |    |		Load_Top	At_Offset_1
03a5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03a6 e234       | 4  |		Load	0x1,0x34
03a7 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
03a8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03a9 0000 0000  |    |		.BLANK	0000[0x7]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 00da       |    |		Load_Top	At_Offset_2
03b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03b5 0000 0000  |    |		.XXX[0x3]
03b7 0000       |    |
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb       |    |		.CONST	0x03bb								; Address of begin
03b9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ba 0001       |    |		.CONST	0x0001								; Number of locals
03bb			BODY_03b8:
03bb			INIT_03b8:
03bb 00da       |    |		Load_Top	At_Offset_2
03bc 022c       | ,  |		Execute	Access,Not_Null
03bd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03be 0000 0000  |    |		.XXX[0x2]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c5       |    |		.CONST	0x03c5								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0002       |    |		.CONST	0x0002								; Number of locals
03c3			INIT_03c0:
03c3 e234       | 4  |		Load	0x1,0x34
03c4 0007       |    |		Action	Break_Optional
03c5			BODY_03c0:
03c5 00db       |    |		Load_Top	At_Offset_3
03c6 7002       |p   |		Jump_Nonzero	0x3c9
03c7 e213       |    |		Load	0x1,0x13
03c8 0257       | W  |		Execute	Discrete,Raise
03c9 00db       |    |		Load_Top	At_Offset_3
03ca 0039       | 9  |		Store_Top	Access,At_Offset_1
03cb 00d8       |    |		Load_Top	At_Offset_0
03cc 0227       | '  |		Execute	Access,All_Reference
03cd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03ce c5fe       |    |		Store	0x2,-0x2
03cf 00d8       |    |		Load_Top	At_Offset_0
03d0 0227       | '  |		Execute	Access,All_Reference
03d1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03d2 a5ff       |    |		Store_Unchecked	0x2,-0x1
03d3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03d4 0000 0000  |    |		.BLANK	0000[0x4]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db       |    |		.CONST	0x03db								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0001       |    |		.CONST	0x0001								; Number of locals
03db			BODY_03d8:
03db			INIT_03d8:
03db 00db       |    |		Load_Top	At_Offset_3
03dc 7002       |p   |		Jump_Nonzero	0x3df
03dd e211       |    |		Load	0x1,0x11
03de 0257       | W  |		Execute	Discrete,Raise
03df 00da       |    |		Load_Top	At_Offset_2
03e0 e5fe       |    |		Load	0x2,-0x2
03e1 0227       | '  |		Execute	Access,All_Reference
03e2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03e3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03e4 0000 0000  |    |		.BLANK	0000[0x4]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03ed       |    |		.CONST	0x03ed								; Address of begin
03e9 03fa       |    |		.CONST	0x03fa								; Address of exception handler
03ea 0002       |    |		.CONST	0x0002								; Number of locals
03eb			INIT_03e8:
03eb e234       | 4  |		Load	0x1,0x34
03ec 0007       |    |		Action	Break_Optional
03ed			BODY_03e8:
03ed e5fe       |    |		Load	0x2,-0x2
03ee 0229       | )  |		Execute	Access,All_Read
03ef 00d8       |    |		Load_Top	At_Offset_0
03f0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03f1 8223       | #  |		Call	0x1,0x23
03f2 00d9       |    |		Load_Top	At_Offset_1
03f3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03f4 00d1       |    |		Pop_Control	Pop_Count_1
03f5 00db       |    |		Load_Top	At_Offset_3
03f6 e5fe       |    |		Load	0x2,-0x2
03f7 0227       | '  |		Execute	Access,All_Reference
03f8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03f9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03fa			TRAP_03e8:
03fa 010e       |    |		Execute	Exception,Is_Constraint_Error
03fb 6802       |h   |		Jump_Zero	0x3fe
03fc e211       |    |		Load	0x1,0x11
03fd 0257       | W  |		Execute	Discrete,Raise
03fe 0100       |    |		Execute	Exception,Raise
03ff 0000       |    |		.XXX[0x1]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403       |    |		.CONST	0x0403								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0001       |    |		.CONST	0x0001								; Number of locals
0403			BODY_0400:
0403			INIT_0400:
0403 00da       |    |		Load_Top	At_Offset_2
0404 7002       |p   |		Jump_Nonzero	0x407
0405 e211       |    |		Load	0x1,0x11
0406 0257       | W  |		Execute	Discrete,Raise
0407 00da       |    |		Load_Top	At_Offset_2
0408 0227       | '  |		Execute	Access,All_Reference
0409 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
040a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
040b 0000 0000  |    |		.BLANK	0000[0x5]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0415       |    |		.CONST	0x0415								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0002       |    |		.CONST	0x0002								; Number of locals
0413			INIT_0410:
0413 e234       | 4  |		Load	0x1,0x34
0414 0007       |    |		Action	Break_Optional
0415			BODY_0410:
0415 00db       |    |		Load_Top	At_Offset_3
0416 0039       | 9  |		Store_Top	Access,At_Offset_1
0417 00d8       |    |		Load_Top	At_Offset_0
0418 0227       | '  |		Execute	Access,All_Reference
0419 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
041a 00d8       |    |		Load_Top	At_Offset_0
041b 0120       |    |		Execute	Any,Is_Value
041c 7002       |p   |		Jump_Nonzero	0x41f
041d 00d8       |    |		Load_Top	At_Offset_0
041e 011e       |    |		Execute	Any,Convert
041f e20e       |    |		Load	0x1,0xe
0420 0119       |    |		Execute	Any,Check_In_Formal_Type
0421 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0422 0000 0000  |    |		.BLANK	0000[0x6]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0437       | 7  |		.CONST	0x0437								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0005       |    |		.CONST	0x0005								; Number of locals
042b			INIT_0428:
042b e234       | 4  |		Load	0x1,0x34
042c 0007       |    |		Action	Break_Optional
042d 00d8       |    |		Load_Top	At_Offset_0
042e 0007       |    |		Action	Break_Optional
042f e20e       |    |		Load	0x1,0xe
0430 02c7       |    |		Declare_Variable	Any
0431 00d8       |    |		Load_Top	At_Offset_0
0432 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0433 e20e       |    |		Load	0x1,0xe
0434 02c7       |    |		Declare_Variable	Any
0435 00d8       |    |		Load_Top	At_Offset_0
0436 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0437			BODY_0428:
0437 e5ff       |    |		Load	0x2,-0x1
0438 a402       |    |		Store_Unchecked	0x2,0x2
0439 e5fe       |    |		Load	0x2,-0x2
043a 003b       | ;  |		Store_Top	Access,At_Offset_3
043b 00cf       |    |		Action	Mark_Auxiliary
043c 7813       |x   |		Jump	0x450
043d 00db       |    |		Load_Top	At_Offset_3
043e 0227       | '  |		Execute	Access,All_Reference
043f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0440 e402       |    |		Load	0x2,0x2
0441 0227       | '  |		Execute	Access,All_Reference
0442 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0443 820f       |    |		Call	0x1,0xf
0444 7002       |p   |		Jump_Nonzero	0x447
0445 4800       |H   |		Short_Literal	0x0
0446 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0447 e402       |    |		Load	0x2,0x2
0448 0227       | '  |		Execute	Access,All_Reference
0449 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
044a a402       |    |		Store_Unchecked	0x2,0x2
044b 00db       |    |		Load_Top	At_Offset_3
044c 0227       | '  |		Execute	Access,All_Reference
044d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
044e a403       |    |		Store_Unchecked	0x2,0x3
044f 00c9       |    |		Action	Pop_Auxiliary_Loop
0450 e402       |    |		Load	0x2,0x2
0451 022c       | ,  |		Execute	Access,Not_Null
0452 e403       |    |		Load	0x2,0x3
0453 022c       | ,  |		Execute	Access,Not_Null
0454 0279       | y  |		Execute	Discrete,And
0455 77e7       |w   |		Jump_Nonzero	0x43d
0456 00ce       |    |		Action	Pop_Auxiliary
0457 00db       |    |		Load_Top	At_Offset_3
0458 022d       | -  |		Execute	Access,Is_Null
0459 00db       |    |		Load_Top	At_Offset_3
045a 022d       | -  |		Execute	Access,Is_Null
045b 0279       | y  |		Execute	Discrete,And
045c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
045d 0000 0000  |    |		.XXX[0x3]
045f 0000       |    |
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0467       | g  |		.CONST	0x0467								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0003       |    |		.CONST	0x0003								; Number of locals
0463			INIT_0460:
0463 e234       | 4  |		Load	0x1,0x34
0464 0007       |    |		Action	Break_Optional
0465 00d8       |    |		Load_Top	At_Offset_0
0466 0007       |    |		Action	Break_Optional
0467			BODY_0460:
0467 e5ff       |    |		Load	0x2,-0x1
0468 7002       |p   |		Jump_Nonzero	0x46b
0469 e211       |    |		Load	0x1,0x11
046a 0257       | W  |		Execute	Discrete,Raise
046b e5ff       |    |		Load	0x2,-0x1
046c 003a       | :  |		Store_Top	Access,At_Offset_2
046d 00cf       |    |		Action	Mark_Auxiliary
046e 7807       |x   |		Jump	0x476
046f 00da       |    |		Load_Top	At_Offset_2
0470 003a       | :  |		Store_Top	Access,At_Offset_2
0471 00da       |    |		Load_Top	At_Offset_2
0472 0227       | '  |		Execute	Access,All_Reference
0473 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0474 003b       | ;  |		Store_Top	Access,At_Offset_3
0475 00c9       |    |		Action	Pop_Auxiliary_Loop
0476 00da       |    |		Load_Top	At_Offset_2
0477 77f7       |w   |		Jump_Nonzero	0x46f
0478 00ce       |    |		Action	Pop_Auxiliary
0479 00d8       |    |		Load_Top	At_Offset_0
047a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
047b 0000 0000  |    |		.BLANK	0000[0x5]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483       |    |		.CONST	0x0483								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0001       |    |		.CONST	0x0001								; Number of locals
0483			BODY_0480:
0483			INIT_0480:
0483 4601       |F   |		Jump_Case	0x2
0484 7801       |x   |		Jump	0x486								; case 0x0
0485 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0486 00da       |    |		Load_Top	At_Offset_2
0487 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0488 0125       | %  |		Execute	Any,Set_Constraint
0489 00da       |    |		Load_Top	At_Offset_2
048a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
048b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
048c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
048d 0000 0000  |    |		.XXX[0x3]
048f 0000       |    |
0490 ; --------------------------------------------------------------------------------------
0490 ; Debug Table
0490 ; --------------------------------------------------------------------------------------
0490 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0x542a,0x0000,0x0001,0x0024
0496 000b 0526  |   &|		.DBG4T	0x000b,0x0526,0xc000,0x8000
049a 007e 0576  | ~ v|		.DBG4T	0x007e,0x0576,0xc000,0x0000
049e 00d3 059a  |    |		.DBG4T	0x00d3,0x059a,0x1001,0x0000
04a2 0103 05a4  |    |		.DBG4T	0x0103,0x05a4,0x1002,0x0000
04a6 0123 05aa  | #  |		.DBG4T	0x0123,0x05aa,0x1001,0x0000
04aa 013b 05af  | ;  |		.DBG4T	0x013b,0x05af,0x1001,0x0000
04ae 0153 05b2  | S  |		.DBG4T	0x0153,0x05b2,0x1002,0x0000
04b2 016b 05bc  | k  |		.DBG4T	0x016b,0x05bc,0x1002,0x0000
04b6 0183 05bf  |    |		.DBG4T	0x0183,0x05bf,0x1002,0x0000
04ba 01ab 05c9  |    |		.DBG4T	0x01ab,0x05c9,0x1002,0x0000
04be 01cb 05ce  |    |		.DBG4T	0x01cb,0x05ce,0x3802,0x0002
04c2 01f3 05d3  |    |		.DBG4T	0x01f3,0x05d3,0x1002,0x0000
04c6 01fb 05d6  |    |		.DBG4T	0x01fb,0x05d6,0x1001,0x0000
04ca 0213 05de  |    |		.DBG4T	0x0213,0x05de,0x1001,0x0000
04ce 0233 05e4  | 3  |		.DBG4T	0x0233,0x05e4,0x1002,0x4000
04d2 0263 05f7  | c  |		.DBG4T	0x0263,0x05f7,0x1002,0x4000
04d6 028b 0607  |    |		.DBG4T	0x028b,0x0607,0x1001,0x4000
04da 02cb 0626  |   &|		.DBG4T	0x02cb,0x0626,0x1001,0x4000
04de 02eb 0636  |   6|		.DBG4T	0x02eb,0x0636,0x3801,0x4002
04e2 031b 0648  |   H|		.DBG4T	0x031b,0x0648,0x1002,0x0000
04e6 0333 064d  | 3 M|		.DBG4T	0x0333,0x064d,0x1001,0x0000
04ea 0343 0652  | C R|		.DBG4T	0x0343,0x0652,0x1002,0x0000
04ee 034b 0655  | K U|		.DBG4T	0x034b,0x0655,0x1002,0x4000
04f2 036b 0664  | k d|		.DBG4T	0x036b,0x0664,0x1002,0x0000
04f6 0383 0669  |   i|		.DBG4T	0x0383,0x0669,0x1002,0x0000
04fa 039b 066e  |   n|		.DBG4T	0x039b,0x066e,0x1002,0x0000
04fe 03b3 0671  |   q|		.DBG4T	0x03b3,0x0671,0x1002,0x0000
0502 03bb 0674  |   t|		.DBG4T	0x03bb,0x0674,0x1002,0x0000
0506 03c3 0677  |   w|		.DBG4T	0x03c3,0x0677,0x1001,0x0000
050a 03db 067f  |    |		.DBG4T	0x03db,0x067f,0x1001,0x0000
050e 03eb 0684  |    |		.DBG4T	0x03eb,0x0684,0x1001,0x0000
0512 0403 068a  |    |		.DBG4T	0x0403,0x068a,0x1002,0x0000
0516 0413 068f  |    |		.DBG4T	0x0413,0x068f,0x1002,0x0000
051a 042b 0694  | +  |		.DBG4T	0x042b,0x0694,0x1002,0x4000
051e 0463 06aa  | c  |		.DBG4T	0x0463,0x06aa,0x1002,0x4000
0522 0483 0000  |    |		.DBG4T	0x0483,0x0000,0x1005,0x0000
0526 ; --------------------------------------------------------------------------------------
0526 ; Debug chain
0526 ; --------------------------------------------------------------------------------------
0526 0027 0000  | '  |		.DBGLEN	0x0027,0x0000
0528 000b 0014  |    |		.DBGLNO	0x000b,0x0014,0x001d,0x0026,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x005d,0x005f,0x0061,0x0063,0x0065,0x0067,0x0069,0x006b,0x006d,0x006f,0x0071,0x007b
054f 0003 0004  |    |		.XXX[0x27]
0551 0005 0006  |    |
0553 0007 0008  |    |
0555 0009 000a  |    |
0557 000b 000c  |    |
0559 000d 000e  |    |
055b 000f 0010  |    |
055d 0011 0012  |    |
055f 0013 0014  |    |
0561 0015 0016  |    |
0563 0017 0018  |    |
0565 0019 001a  |    |
0567 001b 001c  |    |
0569 001d 001e  |    |
056b 001f 0020  |    |
056d 0021 0022  | ! "|
056f 0023 0024  | # $|
0571 0025 0026  | % &|
0573 0028 0029  | ( )|
0575 002a       | *  |
0576 ; --------------------------------------------------------------------------------------
0576 ; Debug chain
0576 ; --------------------------------------------------------------------------------------
0576 0022 0000  | "  |		.DBGLEN	0x0022,0x0000
0578 007e 0086  | ~  |		.DBGLNO	0x007e,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6,0x00b8,0x00ba,0x00bc,0x00be,0x00c0,0x00c2,0x00c4,0x00c6
059a ; --------------------------------------------------------------------------------------
059a ; Debug chain
059a ; --------------------------------------------------------------------------------------
059a 0001 0007  |    |		.DBGLEN	0x0001,0x0007
059c 00d3 00d5  |    |		.DBGLNO	0x00d3,0x00d5,0x00d7,0x00d9,0x00da,0x00de,0x00e0,0x00e3
05a4 ; --------------------------------------------------------------------------------------
05a4 ; Debug chain
05a4 ; --------------------------------------------------------------------------------------
05a4 0001 0003  |    |		.DBGLEN	0x0001,0x0003
05a6 0103 0105  |    |		.DBGLNO	0x0103,0x0105,0x0113,0x0119
05aa ; --------------------------------------------------------------------------------------
05aa ; Debug chain
05aa ; --------------------------------------------------------------------------------------
05aa 0001 0002  |    |		.DBGLEN	0x0001,0x0002
05ac 0123 0125  | # %|		.DBGLNO	0x0123,0x0125,0x0133
05af ; --------------------------------------------------------------------------------------
05af ; Debug chain
05af ; --------------------------------------------------------------------------------------
05af 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05b1 013b       | ;  |		.DBGLNO	0x013b
05b2 ; --------------------------------------------------------------------------------------
05b2 ; Debug chain
05b2 ; --------------------------------------------------------------------------------------
05b2 0001 0007  |    |		.DBGLEN	0x0001,0x0007
05b4 0153 0155  | S U|		.DBGLNO	0x0153,0x0155,0x0157,0x0159,0x015d,0x015f,0x0162,0x0166
05bc ; --------------------------------------------------------------------------------------
05bc ; Debug chain
05bc ; --------------------------------------------------------------------------------------
05bc 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05be 016b       | k  |		.DBGLNO	0x016b
05bf ; --------------------------------------------------------------------------------------
05bf ; Debug chain
05bf ; --------------------------------------------------------------------------------------
05bf 0002 0006  |    |		.DBGLEN	0x0002,0x0006
05c1 0183 0185  |    |		.DBGLNO	0x0183,0x0185,0x0187,0x0195,0x0197,0x0199,0x019c,0x01a0
05c9 ; --------------------------------------------------------------------------------------
05c9 ; Debug chain
05c9 ; --------------------------------------------------------------------------------------
05c9 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05cb 01ab 01ad  |    |		.DBGLNO	0x01ab,0x01ad,0x01af
05ce ; --------------------------------------------------------------------------------------
05ce ; Debug chain
05ce ; --------------------------------------------------------------------------------------
05ce 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05d0 01cb 01cd  |    |		.DBGLNO	0x01cb,0x01cd,0x01cf
05d3 ; --------------------------------------------------------------------------------------
05d3 ; Debug chain
05d3 ; --------------------------------------------------------------------------------------
05d3 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05d5 01f3       |    |		.DBGLNO	0x01f3
05d6 ; --------------------------------------------------------------------------------------
05d6 ; Debug chain
05d6 ; --------------------------------------------------------------------------------------
05d6 0001 0005  |    |		.DBGLEN	0x0001,0x0005
05d8 01fb 01fd  |    |		.DBGLNO	0x01fb,0x01fd,0x01ff,0x0201,0x0205,0x020b
05de ; --------------------------------------------------------------------------------------
05de ; Debug chain
05de ; --------------------------------------------------------------------------------------
05de 0001 0003  |    |		.DBGLEN	0x0001,0x0003
05e0 0213 0215  |    |		.DBGLNO	0x0213,0x0215,0x021b,0x021f
05e4 ; --------------------------------------------------------------------------------------
05e4 ; Debug chain
05e4 ; --------------------------------------------------------------------------------------
05e4 0003 0007  |    |		.DBGLEN	0x0003,0x0007
05e6 0233 0235  | 3 5|		.DBGLNO	0x0233,0x0235,0x0237,0x0239,0x023d,0x0246,0x024f,0x0251,0x0256,0x0259
05f0 0001 0003  |    |		.XXX[0x7]
05f2 0004 0005  |    |
05f4 0006 0002  |    |
05f6 0007       |    |
05f7 ; --------------------------------------------------------------------------------------
05f7 ; Debug chain
05f7 ; --------------------------------------------------------------------------------------
05f7 0002 0006  |    |		.DBGLEN	0x0002,0x0006
05f9 0263 0265  | c e|		.DBGLNO	0x0263,0x0265,0x0267,0x026b,0x0271,0x0279,0x027e,0x0281
0601 0001 0003  |    |		.XXX[0x6]
0603 0004 0005  |    |
0605 0002 0006  |    |
0607 ; --------------------------------------------------------------------------------------
0607 ; Debug chain
0607 ; --------------------------------------------------------------------------------------
0607 0003 000d  |    |		.DBGLEN	0x0003,0x000d
0609 028b 028d  |    |		.DBGLNO	0x028b,0x028d,0x028f,0x0291,0x0293,0x0297,0x029d,0x029f,0x02a1,0x02a6,0x02a8,0x02ae,0x02b2,0x02b9,0x02bb,0x02c0
0619 0001 0002  |    |		.XXX[0xd]
061b 0004 0005  |    |
061d 0006 0007  |    |
061f 0008 0009  |    |
0621 000a 000b  |    |
0623 000c 000d  |    |
0625 0003       |    |
0626 ; --------------------------------------------------------------------------------------
0626 ; Debug chain
0626 ; --------------------------------------------------------------------------------------
0626 0002 0006  |    |		.DBGLEN	0x0002,0x0006
0628 02cb 02cd  |    |		.DBGLNO	0x02cb,0x02cd,0x02cf,0x02d3,0x02d5,0x02d9,0x02e0,0x02e3
0630 0001 0003  |    |		.XXX[0x6]
0632 0004 0005  |    |
0634 0002 0006  |    |
0636 ; --------------------------------------------------------------------------------------
0636 ; Debug chain
0636 ; --------------------------------------------------------------------------------------
0636 0002 0007  |    |		.DBGLEN	0x0002,0x0007
0638 02eb 02ed  |    |		.DBGLNO	0x02eb,0x02ed,0x02ef,0x02f3,0x02f5,0x02f9,0x0307,0x030e,0x0311
0641 0001 0003  |    |		.XXX[0x7]
0643 0004 0005  |    |
0645 0006 0002  |    |
0647 0007       |    |
0648 ; --------------------------------------------------------------------------------------
0648 ; Debug chain
0648 ; --------------------------------------------------------------------------------------
0648 0000 0003  |    |		.DBGLEN	0x0000,0x0003
064a 031b 031d  |    |		.DBGLNO	0x031b,0x031d,0x031f
064d ; --------------------------------------------------------------------------------------
064d ; Debug chain
064d ; --------------------------------------------------------------------------------------
064d 0000 0003  |    |		.DBGLEN	0x0000,0x0003
064f 0333 0335  | 3 5|		.DBGLNO	0x0333,0x0335,0x0337
0652 ; --------------------------------------------------------------------------------------
0652 ; Debug chain
0652 ; --------------------------------------------------------------------------------------
0652 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0654 0343       | C  |		.DBGLNO	0x0343
0655 ; --------------------------------------------------------------------------------------
0655 ; Debug chain
0655 ; --------------------------------------------------------------------------------------
0655 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0657 034b 034d  | K M|		.DBGLNO	0x034b,0x034d,0x0351,0x0357,0x0359,0x035e,0x0361
065e 0001 0003  |    |		.XXX[0x6]
0660 0004 0005  |    |
0662 0002 0006  |    |
0664 ; --------------------------------------------------------------------------------------
0664 ; Debug chain
0664 ; --------------------------------------------------------------------------------------
0664 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0666 036b 036d  | k m|		.DBGLNO	0x036b,0x036d,0x0370
0669 ; --------------------------------------------------------------------------------------
0669 ; Debug chain
0669 ; --------------------------------------------------------------------------------------
0669 0000 0003  |    |		.DBGLEN	0x0000,0x0003
066b 0383 0385  |    |		.DBGLNO	0x0383,0x0385,0x0387
066e ; --------------------------------------------------------------------------------------
066e ; Debug chain
066e ; --------------------------------------------------------------------------------------
066e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0670 039b       |    |		.DBGLNO	0x039b
0671 ; --------------------------------------------------------------------------------------
0671 ; Debug chain
0671 ; --------------------------------------------------------------------------------------
0671 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0673 03b3       |    |		.DBGLNO	0x03b3
0674 ; --------------------------------------------------------------------------------------
0674 ; Debug chain
0674 ; --------------------------------------------------------------------------------------
0674 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0676 03bb       |    |		.DBGLNO	0x03bb
0677 ; --------------------------------------------------------------------------------------
0677 ; Debug chain
0677 ; --------------------------------------------------------------------------------------
0677 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0679 03c3 03c5  |    |		.DBGLNO	0x03c3,0x03c5,0x03c7,0x03c9,0x03cb,0x03cf
067f ; --------------------------------------------------------------------------------------
067f ; Debug chain
067f ; --------------------------------------------------------------------------------------
067f 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0681 03db 03dd  |    |		.DBGLNO	0x03db,0x03dd,0x03df
0684 ; --------------------------------------------------------------------------------------
0684 ; Debug chain
0684 ; --------------------------------------------------------------------------------------
0684 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0686 03eb 03ed  |    |		.DBGLNO	0x03eb,0x03ed,0x03f5,0x03fc
068a ; --------------------------------------------------------------------------------------
068a ; Debug chain
068a ; --------------------------------------------------------------------------------------
068a 0000 0003  |    |		.DBGLEN	0x0000,0x0003
068c 0403 0405  |    |		.DBGLNO	0x0403,0x0405,0x0407
068f ; --------------------------------------------------------------------------------------
068f ; Debug chain
068f ; --------------------------------------------------------------------------------------
068f 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0691 0413 0415  |    |		.DBGLNO	0x0413,0x0415,0x0417
0694 ; --------------------------------------------------------------------------------------
0694 ; Debug chain
0694 ; --------------------------------------------------------------------------------------
0694 0004 0008  |    |		.DBGLEN	0x0004,0x0008
0696 042b 042d  | + -|		.DBGLNO	0x042b,0x042d,0x042f,0x0433,0x0437,0x0439,0x043d,0x0445,0x0447,0x044b,0x0450,0x0457
06a2 0001 0002  |    |		.XXX[0x8]
06a4 0004 0005  |    |
06a6 0006 0007  |    |
06a8 0003 0008  |    |
06aa ; --------------------------------------------------------------------------------------
06aa ; Debug chain
06aa ; --------------------------------------------------------------------------------------
06aa 0002 0007  |    |		.DBGLEN	0x0002,0x0007
06ac 0463 0465  | c e|		.DBGLNO	0x0463,0x0465,0x0467,0x0469,0x046b,0x046f,0x0471,0x0476,0x0479
06b5 0001 0002  |    |		.XXX[0x7]
06b7 0003 0005  |    |
06b9 0006 0004  |    |
06bb 0007       |    |
06bc 0000 0000  |    |		.BLANK	0000[0x144]