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

⟦137a78546⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 04a0       |    |		.CONST	0x04a0								; 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 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0013 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
0015 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0017 029a 0193  |    |		Declare_Subprogram	INIT_0190,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 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0022 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0024 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
0026 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0028 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
002a 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
002c 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
002e 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
0030 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
0032 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
0034 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
0036 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
0038 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
003a 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,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 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
0045 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0047 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
0049 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
004b 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
004d 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
004f 029a 034b  |   K|		Declare_Subprogram	INIT_0348,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 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call,Visible,Unelaborated
0062 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
0064 029a 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call,Visible,Unelaborated
0066 e001       |    |		Load	0x0,0x1
0067 0129       | )  |		Execute	Any,Make_Visible
0068 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
006a 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
006c 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
006e 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
0070 029a 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call,Visible,Unelaborated
0072 029a 040b  |    |		Declare_Subprogram	INIT_0408,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 044b  |   K|		Declare_Subprogram	INIT_0448,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 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call
00c4 029d 0433  |   3|		Declare_Subprogram	INIT_0430,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 0143       | C  |		.CONST	0x0143								; 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 e005       |    |		Load	0x0,0x5
0128 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0129 e003       |    |		Load	0x0,0x3
012a 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
012b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
012c 00d9       |    |		Load_Top	At_Offset_1
012d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
012e e5fe       |    |		Load	0x2,-0x2
012f 00d9       |    |		Load_Top	At_Offset_1
0130 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0131 e5fd       |    |		Load	0x2,-0x3
0132 e23d       | =  |		Load	0x1,0x3d
0133 3002       |0   |		Execute	Record,Field_Type,Field_Number 0x2
0134 0119       |    |		Execute	Any,Check_In_Formal_Type
0135 00d9       |    |		Load_Top	At_Offset_1
0136 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0137 e5fc       |    |		Load	0x2,-0x4
0138 e23d       | =  |		Load	0x1,0x3d
0139 3003       |0   |		Execute	Record,Field_Type,Field_Number 0x3
013a 0119       |    |		Execute	Any,Check_In_Formal_Type
013b 00d9       |    |		Load_Top	At_Offset_1
013c 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
013d e20e       |    |		Load	0x1,0xe
013e e5fb       |    |		Load	0x2,-0x5
013f e006       |    |		Load	0x0,0x6
0140 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0141 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0142 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0143			TRAP_0120:
0143 e006       |    |		Load	0x0,0x6
0144 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0145 010f       |    |		Execute	Exception,Equal
0146 6803       |h   |		Jump_Zero	0x14a
0147 e003       |    |		Load	0x0,0x3
0148 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0149 0257       | W  |		Execute	Discrete,Raise
014a e006       |    |		Load	0x0,0x6
014b 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
014c 010f       |    |		Execute	Exception,Equal
014d 6803       |h   |		Jump_Zero	0x151
014e e003       |    |		Load	0x0,0x3
014f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0150 0257       | W  |		Execute	Discrete,Raise
0151 0100       |    |		Execute	Exception,Raise
0152 0000 0000  |    |		.BLANK	0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00da       |    |		Load_Top	At_Offset_2
015c 7003       |p   |		Jump_Nonzero	0x160
015d e003       |    |		Load	0x0,0x3
015e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
015f 0257       | W  |		Execute	Discrete,Raise
0160 00da       |    |		Load_Top	At_Offset_2
0161 0217       |    |		Execute	Heap_Access,All_Reference
0162 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0163 e003       |    |		Load	0x0,0x3
0164 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0165 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0166 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0167 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
016c 7003       |p   |		Jump_Nonzero	0x170
016d e003       |    |		Load	0x0,0x3
016e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
016f 0257       | W  |		Execute	Discrete,Raise
0170 00da       |    |		Load_Top	At_Offset_2
0171 0217       |    |		Execute	Heap_Access,All_Reference
0172 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0173 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0174 0000 0000  |    |		.BLANK	0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00da       |    |		Load_Top	At_Offset_2
017c 7003       |p   |		Jump_Nonzero	0x180
017d e003       |    |		Load	0x0,0x3
017e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
017f 0257       | W  |		Execute	Discrete,Raise
0180 00da       |    |		Load_Top	At_Offset_2
0181 0217       |    |		Execute	Heap_Access,All_Reference
0182 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0183 00d8       |    |		Load_Top	At_Offset_0
0184 0120       |    |		Execute	Any,Is_Value
0185 7002       |p   |		Jump_Nonzero	0x188
0186 00d8       |    |		Load_Top	At_Offset_0
0187 011e       |    |		Execute	Any,Convert
0188 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0189 0000 0000  |    |		.BLANK	0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 00da       |    |		Load_Top	At_Offset_2
0194 7003       |p   |		Jump_Nonzero	0x198
0195 e003       |    |		Load	0x0,0x3
0196 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0197 0257       | W  |		Execute	Discrete,Raise
0198 00da       |    |		Load_Top	At_Offset_2
0199 0217       |    |		Execute	Heap_Access,All_Reference
019a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
019b 00d8       |    |		Load_Top	At_Offset_0
019c 0120       |    |		Execute	Any,Is_Value
019d 7002       |p   |		Jump_Nonzero	0x1a0
019e 00d8       |    |		Load_Top	At_Offset_0
019f 011e       |    |		Execute	Any,Convert
01a0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a1 0000 0000  |    |		.BLANK	0000[0x7]
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 021d       |    |		Execute	Heap_Access,Is_Null
01ad 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ae 0000 0000  |    |		.XXX[0x2]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 01f1       |    |		.CONST	0x01f1								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 e23e       | >  |		Load	0x1,0x3e
01b4 0322       | "  |		Declare_Variable	Record
01b5 e5f3       |    |		Load	0x2,-0xd
01b6 e5ff       |    |		Load	0x2,-0x1
01b7 e005       |    |		Load	0x0,0x5
01b8 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01b9 e003       |    |		Load	0x0,0x3
01ba 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01bb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01bc 00d9       |    |		Load_Top	At_Offset_1
01bd 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01be e5fe       |    |		Load	0x2,-0x2
01bf 00d9       |    |		Load_Top	At_Offset_1
01c0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01c1 e5fd       |    |		Load	0x2,-0x3
01c2 00d9       |    |		Load_Top	At_Offset_1
01c3 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01c4 e5fc       |    |		Load	0x2,-0x4
01c5 8244       | D  |		Call	0x1,0x44
01c6 e20d       |    |		Load	0x1,0xd
01c7 e5f3       |    |		Load	0x2,-0xd
01c8 e006       |    |		Load	0x0,0x6
01c9 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01ca 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
01cb 00d9       |    |		Load_Top	At_Offset_1
01cc 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01cd e5fb       |    |		Load	0x2,-0x5
01ce 8244       | D  |		Call	0x1,0x44
01cf e20d       |    |		Load	0x1,0xd
01d0 e5f3       |    |		Load	0x2,-0xd
01d1 e006       |    |		Load	0x0,0x6
01d2 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01d3 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
01d4 00d9       |    |		Load_Top	At_Offset_1
01d5 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01d6 e5fa       |    |		Load	0x2,-0x6
01d7 00d9       |    |		Load_Top	At_Offset_1
01d8 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
01d9 e5f9       |    |		Load	0x2,-0x7
01da 00d9       |    |		Load_Top	At_Offset_1
01db 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
01dc e5f8       |    |		Load	0x2,-0x8
01dd 00d9       |    |		Load_Top	At_Offset_1
01de 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
01df e5f7       |    |		Load	0x2,-0x9
01e0 00d9       |    |		Load_Top	At_Offset_1
01e1 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
01e2 e5f6       |    |		Load	0x2,-0xa
01e3 00d9       |    |		Load_Top	At_Offset_1
01e4 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
01e5 e5f5       |    |		Load	0x2,-0xb
01e6 00d9       |    |		Load_Top	At_Offset_1
01e7 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
01e8 e5f4       |    |		Load	0x2,-0xc
01e9 00d9       |    |		Load_Top	At_Offset_1
01ea 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
01eb e216       |    |		Load	0x1,0x16
01ec e5f3       |    |		Load	0x2,-0xd
01ed e006       |    |		Load	0x0,0x6
01ee 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01ef 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
01f0 440d       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0xd
01f1			TRAP_01b0:
01f1 e006       |    |		Load	0x0,0x6
01f2 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01f3 010f       |    |		Execute	Exception,Equal
01f4 6803       |h   |		Jump_Zero	0x1f8
01f5 e003       |    |		Load	0x0,0x3
01f6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01f7 0257       | W  |		Execute	Discrete,Raise
01f8 e006       |    |		Load	0x0,0x6
01f9 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01fa 010f       |    |		Execute	Exception,Equal
01fb 6803       |h   |		Jump_Zero	0x1ff
01fc e003       |    |		Load	0x0,0x3
01fd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01fe 0257       | W  |		Execute	Discrete,Raise
01ff 0100       |    |		Execute	Exception,Raise
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 00da       |    |		Load_Top	At_Offset_2
0204 7003       |p   |		Jump_Nonzero	0x208
0205 e003       |    |		Load	0x0,0x3
0206 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0207 0257       | W  |		Execute	Discrete,Raise
0208 00da       |    |		Load_Top	At_Offset_2
0209 0217       |    |		Execute	Heap_Access,All_Reference
020a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
020b e003       |    |		Load	0x0,0x3
020c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
020d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
020e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
020f 0000       |    |		.XXX[0x1]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 00da       |    |		Load_Top	At_Offset_2
0214 7003       |p   |		Jump_Nonzero	0x218
0215 e003       |    |		Load	0x0,0x3
0216 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0217 0257       | W  |		Execute	Discrete,Raise
0218 00da       |    |		Load_Top	At_Offset_2
0219 0217       |    |		Execute	Heap_Access,All_Reference
021a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
021b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021c 0000 0000  |    |		.BLANK	0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 00da       |    |		Load_Top	At_Offset_2
0224 7003       |p   |		Jump_Nonzero	0x228
0225 e003       |    |		Load	0x0,0x3
0226 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0227 0257       | W  |		Execute	Discrete,Raise
0228 00da       |    |		Load_Top	At_Offset_2
0229 0217       |    |		Execute	Heap_Access,All_Reference
022a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
022b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
022c 0000 0000  |    |		.BLANK	0000[0x4]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 00da       |    |		Load_Top	At_Offset_2
0234 7003       |p   |		Jump_Nonzero	0x238
0235 e003       |    |		Load	0x0,0x3
0236 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0237 0257       | W  |		Execute	Discrete,Raise
0238 00da       |    |		Load_Top	At_Offset_2
0239 0217       |    |		Execute	Heap_Access,All_Reference
023a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
023b 8245       | E  |		Call	0x1,0x45
023c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
023d 0000 0000  |    |		.XXX[0x3]
023f 0000       |    |
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 00da       |    |		Load_Top	At_Offset_2
0244 7003       |p   |		Jump_Nonzero	0x248
0245 e003       |    |		Load	0x0,0x3
0246 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0247 0257       | W  |		Execute	Discrete,Raise
0248 00da       |    |		Load_Top	At_Offset_2
0249 0217       |    |		Execute	Heap_Access,All_Reference
024a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
024b 8245       | E  |		Call	0x1,0x45
024c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024d 0000 0000  |    |		.XXX[0x3]
024f 0000       |    |
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 00da       |    |		Load_Top	At_Offset_2
0254 7003       |p   |		Jump_Nonzero	0x258
0255 e003       |    |		Load	0x0,0x3
0256 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0257 0257       | W  |		Execute	Discrete,Raise
0258 00da       |    |		Load_Top	At_Offset_2
0259 0217       |    |		Execute	Heap_Access,All_Reference
025a 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
025b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
025c 0000 0000  |    |		.BLANK	0000[0x4]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 00da       |    |		Load_Top	At_Offset_2
0264 7003       |p   |		Jump_Nonzero	0x268
0265 e003       |    |		Load	0x0,0x3
0266 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0267 0257       | W  |		Execute	Discrete,Raise
0268 00da       |    |		Load_Top	At_Offset_2
0269 0217       |    |		Execute	Heap_Access,All_Reference
026a 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
026b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
026c 0000 0000  |    |		.BLANK	0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 00da       |    |		Load_Top	At_Offset_2
0274 7003       |p   |		Jump_Nonzero	0x278
0275 e003       |    |		Load	0x0,0x3
0276 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0277 0257       | W  |		Execute	Discrete,Raise
0278 00da       |    |		Load_Top	At_Offset_2
0279 0217       |    |		Execute	Heap_Access,All_Reference
027a 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
027b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
027c 0000 0000  |    |		.BLANK	0000[0x4]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 00da       |    |		Load_Top	At_Offset_2
0284 7003       |p   |		Jump_Nonzero	0x288
0285 e003       |    |		Load	0x0,0x3
0286 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0287 0257       | W  |		Execute	Discrete,Raise
0288 00da       |    |		Load_Top	At_Offset_2
0289 0217       |    |		Execute	Heap_Access,All_Reference
028a 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
028b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
028c 0000 0000  |    |		.BLANK	0000[0x4]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293       |    |		.CONST	0x0293								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0001       |    |		.CONST	0x0001								; Number of locals
0293			BODY_0290:
0293			INIT_0290:
0293 00da       |    |		Load_Top	At_Offset_2
0294 7003       |p   |		Jump_Nonzero	0x298
0295 e003       |    |		Load	0x0,0x3
0296 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0297 0257       | W  |		Execute	Discrete,Raise
0298 00da       |    |		Load_Top	At_Offset_2
0299 0217       |    |		Execute	Heap_Access,All_Reference
029a 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
029b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
029c 0000 0000  |    |		.BLANK	0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 00da       |    |		Load_Top	At_Offset_2
02a4 7003       |p   |		Jump_Nonzero	0x2a8
02a5 e003       |    |		Load	0x0,0x3
02a6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02a7 0257       | W  |		Execute	Discrete,Raise
02a8 00da       |    |		Load_Top	At_Offset_2
02a9 0217       |    |		Execute	Heap_Access,All_Reference
02aa 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
02ab 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ac 0000 0000  |    |		.BLANK	0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 00da       |    |		Load_Top	At_Offset_2
02b4 7003       |p   |		Jump_Nonzero	0x2b8
02b5 e003       |    |		Load	0x0,0x3
02b6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02b7 0257       | W  |		Execute	Discrete,Raise
02b8 00da       |    |		Load_Top	At_Offset_2
02b9 0217       |    |		Execute	Heap_Access,All_Reference
02ba 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
02bb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02bc 0000 0000  |    |		.BLANK	0000[0x4]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 00da       |    |		Load_Top	At_Offset_2
02c4 021d       |    |		Execute	Heap_Access,Is_Null
02c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c6 0000 0000  |    |		.XXX[0x2]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 02f4       |    |		.CONST	0x02f4								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb e23f       | ?  |		Load	0x1,0x3f
02cc 0322       | "  |		Declare_Variable	Record
02cd e5fa       |    |		Load	0x2,-0x6
02ce e5ff       |    |		Load	0x2,-0x1
02cf e005       |    |		Load	0x0,0x5
02d0 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02d1 e003       |    |		Load	0x0,0x3
02d2 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02d3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02d4 00d9       |    |		Load_Top	At_Offset_1
02d5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02d6 e5fe       |    |		Load	0x2,-0x2
02d7 00d9       |    |		Load_Top	At_Offset_1
02d8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02d9 e5fd       |    |		Load	0x2,-0x3
02da 00d9       |    |		Load_Top	At_Offset_1
02db 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02dc e5fc       |    |		Load	0x2,-0x4
02dd 8244       | D  |		Call	0x1,0x44
02de e20d       |    |		Load	0x1,0xd
02df e5fa       |    |		Load	0x2,-0x6
02e0 e006       |    |		Load	0x0,0x6
02e1 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02e2 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
02e3 00d9       |    |		Load_Top	At_Offset_1
02e4 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02e5 e5fb       |    |		Load	0x2,-0x5
02e6 8244       | D  |		Call	0x1,0x44
02e7 e20d       |    |		Load	0x1,0xd
02e8 e5fa       |    |		Load	0x2,-0x6
02e9 e006       |    |		Load	0x0,0x6
02ea 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02eb 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
02ec 00d9       |    |		Load_Top	At_Offset_1
02ed 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02ee e226       | &  |		Load	0x1,0x26
02ef e5fa       |    |		Load	0x2,-0x6
02f0 e006       |    |		Load	0x0,0x6
02f1 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02f2 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
02f3 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
02f4			TRAP_02c8:
02f4 e006       |    |		Load	0x0,0x6
02f5 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
02f6 010f       |    |		Execute	Exception,Equal
02f7 6803       |h   |		Jump_Zero	0x2fb
02f8 e003       |    |		Load	0x0,0x3
02f9 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02fa 0257       | W  |		Execute	Discrete,Raise
02fb e006       |    |		Load	0x0,0x6
02fc 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02fd 010f       |    |		Execute	Exception,Equal
02fe 6803       |h   |		Jump_Zero	0x302
02ff e003       |    |		Load	0x0,0x3
0300 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0301 0257       | W  |		Execute	Discrete,Raise
0302 0100       |    |		Execute	Exception,Raise
0303 0000 0000  |    |		.BLANK	0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b       |    |		.CONST	0x030b								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0001       |    |		.CONST	0x0001								; Number of locals
030b			BODY_0308:
030b			INIT_0308:
030b 00da       |    |		Load_Top	At_Offset_2
030c 7003       |p   |		Jump_Nonzero	0x310
030d e003       |    |		Load	0x0,0x3
030e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
030f 0257       | W  |		Execute	Discrete,Raise
0310 00da       |    |		Load_Top	At_Offset_2
0311 0217       |    |		Execute	Heap_Access,All_Reference
0312 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0313 e003       |    |		Load	0x0,0x3
0314 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0315 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0316 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0317 0000       |    |		.XXX[0x1]
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 7003       |p   |		Jump_Nonzero	0x320
031d e003       |    |		Load	0x0,0x3
031e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
031f 0257       | W  |		Execute	Discrete,Raise
0320 00da       |    |		Load_Top	At_Offset_2
0321 0217       |    |		Execute	Heap_Access,All_Reference
0322 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0323 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0324 0000 0000  |    |		.BLANK	0000[0x4]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 00da       |    |		Load_Top	At_Offset_2
032c 7003       |p   |		Jump_Nonzero	0x330
032d e003       |    |		Load	0x0,0x3
032e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
032f 0257       | W  |		Execute	Discrete,Raise
0330 00da       |    |		Load_Top	At_Offset_2
0331 0217       |    |		Execute	Heap_Access,All_Reference
0332 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0333 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0334 0000 0000  |    |		.BLANK	0000[0x4]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b 00da       |    |		Load_Top	At_Offset_2
033c 7003       |p   |		Jump_Nonzero	0x340
033d e003       |    |		Load	0x0,0x3
033e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
033f 0257       | W  |		Execute	Discrete,Raise
0340 00da       |    |		Load_Top	At_Offset_2
0341 0217       |    |		Execute	Heap_Access,All_Reference
0342 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0343 8245       | E  |		Call	0x1,0x45
0344 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0345 0000 0000  |    |		.XXX[0x3]
0347 0000       |    |
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b       | K  |		.CONST	0x034b								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0001       |    |		.CONST	0x0001								; Number of locals
034b			BODY_0348:
034b			INIT_0348:
034b 00da       |    |		Load_Top	At_Offset_2
034c 7003       |p   |		Jump_Nonzero	0x350
034d e003       |    |		Load	0x0,0x3
034e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
034f 0257       | W  |		Execute	Discrete,Raise
0350 00da       |    |		Load_Top	At_Offset_2
0351 0217       |    |		Execute	Heap_Access,All_Reference
0352 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0353 8245       | E  |		Call	0x1,0x45
0354 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 e231       | 1  |		Load	0x1,0x31
035c 00ca       |    |		Action	Exit_Nullary_Function
035d 0000 0000  |    |		.XXX[0x3]
035f 0000       |    |
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 00da       |    |		Load_Top	At_Offset_2
0364 021d       |    |		Execute	Heap_Access,Is_Null
0365 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0366 0000 0000  |    |		.XXX[0x2]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0373       | s  |		.CONST	0x0373								; Address of begin
0369 0395       |    |		.CONST	0x0395								; Address of exception handler
036a 0005       |    |		.CONST	0x0005								; Number of locals
036b			INIT_0368:
036b e007       |    |		Load	0x0,0x7
036c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
036d e240       | @  |		Load	0x1,0x40
036e 0007       |    |		Action	Break_Optional
036f e241       | A  |		Load	0x1,0x41
0370 0007       |    |		Action	Break_Optional
0371 e226       | &  |		Load	0x1,0x26
0372 0007       |    |		Action	Break_Optional
0373			BODY_0368:
0373 e5fb       |    |		Load	0x2,-0x5
0374 e006       |    |		Load	0x0,0x6
0375 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0376 a402       |    |		Store_Unchecked	0x2,0x2
0377 e5fe       |    |		Load	0x2,-0x2
0378 e240       | @  |		Load	0x1,0x40
0379 e402       |    |		Load	0x2,0x2
037a 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
037b 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
037c e5fd       |    |		Load	0x2,-0x3
037d e241       | A  |		Load	0x1,0x41
037e e402       |    |		Load	0x2,0x2
037f 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0380 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0381 e5fc       |    |		Load	0x2,-0x4
0382 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0383 e243       | C  |		Load	0x1,0x43
0384 0322       | "  |		Declare_Variable	Record
0385 e5ff       |    |		Load	0x2,-0x1
0386 00d9       |    |		Load_Top	At_Offset_1
0387 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0388 00db       |    |		Load_Top	At_Offset_3
0389 00d9       |    |		Load_Top	At_Offset_1
038a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
038b 00da       |    |		Load_Top	At_Offset_2
038c 00d9       |    |		Load_Top	At_Offset_1
038d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
038e 00d9       |    |		Load_Top	At_Offset_1
038f 00d9       |    |		Load_Top	At_Offset_1
0390 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0391 e231       | 1  |		Load	0x1,0x31
0392 e402       |    |		Load	0x2,0x2
0393 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0394 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0395			TRAP_0368:
0395 e006       |    |		Load	0x0,0x6
0396 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0397 010f       |    |		Execute	Exception,Equal
0398 6803       |h   |		Jump_Zero	0x39c
0399 e003       |    |		Load	0x0,0x3
039a 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
039b 0257       | W  |		Execute	Discrete,Raise
039c e006       |    |		Load	0x0,0x6
039d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
039e 010f       |    |		Execute	Exception,Equal
039f 6803       |h   |		Jump_Zero	0x3a3
03a0 e003       |    |		Load	0x0,0x3
03a1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03a2 0257       | W  |		Execute	Discrete,Raise
03a3 0100       |    |		Execute	Exception,Raise
03a4 0000 0000  |    |		.BLANK	0000[0x4]
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 e5fb       |    |		Load	0x2,-0x5
03ac e008       |    |		Load	0x0,0x8
03ad 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03ae c5fb       |    |		Store	0x2,-0x5
03af 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
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 8233       | 3  |		Call	0x1,0x33
03b5 6801       |h   |		Jump_Zero	0x3b7
03b6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03b7 0092 0463  |   c|		Action	Push_String_Extended,0x463					; "Predefined Environment Characteristics Customizations"
03b9 4800       |H   |		Short_Literal	0x0
03ba 8009       |    |		Call	0x0,0x9
03bb 00da       |    |		Load_Top	At_Offset_2
03bc 8238       | 8  |		Call	0x1,0x38
03bd 0092 0464  |   d|		Action	Push_String_Extended,0x464					; "Standard Version"
03bf 4801       |H   |		Short_Literal	0x1
03c0 800a       |    |		Call	0x0,0xa
03c1 4801       |H   |		Short_Literal	0x1
03c2 00db       |    |		Load_Top	At_Offset_3
03c3 8239       | 9  |		Call	0x1,0x39
03c4 0092 0465  |   e|		Action	Push_String_Extended,0x465					; "Integer Types"
03c6 800b       |    |		Call	0x0,0xb
03c7 4801       |H   |		Short_Literal	0x1
03c8 00db       |    |		Load_Top	At_Offset_3
03c9 823a       | :  |		Call	0x1,0x3a
03ca 0092 0466  |   f|		Action	Push_String_Extended,0x466					; "Float Types"
03cc 800c       |    |		Call	0x0,0xc
03cd 4801       |H   |		Short_Literal	0x1
03ce 00db       |    |		Load_Top	At_Offset_3
03cf 823b       | ;  |		Call	0x1,0x3b
03d0 0092 0467  |   g|		Action	Push_String_Extended,0x467					; "Duration"
03d2 800d       |    |		Call	0x0,0xd
03d3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 00da       |    |		Load_Top	At_Offset_2
03dc 7003       |p   |		Jump_Nonzero	0x3e0
03dd e003       |    |		Load	0x0,0x3
03de 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03df 0257       | W  |		Execute	Discrete,Raise
03e0 00da       |    |		Load_Top	At_Offset_2
03e1 0217       |    |		Execute	Heap_Access,All_Reference
03e2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03e3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03e4 0000 0000  |    |		.BLANK	0000[0x4]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb       |    |		.CONST	0x03eb								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0001       |    |		.CONST	0x0001								; Number of locals
03eb			BODY_03e8:
03eb			INIT_03e8:
03eb 00da       |    |		Load_Top	At_Offset_2
03ec 7003       |p   |		Jump_Nonzero	0x3f0
03ed e003       |    |		Load	0x0,0x3
03ee 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03ef 0257       | W  |		Execute	Discrete,Raise
03f0 00da       |    |		Load_Top	At_Offset_2
03f1 0217       |    |		Execute	Heap_Access,All_Reference
03f2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03f3 0217       |    |		Execute	Heap_Access,All_Reference
03f4 0335       | 5  |		Declare_Variable	Array,Duplicate
03f5 00cd       |    |		Action	Spare6_Action
03f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03f7 0000       |    |		.XXX[0x1]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb       |    |		.CONST	0x03fb								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0001       |    |		.CONST	0x0001								; Number of locals
03fb			BODY_03f8:
03fb			INIT_03f8:
03fb 00da       |    |		Load_Top	At_Offset_2
03fc 7003       |p   |		Jump_Nonzero	0x400
03fd e003       |    |		Load	0x0,0x3
03fe 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03ff 0257       | W  |		Execute	Discrete,Raise
0400 00da       |    |		Load_Top	At_Offset_2
0401 0217       |    |		Execute	Heap_Access,All_Reference
0402 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0403 0217       |    |		Execute	Heap_Access,All_Reference
0404 0335       | 5  |		Declare_Variable	Array,Duplicate
0405 00cd       |    |		Action	Spare6_Action
0406 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0407 0000       |    |		.XXX[0x1]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b       |    |		.CONST	0x040b								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0001       |    |		.CONST	0x0001								; Number of locals
040b			BODY_0408:
040b			INIT_0408:
040b 00da       |    |		Load_Top	At_Offset_2
040c 7003       |p   |		Jump_Nonzero	0x410
040d e003       |    |		Load	0x0,0x3
040e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
040f 0257       | W  |		Execute	Discrete,Raise
0410 00da       |    |		Load_Top	At_Offset_2
0411 0217       |    |		Execute	Heap_Access,All_Reference
0412 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0413 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0414 0000 0000  |    |		.BLANK	0000[0x4]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			INIT_0418:
041b 4820       |H   |		Short_Literal	0x20
041c 00db       |    |		Load_Top	At_Offset_3
041d e004       |    |		Load	0x0,0x4
041e 186a       | j  |		Execute	Package,Field_Execute,Field_Number 0x6a
041f e005       |    |		Load	0x0,0x5
0420 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0421 4820       |H   |		Short_Literal	0x20
0422 e5ff       |    |		Load	0x2,-0x1
0423 e004       |    |		Load	0x0,0x4
0424 1869       | i  |		Execute	Package,Field_Execute,Field_Number 0x69
0425 e005       |    |		Load	0x0,0x5
0426 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0427 e002       |    |		Load	0x0,0x2
0428 1b67       | g  |		Execute	Package,Field_Read,Field_Number 0x67
0429 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
042a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
042b 0000 0000  |    |		.BLANK	0000[0x5]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433       | 3  |		.CONST	0x0433								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0001       |    |		.CONST	0x0001								; Number of locals
0433			BODY_0430:
0433			INIT_0430:
0433 4820       |H   |		Short_Literal	0x20
0434 00db       |    |		Load_Top	At_Offset_3
0435 0217       |    |		Execute	Heap_Access,All_Reference
0436 e002       |    |		Load	0x0,0x2
0437 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
0438 e005       |    |		Load	0x0,0x5
0439 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
043a 4820       |H   |		Short_Literal	0x20
043b e5ff       |    |		Load	0x2,-0x1
043c 0217       |    |		Execute	Heap_Access,All_Reference
043d e002       |    |		Load	0x0,0x2
043e 1856       | V  |		Execute	Package,Field_Execute,Field_Number 0x56
043f e005       |    |		Load	0x0,0x5
0440 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0441 e004       |    |		Load	0x0,0x4
0442 1861       | a  |		Execute	Package,Field_Execute,Field_Number 0x61
0443 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0444 0000 0000  |    |		.BLANK	0000[0x4]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b       | K  |		.CONST	0x044b								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0001       |    |		.CONST	0x0001								; Number of locals
044b			BODY_0448:
044b			INIT_0448:
044b 4608       |F   |		Jump_Case	0x9
044c 7808       |x   |		Jump	0x455								; case 0x0
044d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
044e 7813       |x   |		Jump	0x462								; case 0x2
044f 7812       |x   |		Jump	0x462								; case 0x3
0450 7811       |x   |		Jump	0x462								; case 0x4
0451 7810       |x   |		Jump	0x462								; case 0x5
0452 780f       |x   |		Jump	0x462								; case 0x6
0453 780e       |x   |		Jump	0x462								; case 0x7
0454 780d       |x   |		Jump	0x462								; case 0x8
0455 00da       |    |		Load_Top	At_Offset_2
0456 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0457 0125       | %  |		Execute	Any,Set_Constraint
0458 00da       |    |		Load_Top	At_Offset_2
0459 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
045a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
045b 00da       |    |		Load_Top	At_Offset_2
045c 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
045d 0125       | %  |		Execute	Any,Set_Constraint
045e 00da       |    |		Load_Top	At_Offset_2
045f 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0460 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0461 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0462 0869       | i  |		Execute_Immediate	Raise,0x69
0463 ; --------------------------------------------------------------------------------------
0463 ; STRING TABLE
0463 ; --------------------------------------------------------------------------------------
0463 000c       |    |		.STRTAB	0x000c->0x0469							; "Predefined Environment Characteristics Customizations"
0464 003f       | ?  |		.STRTAB	0x003f->0x0483							; "Standard Version"
0465 004d       | M  |		.STRTAB	0x004d->0x048b							; "Integer Types"
0466 0058       | X  |		.STRTAB	0x0058->0x0492							; "Float Types"
0467 0061       | a  |		.STRTAB	0x0061->0x0497							; "Duration"
0468 0067       | g  |		.STREND 0x0067->0x049b
0469 5072 6564  |Pred|		.STRTAB_STRINGS
049c 0000 0000  |    |		.BLANK	0000[0x4]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; Debug Table
04a0 ; --------------------------------------------------------------------------------------
04a0 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x50db,0x0000,0x0001,0x0000
04a6 0000 0000  |    |		.XXX[0x4]
04a8 0114 a000  |    |
04aa 0000 0000  |    |		.BLANK	0000[0xa]
04b4 048a       |    |		.XXX[0x1]
04b5 0000 0000  |    |		.BLANK	0000[0x6]
04bb 010c 6000  |  ` |		.XXX[0x2]
04bd 0000 0000  |    |		.BLANK	0000[0x5]
04c2 0044 1800  | D  |		.XXX[0x2]
04c4 0000 0000  |    |		.BLANK	0000[0xc]
04d0 0003 b500  |    |		.XXX[0x3]
04d2 8000       |    |
04d3 0000 0000  |    |		.BLANK	0000[0xe]
04e1 00f1 0000  |    |		.XXX[0x4]
04e3 0003 c200  |    |
04e5 0000 0000  |    |		.BLANK	0000[0xd]
04f2 4500 0000  |E   |		.XXX[0x4]
04f4 0104 2000  |    |
04f6 0000 0000  |    |		.BLANK	0000[0x11]
0507 011d 4000  |  @ |		.XXX[0x2]
0509 0000 0000  |    |		.BLANK	0000[0x5]
050e 0042 0800  | B  |		.XXX[0x2]
0510 0000 0000  |    |		.BLANK	0000[0x8]
0518 3ab0 0000  |:   |		.XXX[0xb]
051a 0000 0000  |    |
051c 0003 c000  |    |
051e 0000 0000  |    |
0520 0000 0039  |   9|
0522 5000       |P   |
0523 0000 0000  |    |		.BLANK	0000[0x18]
053b 000e f800  |    |		.XXX[0xa]
053d 0000 4298  |  B |
053f 0820 0000  |    |
0541 0000 0004  |    |
0543 6280 8300  |b   |
0545 0000 0000  |    |		.BLANK	0000[0x5]
054a e960       | `  |		.XXX[0x1]
054b 0000 0000  |    |		.BLANK	0000[0x6]
0551 4438 0810  |D8  |		.XXX[0x3]
0553 010f       |    |
0554 0000 0000  |    |		.BLANK	0000[0x6]
055a 003c e800  | <  |		.XXX[0x2]
055c 0000 0000  |    |		.BLANK	0000[0xc]
0568 0003 ff00  |    |		.XXX[0x4]
056a 0000 0e66  |   f|
056c 0000 0000  |    |		.BLANK	0000[0x4]
0570 f8a0 0000  |    |		.XXX[0x82]
0572 0000 0000  |    |
0574 0011 6200  |  b |
0576 0000 4820  |  H |
0578 0000 0123  |   #|
057a 0000 0004  |    |
057c 9300 0000  |    |
057e 1692 0405  |    |
0580 ba49 8004  | I  |
0582 4000 0004  |@   |
0584 1284 0b78  |   x|
0586 e200 0000  |    |
0588 0000 0000  |    |
058a 2dd6 a000  |-   |
058c 0602 df7e  |   ~|
058e 612a c05b  |a* [|
0590 f420 0000  |    |
0592 0005 bbbe  |    |
0594 8005 2762  |  'b|
0596 e05b df18  | [  |
0598 0000 0000  |    |
059a 4400 0000  |D   |
059c 004e c5c0  | N  |
059e b7be 3000  |  0 |
05a0 0000 07f8  |    |
05a2 0000 0000  |    |
05a4 8000 0000  |    |
05a6 5bb8 340b  |[ 4 |
05a8 7a40 02dd  |z@  |
05aa 8621 1260  | ! `|
05ac 5bd8 4800  |[ H |
05ae 0000 05bd  |    |
05b0 3ac8 0400  |:   |
05b2 b7d6 f000  |    |
05b4 0000 0b76  |   v|
05b6 8f02 deaa  |    |
05b8 8000 0000  |    |
05ba 0000 0000  |    |
05bc 0100 0000  |    |
05be 1044 d02d  | D -|
05c0 f1b4 0000  |    |
05c2 0002 de54  |   T|
05c4 80b7 9c90  |    |
05c6 000c 265c  |  &\|
05c8 0b7d 6f00  | }o |
05ca 0000 00b7  |    |
05cc bc80 000c  |    |
05ce ec5c 0000  | \  |
05d0 0000 0000  |    |
05d2 004b 8000  | K  |
05d4 0000 0000  |    |
05d6 0001 04a1  |    |
05d8 02df 8500  |    |
05da 0000 002d  |   -|
05dc ec24 0b7c  | $ ||
05de 6d00 0180  |m   |
05e0 0000 084a  |   J|
05e2 b016 fd08  |    |
05e4 0000 0001  |    |
05e6 6faa 8000  |o   |
05e8 384c b817  |8L  |
05ea 01ba 0000  |    |
05ec 0001 68d8  |  h |
05ee 2001 984c  |   L|
05f0 4817 01ba  |H   |
05f2 0000 0000  |    |		.BLANK	0000[0x4]
05f6 09d8 b800  |    |		.XXX[0xa]
05f8 0000 0000  |    |
05fa 0000 2300  |  # |
05fc 0000 0000  |    |
05fe 0000 0204  |    |