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

⟦13593bc7e⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0498       |    |		.CONST	0x0498								; 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 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 010e       |    |		.CONST	0x010e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0045       | E  |		.CONST	0x0045								; Number of locals
000b			INIT_0008:
000b 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
000c 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
000d 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
000f 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0011 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0013 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0015 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0017 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0019 00e4       |    |		Load_Encached	Positive_Cache
001a 0266       | f  |		Execute	Discrete,Bounds
001b e20e       |    |		Load	0x1,0xe
001c 02a0       |    |		Declare_Subprogram	Null_Subprogram
001d 4801       |H   |		Short_Literal	0x1
001e 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
001f 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0020 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
0022 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0024 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0026 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0028 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
002a 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
002c 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
002e 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
0030 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
0032 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0034 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
0036 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
0038 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
003a 029a 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call,Visible,Unelaborated
003c 00e4       |    |		Load_Encached	Positive_Cache
003d 0266       | f  |		Execute	Discrete,Bounds
003e e216       |    |		Load	0x1,0x16
003f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0040 4801       |H   |		Short_Literal	0x1
0041 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0042 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0043 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
0045 029a 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
0047 029a 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call,Visible,Unelaborated
0049 029a 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call,Visible,Unelaborated
004b 029a 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call,Visible,Unelaborated
004d 029a 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Visible,Unelaborated
004f 029a 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Visible,Unelaborated
0051 00e4       |    |		Load_Encached	Positive_Cache
0052 0266       | f  |		Execute	Discrete,Bounds
0053 e226       | &  |		Load	0x1,0x26
0054 02a0       |    |		Declare_Subprogram	Null_Subprogram
0055 4801       |H   |		Short_Literal	0x1
0056 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0057 4fff       |O   |		Short_Literal	-0x1
0058 60bf       |`   |		Indirect_Literal	Discrete,0x118,{0x00000000, 0x7fffffff}
0059 00e2       |    |		Load_Encached	Integer_Cache
005a 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
005b 4800       |H   |		Short_Literal	0x0
005c 4900       |I   |		Short_Literal	0x100
005d 00da       |    |		Load_Top	At_Offset_2
005e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
005f 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0060 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
0062 029a 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call,Visible,Unelaborated
0064 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
0066 e001       |    |		Load	0x0,0x1
0067 0129       | )  |		Execute	Any,Make_Visible
0068 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
006a 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
006c 029a 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Outer_Call,Visible,Unelaborated
006e 029a 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call,Visible,Unelaborated
0070 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
0072 029a 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call,Visible,Unelaborated
0074 e002       |    |		Load	0x0,0x2
0075 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0076 00d8       |    |		Load_Top	At_Offset_0
0077 02a0       |    |		Declare_Subprogram	Null_Subprogram
0078 e20d       |    |		Load	0x1,0xd
0079 03a3       |    |		Complete_Type	Heap_Access,By_Defining
007a e003       |    |		Load	0x0,0x3
007b 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
007c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
007d 00e3       |    |		Load_Encached	Natural_Cache
007e e004       |    |		Load	0x0,0x4
007f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0080 e004       |    |		Load	0x0,0x4
0081 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0082 029f 0443  |   C|		Declare_Subprogram	INIT_0440,For_Call
0084 4804       |H   |		Short_Literal	0x4
0085 032d       | -  |		Declare_Type	Record,Defined
0086 00d8       |    |		Load_Top	At_Offset_0
0087 02a0       |    |		Declare_Subprogram	Null_Subprogram
0088 e20e       |    |		Load	0x1,0xe
0089 03a3       |    |		Complete_Type	Heap_Access,By_Defining
008a e003       |    |		Load	0x0,0x3
008b 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
008c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
008d 00e4       |    |		Load_Encached	Positive_Cache
008e 00e4       |    |		Load_Encached	Positive_Cache
008f e20d       |    |		Load	0x1,0xd
0090 00d8       |    |		Load_Top	At_Offset_0
0091 00e2       |    |		Load_Encached	Integer_Cache
0092 00e2       |    |		Load_Encached	Integer_Cache
0093 00e2       |    |		Load_Encached	Integer_Cache
0094 00e4       |    |		Load_Encached	Positive_Cache
0095 00e4       |    |		Load_Encached	Positive_Cache
0096 00e1       |    |		Load_Encached	Boolean_Cache
0097 00e1       |    |		Load_Encached	Boolean_Cache
0098 02a0       |    |		Declare_Subprogram	Null_Subprogram
0099 480c       |H   |		Short_Literal	0xc
009a 032d       | -  |		Declare_Type	Record,Defined
009b 00d8       |    |		Load_Top	At_Offset_0
009c 02a0       |    |		Declare_Subprogram	Null_Subprogram
009d e216       |    |		Load	0x1,0x16
009e 03a3       |    |		Complete_Type	Heap_Access,By_Defining
009f e003       |    |		Load	0x0,0x3
00a0 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00a1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a2 00e4       |    |		Load_Encached	Positive_Cache
00a3 00e2       |    |		Load_Encached	Integer_Cache
00a4 e20d       |    |		Load	0x1,0xd
00a5 00d8       |    |		Load_Top	At_Offset_0
00a6 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a7 4805       |H   |		Short_Literal	0x5
00a8 032d       | -  |		Declare_Type	Record,Defined
00a9 00d8       |    |		Load_Top	At_Offset_0
00aa 02a0       |    |		Declare_Subprogram	Null_Subprogram
00ab e226       | &  |		Load	0x1,0x26
00ac 03a3       |    |		Complete_Type	Heap_Access,By_Defining
00ad e215       |    |		Load	0x1,0x15
00ae 02a0       |    |		Declare_Subprogram	Null_Subprogram
00af 03ad       |    |		Declare_Type	Heap_Access,Defined
00b0 e225       | %  |		Load	0x1,0x25
00b1 02a0       |    |		Declare_Subprogram	Null_Subprogram
00b2 03ad       |    |		Declare_Type	Heap_Access,Defined
00b3 e22e       | .  |		Load	0x1,0x2e
00b4 02a0       |    |		Declare_Subprogram	Null_Subprogram
00b5 03ad       |    |		Declare_Type	Heap_Access,Defined
00b6 00e2       |    |		Load_Encached	Integer_Cache
00b7 00db       |    |		Load_Top	At_Offset_3
00b8 00db       |    |		Load_Top	At_Offset_3
00b9 e226       | &  |		Load	0x1,0x26
00ba 02a0       |    |		Declare_Subprogram	Null_Subprogram
00bb 4804       |H   |		Short_Literal	0x4
00bc 032d       | -  |		Declare_Type	Record,Defined
00bd 00d8       |    |		Load_Top	At_Offset_0
00be 02a0       |    |		Declare_Subprogram	Null_Subprogram
00bf e231       | 1  |		Load	0x1,0x31
00c0 03a3       |    |		Complete_Type	Heap_Access,By_Defining
00c1 00bf       |    |		Action	Accept_Activation
00c2 029d 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call
00c4 029d 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call
00c6 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
00c7 00c7       |    |		Action	Elaborate_Subprogram
00c8 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
00c9 00c7       |    |		Action	Elaborate_Subprogram
00ca 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00cb 00c7       |    |		Action	Elaborate_Subprogram
00cc 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00cd 00c7       |    |		Action	Elaborate_Subprogram
00ce 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00cf 00c7       |    |		Action	Elaborate_Subprogram
00d0 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00d1 00c7       |    |		Action	Elaborate_Subprogram
00d2 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00d3 00c7       |    |		Action	Elaborate_Subprogram
00d4 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00d5 00c7       |    |		Action	Elaborate_Subprogram
00d6 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00d7 00c7       |    |		Action	Elaborate_Subprogram
00d8 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00d9 00c7       |    |		Action	Elaborate_Subprogram
00da 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00db 00c7       |    |		Action	Elaborate_Subprogram
00dc 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00dd 00c7       |    |		Action	Elaborate_Subprogram
00de 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00df 00c7       |    |		Action	Elaborate_Subprogram
00e0 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00e1 00c7       |    |		Action	Elaborate_Subprogram
00e2 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00e3 00c7       |    |		Action	Elaborate_Subprogram
00e4 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00e5 00c7       |    |		Action	Elaborate_Subprogram
00e6 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00e7 00c7       |    |		Action	Elaborate_Subprogram
00e8 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00e9 00c7       |    |		Action	Elaborate_Subprogram
00ea 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00eb 00c7       |    |		Action	Elaborate_Subprogram
00ec 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00ed 00c7       |    |		Action	Elaborate_Subprogram
00ee 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00ef 00c7       |    |		Action	Elaborate_Subprogram
00f0 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00f1 00c7       |    |		Action	Elaborate_Subprogram
00f2 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00f3 00c7       |    |		Action	Elaborate_Subprogram
00f4 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00f5 00c7       |    |		Action	Elaborate_Subprogram
00f6 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00f7 00c7       |    |		Action	Elaborate_Subprogram
00f8 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00f9 00c7       |    |		Action	Elaborate_Subprogram
00fa 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
00fb 00c7       |    |		Action	Elaborate_Subprogram
00fc 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
00fd 00c7       |    |		Action	Elaborate_Subprogram
00fe 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
00ff 00c7       |    |		Action	Elaborate_Subprogram
0100 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
0101 00c7       |    |		Action	Elaborate_Subprogram
0102 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
0103 00c7       |    |		Action	Elaborate_Subprogram
0104 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
0105 00c7       |    |		Action	Elaborate_Subprogram
0106 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
0107 00c7       |    |		Action	Elaborate_Subprogram
0108 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
0109 00c7       |    |		Action	Elaborate_Subprogram
010a 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
010b 00c7       |    |		Action	Elaborate_Subprogram
010c 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
010d 00c7       |    |		Action	Elaborate_Subprogram
010e			BODY_0008:
010e 00bc       |    |		Action	Signal_Activated
010f 00bb       |    |		Action	Signal_Completion
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00da       |    |		Load_Top	At_Offset_2
0114 021d       |    |		Execute	Heap_Access,Is_Null
0115 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0116 0000 0000  |    |		.XXX[0x2]
0118 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
011c 0000 0000  |    |		.BLANK	0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0141       | A  |		.CONST	0x0141								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 e23d       | =  |		Load	0x1,0x3d
0124 0322       | "  |		Declare_Variable	Record
0125 e5fb       |    |		Load	0x2,-0x5
0126 e5ff       |    |		Load	0x2,-0x1
0127 e003       |    |		Load	0x0,0x3
0128 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0129 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
012a 00d9       |    |		Load_Top	At_Offset_1
012b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
012c e5fe       |    |		Load	0x2,-0x2
012d 00d9       |    |		Load_Top	At_Offset_1
012e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
012f e5fd       |    |		Load	0x2,-0x3
0130 e23d       | =  |		Load	0x1,0x3d
0131 3002       |0   |		Execute	Record,Field_Type,Field_Number 0x2
0132 0119       |    |		Execute	Any,Check_In_Formal_Type
0133 00d9       |    |		Load_Top	At_Offset_1
0134 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0135 e5fc       |    |		Load	0x2,-0x4
0136 e23d       | =  |		Load	0x1,0x3d
0137 3003       |0   |		Execute	Record,Field_Type,Field_Number 0x3
0138 0119       |    |		Execute	Any,Check_In_Formal_Type
0139 00d9       |    |		Load_Top	At_Offset_1
013a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
013b e20e       |    |		Load	0x1,0xe
013c e5fb       |    |		Load	0x2,-0x5
013d e005       |    |		Load	0x0,0x5
013e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
013f 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0140 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0141			TRAP_0120:
0141 e005       |    |		Load	0x0,0x5
0142 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0143 010f       |    |		Execute	Exception,Equal
0144 6803       |h   |		Jump_Zero	0x148
0145 e003       |    |		Load	0x0,0x3
0146 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0147 0257       | W  |		Execute	Discrete,Raise
0148 e005       |    |		Load	0x0,0x5
0149 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
014a 010f       |    |		Execute	Exception,Equal
014b 6803       |h   |		Jump_Zero	0x14f
014c e003       |    |		Load	0x0,0x3
014d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
014e 0257       | W  |		Execute	Discrete,Raise
014f 0100       |    |		Execute	Exception,Raise
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 00da       |    |		Load_Top	At_Offset_2
0154 7003       |p   |		Jump_Nonzero	0x158
0155 e003       |    |		Load	0x0,0x3
0156 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0157 0257       | W  |		Execute	Discrete,Raise
0158 00da       |    |		Load_Top	At_Offset_2
0159 0217       |    |		Execute	Heap_Access,All_Reference
015a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
015b e003       |    |		Load	0x0,0x3
015c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
015d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
015e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
015f 0000       |    |		.XXX[0x1]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00da       |    |		Load_Top	At_Offset_2
0164 7003       |p   |		Jump_Nonzero	0x168
0165 e003       |    |		Load	0x0,0x3
0166 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0167 0257       | W  |		Execute	Discrete,Raise
0168 00da       |    |		Load_Top	At_Offset_2
0169 0217       |    |		Execute	Heap_Access,All_Reference
016a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
016b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016c 0000 0000  |    |		.BLANK	0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 00da       |    |		Load_Top	At_Offset_2
0174 7003       |p   |		Jump_Nonzero	0x178
0175 e003       |    |		Load	0x0,0x3
0176 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0177 0257       | W  |		Execute	Discrete,Raise
0178 00da       |    |		Load_Top	At_Offset_2
0179 0217       |    |		Execute	Heap_Access,All_Reference
017a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
017b 00d8       |    |		Load_Top	At_Offset_0
017c 0120       |    |		Execute	Any,Is_Value
017d 7002       |p   |		Jump_Nonzero	0x180
017e 00d8       |    |		Load_Top	At_Offset_0
017f 011e       |    |		Execute	Any,Convert
0180 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0181 0000 0000  |    |		.BLANK	0000[0x7]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 00da       |    |		Load_Top	At_Offset_2
018c 7003       |p   |		Jump_Nonzero	0x190
018d e003       |    |		Load	0x0,0x3
018e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
018f 0257       | W  |		Execute	Discrete,Raise
0190 00da       |    |		Load_Top	At_Offset_2
0191 0217       |    |		Execute	Heap_Access,All_Reference
0192 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0193 00d8       |    |		Load_Top	At_Offset_0
0194 0120       |    |		Execute	Any,Is_Value
0195 7002       |p   |		Jump_Nonzero	0x198
0196 00d8       |    |		Load_Top	At_Offset_0
0197 011e       |    |		Execute	Any,Convert
0198 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0199 0000 0000  |    |		.BLANK	0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 00da       |    |		Load_Top	At_Offset_2
01a4 021d       |    |		Execute	Heap_Access,Is_Null
01a5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a6 0000 0000  |    |		.XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 01e7       |    |		.CONST	0x01e7								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab e23e       | >  |		Load	0x1,0x3e
01ac 0322       | "  |		Declare_Variable	Record
01ad e5f3       |    |		Load	0x2,-0xd
01ae e5ff       |    |		Load	0x2,-0x1
01af e003       |    |		Load	0x0,0x3
01b0 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01b1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01b2 00d9       |    |		Load_Top	At_Offset_1
01b3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01b4 e5fe       |    |		Load	0x2,-0x2
01b5 00d9       |    |		Load_Top	At_Offset_1
01b6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01b7 e5fd       |    |		Load	0x2,-0x3
01b8 00d9       |    |		Load_Top	At_Offset_1
01b9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01ba e5fc       |    |		Load	0x2,-0x4
01bb 8244       | D  |		Call	0x1,0x44
01bc e20d       |    |		Load	0x1,0xd
01bd e5f3       |    |		Load	0x2,-0xd
01be e005       |    |		Load	0x0,0x5
01bf 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01c0 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
01c1 00d9       |    |		Load_Top	At_Offset_1
01c2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01c3 e5fb       |    |		Load	0x2,-0x5
01c4 8244       | D  |		Call	0x1,0x44
01c5 e20d       |    |		Load	0x1,0xd
01c6 e5f3       |    |		Load	0x2,-0xd
01c7 e005       |    |		Load	0x0,0x5
01c8 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01c9 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
01ca 00d9       |    |		Load_Top	At_Offset_1
01cb 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01cc e5fa       |    |		Load	0x2,-0x6
01cd 00d9       |    |		Load_Top	At_Offset_1
01ce 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
01cf e5f9       |    |		Load	0x2,-0x7
01d0 00d9       |    |		Load_Top	At_Offset_1
01d1 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
01d2 e5f8       |    |		Load	0x2,-0x8
01d3 00d9       |    |		Load_Top	At_Offset_1
01d4 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
01d5 e5f7       |    |		Load	0x2,-0x9
01d6 00d9       |    |		Load_Top	At_Offset_1
01d7 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
01d8 e5f6       |    |		Load	0x2,-0xa
01d9 00d9       |    |		Load_Top	At_Offset_1
01da 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
01db e5f5       |    |		Load	0x2,-0xb
01dc 00d9       |    |		Load_Top	At_Offset_1
01dd 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
01de e5f4       |    |		Load	0x2,-0xc
01df 00d9       |    |		Load_Top	At_Offset_1
01e0 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
01e1 e216       |    |		Load	0x1,0x16
01e2 e5f3       |    |		Load	0x2,-0xd
01e3 e005       |    |		Load	0x0,0x5
01e4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01e5 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
01e6 440d       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0xd
01e7			TRAP_01a8:
01e7 e005       |    |		Load	0x0,0x5
01e8 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01e9 010f       |    |		Execute	Exception,Equal
01ea 6803       |h   |		Jump_Zero	0x1ee
01eb e003       |    |		Load	0x0,0x3
01ec 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01ed 0257       | W  |		Execute	Discrete,Raise
01ee e005       |    |		Load	0x0,0x5
01ef 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01f0 010f       |    |		Execute	Exception,Equal
01f1 6803       |h   |		Jump_Zero	0x1f5
01f2 e003       |    |		Load	0x0,0x3
01f3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01f4 0257       | W  |		Execute	Discrete,Raise
01f5 0100       |    |		Execute	Exception,Raise
01f6 0000 0000  |    |		.XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2
01fc 7003       |p   |		Jump_Nonzero	0x200
01fd e003       |    |		Load	0x0,0x3
01fe 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01ff 0257       | W  |		Execute	Discrete,Raise
0200 00da       |    |		Load_Top	At_Offset_2
0201 0217       |    |		Execute	Heap_Access,All_Reference
0202 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0203 e003       |    |		Load	0x0,0x3
0204 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0205 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0206 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0207 0000       |    |		.XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 00da       |    |		Load_Top	At_Offset_2
020c 7003       |p   |		Jump_Nonzero	0x210
020d e003       |    |		Load	0x0,0x3
020e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
020f 0257       | W  |		Execute	Discrete,Raise
0210 00da       |    |		Load_Top	At_Offset_2
0211 0217       |    |		Execute	Heap_Access,All_Reference
0212 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0213 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0214 0000 0000  |    |		.BLANK	0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 00da       |    |		Load_Top	At_Offset_2
021c 7003       |p   |		Jump_Nonzero	0x220
021d e003       |    |		Load	0x0,0x3
021e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
021f 0257       | W  |		Execute	Discrete,Raise
0220 00da       |    |		Load_Top	At_Offset_2
0221 0217       |    |		Execute	Heap_Access,All_Reference
0222 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0223 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0224 0000 0000  |    |		.BLANK	0000[0x4]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 00da       |    |		Load_Top	At_Offset_2
022c 7003       |p   |		Jump_Nonzero	0x230
022d e003       |    |		Load	0x0,0x3
022e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
022f 0257       | W  |		Execute	Discrete,Raise
0230 00da       |    |		Load_Top	At_Offset_2
0231 0217       |    |		Execute	Heap_Access,All_Reference
0232 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0233 8245       | E  |		Call	0x1,0x45
0234 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0235 0000 0000  |    |		.XXX[0x3]
0237 0000       |    |
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b       | ;  |		.CONST	0x023b								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0001       |    |		.CONST	0x0001								; Number of locals
023b			BODY_0238:
023b			INIT_0238:
023b 00da       |    |		Load_Top	At_Offset_2
023c 7003       |p   |		Jump_Nonzero	0x240
023d e003       |    |		Load	0x0,0x3
023e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
023f 0257       | W  |		Execute	Discrete,Raise
0240 00da       |    |		Load_Top	At_Offset_2
0241 0217       |    |		Execute	Heap_Access,All_Reference
0242 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0243 8245       | E  |		Call	0x1,0x45
0244 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0245 0000 0000  |    |		.XXX[0x3]
0247 0000       |    |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b 00da       |    |		Load_Top	At_Offset_2
024c 7003       |p   |		Jump_Nonzero	0x250
024d e003       |    |		Load	0x0,0x3
024e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
024f 0257       | W  |		Execute	Discrete,Raise
0250 00da       |    |		Load_Top	At_Offset_2
0251 0217       |    |		Execute	Heap_Access,All_Reference
0252 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0253 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0254 0000 0000  |    |		.BLANK	0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b 00da       |    |		Load_Top	At_Offset_2
025c 7003       |p   |		Jump_Nonzero	0x260
025d e003       |    |		Load	0x0,0x3
025e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
025f 0257       | W  |		Execute	Discrete,Raise
0260 00da       |    |		Load_Top	At_Offset_2
0261 0217       |    |		Execute	Heap_Access,All_Reference
0262 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0263 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0264 0000 0000  |    |		.BLANK	0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 00da       |    |		Load_Top	At_Offset_2
026c 7003       |p   |		Jump_Nonzero	0x270
026d e003       |    |		Load	0x0,0x3
026e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
026f 0257       | W  |		Execute	Discrete,Raise
0270 00da       |    |		Load_Top	At_Offset_2
0271 0217       |    |		Execute	Heap_Access,All_Reference
0272 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0273 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0274 0000 0000  |    |		.BLANK	0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b       | {  |		.CONST	0x027b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0001       |    |		.CONST	0x0001								; Number of locals
027b			BODY_0278:
027b			INIT_0278:
027b 00da       |    |		Load_Top	At_Offset_2
027c 7003       |p   |		Jump_Nonzero	0x280
027d e003       |    |		Load	0x0,0x3
027e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
027f 0257       | W  |		Execute	Discrete,Raise
0280 00da       |    |		Load_Top	At_Offset_2
0281 0217       |    |		Execute	Heap_Access,All_Reference
0282 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0283 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0284 0000 0000  |    |		.BLANK	0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b 00da       |    |		Load_Top	At_Offset_2
028c 7003       |p   |		Jump_Nonzero	0x290
028d e003       |    |		Load	0x0,0x3
028e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
028f 0257       | W  |		Execute	Discrete,Raise
0290 00da       |    |		Load_Top	At_Offset_2
0291 0217       |    |		Execute	Heap_Access,All_Reference
0292 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0293 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0294 0000 0000  |    |		.BLANK	0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b 00da       |    |		Load_Top	At_Offset_2
029c 7003       |p   |		Jump_Nonzero	0x2a0
029d e003       |    |		Load	0x0,0x3
029e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
029f 0257       | W  |		Execute	Discrete,Raise
02a0 00da       |    |		Load_Top	At_Offset_2
02a1 0217       |    |		Execute	Heap_Access,All_Reference
02a2 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
02a3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a4 0000 0000  |    |		.BLANK	0000[0x4]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab       |    |		.CONST	0x02ab								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0001       |    |		.CONST	0x0001								; Number of locals
02ab			BODY_02a8:
02ab			INIT_02a8:
02ab 00da       |    |		Load_Top	At_Offset_2
02ac 7003       |p   |		Jump_Nonzero	0x2b0
02ad e003       |    |		Load	0x0,0x3
02ae 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02af 0257       | W  |		Execute	Discrete,Raise
02b0 00da       |    |		Load_Top	At_Offset_2
02b1 0217       |    |		Execute	Heap_Access,All_Reference
02b2 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
02b3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b4 0000 0000  |    |		.BLANK	0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb 00da       |    |		Load_Top	At_Offset_2
02bc 021d       |    |		Execute	Heap_Access,Is_Null
02bd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02be 0000 0000  |    |		.XXX[0x2]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 02ea       |    |		.CONST	0x02ea								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 e23f       | ?  |		Load	0x1,0x3f
02c4 0322       | "  |		Declare_Variable	Record
02c5 e5fa       |    |		Load	0x2,-0x6
02c6 e5ff       |    |		Load	0x2,-0x1
02c7 e003       |    |		Load	0x0,0x3
02c8 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02c9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02ca 00d9       |    |		Load_Top	At_Offset_1
02cb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02cc e5fe       |    |		Load	0x2,-0x2
02cd 00d9       |    |		Load_Top	At_Offset_1
02ce 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02cf e5fd       |    |		Load	0x2,-0x3
02d0 00d9       |    |		Load_Top	At_Offset_1
02d1 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02d2 e5fc       |    |		Load	0x2,-0x4
02d3 8244       | D  |		Call	0x1,0x44
02d4 e20d       |    |		Load	0x1,0xd
02d5 e5fa       |    |		Load	0x2,-0x6
02d6 e005       |    |		Load	0x0,0x5
02d7 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02d8 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
02d9 00d9       |    |		Load_Top	At_Offset_1
02da 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02db e5fb       |    |		Load	0x2,-0x5
02dc 8244       | D  |		Call	0x1,0x44
02dd e20d       |    |		Load	0x1,0xd
02de e5fa       |    |		Load	0x2,-0x6
02df e005       |    |		Load	0x0,0x5
02e0 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02e1 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
02e2 00d9       |    |		Load_Top	At_Offset_1
02e3 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02e4 e226       | &  |		Load	0x1,0x26
02e5 e5fa       |    |		Load	0x2,-0x6
02e6 e005       |    |		Load	0x0,0x5
02e7 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02e8 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
02e9 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
02ea			TRAP_02c0:
02ea e005       |    |		Load	0x0,0x5
02eb 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
02ec 010f       |    |		Execute	Exception,Equal
02ed 6803       |h   |		Jump_Zero	0x2f1
02ee e003       |    |		Load	0x0,0x3
02ef 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02f0 0257       | W  |		Execute	Discrete,Raise
02f1 e005       |    |		Load	0x0,0x5
02f2 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02f3 010f       |    |		Execute	Exception,Equal
02f4 6803       |h   |		Jump_Zero	0x2f8
02f5 e003       |    |		Load	0x0,0x3
02f6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02f7 0257       | W  |		Execute	Discrete,Raise
02f8 0100       |    |		Execute	Exception,Raise
02f9 0000 0000  |    |		.BLANK	0000[0x7]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 00da       |    |		Load_Top	At_Offset_2
0304 7003       |p   |		Jump_Nonzero	0x308
0305 e003       |    |		Load	0x0,0x3
0306 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0307 0257       | W  |		Execute	Discrete,Raise
0308 00da       |    |		Load_Top	At_Offset_2
0309 0217       |    |		Execute	Heap_Access,All_Reference
030a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
030b e003       |    |		Load	0x0,0x3
030c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
030d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
030e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
030f 0000       |    |		.XXX[0x1]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313       |    |		.CONST	0x0313								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0001       |    |		.CONST	0x0001								; Number of locals
0313			BODY_0310:
0313			INIT_0310:
0313 00da       |    |		Load_Top	At_Offset_2
0314 7003       |p   |		Jump_Nonzero	0x318
0315 e003       |    |		Load	0x0,0x3
0316 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0317 0257       | W  |		Execute	Discrete,Raise
0318 00da       |    |		Load_Top	At_Offset_2
0319 0217       |    |		Execute	Heap_Access,All_Reference
031a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
031b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
031c 0000 0000  |    |		.BLANK	0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 00da       |    |		Load_Top	At_Offset_2
0324 7003       |p   |		Jump_Nonzero	0x328
0325 e003       |    |		Load	0x0,0x3
0326 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0327 0257       | W  |		Execute	Discrete,Raise
0328 00da       |    |		Load_Top	At_Offset_2
0329 0217       |    |		Execute	Heap_Access,All_Reference
032a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
032b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
032c 0000 0000  |    |		.BLANK	0000[0x4]
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 7003       |p   |		Jump_Nonzero	0x338
0335 e003       |    |		Load	0x0,0x3
0336 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0337 0257       | W  |		Execute	Discrete,Raise
0338 00da       |    |		Load_Top	At_Offset_2
0339 0217       |    |		Execute	Heap_Access,All_Reference
033a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
033b 8245       | E  |		Call	0x1,0x45
033c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
033d 0000 0000  |    |		.XXX[0x3]
033f 0000       |    |
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 7003       |p   |		Jump_Nonzero	0x348
0345 e003       |    |		Load	0x0,0x3
0346 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0347 0257       | W  |		Execute	Discrete,Raise
0348 00da       |    |		Load_Top	At_Offset_2
0349 0217       |    |		Execute	Heap_Access,All_Reference
034a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
034b 8245       | E  |		Call	0x1,0x45
034c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
034d 0000 0000  |    |		.XXX[0x3]
034f 0000       |    |
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353       | S  |		.CONST	0x0353								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0001       |    |		.CONST	0x0001								; Number of locals
0353			BODY_0350:
0353			INIT_0350:
0353 e231       | 1  |		Load	0x1,0x31
0354 00ca       |    |		Action	Exit_Nullary_Function
0355 0000 0000  |    |		.XXX[0x3]
0357 0000       |    |
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b       | [  |		.CONST	0x035b								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0001       |    |		.CONST	0x0001								; Number of locals
035b			BODY_0358:
035b			INIT_0358:
035b 00da       |    |		Load_Top	At_Offset_2
035c 021d       |    |		Execute	Heap_Access,Is_Null
035d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
035e 0000 0000  |    |		.XXX[0x2]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 036b       | k  |		.CONST	0x036b								; Address of begin
0361 038d       |    |		.CONST	0x038d								; Address of exception handler
0362 0005       |    |		.CONST	0x0005								; Number of locals
0363			INIT_0360:
0363 e006       |    |		Load	0x0,0x6
0364 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0365 e240       | @  |		Load	0x1,0x40
0366 0007       |    |		Action	Break_Optional
0367 e241       | A  |		Load	0x1,0x41
0368 0007       |    |		Action	Break_Optional
0369 e226       | &  |		Load	0x1,0x26
036a 0007       |    |		Action	Break_Optional
036b			BODY_0360:
036b e5fb       |    |		Load	0x2,-0x5
036c e005       |    |		Load	0x0,0x5
036d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
036e a402       |    |		Store_Unchecked	0x2,0x2
036f e5fe       |    |		Load	0x2,-0x2
0370 e240       | @  |		Load	0x1,0x40
0371 e402       |    |		Load	0x2,0x2
0372 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0373 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0374 e5fd       |    |		Load	0x2,-0x3
0375 e241       | A  |		Load	0x1,0x41
0376 e402       |    |		Load	0x2,0x2
0377 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0378 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0379 e5fc       |    |		Load	0x2,-0x4
037a 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
037b e243       | C  |		Load	0x1,0x43
037c 0322       | "  |		Declare_Variable	Record
037d e5ff       |    |		Load	0x2,-0x1
037e 00d9       |    |		Load_Top	At_Offset_1
037f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0380 00db       |    |		Load_Top	At_Offset_3
0381 00d9       |    |		Load_Top	At_Offset_1
0382 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0383 00da       |    |		Load_Top	At_Offset_2
0384 00d9       |    |		Load_Top	At_Offset_1
0385 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0386 00d9       |    |		Load_Top	At_Offset_1
0387 00d9       |    |		Load_Top	At_Offset_1
0388 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0389 e231       | 1  |		Load	0x1,0x31
038a e402       |    |		Load	0x2,0x2
038b 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
038c 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
038d			TRAP_0360:
038d e005       |    |		Load	0x0,0x5
038e 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
038f 010f       |    |		Execute	Exception,Equal
0390 6803       |h   |		Jump_Zero	0x394
0391 e003       |    |		Load	0x0,0x3
0392 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0393 0257       | W  |		Execute	Discrete,Raise
0394 e005       |    |		Load	0x0,0x5
0395 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0396 010f       |    |		Execute	Exception,Equal
0397 6803       |h   |		Jump_Zero	0x39b
0398 e003       |    |		Load	0x0,0x3
0399 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
039a 0257       | W  |		Execute	Discrete,Raise
039b 0100       |    |		Execute	Exception,Raise
039c 0000 0000  |    |		.BLANK	0000[0x4]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 e5fb       |    |		Load	0x2,-0x5
03a4 e007       |    |		Load	0x0,0x7
03a5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03a6 c5fb       |    |		Store	0x2,-0x5
03a7 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab       |    |		.CONST	0x03ab								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0001       |    |		.CONST	0x0001								; Number of locals
03ab			BODY_03a8:
03ab			INIT_03a8:
03ab 00da       |    |		Load_Top	At_Offset_2
03ac 8233       | 3  |		Call	0x1,0x33
03ad 6801       |h   |		Jump_Zero	0x3af
03ae 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03af 0092 045b  |   [|		Action	Push_String_Extended,0x45b					; "Predefined Environment Characteristics Customizations"
03b1 4800       |H   |		Short_Literal	0x0
03b2 8008       |    |		Call	0x0,0x8
03b3 00da       |    |		Load_Top	At_Offset_2
03b4 8238       | 8  |		Call	0x1,0x38
03b5 0092 045c  |   \|		Action	Push_String_Extended,0x45c					; "Standard Version"
03b7 4801       |H   |		Short_Literal	0x1
03b8 8009       |    |		Call	0x0,0x9
03b9 4801       |H   |		Short_Literal	0x1
03ba 00db       |    |		Load_Top	At_Offset_3
03bb 8239       | 9  |		Call	0x1,0x39
03bc 0092 045d  |   ]|		Action	Push_String_Extended,0x45d					; "Integer Types"
03be 800a       |    |		Call	0x0,0xa
03bf 4801       |H   |		Short_Literal	0x1
03c0 00db       |    |		Load_Top	At_Offset_3
03c1 823a       | :  |		Call	0x1,0x3a
03c2 0092 045e  |   ^|		Action	Push_String_Extended,0x45e					; "Float Types"
03c4 800b       |    |		Call	0x0,0xb
03c5 4801       |H   |		Short_Literal	0x1
03c6 00db       |    |		Load_Top	At_Offset_3
03c7 823b       | ;  |		Call	0x1,0x3b
03c8 0092 045f  |   _|		Action	Push_String_Extended,0x45f					; "Duration"
03ca 800c       |    |		Call	0x0,0xc
03cb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03cc 0000 0000  |    |		.BLANK	0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3       |    |		.CONST	0x03d3								; Address of begin
03d1 0004       |    |		.CONST	0x0004								; Address of exception handler
03d2 0001       |    |		.CONST	0x0001								; Number of locals
03d3			BODY_03d0:
03d3			INIT_03d0:
03d3 00da       |    |		Load_Top	At_Offset_2
03d4 7003       |p   |		Jump_Nonzero	0x3d8
03d5 e003       |    |		Load	0x0,0x3
03d6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03d7 0257       | W  |		Execute	Discrete,Raise
03d8 00da       |    |		Load_Top	At_Offset_2
03d9 0217       |    |		Execute	Heap_Access,All_Reference
03da 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03db 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03dc 0000 0000  |    |		.BLANK	0000[0x4]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3       |    |		.CONST	0x03e3								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0001       |    |		.CONST	0x0001								; Number of locals
03e3			BODY_03e0:
03e3			INIT_03e0:
03e3 00da       |    |		Load_Top	At_Offset_2
03e4 7003       |p   |		Jump_Nonzero	0x3e8
03e5 e003       |    |		Load	0x0,0x3
03e6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03e7 0257       | W  |		Execute	Discrete,Raise
03e8 00da       |    |		Load_Top	At_Offset_2
03e9 0217       |    |		Execute	Heap_Access,All_Reference
03ea 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03eb 0217       |    |		Execute	Heap_Access,All_Reference
03ec 0335       | 5  |		Declare_Variable	Array,Duplicate
03ed 00cd       |    |		Action	Spare6_Action
03ee 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03ef 0000       |    |		.XXX[0x1]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3       |    |		.CONST	0x03f3								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0001       |    |		.CONST	0x0001								; Number of locals
03f3			BODY_03f0:
03f3			INIT_03f0:
03f3 00da       |    |		Load_Top	At_Offset_2
03f4 7003       |p   |		Jump_Nonzero	0x3f8
03f5 e003       |    |		Load	0x0,0x3
03f6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03f7 0257       | W  |		Execute	Discrete,Raise
03f8 00da       |    |		Load_Top	At_Offset_2
03f9 0217       |    |		Execute	Heap_Access,All_Reference
03fa 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03fb 0217       |    |		Execute	Heap_Access,All_Reference
03fc 0335       | 5  |		Declare_Variable	Array,Duplicate
03fd 00cd       |    |		Action	Spare6_Action
03fe 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 7003       |p   |		Jump_Nonzero	0x408
0405 e003       |    |		Load	0x0,0x3
0406 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0407 0257       | W  |		Execute	Discrete,Raise
0408 00da       |    |		Load_Top	At_Offset_2
0409 0217       |    |		Execute	Heap_Access,All_Reference
040a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
040b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
040c 0000 0000  |    |		.BLANK	0000[0x4]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413       |    |		.CONST	0x0413								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0001       |    |		.CONST	0x0001								; Number of locals
0413			BODY_0410:
0413			INIT_0410:
0413 4820       |H   |		Short_Literal	0x20
0414 00db       |    |		Load_Top	At_Offset_3
0415 e004       |    |		Load	0x0,0x4
0416 186a       | j  |		Execute	Package,Field_Execute,Field_Number 0x6a
0417 e00d       |    |		Load	0x0,0xd
0418 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0419 4820       |H   |		Short_Literal	0x20
041a e5ff       |    |		Load	0x2,-0x1
041b e004       |    |		Load	0x0,0x4
041c 1869       | i  |		Execute	Package,Field_Execute,Field_Number 0x69
041d e00d       |    |		Load	0x0,0xd
041e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
041f e002       |    |		Load	0x0,0x2
0420 1b67       | g  |		Execute	Package,Field_Read,Field_Number 0x67
0421 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0422 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0423 0000 0000  |    |		.BLANK	0000[0x5]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b 4820       |H   |		Short_Literal	0x20
042c 00db       |    |		Load_Top	At_Offset_3
042d 0217       |    |		Execute	Heap_Access,All_Reference
042e e002       |    |		Load	0x0,0x2
042f 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
0430 e00d       |    |		Load	0x0,0xd
0431 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0432 4820       |H   |		Short_Literal	0x20
0433 e5ff       |    |		Load	0x2,-0x1
0434 0217       |    |		Execute	Heap_Access,All_Reference
0435 e002       |    |		Load	0x0,0x2
0436 1856       | V  |		Execute	Package,Field_Execute,Field_Number 0x56
0437 e00d       |    |		Load	0x0,0xd
0438 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0439 e004       |    |		Load	0x0,0x4
043a 1861       | a  |		Execute	Package,Field_Execute,Field_Number 0x61
043b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
043c 0000 0000  |    |		.BLANK	0000[0x4]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443       | C  |		.CONST	0x0443								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0001       |    |		.CONST	0x0001								; Number of locals
0443			BODY_0440:
0443			INIT_0440:
0443 4608       |F   |		Jump_Case	0x9
0444 7808       |x   |		Jump	0x44d								; case 0x0
0445 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0446 7813       |x   |		Jump	0x45a								; case 0x2
0447 7812       |x   |		Jump	0x45a								; case 0x3
0448 7811       |x   |		Jump	0x45a								; case 0x4
0449 7810       |x   |		Jump	0x45a								; case 0x5
044a 780f       |x   |		Jump	0x45a								; case 0x6
044b 780e       |x   |		Jump	0x45a								; case 0x7
044c 780d       |x   |		Jump	0x45a								; case 0x8
044d 00da       |    |		Load_Top	At_Offset_2
044e 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
044f 0125       | %  |		Execute	Any,Set_Constraint
0450 00da       |    |		Load_Top	At_Offset_2
0451 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0452 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0453 00da       |    |		Load_Top	At_Offset_2
0454 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0455 0125       | %  |		Execute	Any,Set_Constraint
0456 00da       |    |		Load_Top	At_Offset_2
0457 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0458 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0459 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
045a 0869       | i  |		Execute_Immediate	Raise,0x69
045b ; --------------------------------------------------------------------------------------
045b ; STRING TABLE
045b ; --------------------------------------------------------------------------------------
045b 000c       |    |		.STRTAB	0x000c->0x0461							; "Predefined Environment Characteristics Customizations"
045c 003f       | ?  |		.STRTAB	0x003f->0x047b							; "Standard Version"
045d 004d       | M  |		.STRTAB	0x004d->0x0483							; "Integer Types"
045e 0058       | X  |		.STRTAB	0x0058->0x048a							; "Float Types"
045f 0061       | a  |		.STRTAB	0x0061->0x048f							; "Duration"
0460 0067       | g  |		.STREND 0x0067->0x0493
0461 5072 6564  |Pred|		.STRTAB_STRINGS
0494 0000 0000  |    |		.BLANK	0000[0x4]
0498 ; --------------------------------------------------------------------------------------
0498 ; Debug Table
0498 ; --------------------------------------------------------------------------------------
0498 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0x2e70,0x0000,0x0001,0x0000
049e 0000 0000  |    |		.BLANK	0000[0x162]