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

⟦4a3aa15b7⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 04b0       |    |		.CONST	0x04b0								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0098       |    |		.CONST	0x0098								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0029       | )  |		.CONST	0x0029								; Number of locals
000b			INIT_0008:
000b 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
000d 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
000f 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0011 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0013 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0015 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0017 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0019 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
001b 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
001d 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
001f 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0021 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
0023 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0025 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0027 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
0029 029a 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call,Visible,Unelaborated
002b 029a 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call,Visible,Unelaborated
002d 029a 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Visible,Unelaborated
002f 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
0031 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
0033 029a 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call,Visible,Unelaborated
0035 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
0037 029a 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call,Visible,Unelaborated
0039 029a 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call,Visible,Unelaborated
003b 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
003d 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
003f 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
0041 4801       |H   |		Short_Literal	0x1
0042 4802       |H   |		Short_Literal	0x2
0043 00e9       |    |		Load_Encached	String_Cache
0044 035c       | \  |		Declare_Type	Array,Constrained,Visible
0045 4801       |H   |		Short_Literal	0x1
0046 4803       |H   |		Short_Literal	0x3
0047 00e9       |    |		Load_Encached	String_Cache
0048 035c       | \  |		Declare_Type	Array,Constrained,Visible
0049 4801       |H   |		Short_Literal	0x1
004a 4803       |H   |		Short_Literal	0x3
004b 00e9       |    |		Load_Encached	String_Cache
004c 035c       | \  |		Declare_Type	Array,Constrained,Visible
004d 4801       |H   |		Short_Literal	0x1
004e 4803       |H   |		Short_Literal	0x3
004f 00e9       |    |		Load_Encached	String_Cache
0050 035c       | \  |		Declare_Type	Array,Constrained,Visible
0051 e007       |    |		Load	0x0,0x7
0052 e008       |    |		Load	0x0,0x8
0053 e005       |    |		Load	0x0,0x5
0054 e006       |    |		Load	0x0,0x6
0055 029f 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Call
0057 4808       |H   |		Short_Literal	0x8
0058 032e       | .  |		Declare_Type	Record,Defined,Visible
0059 00bf       |    |		Action	Accept_Activation
005a e009       |    |		Load	0x0,0x9
005b e00a       |    |		Load	0x0,0xa
005c e00b       |    |		Load	0x0,0xb
005d e00c       |    |		Load	0x0,0xc
005e 1b53       | S  |		Execute	Package,Field_Read,Field_Number 0x53
005f 0387       |    |		Declare_Variable	Package
0060 00d8       |    |		Load_Top	At_Offset_0
0061 020f       |    |		Execute	Module,Activate
0062 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
007b 00c7       |    |		Action	Elaborate_Subprogram
007c 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
007d 00c7       |    |		Action	Elaborate_Subprogram
007e 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
007f 00c7       |    |		Action	Elaborate_Subprogram
0080 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0081 00c7       |    |		Action	Elaborate_Subprogram
0082 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0087 00c7       |    |		Action	Elaborate_Subprogram
0088 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0089 00c7       |    |		Action	Elaborate_Subprogram
008a 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0091 00c7       |    |		Action	Elaborate_Subprogram
0092 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0093 00c7       |    |		Action	Elaborate_Subprogram
0094 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0095 00c7       |    |		Action	Elaborate_Subprogram
0096 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0097 00c7       |    |		Action	Elaborate_Subprogram
0098			BODY_0008:
0098 00bc       |    |		Action	Signal_Activated
0099 00bb       |    |		Action	Signal_Completion
009a 0000 0000  |    |		.BLANK	0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a7       |    |		.CONST	0x00a7								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0002       |    |		.CONST	0x0002								; Number of locals
00a3			INIT_00a0:
00a3 e228       | (  |		Load	0x1,0x28
00a4 0322       | "  |		Declare_Variable	Record
00a5 00d8       |    |		Load_Top	At_Offset_0
00a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a7			BODY_00a0:
00a7 e228       | (  |		Load	0x1,0x28
00a8 0322       | "  |		Declare_Variable	Record
00a9 00d8       |    |		Load_Top	At_Offset_0
00aa 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00ab 4820       |H   |		Short_Literal	0x20
00ac 4802       |H   |		Short_Literal	0x2
00ad 480a       |H   |		Short_Literal	0xa
00ae e5ff       |    |		Load	0x2,-0x1
00af 00d8       |    |		Load_Top	At_Offset_0
00b0 00e2       |    |		Load_Encached	Integer_Cache
00b1 0260       | `  |		Execute	Discrete,In_Type
00b2 7001       |p   |		Jump_Nonzero	0xb4
00b3 0801       |    |		Execute_Immediate	Raise,0x1
00b4 e00d       |    |		Load	0x0,0xd
00b5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00b6 e228       | (  |		Load	0x1,0x28
00b7 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
00b8 0119       |    |		Execute	Any,Check_In_Formal_Type
00b9 00d9       |    |		Load_Top	At_Offset_1
00ba 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00bb 4820       |H   |		Short_Literal	0x20
00bc 4803       |H   |		Short_Literal	0x3
00bd 480a       |H   |		Short_Literal	0xa
00be e5fd       |    |		Load	0x2,-0x3
00bf e00d       |    |		Load	0x0,0xd
00c0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00c1 e228       | (  |		Load	0x1,0x28
00c2 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
00c3 0119       |    |		Execute	Any,Check_In_Formal_Type
00c4 00d9       |    |		Load_Top	At_Offset_1
00c5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00c6 4820       |H   |		Short_Literal	0x20
00c7 4803       |H   |		Short_Literal	0x3
00c8 480a       |H   |		Short_Literal	0xa
00c9 e5fc       |    |		Load	0x2,-0x4
00ca e00d       |    |		Load	0x0,0xd
00cb 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00cc e228       | (  |		Load	0x1,0x28
00cd 3002       |0   |		Execute	Record,Field_Type,Field_Number 0x2
00ce 0119       |    |		Execute	Any,Check_In_Formal_Type
00cf 00d9       |    |		Load_Top	At_Offset_1
00d0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00d1 4820       |H   |		Short_Literal	0x20
00d2 4803       |H   |		Short_Literal	0x3
00d3 480a       |H   |		Short_Literal	0xa
00d4 e5fb       |    |		Load	0x2,-0x5
00d5 e00d       |    |		Load	0x0,0xd
00d6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00d7 e228       | (  |		Load	0x1,0x28
00d8 3003       |0   |		Execute	Record,Field_Type,Field_Number 0x3
00d9 0119       |    |		Execute	Any,Check_In_Formal_Type
00da 00d9       |    |		Load_Top	At_Offset_1
00db 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00dc e002       |    |		Load	0x0,0x2
00dd e228       | (  |		Load	0x1,0x28
00de 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
00df 0119       |    |		Execute	Any,Check_In_Formal_Type
00e0 00d9       |    |		Load_Top	At_Offset_1
00e1 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00e2 e003       |    |		Load	0x0,0x3
00e3 e228       | (  |		Load	0x1,0x28
00e4 3005       |0   |		Execute	Record,Field_Type,Field_Number 0x5
00e5 0119       |    |		Execute	Any,Check_In_Formal_Type
00e6 00d9       |    |		Load_Top	At_Offset_1
00e7 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
00e8 e5fe       |    |		Load	0x2,-0x2
00e9 00d9       |    |		Load_Top	At_Offset_1
00ea 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
00eb 48c8       |H   |		Short_Literal	0xc8
00ec 00ea       |    |		Load_Encached	Null_String_Cache
00ed e004       |    |		Load	0x0,0x4
00ee 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00ef e006       |    |		Load	0x0,0x6
00f0 0162       | b  |		Execute	Variant_Record,Check_In_Type
00f1 00d9       |    |		Load_Top	At_Offset_1
00f2 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
00f3 00d9       |    |		Load_Top	At_Offset_1
00f4 017d       | }  |		Execute	Record,Structure_Write
00f5 00d8       |    |		Load_Top	At_Offset_0
00f6 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
00f7 0000       |    |		.XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0115       |    |		.CONST	0x0115								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0004       |    |		.CONST	0x0004								; Number of locals
00fb			INIT_00f8:
00fb 4801       |H   |		Short_Literal	0x1
00fc 00db       |    |		Load_Top	At_Offset_3
00fd 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
00fe e004       |    |		Load	0x0,0x4
00ff 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0100 00e9       |    |		Load_Encached	String_Cache
0101 035b       | [  |		Declare_Type	Array,Constrained
0102 0337       | 7  |		Declare_Variable	Array
0103 4801       |H   |		Short_Literal	0x1
0104 e5ff       |    |		Load	0x2,-0x1
0105 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0106 e004       |    |		Load	0x0,0x4
0107 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0108 0a11       |    |		Execute_Immediate	Plus,0x11
0109 00d8       |    |		Load_Top	At_Offset_0
010a 00e2       |    |		Load_Encached	Integer_Cache
010b 0260       | `  |		Execute	Discrete,In_Type
010c 7001       |p   |		Jump_Nonzero	0x10e
010d 0801       |    |		Execute_Immediate	Raise,0x1
010e 00e9       |    |		Load_Encached	String_Cache
010f 035b       | [  |		Declare_Type	Array,Constrained
0110 0337       | 7  |		Declare_Variable	Array
0111 e006       |    |		Load	0x0,0x6
0112 02ff       |    |		Declare_Variable	Variant_Record
0113 00d8       |    |		Load_Top	At_Offset_0
0114 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0115			BODY_00f8:
0115 e5ff       |    |		Load	0x2,-0x1
0116 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0117 e004       |    |		Load	0x0,0x4
0118 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0119 00db       |    |		Load_Top	At_Offset_3
011a 01d4       |    |		Execute	Vector,Structure_Write
011b e5ff       |    |		Load	0x2,-0x1
011c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
011d e5ff       |    |		Load	0x2,-0x1
011e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
011f 01cc       |    |		Execute	Vector,Catenate
0120 e5ff       |    |		Load	0x2,-0x1
0121 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0122 01cc       |    |		Execute	Vector,Catenate
0123 e5ff       |    |		Load	0x2,-0x1
0124 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0125 01cc       |    |		Execute	Vector,Catenate
0126 0092 045e  |   ^|		Action	Push_String_Extended,0x45e					; "123456"
0128 01cc       |    |		Execute	Vector,Catenate
0129 e5ff       |    |		Load	0x2,-0x1
012a 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
012b e004       |    |		Load	0x0,0x4
012c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
012d 01cc       |    |		Execute	Vector,Catenate
012e 00da       |    |		Load_Top	At_Offset_2
012f 01d4       |    |		Execute	Vector,Structure_Write
0130 00d8       |    |		Load_Top	At_Offset_0
0131 e004       |    |		Load	0x0,0x4
0132 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0133 0162       | b  |		Execute	Variant_Record,Check_In_Type
0134 00da       |    |		Load_Top	At_Offset_2
0135 e004       |    |		Load	0x0,0x4
0136 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0137 00d1       |    |		Pop_Control	Pop_Count_1
0138 00d8       |    |		Load_Top	At_Offset_0
0139 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
013a 0000 0000  |    |		.BLANK	0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0147       | G  |		.CONST	0x0147								; Address of begin
0141 0158       | X  |		.CONST	0x0158								; Address of exception handler
0142 0002       |    |		.CONST	0x0002								; Number of locals
0143			INIT_0140:
0143 e228       | (  |		Load	0x1,0x28
0144 0322       | "  |		Declare_Variable	Record
0145 00d8       |    |		Load_Top	At_Offset_0
0146 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0147			BODY_0140:
0147 e5fb       |    |		Load	0x2,-0x5
0148 e5fc       |    |		Load	0x2,-0x4
0149 e5fd       |    |		Load	0x2,-0x3
014a e5fe       |    |		Load	0x2,-0x2
014b e5ff       |    |		Load	0x2,-0x1
014c 820d       |    |		Call	0x1,0xd
014d 00d9       |    |		Load_Top	At_Offset_1
014e 017d       | }  |		Execute	Record,Structure_Write
014f e5fa       |    |		Load	0x2,-0x6
0150 e004       |    |		Load	0x0,0x4
0151 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0152 0162       | b  |		Execute	Variant_Record,Check_In_Type
0153 00d9       |    |		Load_Top	At_Offset_1
0154 820e       |    |		Call	0x1,0xe
0155 e004       |    |		Load	0x0,0x4
0156 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0157 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0158			TRAP_0140:
0158 010e       |    |		Execute	Exception,Is_Constraint_Error
0159 6805       |h   |		Jump_Zero	0x15f
015a 0092 045f  |   _|		Action	Push_String_Extended,0x45f					; "** Exception dans messages.packaging  **"
015c e00c       |    |		Load	0x0,0xc
015d 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
015e 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
015f 0100       |    |		Execute	Exception,Raise
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0172       | r  |		.CONST	0x0172								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0004       |    |		.CONST	0x0004								; Number of locals
0163			INIT_0160:
0163 00da       |    |		Load_Top	At_Offset_2
0164 e00e       |    |		Load	0x0,0xe
0165 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0166 48c8       |H   |		Short_Literal	0xc8
0167 00d9       |    |		Load_Top	At_Offset_1
0168 e004       |    |		Load	0x0,0x4
0169 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
016a 48b7       |H   |		Short_Literal	0xb7
016b e5fe       |    |		Load	0x2,-0x2
016c 4812       |H   |		Short_Literal	0x12
016d 00db       |    |		Load_Top	At_Offset_3
016e e004       |    |		Load	0x0,0x4
016f 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0170 e004       |    |		Load	0x0,0x4
0171 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0172			BODY_0160:
0172 4820       |H   |		Short_Literal	0x20
0173 4802       |H   |		Short_Literal	0x2
0174 480a       |H   |		Short_Literal	0xa
0175 e402       |    |		Load	0x2,0x2
0176 8211       |    |		Call	0x1,0x11
0177 00d8       |    |		Load_Top	At_Offset_0
0178 00e2       |    |		Load_Encached	Integer_Cache
0179 0260       | `  |		Execute	Discrete,In_Type
017a 7001       |p   |		Jump_Nonzero	0x17c
017b 0801       |    |		Execute_Immediate	Raise,0x1
017c e00d       |    |		Load	0x0,0xd
017d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
017e e5fd       |    |		Load	0x2,-0x3
017f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0180 4820       |H   |		Short_Literal	0x20
0181 4803       |H   |		Short_Literal	0x3
0182 480a       |H   |		Short_Literal	0xa
0183 e402       |    |		Load	0x2,0x2
0184 8213       |    |		Call	0x1,0x13
0185 e00d       |    |		Load	0x0,0xd
0186 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0187 e5fd       |    |		Load	0x2,-0x3
0188 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0189 4820       |H   |		Short_Literal	0x20
018a 4803       |H   |		Short_Literal	0x3
018b 480a       |H   |		Short_Literal	0xa
018c e402       |    |		Load	0x2,0x2
018d 8214       |    |		Call	0x1,0x14
018e e00d       |    |		Load	0x0,0xd
018f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0190 e5fd       |    |		Load	0x2,-0x3
0191 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0192 4820       |H   |		Short_Literal	0x20
0193 4803       |H   |		Short_Literal	0x3
0194 480a       |H   |		Short_Literal	0xa
0195 e402       |    |		Load	0x2,0x2
0196 8215       |    |		Call	0x1,0x15
0197 e00d       |    |		Load	0x0,0xd
0198 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0199 e5fd       |    |		Load	0x2,-0x3
019a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
019b e5ff       |    |		Load	0x2,-0x1
019c 8216       |    |		Call	0x1,0x16
019d e5fd       |    |		Load	0x2,-0x3
019e 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
019f e5ff       |    |		Load	0x2,-0x1
01a0 8217       |    |		Call	0x1,0x17
01a1 e5fd       |    |		Load	0x2,-0x3
01a2 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
01a3 e5fd       |    |		Load	0x2,-0x3
01a4 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
01a5 e004       |    |		Load	0x0,0x4
01a6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01a7 0162       | b  |		Execute	Variant_Record,Check_In_Type
01a8 00d9       |    |		Load_Top	At_Offset_1
01a9 e004       |    |		Load	0x0,0x4
01aa 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01ab 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01ac 0000 0000  |    |		.BLANK	0000[0x4]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01c4       |    |		.CONST	0x01c4								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0005       |    |		.CONST	0x0005								; Number of locals
01b3			INIT_01b0:
01b3 e006       |    |		Load	0x0,0x6
01b4 02ff       |    |		Declare_Variable	Variant_Record
01b5 48c8       |H   |		Short_Literal	0xc8
01b6 e5ff       |    |		Load	0x2,-0x1
01b7 e004       |    |		Load	0x0,0x4
01b8 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01b9 e006       |    |		Load	0x0,0x6
01ba 0162       | b  |		Execute	Variant_Record,Check_In_Type
01bb 00d9       |    |		Load_Top	At_Offset_1
01bc 016d       | m  |		Execute	Variant_Record,Structure_Write
01bd 4801       |H   |		Short_Literal	0x1
01be 4802       |H   |		Short_Literal	0x2
01bf 00e9       |    |		Load_Encached	String_Cache
01c0 035b       | [  |		Declare_Type	Array,Constrained
01c1 0337       | 7  |		Declare_Variable	Array
01c2 00e1       |    |		Load_Encached	Boolean_Cache
01c3 00e2       |    |		Load_Encached	Integer_Cache
01c4			BODY_01b0:
01c4 4802       |H   |		Short_Literal	0x2
01c5 4801       |H   |		Short_Literal	0x1
01c6 e402       |    |		Load	0x2,0x2
01c7 e004       |    |		Load	0x0,0x4
01c8 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
01c9 00db       |    |		Load_Top	At_Offset_3
01ca 01d4       |    |		Execute	Vector,Structure_Write
01cb 00e1       |    |		Load_Encached	Boolean_Cache
01cc 00e2       |    |		Load_Encached	Integer_Cache
01cd 480a       |H   |		Short_Literal	0xa
01ce e403       |    |		Load	0x2,0x3
01cf e00d       |    |		Load	0x0,0xd
01d0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01d1 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01d2 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01d3 00d8       |    |		Load_Top	At_Offset_0
01d4 00d8       |    |		Load_Top	At_Offset_0
01d5 e00b       |    |		Load	0x0,0xb
01d6 0260       | `  |		Execute	Discrete,In_Type
01d7 7001       |p   |		Jump_Nonzero	0x1d9
01d8 0801       |    |		Execute_Immediate	Raise,0x1
01d9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01da 0000 0000  |    |		.BLANK	0000[0x6]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01f0       |    |		.CONST	0x01f0								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0004       |    |		.CONST	0x0004								; Number of locals
01e3			INIT_01e0:
01e3 e006       |    |		Load	0x0,0x6
01e4 02ff       |    |		Declare_Variable	Variant_Record
01e5 48c8       |H   |		Short_Literal	0xc8
01e6 e5ff       |    |		Load	0x2,-0x1
01e7 e004       |    |		Load	0x0,0x4
01e8 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01e9 e006       |    |		Load	0x0,0x6
01ea 0162       | b  |		Execute	Variant_Record,Check_In_Type
01eb 00d9       |    |		Load_Top	At_Offset_1
01ec 016d       | m  |		Execute	Variant_Record,Structure_Write
01ed 00e4       |    |		Load_Encached	Positive_Cache
01ee e00b       |    |		Load	0x0,0xb
01ef 0007       |    |		Action	Break_Optional
01f0			BODY_01e0:
01f0 4802       |H   |		Short_Literal	0x2
01f1 4801       |H   |		Short_Literal	0x1
01f2 e402       |    |		Load	0x2,0x2
01f3 e004       |    |		Load	0x0,0x4
01f4 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
01f5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f6 0000 0000  |    |		.XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0205       |    |		.CONST	0x0205								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0002       |    |		.CONST	0x0002								; Number of locals
01fb			INIT_01f8:
01fb e006       |    |		Load	0x0,0x6
01fc 02ff       |    |		Declare_Variable	Variant_Record
01fd 48c8       |H   |		Short_Literal	0xc8
01fe e5ff       |    |		Load	0x2,-0x1
01ff e004       |    |		Load	0x0,0x4
0200 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0201 e006       |    |		Load	0x0,0x6
0202 0162       | b  |		Execute	Variant_Record,Check_In_Type
0203 00d9       |    |		Load_Top	At_Offset_1
0204 016d       | m  |		Execute	Variant_Record,Structure_Write
0205			BODY_01f8:
0205 4805       |H   |		Short_Literal	0x5
0206 4803       |H   |		Short_Literal	0x3
0207 00da       |    |		Load_Top	At_Offset_2
0208 e004       |    |		Load	0x0,0x4
0209 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
020a 00e2       |    |		Load_Encached	Integer_Cache
020b 00e0       |    |		Load_Encached	Standard_Cache
020c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
020d 00d8       |    |		Load_Top	At_Offset_0
020e 00e3       |    |		Load_Encached	Natural_Cache
020f 0260       | `  |		Execute	Discrete,In_Type
0210 7001       |p   |		Jump_Nonzero	0x212
0211 0801       |    |		Execute_Immediate	Raise,0x1
0212 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0213 0000 0000  |    |		.BLANK	0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0225       | %  |		.CONST	0x0225								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0002       |    |		.CONST	0x0002								; Number of locals
021b			INIT_0218:
021b e006       |    |		Load	0x0,0x6
021c 02ff       |    |		Declare_Variable	Variant_Record
021d 48c8       |H   |		Short_Literal	0xc8
021e e5ff       |    |		Load	0x2,-0x1
021f e004       |    |		Load	0x0,0x4
0220 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0221 e006       |    |		Load	0x0,0x6
0222 0162       | b  |		Execute	Variant_Record,Check_In_Type
0223 00d9       |    |		Load_Top	At_Offset_1
0224 016d       | m  |		Execute	Variant_Record,Structure_Write
0225			BODY_0218:
0225 4808       |H   |		Short_Literal	0x8
0226 4806       |H   |		Short_Literal	0x6
0227 00da       |    |		Load_Top	At_Offset_2
0228 e004       |    |		Load	0x0,0x4
0229 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
022a 00e2       |    |		Load_Encached	Integer_Cache
022b 00e0       |    |		Load_Encached	Standard_Cache
022c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
022d 00d8       |    |		Load_Top	At_Offset_0
022e 00e3       |    |		Load_Encached	Natural_Cache
022f 0260       | `  |		Execute	Discrete,In_Type
0230 7001       |p   |		Jump_Nonzero	0x232
0231 0801       |    |		Execute_Immediate	Raise,0x1
0232 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0233 0000 0000  |    |		.BLANK	0000[0x5]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0245       | E  |		.CONST	0x0245								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0002       |    |		.CONST	0x0002								; Number of locals
023b			INIT_0238:
023b e006       |    |		Load	0x0,0x6
023c 02ff       |    |		Declare_Variable	Variant_Record
023d 48c8       |H   |		Short_Literal	0xc8
023e e5ff       |    |		Load	0x2,-0x1
023f e004       |    |		Load	0x0,0x4
0240 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0241 e006       |    |		Load	0x0,0x6
0242 0162       | b  |		Execute	Variant_Record,Check_In_Type
0243 00d9       |    |		Load_Top	At_Offset_1
0244 016d       | m  |		Execute	Variant_Record,Structure_Write
0245			BODY_0238:
0245 480b       |H   |		Short_Literal	0xb
0246 4809       |H   |		Short_Literal	0x9
0247 00da       |    |		Load_Top	At_Offset_2
0248 e004       |    |		Load	0x0,0x4
0249 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
024a 00e2       |    |		Load_Encached	Integer_Cache
024b 00e0       |    |		Load_Encached	Standard_Cache
024c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
024d 00d8       |    |		Load_Top	At_Offset_0
024e 00e3       |    |		Load_Encached	Natural_Cache
024f 0260       | `  |		Execute	Discrete,In_Type
0250 7001       |p   |		Jump_Nonzero	0x252
0251 0801       |    |		Execute_Immediate	Raise,0x1
0252 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0253 0000 0000  |    |		.BLANK	0000[0x5]
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 480b       |H   |		Short_Literal	0xb
025c 480c       |H   |		Short_Literal	0xc
025d e5ff       |    |		Load	0x2,-0x1
025e 01cf       |    |		Execute	Vector,Slice_Read
025f e007       |    |		Load	0x0,0x7
0260 01c7       |    |		Execute	Vector,Convert
0261 0335       | 5  |		Declare_Variable	Array,Duplicate
0262 00cd       |    |		Action	Spare6_Action
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 480d       |H   |		Short_Literal	0xd
026c 4810       |H   |		Short_Literal	0x10
026d e5ff       |    |		Load	0x2,-0x1
026e 01cf       |    |		Execute	Vector,Slice_Read
026f e008       |    |		Load	0x0,0x8
0270 01c7       |    |		Execute	Vector,Convert
0271 0335       | 5  |		Declare_Variable	Array,Duplicate
0272 00cd       |    |		Action	Spare6_Action
0273 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0274 0000 0000  |    |		.BLANK	0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0290       |    |		.CONST	0x0290								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0003       |    |		.CONST	0x0003								; Number of locals
027b			INIT_0278:
027b e006       |    |		Load	0x0,0x6
027c 02ff       |    |		Declare_Variable	Variant_Record
027d 48c8       |H   |		Short_Literal	0xc8
027e e5ff       |    |		Load	0x2,-0x1
027f e004       |    |		Load	0x0,0x4
0280 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0281 e006       |    |		Load	0x0,0x6
0282 0162       | b  |		Execute	Variant_Record,Check_In_Type
0283 00d9       |    |		Load_Top	At_Offset_1
0284 016d       | m  |		Execute	Variant_Record,Structure_Write
0285 00db       |    |		Load_Top	At_Offset_3
0286 01dc       |    |		Execute	Vector,Last
0287 00d8       |    |		Load_Top	At_Offset_0
0288 00e3       |    |		Load_Encached	Natural_Cache
0289 0260       | `  |		Execute	Discrete,In_Type
028a 7001       |p   |		Jump_Nonzero	0x28c
028b 0801       |    |		Execute_Immediate	Raise,0x1
028c 4812       |H   |		Short_Literal	0x12
028d 00da       |    |		Load_Top	At_Offset_2
028e e004       |    |		Load	0x0,0x4
028f 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0290			BODY_0278:
0290 00d8       |    |		Load_Top	At_Offset_0
0291 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0292 0000 0000  |    |		.BLANK	0000[0x6]
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 0092 0460  |   `|		Action	Push_String_Extended,0x460					; "type    : "
029d 00db       |    |		Load_Top	At_Offset_3
029e e004       |    |		Load	0x0,0x4
029f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02a0 8212       |    |		Call	0x1,0x12
02a1 01cc       |    |		Execute	Vector,Catenate
02a2 e00c       |    |		Load	0x0,0xc
02a3 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02a4 0092 0461  |   a|		Action	Push_String_Extended,0x461					; "source  : "
02a6 00db       |    |		Load_Top	At_Offset_3
02a7 e004       |    |		Load	0x0,0x4
02a8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02a9 8213       |    |		Call	0x1,0x13
02aa 00e0       |    |		Load_Encached	Standard_Cache
02ab 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02ac 01cc       |    |		Execute	Vector,Catenate
02ad e00c       |    |		Load	0x0,0xc
02ae 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02af 0092 0462  |   b|		Action	Push_String_Extended,0x462					; "target  : "
02b1 00db       |    |		Load_Top	At_Offset_3
02b2 e004       |    |		Load	0x0,0x4
02b3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02b4 8214       |    |		Call	0x1,0x14
02b5 00e0       |    |		Load_Encached	Standard_Cache
02b6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02b7 01cc       |    |		Execute	Vector,Catenate
02b8 e00c       |    |		Load	0x0,0xc
02b9 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02ba 0092 0463  |   c|		Action	Push_String_Extended,0x463					; "order   : "
02bc 00db       |    |		Load_Top	At_Offset_3
02bd e004       |    |		Load	0x0,0x4
02be 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02bf 8215       |    |		Call	0x1,0x15
02c0 00e0       |    |		Load_Encached	Standard_Cache
02c1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02c2 01cc       |    |		Execute	Vector,Catenate
02c3 e00c       |    |		Load	0x0,0xc
02c4 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02c5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02c6 0000 0000  |    |		.XXX[0x2]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cd       |    |		.CONST	0x02cd								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0003       |    |		.CONST	0x0003								; Number of locals
02cb			INIT_02c8:
02cb 00e2       |    |		Load_Encached	Integer_Cache
02cc 00e1       |    |		Load_Encached	Boolean_Cache
02cd			BODY_02c8:
02cd 00e1       |    |		Load_Encached	Boolean_Cache
02ce 00e2       |    |		Load_Encached	Integer_Cache
02cf 480a       |H   |		Short_Literal	0xa
02d0 e5ff       |    |		Load	0x2,-0x1
02d1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02d2 e00d       |    |		Load	0x0,0xd
02d3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02d4 005b       | [  |		Store_Top	Discrete,At_Offset_3
02d5 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02d6 00d9       |    |		Load_Top	At_Offset_1
02d7 00d8       |    |		Load_Top	At_Offset_0
02d8 e00b       |    |		Load	0x0,0xb
02d9 0260       | `  |		Execute	Discrete,In_Type
02da 7001       |p   |		Jump_Nonzero	0x2dc
02db 0801       |    |		Execute_Immediate	Raise,0x1
02dc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02dd 0000 0000  |    |		.XXX[0x3]
02df 0000       |    |
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e5       |    |		.CONST	0x02e5								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0003       |    |		.CONST	0x0003								; Number of locals
02e3			INIT_02e0:
02e3 00e2       |    |		Load_Encached	Integer_Cache
02e4 00e1       |    |		Load_Encached	Boolean_Cache
02e5			BODY_02e0:
02e5 00e1       |    |		Load_Encached	Boolean_Cache
02e6 00e2       |    |		Load_Encached	Integer_Cache
02e7 480a       |H   |		Short_Literal	0xa
02e8 e5ff       |    |		Load	0x2,-0x1
02e9 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02ea e00d       |    |		Load	0x0,0xd
02eb 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02ec 005b       | [  |		Store_Top	Discrete,At_Offset_3
02ed 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02ee 00d8       |    |		Load_Top	At_Offset_0
02ef 7004       |p   |		Jump_Nonzero	0x2f4
02f0 0092 0464  |   d|		Action	Push_String_Extended,0x464					; " !  String_To_Number Error !"
02f2 e00c       |    |		Load	0x0,0xc
02f3 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02f4 00d9       |    |		Load_Top	At_Offset_1
02f5 00d8       |    |		Load_Top	At_Offset_0
02f6 00e3       |    |		Load_Encached	Natural_Cache
02f7 0260       | `  |		Execute	Discrete,In_Type
02f8 7001       |p   |		Jump_Nonzero	0x2fa
02f9 0801       |    |		Execute_Immediate	Raise,0x1
02fa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02fb 0000 0000  |    |		.BLANK	0000[0x5]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0305       |    |		.CONST	0x0305								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0003       |    |		.CONST	0x0003								; Number of locals
0303			INIT_0300:
0303 00e2       |    |		Load_Encached	Integer_Cache
0304 00e1       |    |		Load_Encached	Boolean_Cache
0305			BODY_0300:
0305 00e1       |    |		Load_Encached	Boolean_Cache
0306 00e2       |    |		Load_Encached	Integer_Cache
0307 480a       |H   |		Short_Literal	0xa
0308 e5ff       |    |		Load	0x2,-0x1
0309 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
030a e00d       |    |		Load	0x0,0xd
030b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
030c 005b       | [  |		Store_Top	Discrete,At_Offset_3
030d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
030e 00d8       |    |		Load_Top	At_Offset_0
030f 7004       |p   |		Jump_Nonzero	0x314
0310 0092 0464  |   d|		Action	Push_String_Extended,0x464					; " !  String_To_Number Error !"
0312 e00c       |    |		Load	0x0,0xc
0313 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0314 00d9       |    |		Load_Top	At_Offset_1
0315 00d8       |    |		Load_Top	At_Offset_0
0316 00e3       |    |		Load_Encached	Natural_Cache
0317 0260       | `  |		Execute	Discrete,In_Type
0318 7001       |p   |		Jump_Nonzero	0x31a
0319 0801       |    |		Execute_Immediate	Raise,0x1
031a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
031b 0000 0000  |    |		.BLANK	0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0325       | %  |		.CONST	0x0325								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0003       |    |		.CONST	0x0003								; Number of locals
0323			INIT_0320:
0323 00e2       |    |		Load_Encached	Integer_Cache
0324 00e1       |    |		Load_Encached	Boolean_Cache
0325			BODY_0320:
0325 00e1       |    |		Load_Encached	Boolean_Cache
0326 00e2       |    |		Load_Encached	Integer_Cache
0327 480a       |H   |		Short_Literal	0xa
0328 e5ff       |    |		Load	0x2,-0x1
0329 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
032a e00d       |    |		Load	0x0,0xd
032b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
032c 005b       | [  |		Store_Top	Discrete,At_Offset_3
032d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
032e 00d8       |    |		Load_Top	At_Offset_0
032f 7004       |p   |		Jump_Nonzero	0x334
0330 0092 0465  |   e|		Action	Push_String_Extended,0x465					; " ! String_To_Number Error !"
0332 e00c       |    |		Load	0x0,0xc
0333 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0334 00d9       |    |		Load_Top	At_Offset_1
0335 00d8       |    |		Load_Top	At_Offset_0
0336 00e3       |    |		Load_Encached	Natural_Cache
0337 0260       | `  |		Execute	Discrete,In_Type
0338 7001       |p   |		Jump_Nonzero	0x33a
0339 0801       |    |		Execute_Immediate	Raise,0x1
033a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
033b 0000 0000  |    |		.BLANK	0000[0x5]
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 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0345 0335       | 5  |		Declare_Variable	Array,Duplicate
0346 00cd       |    |		Action	Spare6_Action
0347 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
034d 0335       | 5  |		Declare_Variable	Array,Duplicate
034e 00cd       |    |		Action	Spare6_Action
034f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 00da       |    |		Load_Top	At_Offset_2
0354 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0355 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
0356 00cd       |    |		Action	Spare6_Action
0357 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 4820       |H   |		Short_Literal	0x20
035c 4802       |H   |		Short_Literal	0x2
035d 480a       |H   |		Short_Literal	0xa
035e e5ff       |    |		Load	0x2,-0x1
035f 00d8       |    |		Load_Top	At_Offset_0
0360 00e2       |    |		Load_Encached	Integer_Cache
0361 0260       | `  |		Execute	Discrete,In_Type
0362 7001       |p   |		Jump_Nonzero	0x364
0363 0801       |    |		Execute_Immediate	Raise,0x1
0364 e00d       |    |		Load	0x0,0xd
0365 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0366 e5fe       |    |		Load	0x2,-0x2
0367 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0368 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0369 0000 0000  |    |		.BLANK	0000[0x7]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373       | s  |		.CONST	0x0373								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0001       |    |		.CONST	0x0001								; Number of locals
0373			BODY_0370:
0373			INIT_0370:
0373 4820       |H   |		Short_Literal	0x20
0374 4803       |H   |		Short_Literal	0x3
0375 480a       |H   |		Short_Literal	0xa
0376 e5ff       |    |		Load	0x2,-0x1
0377 e00d       |    |		Load	0x0,0xd
0378 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0379 e5fe       |    |		Load	0x2,-0x2
037a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
037b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
037c 0000 0000  |    |		.BLANK	0000[0x4]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383       |    |		.CONST	0x0383								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0001       |    |		.CONST	0x0001								; Number of locals
0383			BODY_0380:
0383			INIT_0380:
0383 4820       |H   |		Short_Literal	0x20
0384 4803       |H   |		Short_Literal	0x3
0385 480a       |H   |		Short_Literal	0xa
0386 e5ff       |    |		Load	0x2,-0x1
0387 e00d       |    |		Load	0x0,0xd
0388 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0389 e5fe       |    |		Load	0x2,-0x2
038a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
038b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
038c 0000 0000  |    |		.BLANK	0000[0x4]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393       |    |		.CONST	0x0393								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0001       |    |		.CONST	0x0001								; Number of locals
0393			BODY_0390:
0393			INIT_0390:
0393 4820       |H   |		Short_Literal	0x20
0394 4803       |H   |		Short_Literal	0x3
0395 480a       |H   |		Short_Literal	0xa
0396 e5ff       |    |		Load	0x2,-0x1
0397 e00d       |    |		Load	0x0,0xd
0398 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0399 e5fe       |    |		Load	0x2,-0x2
039a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
039b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 00da       |    |		Load_Top	At_Offset_2
03a4 e5fe       |    |		Load	0x2,-0x2
03a5 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
03a6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03a7 0000       |    |		.XXX[0x1]
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 e5fe       |    |		Load	0x2,-0x2
03ad 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
03ae 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03af 0000       |    |		.XXX[0x1]
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 00db       |    |		Load_Top	At_Offset_3
03b4 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
03b5 e004       |    |		Load	0x0,0x4
03b6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03b7 0162       | b  |		Execute	Variant_Record,Check_In_Type
03b8 48c8       |H   |		Short_Literal	0xc8
03b9 e5ff       |    |		Load	0x2,-0x1
03ba e004       |    |		Load	0x0,0x4
03bb 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03bc e004       |    |		Load	0x0,0x4
03bd 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
03be 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03bf 0000       |    |		.XXX[0x1]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3       |    |		.CONST	0x03c3								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0001       |    |		.CONST	0x0001								; Number of locals
03c3			BODY_03c0:
03c3			INIT_03c0:
03c3 4601       |F   |		Jump_Case	0x2
03c4 7801       |x   |		Jump	0x3c6								; case 0x0
03c5 7891       |x   |		Jump	0x457								; case 0x1
03c6 e228       | (  |		Load	0x1,0x28
03c7 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
03c8 0337       | 7  |		Declare_Variable	Array
03c9 4820       |H   |		Short_Literal	0x20
03ca 4801       |H   |		Short_Literal	0x1
03cb 00da       |    |		Load_Top	At_Offset_2
03cc 01d6       |    |		Execute	Vector,Field_Write
03cd 4831       |H1  |		Short_Literal	0x31
03ce 4802       |H   |		Short_Literal	0x2
03cf 00da       |    |		Load_Top	At_Offset_2
03d0 01d6       |    |		Execute	Vector,Field_Write
03d1 00db       |    |		Load_Top	At_Offset_3
03d2 00d9       |    |		Load_Top	At_Offset_1
03d3 00d9       |    |		Load_Top	At_Offset_1
03d4 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
03d5 0119       |    |		Execute	Any,Check_In_Formal_Type
03d6 00d1       |    |		Pop_Control	Pop_Count_1
03d7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03d8 e228       | (  |		Load	0x1,0x28
03d9 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
03da 0337       | 7  |		Declare_Variable	Array
03db 4820       |H   |		Short_Literal	0x20
03dc 4801       |H   |		Short_Literal	0x1
03dd 00da       |    |		Load_Top	At_Offset_2
03de 01d6       |    |		Execute	Vector,Field_Write
03df 4820       |H   |		Short_Literal	0x20
03e0 4802       |H   |		Short_Literal	0x2
03e1 00da       |    |		Load_Top	At_Offset_2
03e2 01d6       |    |		Execute	Vector,Field_Write
03e3 4830       |H0  |		Short_Literal	0x30
03e4 4803       |H   |		Short_Literal	0x3
03e5 00da       |    |		Load_Top	At_Offset_2
03e6 01d6       |    |		Execute	Vector,Field_Write
03e7 00db       |    |		Load_Top	At_Offset_3
03e8 00d9       |    |		Load_Top	At_Offset_1
03e9 00d9       |    |		Load_Top	At_Offset_1
03ea 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
03eb 0119       |    |		Execute	Any,Check_In_Formal_Type
03ec 00d1       |    |		Pop_Control	Pop_Count_1
03ed 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03ee e228       | (  |		Load	0x1,0x28
03ef 3002       |0   |		Execute	Record,Field_Type,Field_Number 0x2
03f0 0337       | 7  |		Declare_Variable	Array
03f1 4839       |H9  |		Short_Literal	0x39
03f2 4801       |H   |		Short_Literal	0x1
03f3 00da       |    |		Load_Top	At_Offset_2
03f4 01d6       |    |		Execute	Vector,Field_Write
03f5 4839       |H9  |		Short_Literal	0x39
03f6 4802       |H   |		Short_Literal	0x2
03f7 00da       |    |		Load_Top	At_Offset_2
03f8 01d6       |    |		Execute	Vector,Field_Write
03f9 4839       |H9  |		Short_Literal	0x39
03fa 4803       |H   |		Short_Literal	0x3
03fb 00da       |    |		Load_Top	At_Offset_2
03fc 01d6       |    |		Execute	Vector,Field_Write
03fd 00db       |    |		Load_Top	At_Offset_3
03fe 00d9       |    |		Load_Top	At_Offset_1
03ff 00d9       |    |		Load_Top	At_Offset_1
0400 3002       |0   |		Execute	Record,Field_Type,Field_Number 0x2
0401 0119       |    |		Execute	Any,Check_In_Formal_Type
0402 00d1       |    |		Pop_Control	Pop_Count_1
0403 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0404 e228       | (  |		Load	0x1,0x28
0405 3003       |0   |		Execute	Record,Field_Type,Field_Number 0x3
0406 0337       | 7  |		Declare_Variable	Array
0407 4831       |H1  |		Short_Literal	0x31
0408 4801       |H   |		Short_Literal	0x1
0409 00da       |    |		Load_Top	At_Offset_2
040a 01d6       |    |		Execute	Vector,Field_Write
040b 4831       |H1  |		Short_Literal	0x31
040c 4802       |H   |		Short_Literal	0x2
040d 00da       |    |		Load_Top	At_Offset_2
040e 01d6       |    |		Execute	Vector,Field_Write
040f 4831       |H1  |		Short_Literal	0x31
0410 4803       |H   |		Short_Literal	0x3
0411 00da       |    |		Load_Top	At_Offset_2
0412 01d6       |    |		Execute	Vector,Field_Write
0413 00db       |    |		Load_Top	At_Offset_3
0414 00d9       |    |		Load_Top	At_Offset_1
0415 00d9       |    |		Load_Top	At_Offset_1
0416 3003       |0   |		Execute	Record,Field_Type,Field_Number 0x3
0417 0119       |    |		Execute	Any,Check_In_Formal_Type
0418 00d1       |    |		Pop_Control	Pop_Count_1
0419 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
041a e002       |    |		Load	0x0,0x2
041b 00db       |    |		Load_Top	At_Offset_3
041c 00d9       |    |		Load_Top	At_Offset_1
041d 00d9       |    |		Load_Top	At_Offset_1
041e 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
041f 0119       |    |		Execute	Any,Check_In_Formal_Type
0420 00d1       |    |		Pop_Control	Pop_Count_1
0421 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0422 e003       |    |		Load	0x0,0x3
0423 00db       |    |		Load_Top	At_Offset_3
0424 00d9       |    |		Load_Top	At_Offset_1
0425 00d9       |    |		Load_Top	At_Offset_1
0426 3005       |0   |		Execute	Record,Field_Type,Field_Number 0x5
0427 0119       |    |		Execute	Any,Check_In_Formal_Type
0428 00d1       |    |		Pop_Control	Pop_Count_1
0429 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
042a 00da       |    |		Load_Top	At_Offset_2
042b 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
042c 0125       | %  |		Execute	Any,Set_Constraint
042d 48b7       |H   |		Short_Literal	0xb7
042e 4801       |H   |		Short_Literal	0x1
042f 48b7       |H   |		Short_Literal	0xb7
0430 00e9       |    |		Load_Encached	String_Cache
0431 035b       | [  |		Declare_Type	Array,Constrained
0432 0337       | 7  |		Declare_Variable	Array
0433 48b7       |H   |		Short_Literal	0xb7
0434 4801       |H   |		Short_Literal	0x1
0435 482d       |H-  |		Short_Literal	0x2d
0436 00d9       |    |		Load_Top	At_Offset_1
0437 e403       |    |		Load	0x2,0x3
0438 01d6       |    |		Execute	Vector,Field_Write
0439 3ffb       |?   |		Loop_Increasing	0x435
043a e004       |    |		Load	0x0,0x4
043b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
043c e005       |    |		Load	0x0,0x5
043d 0162       | b  |		Execute	Variant_Record,Check_In_Type
043e 00db       |    |		Load_Top	At_Offset_3
043f 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0440 00da       |    |		Load_Top	At_Offset_2
0441 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0442 0125       | %  |		Execute	Any,Set_Constraint
0443 48c8       |H   |		Short_Literal	0xc8
0444 4801       |H   |		Short_Literal	0x1
0445 48c8       |H   |		Short_Literal	0xc8
0446 00e9       |    |		Load_Encached	String_Cache
0447 035b       | [  |		Declare_Type	Array,Constrained
0448 0337       | 7  |		Declare_Variable	Array
0449 48c8       |H   |		Short_Literal	0xc8
044a 4801       |H   |		Short_Literal	0x1
044b 482b       |H+  |		Short_Literal	0x2b
044c 00d9       |    |		Load_Top	At_Offset_1
044d e403       |    |		Load	0x2,0x3
044e 01d6       |    |		Execute	Vector,Field_Write
044f 3ffb       |?   |		Loop_Increasing	0x44b
0450 e004       |    |		Load	0x0,0x4
0451 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0452 e006       |    |		Load	0x0,0x6
0453 0162       | b  |		Execute	Variant_Record,Check_In_Type
0454 00db       |    |		Load_Top	At_Offset_3
0455 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0456 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0457 00da       |    |		Load_Top	At_Offset_2
0458 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0459 0125       | %  |		Execute	Any,Set_Constraint
045a 00da       |    |		Load_Top	At_Offset_2
045b 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
045c 0125       | %  |		Execute	Any,Set_Constraint
045d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
045e ; --------------------------------------------------------------------------------------
045e ; STRING TABLE
045e ; --------------------------------------------------------------------------------------
045e 0012       |    |		.STRTAB	0x0012->0x0467							; "123456"
045f 0016       |    |		.STRTAB	0x0016->0x046a							; "** Exception dans messages.packaging  **"
0460 003c       | <  |		.STRTAB	0x003c->0x047e							; "type    : "
0461 0044       | D  |		.STRTAB	0x0044->0x0483							; "source  : "
0462 004c       | L  |		.STRTAB	0x004c->0x0488							; "target  : "
0463 0054       | T  |		.STRTAB	0x0054->0x048d							; "order   : "
0464 005c       | \  |		.STRTAB	0x005c->0x0492							; " !  String_To_Number Error !"
0465 0076       | v  |		.STRTAB	0x0076->0x04a0							; " ! String_To_Number Error !"
0466 008f       |    |		.STREND 0x008f->0x04ad
0467 3132 3334  |1234|		.STRTAB_STRINGS
04ae 0000 0000  |    |		.XXX[0x2]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; Debug Table
04b0 ; --------------------------------------------------------------------------------------
04b0 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x3ea9,0x0000,0x0001,0x001e
04b6 000b 052e  |   .|		.DBG4T	0x000b,0x052e,0x8000,0x8000
04ba 005a 0568  | Z h|		.DBG4T	0x005a,0x0568,0x8000,0x8000
04be 00a3 05a2  |    |		.DBG4T	0x00a3,0x05a2,0x0002,0x0000
04c2 00fb 05a7  |    |		.DBG4T	0x00fb,0x05a7,0x0002,0x0000
04c6 0143 05b0  | C  |		.DBG4T	0x0143,0x05b0,0x0001,0x0000
04ca 0163 05b6  | c  |		.DBG4T	0x0163,0x05b6,0x0001,0x0000
04ce 01b3 05c2  |    |		.DBG4T	0x01b3,0x05c2,0x0002,0x0000
04d2 01e3 05cb  |    |		.DBG4T	0x01e3,0x05cb,0x0002,0x0000
04d6 01fb 05d1  |    |		.DBG4T	0x01fb,0x05d1,0x0002,0x0000
04da 021b 05d5  |    |		.DBG4T	0x021b,0x05d5,0x0002,0x0000
04de 023b 05d9  | ;  |		.DBG4T	0x023b,0x05d9,0x0002,0x0000
04e2 025b 05dd  | [  |		.DBG4T	0x025b,0x05dd,0x0002,0x0000
04e6 026b 05e0  | k  |		.DBG4T	0x026b,0x05e0,0x0002,0x0000
04ea 027b 05e3  | {  |		.DBG4T	0x027b,0x05e3,0x0002,0x0000
04ee 029b 05e8  |    |		.DBG4T	0x029b,0x05e8,0x0001,0x0000
04f2 02cb 05ee  |    |		.DBG4T	0x02cb,0x05ee,0x0002,0x0000
04f6 02e3 05f4  |    |		.DBG4T	0x02e3,0x05f4,0x0002,0x0000
04fa 0303 05fc  |    |		.DBG4T	0x0303,0x05fc,0x0002,0x0000
04fe 0323 0604  | #  |		.DBG4T	0x0323,0x0604,0x0002,0x0000
0502 0343 060c  | C  |		.DBG4T	0x0343,0x060c,0x0002,0x0000
0506 034b 060f  | K  |		.DBG4T	0x034b,0x060f,0x0002,0x0000
050a 0353 0612  | S  |		.DBG4T	0x0353,0x0612,0x0002,0x0000
050e 035b 0615  | [  |		.DBG4T	0x035b,0x0615,0x0001,0x0000
0512 0373 0618  | s  |		.DBG4T	0x0373,0x0618,0x0001,0x0000
0516 0383 061b  |    |		.DBG4T	0x0383,0x061b,0x0001,0x0000
051a 0393 061e  |    |		.DBG4T	0x0393,0x061e,0x0001,0x0000
051e 03a3 0621  |   !|		.DBG4T	0x03a3,0x0621,0x0001,0x0000
0522 03ab 0624  |   $|		.DBG4T	0x03ab,0x0624,0x0001,0x0000
0526 03b3 0627  |   '|		.DBG4T	0x03b3,0x0627,0x0001,0x0000
052a 03c3 0000  |    |		.DBG4T	0x03c3,0x0000,0x0005,0x0000
052e ; --------------------------------------------------------------------------------------
052e ; Debug chain
052e ; --------------------------------------------------------------------------------------
052e 001c 0000  |    |		.DBGLEN	0x001c,0x0000
0530 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041
054c 0003 0004  |    |		.XXX[0x1c]
054e 0005 0006  |    |
0550 0007 0008  |    |
0552 0009 000a  |    |
0554 000b 000c  |    |
0556 000d 000e  |    |
0558 000f 0010  |    |
055a 0011 0012  |    |
055c 0013 0014  |    |
055e 0015 0016  |    |
0560 0017 0018  |    |
0562 0019 001a  |    |
0564 001b 001c  |    |
0566 001d 001e  |    |
0568 ; --------------------------------------------------------------------------------------
0568 ; Debug chain
0568 ; --------------------------------------------------------------------------------------
0568 001c 0000  |    |		.DBGLEN	0x001c,0x0000
056a 005a 0062  | Z b|		.DBGLNO	0x005a,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096
0586 0001 0004  |    |		.XXX[0x1c]
0588 0005 0006  |    |
058a 0007 0008  |    |
058c 0009 000a  |    |
058e 000b 000c  |    |
0590 000d 000e  |    |
0592 000f 0010  |    |
0594 0011 0012  |    |
0596 0013 0014  |    |
0598 0015 0016  |    |
059a 0017 0018  |    |
059c 0019 001a  |    |
059e 001b 001c  |    |
05a0 001d 001e  |    |
05a2 ; --------------------------------------------------------------------------------------
05a2 ; Debug chain
05a2 ; --------------------------------------------------------------------------------------
05a2 0001 0002  |    |		.DBGLEN	0x0001,0x0002
05a4 00a3 00a7  |    |		.DBGLNO	0x00a3,0x00a7,0x00f5
05a7 ; --------------------------------------------------------------------------------------
05a7 ; Debug chain
05a7 ; --------------------------------------------------------------------------------------
05a7 0003 0004  |    |		.DBGLEN	0x0003,0x0004
05a9 00fb 0103  |    |		.DBGLNO	0x00fb,0x0103,0x0111,0x0115,0x011b,0x0130,0x0138
05b0 ; --------------------------------------------------------------------------------------
05b0 ; Debug chain
05b0 ; --------------------------------------------------------------------------------------
05b0 0001 0003  |    |		.DBGLEN	0x0001,0x0003
05b2 0143 0147  | C G|		.DBGLNO	0x0143,0x0147,0x014f,0x015a
05b6 ; --------------------------------------------------------------------------------------
05b6 ; Debug chain
05b6 ; --------------------------------------------------------------------------------------
05b6 0003 0007  |    |		.DBGLEN	0x0003,0x0007
05b8 0163 0166  | c f|		.DBGLNO	0x0163,0x0166,0x016a,0x0172,0x0180,0x0189,0x0192,0x019b,0x019f,0x01a3
05c2 ; --------------------------------------------------------------------------------------
05c2 ; Debug chain
05c2 ; --------------------------------------------------------------------------------------
05c2 0004 0003  |    |		.DBGLEN	0x0004,0x0003
05c4 01b3 01bd  |    |		.DBGLNO	0x01b3,0x01bd,0x01c2,0x01c3,0x01c4,0x01cb,0x01d3
05cb ; --------------------------------------------------------------------------------------
05cb ; Debug chain
05cb ; --------------------------------------------------------------------------------------
05cb 0003 0001  |    |		.DBGLEN	0x0003,0x0001
05cd 01e3 01ed  |    |		.DBGLNO	0x01e3,0x01ed,0x01ee,0x01f0
05d1 ; --------------------------------------------------------------------------------------
05d1 ; Debug chain
05d1 ; --------------------------------------------------------------------------------------
05d1 0001 0001  |    |		.DBGLEN	0x0001,0x0001
05d3 01fb 0205  |    |		.DBGLNO	0x01fb,0x0205
05d5 ; --------------------------------------------------------------------------------------
05d5 ; Debug chain
05d5 ; --------------------------------------------------------------------------------------
05d5 0001 0001  |    |		.DBGLEN	0x0001,0x0001
05d7 021b 0225  |   %|		.DBGLNO	0x021b,0x0225
05d9 ; --------------------------------------------------------------------------------------
05d9 ; Debug chain
05d9 ; --------------------------------------------------------------------------------------
05d9 0001 0001  |    |		.DBGLEN	0x0001,0x0001
05db 023b 0245  | ; E|		.DBGLNO	0x023b,0x0245
05dd ; --------------------------------------------------------------------------------------
05dd ; Debug chain
05dd ; --------------------------------------------------------------------------------------
05dd 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05df 025b       | [  |		.DBGLNO	0x025b
05e0 ; --------------------------------------------------------------------------------------
05e0 ; Debug chain
05e0 ; --------------------------------------------------------------------------------------
05e0 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05e2 026b       | k  |		.DBGLNO	0x026b
05e3 ; --------------------------------------------------------------------------------------
05e3 ; Debug chain
05e3 ; --------------------------------------------------------------------------------------
05e3 0002 0001  |    |		.DBGLEN	0x0002,0x0001
05e5 027b 0285  | {  |		.DBGLNO	0x027b,0x0285,0x0290
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug chain
05e8 ; --------------------------------------------------------------------------------------
05e8 0000 0004  |    |		.DBGLEN	0x0000,0x0004
05ea 029b 02a4  |    |		.DBGLNO	0x029b,0x02a4,0x02af,0x02ba
05ee ; --------------------------------------------------------------------------------------
05ee ; Debug chain
05ee ; --------------------------------------------------------------------------------------
05ee 0002 0002  |    |		.DBGLEN	0x0002,0x0002
05f0 02cb 02cc  |    |		.DBGLNO	0x02cb,0x02cc,0x02cd,0x02d6
05f4 ; --------------------------------------------------------------------------------------
05f4 ; Debug chain
05f4 ; --------------------------------------------------------------------------------------
05f4 0002 0004  |    |		.DBGLEN	0x0002,0x0004
05f6 02e3 02e4  |    |		.DBGLNO	0x02e3,0x02e4,0x02e5,0x02ee,0x02f0,0x02f4
05fc ; --------------------------------------------------------------------------------------
05fc ; Debug chain
05fc ; --------------------------------------------------------------------------------------
05fc 0002 0004  |    |		.DBGLEN	0x0002,0x0004
05fe 0303 0304  |    |		.DBGLNO	0x0303,0x0304,0x0305,0x030e,0x0310,0x0314
0604 ; --------------------------------------------------------------------------------------
0604 ; Debug chain
0604 ; --------------------------------------------------------------------------------------
0604 0002 0004  |    |		.DBGLEN	0x0002,0x0004
0606 0323 0324  | # $|		.DBGLNO	0x0323,0x0324,0x0325,0x032e,0x0330,0x0334
060c ; --------------------------------------------------------------------------------------
060c ; Debug chain
060c ; --------------------------------------------------------------------------------------
060c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
060e 0343       | C  |		.DBGLNO	0x0343
060f ; --------------------------------------------------------------------------------------
060f ; Debug chain
060f ; --------------------------------------------------------------------------------------
060f 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0611 034b       | K  |		.DBGLNO	0x034b
0612 ; --------------------------------------------------------------------------------------
0612 ; Debug chain
0612 ; --------------------------------------------------------------------------------------
0612 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0614 0353       | S  |		.DBGLNO	0x0353
0615 ; --------------------------------------------------------------------------------------
0615 ; Debug chain
0615 ; --------------------------------------------------------------------------------------
0615 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0617 035b       | [  |		.DBGLNO	0x035b
0618 ; --------------------------------------------------------------------------------------
0618 ; Debug chain
0618 ; --------------------------------------------------------------------------------------
0618 0000 0001  |    |		.DBGLEN	0x0000,0x0001
061a 0373       | s  |		.DBGLNO	0x0373
061b ; --------------------------------------------------------------------------------------
061b ; Debug chain
061b ; --------------------------------------------------------------------------------------
061b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
061d 0383       |    |		.DBGLNO	0x0383
061e ; --------------------------------------------------------------------------------------
061e ; Debug chain
061e ; --------------------------------------------------------------------------------------
061e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0620 0393       |    |		.DBGLNO	0x0393
0621 ; --------------------------------------------------------------------------------------
0621 ; Debug chain
0621 ; --------------------------------------------------------------------------------------
0621 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0623 03a3       |    |		.DBGLNO	0x03a3
0624 ; --------------------------------------------------------------------------------------
0624 ; Debug chain
0624 ; --------------------------------------------------------------------------------------
0624 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0626 03ab       |    |		.DBGLNO	0x03ab
0627 ; --------------------------------------------------------------------------------------
0627 ; Debug chain
0627 ; --------------------------------------------------------------------------------------
0627 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0629 03b3       |    |		.DBGLNO	0x03b3
062a 0000 0000  |    |		.BLANK	0000[0x1d6]