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

⟦2dc4b42a2⟧

    Length: 6144 (0x1800)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0314bd

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 07c8       |    |		.CONST	0x07c8								; 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 0005       |    |		.CONST	0x0005								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00f9       |    |		.CONST	0x00f9								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0038       | 8  |		.CONST	0x0038								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4805       |H   |		Short_Literal	0x5
000d 029f 0103  |    |		Declare_Subprogram	INIT_0100,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 00d8       |    |		Load_Top	At_Offset_0
0011 4805       |H   |		Short_Literal	0x5
0012 4800       |H   |		Short_Literal	0x0
0013 4801       |H   |		Short_Literal	0x1
0014 4809       |H   |		Short_Literal	0x9
0015 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
0016 029f 06c3  |    |		Declare_Subprogram	INIT_06c0,For_Call
0018 00d9       |    |		Load_Top	At_Offset_1
0019 012a       | *  |		Execute	Any,Change_Utility
001a 0007       |    |		Action	Break_Optional
001b 00d8       |    |		Load_Top	At_Offset_0
001c 02a0       |    |		Declare_Subprogram	Null_Subprogram
001d 4818       |H   |		Short_Literal	0x18
001e 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
001f e002       |    |		Load	0x0,0x2
0020 00d9       |    |		Load_Top	At_Offset_1
0021 029f 0693  |    |		Declare_Subprogram	INIT_0690,For_Call
0023 4802       |H   |		Short_Literal	0x2
0024 032e       | .  |		Declare_Type	Record,Defined,Visible
0025 0093 0000  |    |		push_full_address	0x0
0027 6104       |a   |		Indirect_Literal	Discrete,0x12c,{0x80000000, 0x00020000}
0028 0273       | s  |		Execute	Discrete,Plus
0029 e003       |    |		Load	0x0,0x3
002a 0273       | s  |		Execute	Discrete,Plus
002b e004       |    |		Load	0x0,0x4
002c 0273       | s  |		Execute	Discrete,Plus
002d 00d9       |    |		Load_Top	At_Offset_1
002e 00e0       |    |		Load_Encached	Standard_Cache
002f 1921       | !  |		Execute	Package,Field_Reference,Field_Number 0x21
0030 e005       |    |		Load	0x0,0x5
0031 0386       |    |		Declare_Variable	Package,Visible
0032 00d8       |    |		Load_Top	At_Offset_0
0033 020f       |    |		Execute	Module,Activate
0034 e002       |    |		Load	0x0,0x2
0035 e006       |    |		Load	0x0,0x6
0036 00da       |    |		Load_Top	At_Offset_2
0037 0098       |    |		Execute	Package,Field_Read_Dynamic
0038 029f 06ab  |    |		Declare_Subprogram	INIT_06a8,For_Call
003a 4802       |H   |		Short_Literal	0x2
003b 032e       | .  |		Declare_Type	Record,Defined,Visible
003c 0093 0000  |    |		push_full_address	0x0
003e 60e9       |`   |		Indirect_Literal	Discrete,0x128,{0x80000000, 0x00010000}
003f 0273       | s  |		Execute	Discrete,Plus
0040 e003       |    |		Load	0x0,0x3
0041 0273       | s  |		Execute	Discrete,Plus
0042 e007       |    |		Load	0x0,0x7
0043 0273       | s  |		Execute	Discrete,Plus
0044 00d9       |    |		Load_Top	At_Offset_1
0045 00e0       |    |		Load_Encached	Standard_Cache
0046 1921       | !  |		Execute	Package,Field_Reference,Field_Number 0x21
0047 e005       |    |		Load	0x0,0x5
0048 0386       |    |		Declare_Variable	Package,Visible
0049 00d8       |    |		Load_Top	At_Offset_0
004a 020f       |    |		Execute	Module,Activate
004b e002       |    |		Load	0x0,0x2
004c 4801       |H   |		Short_Literal	0x1
004d e002       |    |		Load	0x0,0x2
004e 4801       |H   |		Short_Literal	0x1
004f 00e3       |    |		Load_Encached	Natural_Cache
0050 4802       |H   |		Short_Literal	0x2
0051 e008       |    |		Load	0x0,0x8
0052 e213       |    |		Load	0x1,0x13
0053 0098       |    |		Execute	Package,Field_Read_Dynamic
0054 e006       |    |		Load	0x0,0x6
0055 e213       |    |		Load	0x1,0x13
0056 0098       |    |		Execute	Package,Field_Read_Dynamic
0057 4802       |H   |		Short_Literal	0x2
0058 e002       |    |		Load	0x0,0x2
0059 e009       |    |		Load	0x0,0x9
005a 4801       |H   |		Short_Literal	0x1
005b 00e1       |    |		Load_Encached	Boolean_Cache
005c 029f 06c3  |    |		Declare_Subprogram	INIT_06c0,For_Call
005e 4807       |H   |		Short_Literal	0x7
005f 4801       |H   |		Short_Literal	0x1
0060 e20e       |    |		Load	0x1,0xe
0061 0307       |    |		Complete_Type	Variant_Record,By_Defining
0062 e20f       |    |		Load	0x1,0xf
0063 03c4       |    |		Complete_Type	Access,By_Component_Completion
0064 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0066 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0068 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
006a 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
006c 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
006e 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
0070 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
0072 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
0074 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0076 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0078 029a 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call,Visible,Unelaborated
007a 029a 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Visible,Unelaborated
007c 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
007e 029a 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call,Visible,Unelaborated
0080 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
0082 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
0084 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
0086 029a 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Outer_Call,Visible,Unelaborated
0088 029a 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call,Visible,Unelaborated
008a 029a 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call,Visible,Unelaborated
008c 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
008e 029a 044b  |   K|		Declare_Subprogram	INIT_0448,For_Outer_Call,Visible,Unelaborated
0090 029a 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call,Visible,Unelaborated
0092 029a 047b  |   {|		Declare_Subprogram	INIT_0478,For_Outer_Call,Visible,Unelaborated
0094 029a 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call,Visible,Unelaborated
0096 029a 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call,Visible,Unelaborated
0098 029a 04c3  |    |		Declare_Subprogram	INIT_04c0,For_Outer_Call,Visible,Unelaborated
009a 029a 04db  |    |		Declare_Subprogram	INIT_04d8,For_Outer_Call,Visible,Unelaborated
009c 029a 04f3  |    |		Declare_Subprogram	INIT_04f0,For_Outer_Call,Visible,Unelaborated
009e 029a 050b  |    |		Declare_Subprogram	INIT_0508,For_Outer_Call,Visible,Unelaborated
00a0 029a 052b  |   +|		Declare_Subprogram	INIT_0528,For_Outer_Call,Visible,Unelaborated
00a2 029a 0543  |   C|		Declare_Subprogram	INIT_0540,For_Outer_Call,Visible,Unelaborated
00a4 029a 0563  |   c|		Declare_Subprogram	INIT_0560,For_Outer_Call,Visible,Unelaborated
00a6 029a 057b  |   {|		Declare_Subprogram	INIT_0578,For_Outer_Call,Visible,Unelaborated
00a8 029a 0593  |    |		Declare_Subprogram	INIT_0590,For_Outer_Call,Visible,Unelaborated
00aa 029a 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call,Visible,Unelaborated
00ac 029a 062b  |   +|		Declare_Subprogram	INIT_0628,For_Outer_Call,Visible,Unelaborated
00ae 00bf       |    |		Action	Accept_Activation
00af 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00b2 00c7       |    |		Action	Elaborate_Subprogram
00b3 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00b4 00c7       |    |		Action	Elaborate_Subprogram
00b5 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00b6 00c7       |    |		Action	Elaborate_Subprogram
00b7 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00b8 00c7       |    |		Action	Elaborate_Subprogram
00b9 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00ba 00c7       |    |		Action	Elaborate_Subprogram
00bb 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00bc 00c7       |    |		Action	Elaborate_Subprogram
00bd 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00be 00c7       |    |		Action	Elaborate_Subprogram
00bf 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00c0 00c7       |    |		Action	Elaborate_Subprogram
00c1 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00c2 00c7       |    |		Action	Elaborate_Subprogram
00c3 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00c4 00c7       |    |		Action	Elaborate_Subprogram
00c5 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00c6 00c7       |    |		Action	Elaborate_Subprogram
00c7 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00c8 00c7       |    |		Action	Elaborate_Subprogram
00c9 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00ca 00c7       |    |		Action	Elaborate_Subprogram
00cb 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00cc 00c7       |    |		Action	Elaborate_Subprogram
00cd 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00ce 00c7       |    |		Action	Elaborate_Subprogram
00cf 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00d0 00c7       |    |		Action	Elaborate_Subprogram
00d1 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00d2 00c7       |    |		Action	Elaborate_Subprogram
00d3 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00d4 00c7       |    |		Action	Elaborate_Subprogram
00d5 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00d6 00c7       |    |		Action	Elaborate_Subprogram
00d7 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00d8 00c7       |    |		Action	Elaborate_Subprogram
00d9 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00da 00c7       |    |		Action	Elaborate_Subprogram
00db 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00dc 00c7       |    |		Action	Elaborate_Subprogram
00dd 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00de 00c7       |    |		Action	Elaborate_Subprogram
00df 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00e0 00c7       |    |		Action	Elaborate_Subprogram
00e1 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
00e2 00c7       |    |		Action	Elaborate_Subprogram
00e3 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
00e4 00c7       |    |		Action	Elaborate_Subprogram
00e5 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
00e6 00c7       |    |		Action	Elaborate_Subprogram
00e7 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
00e8 00c7       |    |		Action	Elaborate_Subprogram
00e9 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
00ea 00c7       |    |		Action	Elaborate_Subprogram
00eb 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
00ec 00c7       |    |		Action	Elaborate_Subprogram
00ed 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
00ee 00c7       |    |		Action	Elaborate_Subprogram
00ef 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
00f0 00c7       |    |		Action	Elaborate_Subprogram
00f1 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
00f2 00c7       |    |		Action	Elaborate_Subprogram
00f3 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
00f4 00c7       |    |		Action	Elaborate_Subprogram
00f5 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
00f6 00c7       |    |		Action	Elaborate_Subprogram
00f7 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
00f8 00c7       |    |		Action	Elaborate_Subprogram
00f9			BODY_0008:
00f9 00bc       |    |		Action	Signal_Activated
00fa 00bb       |    |		Action	Signal_Completion
00fb 0000 0000  |    |		.BLANK	0000[0x5]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 4607       |F   |		Jump_Case	0x8
0104 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0105 7807       |x   |		Jump	0x10d								; case 0x1
0106 780a       |x   |		Jump	0x111								; case 0x2
0107 780e       |x   |		Jump	0x116								; case 0x3
0108 7811       |x   |		Jump	0x11a								; case 0x4
0109 7812       |x   |		Jump	0x11c								; case 0x5
010a 7813       |x   |		Jump	0x11e								; case 0x6
010b 7816       |x   |		Jump	0x122								; case 0x7
010c 4302       |C   |		.XXX[0x1]
010d 00da       |    |		Load_Top	At_Offset_2
010e 0091 075c  |   \|		Action	Push_String_Extended_Indexed,0x75c				; "CHAINE"
0110 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0111 00db       |    |		Load_Top	At_Offset_3
0112 00db       |    |		Load_Top	At_Offset_3
0113 00e0       |    |		Load_Encached	Standard_Cache
0114 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0115 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0116 00da       |    |		Load_Top	At_Offset_2
0117 00e0       |    |		Load_Encached	Standard_Cache
0118 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0119 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
011a 00db       |    |		Load_Top	At_Offset_3
011b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011c 00db       |    |		Load_Top	At_Offset_3
011d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011e e20d       |    |		Load	0x1,0xd
011f 00dc       |    |		Load_Top	At_Offset_4
0120 0267       | g  |		Execute	Discrete,Predecessor
0121 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0122 e20d       |    |		Load	0x1,0xd
0123 00dc       |    |		Load_Top	At_Offset_4
0124 0268       | h  |		Execute	Discrete,Successor
0125 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0126 0000 0000  |    |		.XXX[0x2]
0128 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
012c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0137       | 7  |		.CONST	0x0137								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0002       |    |		.CONST	0x0002								; Number of locals
0133			INIT_0130:
0133 e210       |    |		Load	0x1,0x10
0134 0322       | "  |		Declare_Variable	Record
0135 00d8       |    |		Load_Top	At_Offset_0
0136 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0137			BODY_0130:
0137 00d8       |    |		Load_Top	At_Offset_0
0138 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0139 800a       |    |		Call	0x0,0xa
013a 00d1       |    |		Pop_Control	Pop_Count_1
013b 4805       |H   |		Short_Literal	0x5
013c 48ff       |H   |		Short_Literal	0xff
013d e20f       |    |		Load	0x1,0xf
013e 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
013f 00d8       |    |		Load_Top	At_Offset_0
0140 0227       | '  |		Execute	Access,All_Reference
0141 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0142 00d9       |    |		Load_Top	At_Offset_1
0143 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0144 00d8       |    |		Load_Top	At_Offset_0
0145 00ca       |    |		Action	Exit_Nullary_Function
0146 0000 0000  |    |		.XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014f       | O  |		.CONST	0x014f								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0002       |    |		.CONST	0x0002								; Number of locals
014b			INIT_0148:
014b e212       |    |		Load	0x1,0x12
014c 0322       | "  |		Declare_Variable	Record
014d 00d8       |    |		Load_Top	At_Offset_0
014e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
014f			BODY_0148:
014f 00d8       |    |		Load_Top	At_Offset_0
0150 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0151 800a       |    |		Call	0x0,0xa
0152 00d1       |    |		Pop_Control	Pop_Count_1
0153 e00b       |    |		Load	0x0,0xb
0154 e211       |    |		Load	0x1,0x11
0155 0096       |    |		Execute	Package,Entry
0156 00d9       |    |		Load_Top	At_Offset_1
0157 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0158 00d8       |    |		Load_Top	At_Offset_0
0159 00ca       |    |		Action	Exit_Nullary_Function
015a 0000 0000  |    |		.BLANK	0000[0x6]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0169       | i  |		.CONST	0x0169								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0003       |    |		.CONST	0x0003								; Number of locals
0163			INIT_0160:
0163 00e1       |    |		Load_Encached	Boolean_Cache
0164 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0165 e210       |    |		Load	0x1,0x10
0166 0322       | "  |		Declare_Variable	Record
0167 00d8       |    |		Load_Top	At_Offset_0
0168 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0169			BODY_0160:
0169 e5fe       |    |		Load	0x2,-0x2
016a e00c       |    |		Load	0x0,0xc
016b e211       |    |		Load	0x1,0x11
016c 0096       |    |		Execute	Package,Entry
016d a5fd       |    |		Store_Unchecked	0x2,-0x3
016e 00cf       |    |		Action	Mark_Auxiliary
016f 7815       |x   |		Jump	0x185
0170 e5fd       |    |		Load	0x2,-0x3
0171 e00d       |    |		Load	0x0,0xd
0172 e211       |    |		Load	0x1,0x11
0173 0096       |    |		Execute	Package,Entry
0174 00da       |    |		Load_Top	At_Offset_2
0175 017d       | }  |		Execute	Record,Structure_Write
0176 00d9       |    |		Load_Top	At_Offset_1
0177 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0178 800e       |    |		Call	0x0,0xe
0179 e5ff       |    |		Load	0x2,-0x1
017a 01df       |    |		Execute	Vector,Equal
017b 6803       |h   |		Jump_Zero	0x17f
017c 4800       |H   |		Short_Literal	0x0
017d 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
017e 7805       |x   |		Jump	0x184
017f e5fd       |    |		Load	0x2,-0x3
0180 e00f       |    |		Load	0x0,0xf
0181 e211       |    |		Load	0x1,0x11
0182 0096       |    |		Execute	Package,Entry
0183 c5fd       |    |		Store	0x2,-0x3
0184 00c9       |    |		Action	Pop_Auxiliary_Loop
0185 e5fd       |    |		Load	0x2,-0x3
0186 e010       |    |		Load	0x0,0x10
0187 e211       |    |		Load	0x1,0x11
0188 0096       |    |		Execute	Package,Entry
0189 00db       |    |		Load_Top	At_Offset_3
018a 0279       | y  |		Execute	Discrete,And
018b 77e4       |w   |		Jump_Nonzero	0x170
018c 00ce       |    |		Action	Pop_Auxiliary
018d 00d9       |    |		Load_Top	At_Offset_1
018e 0f00       |    |		Execute_Immediate	Equal,0x0
018f a5fc       |    |		Store_Unchecked	0x2,-0x4
0190 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0191 0000 0000  |    |		.BLANK	0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a1       |    |		.CONST	0x01a1								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0003       |    |		.CONST	0x0003								; Number of locals
019b			INIT_0198:
019b 00e1       |    |		Load_Encached	Boolean_Cache
019c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
019d e212       |    |		Load	0x1,0x12
019e 0322       | "  |		Declare_Variable	Record
019f 00d8       |    |		Load_Top	At_Offset_0
01a0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a1			BODY_0198:
01a1 e5fe       |    |		Load	0x2,-0x2
01a2 e00c       |    |		Load	0x0,0xc
01a3 e213       |    |		Load	0x1,0x13
01a4 0096       |    |		Execute	Package,Entry
01a5 a5fd       |    |		Store_Unchecked	0x2,-0x3
01a6 00cf       |    |		Action	Mark_Auxiliary
01a7 7815       |x   |		Jump	0x1bd
01a8 e5fd       |    |		Load	0x2,-0x3
01a9 e00d       |    |		Load	0x0,0xd
01aa e213       |    |		Load	0x1,0x13
01ab 0096       |    |		Execute	Package,Entry
01ac 00da       |    |		Load_Top	At_Offset_2
01ad 017d       | }  |		Execute	Record,Structure_Write
01ae 00d9       |    |		Load_Top	At_Offset_1
01af 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01b0 800e       |    |		Call	0x0,0xe
01b1 e5ff       |    |		Load	0x2,-0x1
01b2 01df       |    |		Execute	Vector,Equal
01b3 6803       |h   |		Jump_Zero	0x1b7
01b4 4800       |H   |		Short_Literal	0x0
01b5 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
01b6 7805       |x   |		Jump	0x1bc
01b7 e5fd       |    |		Load	0x2,-0x3
01b8 e00f       |    |		Load	0x0,0xf
01b9 e213       |    |		Load	0x1,0x13
01ba 0096       |    |		Execute	Package,Entry
01bb c5fd       |    |		Store	0x2,-0x3
01bc 00c9       |    |		Action	Pop_Auxiliary_Loop
01bd e5fd       |    |		Load	0x2,-0x3
01be e010       |    |		Load	0x0,0x10
01bf e213       |    |		Load	0x1,0x13
01c0 0096       |    |		Execute	Package,Entry
01c1 00db       |    |		Load_Top	At_Offset_3
01c2 0279       | y  |		Execute	Discrete,And
01c3 77e4       |w   |		Jump_Nonzero	0x1a8
01c4 00ce       |    |		Action	Pop_Auxiliary
01c5 00d9       |    |		Load_Top	At_Offset_1
01c6 0f00       |    |		Execute_Immediate	Equal,0x0
01c7 a5fc       |    |		Store_Unchecked	0x2,-0x4
01c8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01c9 0000 0000  |    |		.BLANK	0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 4800       |H   |		Short_Literal	0x0
01d4 a5fd       |    |		Store_Unchecked	0x2,-0x3
01d5 e5fd       |    |		Load	0x2,-0x3
01d6 e5fe       |    |		Load	0x2,-0x2
01d7 e011       |    |		Load	0x0,0x11
01d8 e5ff       |    |		Load	0x2,-0x1
01d9 8012       |    |		Call	0x0,0x12
01da 8217       |    |		Call	0x1,0x17
01db c5fe       |    |		Store	0x2,-0x2
01dc c5fd       |    |		Store	0x2,-0x3
01dd e5fd       |    |		Load	0x2,-0x3
01de 701c       |p   |		Jump_Nonzero	0x1fb
01df e5fd       |    |		Load	0x2,-0x3
01e0 e5fe       |    |		Load	0x2,-0x2
01e1 e013       |    |		Load	0x0,0x13
01e2 e5ff       |    |		Load	0x2,-0x1
01e3 8012       |    |		Call	0x0,0x12
01e4 8217       |    |		Call	0x1,0x17
01e5 c5fe       |    |		Store	0x2,-0x2
01e6 c5fd       |    |		Store	0x2,-0x3
01e7 e5fd       |    |		Load	0x2,-0x3
01e8 7012       |p   |		Jump_Nonzero	0x1fb
01e9 e5fd       |    |		Load	0x2,-0x3
01ea e5fe       |    |		Load	0x2,-0x2
01eb e014       |    |		Load	0x0,0x14
01ec e5ff       |    |		Load	0x2,-0x1
01ed 8012       |    |		Call	0x0,0x12
01ee 8217       |    |		Call	0x1,0x17
01ef c5fe       |    |		Store	0x2,-0x2
01f0 c5fd       |    |		Store	0x2,-0x3
01f1 e5fd       |    |		Load	0x2,-0x3
01f2 7008       |p   |		Jump_Nonzero	0x1fb
01f3 e5fd       |    |		Load	0x2,-0x3
01f4 e5fe       |    |		Load	0x2,-0x2
01f5 e015       |    |		Load	0x0,0x15
01f6 e5ff       |    |		Load	0x2,-0x1
01f7 8012       |    |		Call	0x0,0x12
01f8 8217       |    |		Call	0x1,0x17
01f9 c5fe       |    |		Store	0x2,-0x2
01fa c5fd       |    |		Store	0x2,-0x3
01fb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01fc 0000 0000  |    |		.BLANK	0000[0x4]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 020b       |    |		.CONST	0x020b								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0003       |    |		.CONST	0x0003								; Number of locals
0203			INIT_0200:
0203 e008       |    |		Load	0x0,0x8
0204 e213       |    |		Load	0x1,0x13
0205 0098       |    |		Execute	Package,Field_Read_Dynamic
0206 0007       |    |		Action	Break_Optional
0207 e212       |    |		Load	0x1,0x12
0208 0322       | "  |		Declare_Variable	Record
0209 00d8       |    |		Load_Top	At_Offset_0
020a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
020b			BODY_0200:
020b e5ff       |    |		Load	0x2,-0x1
020c e00c       |    |		Load	0x0,0xc
020d e213       |    |		Load	0x1,0x13
020e 0096       |    |		Execute	Package,Entry
020f 003a       | :  |		Store_Top	Access,At_Offset_2
0210 00cf       |    |		Action	Mark_Auxiliary
0211 781c       |x   |		Jump	0x22e
0212 00d9       |    |		Load_Top	At_Offset_1
0213 00db       |    |		Load_Top	At_Offset_3
0214 e016       |    |		Load	0x0,0x16
0215 e213       |    |		Load	0x1,0x13
0216 0096       |    |		Execute	Package,Entry
0217 c402       |    |		Store	0x2,0x2
0218 00d1       |    |		Pop_Control	Pop_Count_1
0219 0092 0762  |   b|		Action	Push_String_Extended,0x762					; "------------------------------------"
021b e017       |    |		Load	0x0,0x17
021c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
021d 0092 0763  |   c|		Action	Push_String_Extended,0x763					; " Nom : "
021f e017       |    |		Load	0x0,0x17
0220 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0221 00d9       |    |		Load_Top	At_Offset_1
0222 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0223 800e       |    |		Call	0x0,0xe
0224 e017       |    |		Load	0x0,0x17
0225 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0226 0092 0762  |   b|		Action	Push_String_Extended,0x762					; "------------------------------------"
0228 e017       |    |		Load	0x0,0x17
0229 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
022a 00d9       |    |		Load_Top	At_Offset_1
022b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
022c 821a       |    |		Call	0x1,0x1a
022d 00c9       |    |		Action	Pop_Auxiliary_Loop
022e 00da       |    |		Load_Top	At_Offset_2
022f e010       |    |		Load	0x0,0x10
0230 e213       |    |		Load	0x1,0x13
0231 0096       |    |		Execute	Package,Entry
0232 77df       |w   |		Jump_Nonzero	0x212
0233 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0234 0000 0000  |    |		.BLANK	0000[0x4]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0243       | C  |		.CONST	0x0243								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0003       |    |		.CONST	0x0003								; Number of locals
023b			INIT_0238:
023b e008       |    |		Load	0x0,0x8
023c e211       |    |		Load	0x1,0x11
023d 0098       |    |		Execute	Package,Field_Read_Dynamic
023e 0007       |    |		Action	Break_Optional
023f e210       |    |		Load	0x1,0x10
0240 0322       | "  |		Declare_Variable	Record
0241 00d8       |    |		Load_Top	At_Offset_0
0242 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0243			BODY_0238:
0243 e5ff       |    |		Load	0x2,-0x1
0244 e00c       |    |		Load	0x0,0xc
0245 e211       |    |		Load	0x1,0x11
0246 0096       |    |		Execute	Package,Entry
0247 003a       | :  |		Store_Top	Access,At_Offset_2
0248 00cf       |    |		Action	Mark_Auxiliary
0249 781d       |x   |		Jump	0x267
024a 00d9       |    |		Load_Top	At_Offset_1
024b 00db       |    |		Load_Top	At_Offset_3
024c e016       |    |		Load	0x0,0x16
024d e211       |    |		Load	0x1,0x11
024e 0096       |    |		Execute	Package,Entry
024f c402       |    |		Store	0x2,0x2
0250 00d1       |    |		Pop_Control	Pop_Count_1
0251 0092 0763  |   c|		Action	Push_String_Extended,0x763					; " Nom : "
0253 e017       |    |		Load	0x0,0x17
0254 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0255 00d9       |    |		Load_Top	At_Offset_1
0256 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0257 800e       |    |		Call	0x0,0xe
0258 e017       |    |		Load	0x0,0x17
0259 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
025a 0092 0764  |   d|		Action	Push_String_Extended,0x764					; " Donnee : "
025c e017       |    |		Load	0x0,0x17
025d 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
025e 00d9       |    |		Load_Top	At_Offset_1
025f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0260 0227       | '  |		Execute	Access,All_Reference
0261 8236       | 6  |		Call	0x1,0x36
0262 0092 0765  |   e|		Action	Push_String_Extended,0x765					; "- - - - - - - - - - - - - - - - - -"
0264 e017       |    |		Load	0x0,0x17
0265 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0266 00c9       |    |		Action	Pop_Auxiliary_Loop
0267 00da       |    |		Load_Top	At_Offset_2
0268 e010       |    |		Load	0x0,0x10
0269 e211       |    |		Load	0x1,0x11
026a 0096       |    |		Execute	Package,Entry
026b 77de       |w   |		Jump_Nonzero	0x24a
026c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
026d 0000 0000  |    |		.XXX[0x3]
026f 0000       |    |
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 027f       |    |		.CONST	0x027f								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0004       |    |		.CONST	0x0004								; Number of locals
0273			INIT_0270:
0273 e006       |    |		Load	0x0,0x6
0274 e213       |    |		Load	0x1,0x13
0275 0098       |    |		Execute	Package,Field_Read_Dynamic
0276 0007       |    |		Action	Break_Optional
0277 e008       |    |		Load	0x0,0x8
0278 e213       |    |		Load	0x1,0x13
0279 0098       |    |		Execute	Package,Field_Read_Dynamic
027a 0007       |    |		Action	Break_Optional
027b e212       |    |		Load	0x1,0x12
027c 0322       | "  |		Declare_Variable	Record
027d 00d8       |    |		Load_Top	At_Offset_0
027e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
027f			BODY_0270:
027f e5ff       |    |		Load	0x2,-0x1
0280 e00c       |    |		Load	0x0,0xc
0281 e213       |    |		Load	0x1,0x13
0282 0096       |    |		Execute	Package,Entry
0283 003a       | :  |		Store_Top	Access,At_Offset_2
0284 00cf       |    |		Action	Mark_Auxiliary
0285 780e       |x   |		Jump	0x294
0286 00d9       |    |		Load_Top	At_Offset_1
0287 00db       |    |		Load_Top	At_Offset_3
0288 e016       |    |		Load	0x0,0x16
0289 e213       |    |		Load	0x1,0x13
028a 0096       |    |		Execute	Package,Entry
028b c403       |    |		Store	0x2,0x3
028c 00d1       |    |		Pop_Control	Pop_Count_1
028d 00db       |    |		Load_Top	At_Offset_3
028e 00da       |    |		Load_Top	At_Offset_2
028f e018       |    |		Load	0x0,0x18
0290 e213       |    |		Load	0x1,0x13
0291 0096       |    |		Execute	Package,Entry
0292 c402       |    |		Store	0x2,0x2
0293 00c9       |    |		Action	Pop_Auxiliary_Loop
0294 00da       |    |		Load_Top	At_Offset_2
0295 e010       |    |		Load	0x0,0x10
0296 e213       |    |		Load	0x1,0x13
0297 0096       |    |		Execute	Package,Entry
0298 77ed       |w   |		Jump_Nonzero	0x286
0299 00ce       |    |		Action	Pop_Auxiliary
029a 00da       |    |		Load_Top	At_Offset_2
029b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
029c 0000 0000  |    |		.BLANK	0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02af       |    |		.CONST	0x02af								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0004       |    |		.CONST	0x0004								; Number of locals
02a3			INIT_02a0:
02a3 e006       |    |		Load	0x0,0x6
02a4 e211       |    |		Load	0x1,0x11
02a5 0098       |    |		Execute	Package,Field_Read_Dynamic
02a6 0007       |    |		Action	Break_Optional
02a7 e008       |    |		Load	0x0,0x8
02a8 e211       |    |		Load	0x1,0x11
02a9 0098       |    |		Execute	Package,Field_Read_Dynamic
02aa 0007       |    |		Action	Break_Optional
02ab e210       |    |		Load	0x1,0x10
02ac 0322       | "  |		Declare_Variable	Record
02ad 00d8       |    |		Load_Top	At_Offset_0
02ae 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02af			BODY_02a0:
02af e5ff       |    |		Load	0x2,-0x1
02b0 e00c       |    |		Load	0x0,0xc
02b1 e211       |    |		Load	0x1,0x11
02b2 0096       |    |		Execute	Package,Entry
02b3 003a       | :  |		Store_Top	Access,At_Offset_2
02b4 00cf       |    |		Action	Mark_Auxiliary
02b5 780e       |x   |		Jump	0x2c4
02b6 00d9       |    |		Load_Top	At_Offset_1
02b7 00db       |    |		Load_Top	At_Offset_3
02b8 e016       |    |		Load	0x0,0x16
02b9 e211       |    |		Load	0x1,0x11
02ba 0096       |    |		Execute	Package,Entry
02bb c403       |    |		Store	0x2,0x3
02bc 00d1       |    |		Pop_Control	Pop_Count_1
02bd 00db       |    |		Load_Top	At_Offset_3
02be 00da       |    |		Load_Top	At_Offset_2
02bf e018       |    |		Load	0x0,0x18
02c0 e211       |    |		Load	0x1,0x11
02c1 0096       |    |		Execute	Package,Entry
02c2 c402       |    |		Store	0x2,0x2
02c3 00c9       |    |		Action	Pop_Auxiliary_Loop
02c4 00da       |    |		Load_Top	At_Offset_2
02c5 e010       |    |		Load	0x0,0x10
02c6 e211       |    |		Load	0x1,0x11
02c7 0096       |    |		Execute	Package,Entry
02c8 77ed       |w   |		Jump_Nonzero	0x2b6
02c9 00ce       |    |		Action	Pop_Auxiliary
02ca 00da       |    |		Load_Top	At_Offset_2
02cb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02cc 0000 0000  |    |		.BLANK	0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d9       |    |		.CONST	0x02d9								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0003       |    |		.CONST	0x0003								; Number of locals
02d3			INIT_02d0:
02d3 e002       |    |		Load	0x0,0x2
02d4 02ff       |    |		Declare_Variable	Variant_Record
02d5 00d8       |    |		Load_Top	At_Offset_0
02d6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d7 e019       |    |		Load	0x0,0x19
02d8 0007       |    |		Action	Break_Optional
02d9			BODY_02d0:
02d9 e5ff       |    |		Load	0x2,-0x1
02da 801a       |    |		Call	0x0,0x1a
02db 701b       |p   |		Jump_Nonzero	0x2f7
02dc e5ff       |    |		Load	0x2,-0x1
02dd 801b       |    |		Call	0x0,0x1b
02de 0039       | 9  |		Store_Top	Access,At_Offset_1
02df 00cf       |    |		Action	Mark_Auxiliary
02e0 780e       |x   |		Jump	0x2ef
02e1 00da       |    |		Load_Top	At_Offset_2
02e2 00da       |    |		Load_Top	At_Offset_2
02e3 801c       |    |		Call	0x0,0x1c
02e4 003b       | ;  |		Store_Top	Access,At_Offset_3
02e5 00d1       |    |		Pop_Control	Pop_Count_1
02e6 00da       |    |		Load_Top	At_Offset_2
02e7 800e       |    |		Call	0x0,0xe
02e8 e017       |    |		Load	0x0,0x17
02e9 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
02ea 0092 0766  |   f|		Action	Push_String_Extended,0x766					; " "
02ec e017       |    |		Load	0x0,0x17
02ed 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
02ee 00c9       |    |		Action	Pop_Auxiliary_Loop
02ef 00d9       |    |		Load_Top	At_Offset_1
02f0 801d       |    |		Call	0x0,0x1d
02f1 77ef       |w   |		Jump_Nonzero	0x2e1
02f2 00ce       |    |		Action	Pop_Auxiliary
02f3 4801       |H   |		Short_Literal	0x1
02f4 e017       |    |		Load	0x0,0x17
02f5 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
02f6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02f7 0092 0767  |   g|		Action	Push_String_Extended,0x767					; "Liste Vide"
02f9 e017       |    |		Load	0x0,0x17
02fa 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02fb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02fc 0000 0000  |    |		.BLANK	0000[0x4]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 030b       |    |		.CONST	0x030b								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0003       |    |		.CONST	0x0003								; Number of locals
0303			INIT_0300:
0303 e210       |    |		Load	0x1,0x10
0304 0322       | "  |		Declare_Variable	Record
0305 00d8       |    |		Load_Top	At_Offset_0
0306 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0307 e002       |    |		Load	0x0,0x2
0308 02ff       |    |		Declare_Variable	Variant_Record
0309 00d8       |    |		Load_Top	At_Offset_0
030a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
030b			BODY_0300:
030b 00d8       |    |		Load_Top	At_Offset_0
030c 0092 0768  |   h|		Action	Push_String_Extended,0x768					; "ERROR"
030e 801e       |    |		Call	0x0,0x1e
030f 00d1       |    |		Pop_Control	Pop_Count_1
0310 e5ff       |    |		Load	0x2,-0x1
0311 e00d       |    |		Load	0x0,0xd
0312 e211       |    |		Load	0x1,0x11
0313 0096       |    |		Execute	Package,Entry
0314 00da       |    |		Load_Top	At_Offset_2
0315 017d       | }  |		Execute	Record,Structure_Write
0316 00d9       |    |		Load_Top	At_Offset_1
0317 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0318 0227       | '  |		Execute	Access,All_Reference
0319 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
031a 4605       |F   |		Jump_Case	0x6
031b 7807       |x   |		Jump	0x323								; case 0x0
031c 7804       |x   |		Jump	0x321								; case 0x1
031d 7813       |x   |		Jump	0x331								; case 0x2
031e 780b       |x   |		Jump	0x32a								; case 0x3
031f 7801       |x   |		Jump	0x321								; case 0x4
0320 7800       |x   |		Jump	0x321								; case 0x5
0321 00d8       |    |		Load_Top	At_Offset_0
0322 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0323 00d9       |    |		Load_Top	At_Offset_1
0324 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0325 0227       | '  |		Execute	Access,All_Reference
0326 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0327 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
0328 00cd       |    |		Action	Spare6_Action
0329 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
032a 00d9       |    |		Load_Top	At_Offset_1
032b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
032c 0227       | '  |		Execute	Access,All_Reference
032d 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
032e 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
032f 00cd       |    |		Action	Spare6_Action
0330 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0331 00d9       |    |		Load_Top	At_Offset_1
0332 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0333 0227       | '  |		Execute	Access,All_Reference
0334 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0335 e00d       |    |		Load	0x0,0xd
0336 e213       |    |		Load	0x1,0x13
0337 0096       |    |		Execute	Package,Entry
0338 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0339 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
033a 0000 0000  |    |		.BLANK	0000[0x6]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0347       | G  |		.CONST	0x0347								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0002       |    |		.CONST	0x0002								; Number of locals
0343			INIT_0340:
0343 e210       |    |		Load	0x1,0x10
0344 0322       | "  |		Declare_Variable	Record
0345 00d8       |    |		Load_Top	At_Offset_0
0346 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0347			BODY_0340:
0347 00db       |    |		Load_Top	At_Offset_3
0348 e00d       |    |		Load	0x0,0xd
0349 e211       |    |		Load	0x1,0x11
034a 0096       |    |		Execute	Package,Entry
034b 00d9       |    |		Load_Top	At_Offset_1
034c 017d       | }  |		Execute	Record,Structure_Write
034d 00d8       |    |		Load_Top	At_Offset_0
034e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
034f 0227       | '  |		Execute	Access,All_Reference
0350 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0351 0f01       |    |		Execute_Immediate	Equal,0x1
0352 6805       |h   |		Jump_Zero	0x358
0353 00d8       |    |		Load_Top	At_Offset_0
0354 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0355 0227       | '  |		Execute	Access,All_Reference
0356 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0357 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0358 0831       | 1  |		Execute_Immediate	Raise,0x31
0359 0000 0000  |    |		.BLANK	0000[0x7]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0367       | g  |		.CONST	0x0367								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0002       |    |		.CONST	0x0002								; Number of locals
0363			INIT_0360:
0363 e210       |    |		Load	0x1,0x10
0364 0322       | "  |		Declare_Variable	Record
0365 00d8       |    |		Load_Top	At_Offset_0
0366 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0367			BODY_0360:
0367 00db       |    |		Load_Top	At_Offset_3
0368 e00d       |    |		Load	0x0,0xd
0369 e211       |    |		Load	0x1,0x11
036a 0096       |    |		Execute	Package,Entry
036b 00d9       |    |		Load_Top	At_Offset_1
036c 017d       | }  |		Execute	Record,Structure_Write
036d 00d8       |    |		Load_Top	At_Offset_0
036e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
036f 0227       | '  |		Execute	Access,All_Reference
0370 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0371 0f02       |    |		Execute_Immediate	Equal,0x2
0372 6805       |h   |		Jump_Zero	0x378
0373 00d8       |    |		Load_Top	At_Offset_0
0374 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0375 0227       | '  |		Execute	Access,All_Reference
0376 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0377 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0378 0831       | 1  |		Execute_Immediate	Raise,0x31
0379 0000 0000  |    |		.BLANK	0000[0x7]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0387       |    |		.CONST	0x0387								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0002       |    |		.CONST	0x0002								; Number of locals
0383			INIT_0380:
0383 e210       |    |		Load	0x1,0x10
0384 0322       | "  |		Declare_Variable	Record
0385 00d8       |    |		Load_Top	At_Offset_0
0386 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0387			BODY_0380:
0387 00db       |    |		Load_Top	At_Offset_3
0388 e00d       |    |		Load	0x0,0xd
0389 e211       |    |		Load	0x1,0x11
038a 0096       |    |		Execute	Package,Entry
038b 00d9       |    |		Load_Top	At_Offset_1
038c 017d       | }  |		Execute	Record,Structure_Write
038d 00d8       |    |		Load_Top	At_Offset_0
038e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
038f 0227       | '  |		Execute	Access,All_Reference
0390 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0391 0f04       |    |		Execute_Immediate	Equal,0x4
0392 6805       |h   |		Jump_Zero	0x398
0393 00d8       |    |		Load_Top	At_Offset_0
0394 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0395 0227       | '  |		Execute	Access,All_Reference
0396 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0397 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0398 0831       | 1  |		Execute_Immediate	Raise,0x31
0399 0000 0000  |    |		.BLANK	0000[0x7]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a7       |    |		.CONST	0x03a7								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0002       |    |		.CONST	0x0002								; Number of locals
03a3			INIT_03a0:
03a3 e212       |    |		Load	0x1,0x12
03a4 0322       | "  |		Declare_Variable	Record
03a5 00d8       |    |		Load_Top	At_Offset_0
03a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03a7			BODY_03a0:
03a7 00db       |    |		Load_Top	At_Offset_3
03a8 e00d       |    |		Load	0x0,0xd
03a9 e213       |    |		Load	0x1,0x13
03aa 0096       |    |		Execute	Package,Entry
03ab 00d9       |    |		Load_Top	At_Offset_1
03ac 017d       | }  |		Execute	Record,Structure_Write
03ad 00d8       |    |		Load_Top	At_Offset_0
03ae 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03af 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b7       |    |		.CONST	0x03b7								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0002       |    |		.CONST	0x0002								; Number of locals
03b3			INIT_03b0:
03b3 e212       |    |		Load	0x1,0x12
03b4 0322       | "  |		Declare_Variable	Record
03b5 00d8       |    |		Load_Top	At_Offset_0
03b6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03b7			BODY_03b0:
03b7 00db       |    |		Load_Top	At_Offset_3
03b8 e00d       |    |		Load	0x0,0xd
03b9 e213       |    |		Load	0x1,0x13
03ba 0096       |    |		Execute	Package,Entry
03bb 00d9       |    |		Load_Top	At_Offset_1
03bc 017d       | }  |		Execute	Record,Structure_Write
03bd 00d8       |    |		Load_Top	At_Offset_0
03be 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c7       |    |		.CONST	0x03c7								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0002       |    |		.CONST	0x0002								; Number of locals
03c3			INIT_03c0:
03c3 e210       |    |		Load	0x1,0x10
03c4 0322       | "  |		Declare_Variable	Record
03c5 00d8       |    |		Load_Top	At_Offset_0
03c6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03c7			BODY_03c0:
03c7 00db       |    |		Load_Top	At_Offset_3
03c8 e00d       |    |		Load	0x0,0xd
03c9 e211       |    |		Load	0x1,0x11
03ca 0096       |    |		Execute	Package,Entry
03cb 00d9       |    |		Load_Top	At_Offset_1
03cc 017d       | }  |		Execute	Record,Structure_Write
03cd 00d8       |    |		Load_Top	At_Offset_0
03ce 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03cf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3       |    |		.CONST	0x03d3								; Address of begin
03d1 0004       |    |		.CONST	0x0004								; Address of exception handler
03d2 0001       |    |		.CONST	0x0001								; Number of locals
03d3			BODY_03d0:
03d3			INIT_03d0:
03d3 00db       |    |		Load_Top	At_Offset_3
03d4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03d5 0227       | '  |		Execute	Access,All_Reference
03d6 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03d7 700b       |p   |		Jump_Nonzero	0x3e3
03d8 00db       |    |		Load_Top	At_Offset_3
03d9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03da 00db       |    |		Load_Top	At_Offset_3
03db e5fe       |    |		Load	0x2,-0x2
03dc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03dd 0227       | '  |		Execute	Access,All_Reference
03de 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
03df 822b       | +  |		Call	0x1,0x2b
03e0 8238       | 8  |		Call	0x1,0x38
03e1 e5fe       |    |		Load	0x2,-0x2
03e2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03e3 00db       |    |		Load_Top	At_Offset_3
03e4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03e5 0227       | '  |		Execute	Access,All_Reference
03e6 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03e7 0f03       |    |		Execute_Immediate	Equal,0x3
03e8 680f       |h   |		Jump_Zero	0x3f8
03e9 00db       |    |		Load_Top	At_Offset_3
03ea 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03eb e5fe       |    |		Load	0x2,-0x2
03ec 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03ed 0227       | '  |		Execute	Access,All_Reference
03ee 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
03ef e5ff       |    |		Load	0x2,-0x1
03f0 e5fe       |    |		Load	0x2,-0x2
03f1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03f2 0227       | '  |		Execute	Access,All_Reference
03f3 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
03f4 8233       | 3  |		Call	0x1,0x33
03f5 8238       | 8  |		Call	0x1,0x38
03f6 e5fe       |    |		Load	0x2,-0x2
03f7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03f8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03f9 0000 0000  |    |		.BLANK	0000[0x7]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403       |    |		.CONST	0x0403								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0001       |    |		.CONST	0x0001								; Number of locals
0403			BODY_0400:
0403			INIT_0400:
0403 00db       |    |		Load_Top	At_Offset_3
0404 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0405 0227       | '  |		Execute	Access,All_Reference
0406 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0407 0f01       |    |		Execute_Immediate	Equal,0x1
0408 680b       |h   |		Jump_Zero	0x414
0409 00db       |    |		Load_Top	At_Offset_3
040a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
040b 00db       |    |		Load_Top	At_Offset_3
040c e5fe       |    |		Load	0x2,-0x2
040d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
040e 0227       | '  |		Execute	Access,All_Reference
040f 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0410 822e       | .  |		Call	0x1,0x2e
0411 8238       | 8  |		Call	0x1,0x38
0412 e5fe       |    |		Load	0x2,-0x2
0413 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0414 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0415 0000 0000  |    |		.XXX[0x3]
0417 0000       |    |
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 00db       |    |		Load_Top	At_Offset_3
041c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
041d 0227       | '  |		Execute	Access,All_Reference
041e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
041f 0f02       |    |		Execute_Immediate	Equal,0x2
0420 680c       |h   |		Jump_Zero	0x42d
0421 00db       |    |		Load_Top	At_Offset_3
0422 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0423 e014       |    |		Load	0x0,0x14
0424 e5ff       |    |		Load	0x2,-0x1
0425 e5fe       |    |		Load	0x2,-0x2
0426 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0427 0227       | '  |		Execute	Access,All_Reference
0428 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0429 8230       | 0  |		Call	0x1,0x30
042a 8238       | 8  |		Call	0x1,0x38
042b e5fe       |    |		Load	0x2,-0x2
042c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
042d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
042e 0000 0000  |    |		.XXX[0x2]
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 00db       |    |		Load_Top	At_Offset_3
0434 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0435 0227       | '  |		Execute	Access,All_Reference
0436 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0437 0f04       |    |		Execute_Immediate	Equal,0x4
0438 680b       |h   |		Jump_Zero	0x444
0439 00db       |    |		Load_Top	At_Offset_3
043a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
043b 00db       |    |		Load_Top	At_Offset_3
043c e5fe       |    |		Load	0x2,-0x2
043d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
043e 0227       | '  |		Execute	Access,All_Reference
043f 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0440 8235       | 5  |		Call	0x1,0x35
0441 8238       | 8  |		Call	0x1,0x38
0442 e5fe       |    |		Load	0x2,-0x2
0443 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0444 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0445 0000 0000  |    |		.XXX[0x3]
0447 0000       |    |
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 0450       | P  |		.CONST	0x0450								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0002       |    |		.CONST	0x0002								; Number of locals
044b			INIT_0448:
044b 4800       |H   |		Short_Literal	0x0
044c e20e       |    |		Load	0x1,0xe
044d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
044e 00d8       |    |		Load_Top	At_Offset_0
044f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0450			BODY_0448:
0450 00d8       |    |		Load_Top	At_Offset_0
0451 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0452 e5ff       |    |		Load	0x2,-0x1
0453 8012       |    |		Call	0x0,0x12
0454 801e       |    |		Call	0x0,0x1e
0455 00d1       |    |		Pop_Control	Pop_Count_1
0456 00d8       |    |		Load_Top	At_Offset_0
0457 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0458 e5fe       |    |		Load	0x2,-0x2
0459 801e       |    |		Call	0x0,0x1e
045a 00d1       |    |		Pop_Control	Pop_Count_1
045b 00d8       |    |		Load_Top	At_Offset_0
045c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
045d 0000 0000  |    |		.XXX[0x3]
045f 0000       |    |
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0468       | h  |		.CONST	0x0468								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0002       |    |		.CONST	0x0002								; Number of locals
0463			INIT_0460:
0463 4800       |H   |		Short_Literal	0x0
0464 e20e       |    |		Load	0x1,0xe
0465 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0466 00d8       |    |		Load_Top	At_Offset_0
0467 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0468			BODY_0460:
0468 00d8       |    |		Load_Top	At_Offset_0
0469 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
046a e5ff       |    |		Load	0x2,-0x1
046b 801f       |    |		Call	0x0,0x1f
046c 00d1       |    |		Pop_Control	Pop_Count_1
046d 00d8       |    |		Load_Top	At_Offset_0
046e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
046f e5fe       |    |		Load	0x2,-0x2
0470 801e       |    |		Call	0x0,0x1e
0471 00d1       |    |		Pop_Control	Pop_Count_1
0472 00d8       |    |		Load_Top	At_Offset_0
0473 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0474 0000 0000  |    |		.BLANK	0000[0x4]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 0480       |    |		.CONST	0x0480								; Address of begin
0479 0004       |    |		.CONST	0x0004								; Address of exception handler
047a 0002       |    |		.CONST	0x0002								; Number of locals
047b			INIT_0478:
047b 4800       |H   |		Short_Literal	0x0
047c e20e       |    |		Load	0x1,0xe
047d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
047e 00d8       |    |		Load_Top	At_Offset_0
047f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0480			BODY_0478:
0480 00d8       |    |		Load_Top	At_Offset_0
0481 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0482 e5ff       |    |		Load	0x2,-0x1
0483 801f       |    |		Call	0x0,0x1f
0484 00d1       |    |		Pop_Control	Pop_Count_1
0485 00d8       |    |		Load_Top	At_Offset_0
0486 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0487 e5fe       |    |		Load	0x2,-0x2
0488 801f       |    |		Call	0x0,0x1f
0489 00d1       |    |		Pop_Control	Pop_Count_1
048a 00d8       |    |		Load_Top	At_Offset_0
048b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
048c 0000 0000  |    |		.BLANK	0000[0x4]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0498       |    |		.CONST	0x0498								; Address of begin
0491 0004       |    |		.CONST	0x0004								; Address of exception handler
0492 0002       |    |		.CONST	0x0002								; Number of locals
0493			INIT_0490:
0493 4801       |H   |		Short_Literal	0x1
0494 e20e       |    |		Load	0x1,0xe
0495 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0496 00d8       |    |		Load_Top	At_Offset_0
0497 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0498			BODY_0490:
0498 00d8       |    |		Load_Top	At_Offset_0
0499 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
049a e5ff       |    |		Load	0x2,-0x1
049b 8012       |    |		Call	0x0,0x12
049c 801e       |    |		Call	0x0,0x1e
049d 00d1       |    |		Pop_Control	Pop_Count_1
049e e5fe       |    |		Load	0x2,-0x2
049f 00e2       |    |		Load_Encached	Integer_Cache
04a0 00e0       |    |		Load_Encached	Standard_Cache
04a1 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
04a2 00d9       |    |		Load_Top	At_Offset_1
04a3 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
04a4 00d8       |    |		Load_Top	At_Offset_0
04a5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04a6 0000 0000  |    |		.XXX[0x2]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04b0       |    |		.CONST	0x04b0								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0002       |    |		.CONST	0x0002								; Number of locals
04ab			INIT_04a8:
04ab 4801       |H   |		Short_Literal	0x1
04ac e20e       |    |		Load	0x1,0xe
04ad 1c08       |    |		Execute_Immediate	Run_Utility,0x8
04ae 00d8       |    |		Load_Top	At_Offset_0
04af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04b0			BODY_04a8:
04b0 00d8       |    |		Load_Top	At_Offset_0
04b1 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04b2 e5ff       |    |		Load	0x2,-0x1
04b3 801f       |    |		Call	0x0,0x1f
04b4 00d1       |    |		Pop_Control	Pop_Count_1
04b5 e5fe       |    |		Load	0x2,-0x2
04b6 00e2       |    |		Load_Encached	Integer_Cache
04b7 00e0       |    |		Load_Encached	Standard_Cache
04b8 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
04b9 00d9       |    |		Load_Top	At_Offset_1
04ba 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
04bb 00d8       |    |		Load_Top	At_Offset_0
04bc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04bd 0000 0000  |    |		.XXX[0x3]
04bf 0000       |    |
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c8       |    |		.CONST	0x04c8								; Address of begin
04c1 0004       |    |		.CONST	0x0004								; Address of exception handler
04c2 0002       |    |		.CONST	0x0002								; Number of locals
04c3			INIT_04c0:
04c3 4801       |H   |		Short_Literal	0x1
04c4 e20e       |    |		Load	0x1,0xe
04c5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
04c6 00d8       |    |		Load_Top	At_Offset_0
04c7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04c8			BODY_04c0:
04c8 00d8       |    |		Load_Top	At_Offset_0
04c9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04ca e5ff       |    |		Load	0x2,-0x1
04cb 801f       |    |		Call	0x0,0x1f
04cc 00d1       |    |		Pop_Control	Pop_Count_1
04cd e5fe       |    |		Load	0x2,-0x2
04ce 00d9       |    |		Load_Top	At_Offset_1
04cf 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
04d0 00d8       |    |		Load_Top	At_Offset_0
04d1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04d2 0000 0000  |    |		.BLANK	0000[0x6]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04e0       |    |		.CONST	0x04e0								; Address of begin
04d9 0004       |    |		.CONST	0x0004								; Address of exception handler
04da 0002       |    |		.CONST	0x0002								; Number of locals
04db			INIT_04d8:
04db 4802       |H   |		Short_Literal	0x2
04dc e20e       |    |		Load	0x1,0xe
04dd 1c08       |    |		Execute_Immediate	Run_Utility,0x8
04de 00d8       |    |		Load_Top	At_Offset_0
04df 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04e0			BODY_04d8:
04e0 00d8       |    |		Load_Top	At_Offset_0
04e1 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04e2 e5ff       |    |		Load	0x2,-0x1
04e3 8012       |    |		Call	0x0,0x12
04e4 801e       |    |		Call	0x0,0x1e
04e5 00d1       |    |		Pop_Control	Pop_Count_1
04e6 e5fe       |    |		Load	0x2,-0x2
04e7 00d9       |    |		Load_Top	At_Offset_1
04e8 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
04e9 e5fd       |    |		Load	0x2,-0x3
04ea 00d9       |    |		Load_Top	At_Offset_1
04eb 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
04ec 00d8       |    |		Load_Top	At_Offset_0
04ed 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
04ee 0000 0000  |    |		.XXX[0x2]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f8       |    |		.CONST	0x04f8								; Address of begin
04f1 0004       |    |		.CONST	0x0004								; Address of exception handler
04f2 0002       |    |		.CONST	0x0002								; Number of locals
04f3			INIT_04f0:
04f3 4802       |H   |		Short_Literal	0x2
04f4 e20e       |    |		Load	0x1,0xe
04f5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
04f6 00d8       |    |		Load_Top	At_Offset_0
04f7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04f8			BODY_04f0:
04f8 00d8       |    |		Load_Top	At_Offset_0
04f9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04fa e5ff       |    |		Load	0x2,-0x1
04fb 801f       |    |		Call	0x0,0x1f
04fc 00d1       |    |		Pop_Control	Pop_Count_1
04fd e5fe       |    |		Load	0x2,-0x2
04fe 00d9       |    |		Load_Top	At_Offset_1
04ff 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0500 e5fd       |    |		Load	0x2,-0x3
0501 00d9       |    |		Load_Top	At_Offset_1
0502 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0503 00d8       |    |		Load_Top	At_Offset_0
0504 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0505 0000 0000  |    |		.XXX[0x3]
0507 0000       |    |
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 0510       |    |		.CONST	0x0510								; Address of begin
0509 0004       |    |		.CONST	0x0004								; Address of exception handler
050a 0002       |    |		.CONST	0x0002								; Number of locals
050b			INIT_0508:
050b 4803       |H   |		Short_Literal	0x3
050c e20e       |    |		Load	0x1,0xe
050d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
050e 00d8       |    |		Load_Top	At_Offset_0
050f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0510			BODY_0508:
0510 00d8       |    |		Load_Top	At_Offset_0
0511 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0512 e5ff       |    |		Load	0x2,-0x1
0513 8012       |    |		Call	0x0,0x12
0514 801e       |    |		Call	0x0,0x1e
0515 00d1       |    |		Pop_Control	Pop_Count_1
0516 00d8       |    |		Load_Top	At_Offset_0
0517 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0518 e5fe       |    |		Load	0x2,-0x2
0519 8012       |    |		Call	0x0,0x12
051a 801e       |    |		Call	0x0,0x1e
051b 00d1       |    |		Pop_Control	Pop_Count_1
051c e5fd       |    |		Load	0x2,-0x3
051d 00d9       |    |		Load_Top	At_Offset_1
051e 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
051f 00d8       |    |		Load_Top	At_Offset_0
0520 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0521 0000 0000  |    |		.BLANK	0000[0x7]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 0530       | 0  |		.CONST	0x0530								; Address of begin
0529 0004       |    |		.CONST	0x0004								; Address of exception handler
052a 0002       |    |		.CONST	0x0002								; Number of locals
052b			INIT_0528:
052b 4803       |H   |		Short_Literal	0x3
052c e20e       |    |		Load	0x1,0xe
052d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
052e 00d8       |    |		Load_Top	At_Offset_0
052f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0530			BODY_0528:
0530 00d8       |    |		Load_Top	At_Offset_0
0531 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0532 e5ff       |    |		Load	0x2,-0x1
0533 801f       |    |		Call	0x0,0x1f
0534 00d1       |    |		Pop_Control	Pop_Count_1
0535 00d8       |    |		Load_Top	At_Offset_0
0536 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0537 e5fe       |    |		Load	0x2,-0x2
0538 8012       |    |		Call	0x0,0x12
0539 801e       |    |		Call	0x0,0x1e
053a 00d1       |    |		Pop_Control	Pop_Count_1
053b e5fd       |    |		Load	0x2,-0x3
053c 00d9       |    |		Load_Top	At_Offset_1
053d 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
053e 00d8       |    |		Load_Top	At_Offset_0
053f 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0548       | H  |		.CONST	0x0548								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0002       |    |		.CONST	0x0002								; Number of locals
0543			INIT_0540:
0543 4803       |H   |		Short_Literal	0x3
0544 e20e       |    |		Load	0x1,0xe
0545 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0546 00d8       |    |		Load_Top	At_Offset_0
0547 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0548			BODY_0540:
0548 00d8       |    |		Load_Top	At_Offset_0
0549 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
054a e5ff       |    |		Load	0x2,-0x1
054b 801f       |    |		Call	0x0,0x1f
054c 00d1       |    |		Pop_Control	Pop_Count_1
054d 00d8       |    |		Load_Top	At_Offset_0
054e 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
054f e5fe       |    |		Load	0x2,-0x2
0550 800e       |    |		Call	0x0,0xe
0551 8012       |    |		Call	0x0,0x12
0552 801e       |    |		Call	0x0,0x1e
0553 00d1       |    |		Pop_Control	Pop_Count_1
0554 e5fd       |    |		Load	0x2,-0x3
0555 00d9       |    |		Load_Top	At_Offset_1
0556 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0557 00d8       |    |		Load_Top	At_Offset_0
0558 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0559 0000 0000  |    |		.BLANK	0000[0x7]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0568       | h  |		.CONST	0x0568								; Address of begin
0561 0004       |    |		.CONST	0x0004								; Address of exception handler
0562 0002       |    |		.CONST	0x0002								; Number of locals
0563			INIT_0560:
0563 4804       |H   |		Short_Literal	0x4
0564 e20e       |    |		Load	0x1,0xe
0565 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0566 00d8       |    |		Load_Top	At_Offset_0
0567 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0568			BODY_0560:
0568 00d8       |    |		Load_Top	At_Offset_0
0569 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
056a e5ff       |    |		Load	0x2,-0x1
056b 8012       |    |		Call	0x0,0x12
056c 801e       |    |		Call	0x0,0x1e
056d 00d1       |    |		Pop_Control	Pop_Count_1
056e e5fe       |    |		Load	0x2,-0x2
056f 00d9       |    |		Load_Top	At_Offset_1
0570 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0571 00d8       |    |		Load_Top	At_Offset_0
0572 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0573 0000 0000  |    |		.BLANK	0000[0x5]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 0580       |    |		.CONST	0x0580								; Address of begin
0579 0004       |    |		.CONST	0x0004								; Address of exception handler
057a 0002       |    |		.CONST	0x0002								; Number of locals
057b			INIT_0578:
057b 4804       |H   |		Short_Literal	0x4
057c e20e       |    |		Load	0x1,0xe
057d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
057e 00d8       |    |		Load_Top	At_Offset_0
057f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0580			BODY_0578:
0580 00d8       |    |		Load_Top	At_Offset_0
0581 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0582 e5ff       |    |		Load	0x2,-0x1
0583 801f       |    |		Call	0x0,0x1f
0584 00d1       |    |		Pop_Control	Pop_Count_1
0585 e5fe       |    |		Load	0x2,-0x2
0586 00d9       |    |		Load_Top	At_Offset_1
0587 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0588 00d8       |    |		Load_Top	At_Offset_0
0589 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
058a 0000 0000  |    |		.BLANK	0000[0x6]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593       |    |		.CONST	0x0593								; Address of begin
0591 0004       |    |		.CONST	0x0004								; Address of exception handler
0592 0001       |    |		.CONST	0x0001								; Number of locals
0593			BODY_0590:
0593			INIT_0590:
0593 0092 0769  |   i|		Action	Push_String_Extended,0x769					; "  Nom : "
0595 e017       |    |		Load	0x0,0x17
0596 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0597 00da       |    |		Load_Top	At_Offset_2
0598 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0599 800e       |    |		Call	0x0,0xe
059a e017       |    |		Load	0x0,0x17
059b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
059c 0092 076a  |   j|		Action	Push_String_Extended,0x76a					; "  Type : "
059e 00db       |    |		Load_Top	At_Offset_3
059f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05a0 e20d       |    |		Load	0x1,0xd
05a1 011c       |    |		Execute	Any,Convert_Unchecked
05a2 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05a3 01cc       |    |		Execute	Vector,Catenate
05a4 e017       |    |		Load	0x0,0x17
05a5 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
05a6 0092 076b  |   k|		Action	Push_String_Extended,0x76b					; "  Val : "
05a8 e017       |    |		Load	0x0,0x17
05a9 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
05aa 00da       |    |		Load_Top	At_Offset_2
05ab 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05ac 4605       |F   |		Jump_Case	0x6
05ad 780a       |x   |		Jump	0x5b8								; case 0x0
05ae 780f       |x   |		Jump	0x5be								; case 0x1
05af 7815       |x   |		Jump	0x5c5								; case 0x2
05b0 781e       |x   |		Jump	0x5cf								; case 0x3
05b1 782a       |x*  |		Jump	0x5dc								; case 0x4
05b2 7800       |x   |		Jump	0x5b3								; case 0x5
05b3 0092 076c  |   l|		Action	Push_String_Extended,0x76c					; "/"
05b5 e017       |    |		Load	0x0,0x17
05b6 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
05b7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05b8 00da       |    |		Load_Top	At_Offset_2
05b9 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
05ba 800e       |    |		Call	0x0,0xe
05bb e017       |    |		Load	0x0,0x17
05bc 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
05bd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05be 00da       |    |		Load_Top	At_Offset_2
05bf 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
05c0 00e0       |    |		Load_Encached	Standard_Cache
05c1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05c2 e017       |    |		Load	0x0,0x17
05c3 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
05c4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05c5 00da       |    |		Load_Top	At_Offset_2
05c6 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
05c7 e00d       |    |		Load	0x0,0xd
05c8 e213       |    |		Load	0x1,0x13
05c9 0096       |    |		Execute	Package,Entry
05ca 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05cb 800e       |    |		Call	0x0,0xe
05cc e017       |    |		Load	0x0,0x17
05cd 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
05ce 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05cf 00da       |    |		Load_Top	At_Offset_2
05d0 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
05d1 800e       |    |		Call	0x0,0xe
05d2 e017       |    |		Load	0x0,0x17
05d3 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
05d4 0092 076d  |   m|		Action	Push_String_Extended,0x76d					; "   Parmis : "
05d6 e017       |    |		Load	0x0,0x17
05d7 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
05d8 00da       |    |		Load_Top	At_Offset_2
05d9 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
05da 821d       |    |		Call	0x1,0x1d
05db 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05dc 00da       |    |		Load_Top	At_Offset_2
05dd 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
05de 00e1       |    |		Load_Encached	Boolean_Cache
05df 011c       |    |		Execute	Any,Convert_Unchecked
05e0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05e1 e017       |    |		Load	0x0,0x17
05e2 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
05e3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05e4 0000 0000  |    |		.BLANK	0000[0x4]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb       |    |		.CONST	0x05eb								; Address of begin
05e9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ea 0001       |    |		.CONST	0x0001								; Number of locals
05eb			BODY_05e8:
05eb			INIT_05e8:
05eb 00da       |    |		Load_Top	At_Offset_2
05ec 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05ed 4605       |F   |		Jump_Case	0x6
05ee 7806       |x   |		Jump	0x5f5								; case 0x0
05ef 780d       |x   |		Jump	0x5fd								; case 0x1
05f0 7814       |x   |		Jump	0x605								; case 0x2
05f1 781d       |x   |		Jump	0x60f								; case 0x3
05f2 7826       |x&  |		Jump	0x619								; case 0x4
05f3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x5
05f4 4502       |E   |		.XXX[0x1]
05f5 00da       |    |		Load_Top	At_Offset_2
05f6 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
05f7 00db       |    |		Load_Top	At_Offset_3
05f8 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
05f9 822b       | +  |		Call	0x1,0x2b
05fa e5fe       |    |		Load	0x2,-0x2
05fb 016d       | m  |		Execute	Variant_Record,Structure_Write
05fc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05fd 00da       |    |		Load_Top	At_Offset_2
05fe 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
05ff 00db       |    |		Load_Top	At_Offset_3
0600 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0601 822e       | .  |		Call	0x1,0x2e
0602 e5fe       |    |		Load	0x2,-0x2
0603 016d       | m  |		Execute	Variant_Record,Structure_Write
0604 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0605 00da       |    |		Load_Top	At_Offset_2
0606 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0607 00db       |    |		Load_Top	At_Offset_3
0608 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0609 e5ff       |    |		Load	0x2,-0x1
060a 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
060b 8230       | 0  |		Call	0x1,0x30
060c e5fe       |    |		Load	0x2,-0x2
060d 016d       | m  |		Execute	Variant_Record,Structure_Write
060e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
060f 00da       |    |		Load_Top	At_Offset_2
0610 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0611 00db       |    |		Load_Top	At_Offset_3
0612 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0613 e5ff       |    |		Load	0x2,-0x1
0614 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0615 8233       | 3  |		Call	0x1,0x33
0616 e5fe       |    |		Load	0x2,-0x2
0617 016d       | m  |		Execute	Variant_Record,Structure_Write
0618 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0619 00da       |    |		Load_Top	At_Offset_2
061a 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
061b 00db       |    |		Load_Top	At_Offset_3
061c 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
061d 8235       | 5  |		Call	0x1,0x35
061e e5fe       |    |		Load	0x2,-0x2
061f 016d       | m  |		Execute	Variant_Record,Structure_Write
0620 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0621 0000 0000  |    |		.BLANK	0000[0x7]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 0630       | 0  |		.CONST	0x0630								; Address of begin
0629 0004       |    |		.CONST	0x0004								; Address of exception handler
062a 0002       |    |		.CONST	0x0002								; Number of locals
062b			INIT_0628:
062b 4805       |H   |		Short_Literal	0x5
062c e20e       |    |		Load	0x1,0xe
062d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
062e 00d8       |    |		Load_Top	At_Offset_0
062f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0630			BODY_0628:
0630 00db       |    |		Load_Top	At_Offset_3
0631 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0632 4605       |F   |		Jump_Case	0x6
0633 7808       |x   |		Jump	0x63c								; case 0x0
0634 7817       |x   |		Jump	0x64c								; case 0x1
0635 7826       |x&  |		Jump	0x65c								; case 0x2
0636 7837       |x7  |		Jump	0x66e								; case 0x3
0637 7848       |xH  |		Jump	0x680								; case 0x4
0638 7800       |x   |		Jump	0x639								; case 0x5
0639 e20f       |    |		Load	0x1,0xf
063a a5fe       |    |		Store_Unchecked	0x2,-0x2
063b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
063c 4800       |H   |		Short_Literal	0x0
063d 4801       |H   |		Short_Literal	0x1
063e e20f       |    |		Load	0x1,0xf
063f 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0640 00d8       |    |		Load_Top	At_Offset_0
0641 0227       | '  |		Execute	Access,All_Reference
0642 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0643 a5fe       |    |		Store_Unchecked	0x2,-0x2
0644 00db       |    |		Load_Top	At_Offset_3
0645 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0646 e5ff       |    |		Load	0x2,-0x1
0647 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0648 822b       | +  |		Call	0x1,0x2b
0649 e5fe       |    |		Load	0x2,-0x2
064a 0228       | (  |		Execute	Access,All_Write
064b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
064c 4801       |H   |		Short_Literal	0x1
064d 4802       |H   |		Short_Literal	0x2
064e e20f       |    |		Load	0x1,0xf
064f 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0650 00d8       |    |		Load_Top	At_Offset_0
0651 0227       | '  |		Execute	Access,All_Reference
0652 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0653 a5fe       |    |		Store_Unchecked	0x2,-0x2
0654 00db       |    |		Load_Top	At_Offset_3
0655 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0656 e5ff       |    |		Load	0x2,-0x1
0657 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0658 822e       | .  |		Call	0x1,0x2e
0659 e5fe       |    |		Load	0x2,-0x2
065a 0228       | (  |		Execute	Access,All_Write
065b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
065c 4802       |H   |		Short_Literal	0x2
065d 4803       |H   |		Short_Literal	0x3
065e e20f       |    |		Load	0x1,0xf
065f 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0660 00d8       |    |		Load_Top	At_Offset_0
0661 0227       | '  |		Execute	Access,All_Reference
0662 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0663 a5fe       |    |		Store_Unchecked	0x2,-0x2
0664 00db       |    |		Load_Top	At_Offset_3
0665 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0666 e5ff       |    |		Load	0x2,-0x1
0667 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0668 e5ff       |    |		Load	0x2,-0x1
0669 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
066a 8230       | 0  |		Call	0x1,0x30
066b e5fe       |    |		Load	0x2,-0x2
066c 0228       | (  |		Execute	Access,All_Write
066d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
066e 4803       |H   |		Short_Literal	0x3
066f 4804       |H   |		Short_Literal	0x4
0670 e20f       |    |		Load	0x1,0xf
0671 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0672 00d8       |    |		Load_Top	At_Offset_0
0673 0227       | '  |		Execute	Access,All_Reference
0674 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0675 a5fe       |    |		Store_Unchecked	0x2,-0x2
0676 00db       |    |		Load_Top	At_Offset_3
0677 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0678 e5ff       |    |		Load	0x2,-0x1
0679 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
067a e5ff       |    |		Load	0x2,-0x1
067b 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
067c 8233       | 3  |		Call	0x1,0x33
067d e5fe       |    |		Load	0x2,-0x2
067e 0228       | (  |		Execute	Access,All_Write
067f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0680 4804       |H   |		Short_Literal	0x4
0681 4805       |H   |		Short_Literal	0x5
0682 e20f       |    |		Load	0x1,0xf
0683 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0684 00d8       |    |		Load_Top	At_Offset_0
0685 0227       | '  |		Execute	Access,All_Reference
0686 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0687 a5fe       |    |		Store_Unchecked	0x2,-0x2
0688 00db       |    |		Load_Top	At_Offset_3
0689 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
068a e5ff       |    |		Load	0x2,-0x1
068b 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
068c 8235       | 5  |		Call	0x1,0x35
068d e5fe       |    |		Load	0x2,-0x2
068e 0228       | (  |		Execute	Access,All_Write
068f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0693       |    |		.CONST	0x0693								; Address of begin
0691 0004       |    |		.CONST	0x0004								; Address of exception handler
0692 0001       |    |		.CONST	0x0001								; Number of locals
0693			BODY_0690:
0693			INIT_0690:
0693 4601       |F   |		Jump_Case	0x2
0694 7801       |x   |		Jump	0x696								; case 0x0
0695 7807       |x   |		Jump	0x69d								; case 0x1
0696 00da       |    |		Load_Top	At_Offset_2
0697 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0698 0125       | %  |		Execute	Any,Set_Constraint
0699 00da       |    |		Load_Top	At_Offset_2
069a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
069b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
069c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
069d 00da       |    |		Load_Top	At_Offset_2
069e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
069f 0125       | %  |		Execute	Any,Set_Constraint
06a0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06a1 0000 0000  |    |		.BLANK	0000[0x7]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ab       |    |		.CONST	0x06ab								; Address of begin
06a9 0004       |    |		.CONST	0x0004								; Address of exception handler
06aa 0001       |    |		.CONST	0x0001								; Number of locals
06ab			BODY_06a8:
06ab			INIT_06a8:
06ab 4601       |F   |		Jump_Case	0x2
06ac 7801       |x   |		Jump	0x6ae								; case 0x0
06ad 7807       |x   |		Jump	0x6b5								; case 0x1
06ae 00da       |    |		Load_Top	At_Offset_2
06af 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
06b0 0125       | %  |		Execute	Any,Set_Constraint
06b1 00da       |    |		Load_Top	At_Offset_2
06b2 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
06b3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06b4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06b5 00da       |    |		Load_Top	At_Offset_2
06b6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
06b7 0125       | %  |		Execute	Any,Set_Constraint
06b8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06b9 0000 0000  |    |		.BLANK	0000[0x7]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c3       |    |		.CONST	0x06c3								; Address of begin
06c1 0004       |    |		.CONST	0x0004								; Address of exception handler
06c2 0001       |    |		.CONST	0x0001								; Number of locals
06c3			BODY_06c0:
06c3			BODY_06c0:
06c3			INIT_06c0:
06c3			INIT_06c0:
06c3 4609       |F   |		Jump_Case	0xa
06c4 7809       |x   |		Jump	0x6ce								; case 0x0
06c5 782f       |x/  |		Jump	0x6f5								; case 0x1
06c6 783d       |x=  |		Jump	0x704								; case 0x2
06c7 7840       |x@  |		Jump	0x708								; case 0x3
06c8 7845       |xE  |		Jump	0x70e								; case 0x4
06c9 784f       |xO  |		Jump	0x719								; case 0x5
06ca 785b       |x[  |		Jump	0x726								; case 0x6
06cb 786e       |xn  |		Jump	0x73a								; case 0x7
06cc 7884       |x   |		Jump	0x751								; case 0x8
06cd 788a       |x   |		Jump	0x758								; case 0x9
06ce 00da       |    |		Load_Top	At_Offset_2
06cf 016c       | l  |		Execute	Variant_Record,Is_Constrained
06d0 7009       |p   |		Jump_Nonzero	0x6da
06d1 00cf       |    |		Action	Mark_Auxiliary
06d2 4805       |H   |		Short_Literal	0x5
06d3 e5ff       |    |		Load	0x2,-0x1
06d4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
06d5 00d8       |    |		Load_Top	At_Offset_0
06d6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06d7 c5ff       |    |		Store	0x2,-0x1
06d8 00ce       |    |		Action	Pop_Auxiliary
06d9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06da 00da       |    |		Load_Top	At_Offset_2
06db 2202       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x2
06dc 00da       |    |		Load_Top	At_Offset_2
06dd 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
06de 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06df 00da       |    |		Load_Top	At_Offset_2
06e0 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06e1 4605       |F   |		Jump_Case	0x6
06e2 7806       |x   |		Jump	0x6e9								; case 0x0
06e3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
06e4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
06e5 7809       |x   |		Jump	0x6ef								; case 0x3
06e6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
06e7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
06e8 4302       |C   |		.XXX[0x1]
06e9 00da       |    |		Load_Top	At_Offset_2
06ea 2203       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x3
06eb 00da       |    |		Load_Top	At_Offset_2
06ec 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
06ed 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06ee 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06ef 00da       |    |		Load_Top	At_Offset_2
06f0 2207       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x7
06f1 00da       |    |		Load_Top	At_Offset_2
06f2 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
06f3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06f4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06f5 00da       |    |		Load_Top	At_Offset_2
06f6 2202       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x2
06f7 00da       |    |		Load_Top	At_Offset_2
06f8 016b       | k  |		Execute	Variant_Record,Read_Variant
06f9 00d8       |    |		Load_Top	At_Offset_0
06fa 0f01       |    |		Execute_Immediate	Equal,0x1
06fb 6802       |h   |		Jump_Zero	0x6fe
06fc 00db       |    |		Load_Top	At_Offset_3
06fd 2203       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x3
06fe 00d8       |    |		Load_Top	At_Offset_0
06ff 0f04       |    |		Execute_Immediate	Equal,0x4
0700 6802       |h   |		Jump_Zero	0x703
0701 00db       |    |		Load_Top	At_Offset_3
0702 2207       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x7
0703 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0704 4801       |H   |		Short_Literal	0x1
0705 4809       |H   |		Short_Literal	0x9
0706 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0707 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0708 e5fd       |    |		Load	0x2,-0x3
0709 00db       |    |		Load_Top	At_Offset_3
070a 1c07       |    |		Execute_Immediate	Run_Utility,0x7
070b e5fe       |    |		Load	0x2,-0x2
070c 0306       |    |		Complete_Type	Variant_Record,By_Renaming
070d 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
070e 4801       |H   |		Short_Literal	0x1
070f 4809       |H   |		Short_Literal	0x9
0710 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0711 e5fe       |    |		Load	0x2,-0x2
0712 00d8       |    |		Load_Top	At_Offset_0
0713 e5ff       |    |		Load	0x2,-0x1
0714 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0715 e5ff       |    |		Load	0x2,-0x1
0716 00db       |    |		Load_Top	At_Offset_3
0717 0305       |    |		Complete_Type	Variant_Record,By_Constraining_Incomplete
0718 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0719 4801       |H   |		Short_Literal	0x1
071a 00db       |    |		Load_Top	At_Offset_3
071b 0169       | i  |		Execute	Variant_Record,Read_Discriminant_Constraint
071c 4605       |F   |		Jump_Case	0x6
071d 7805       |x   |		Jump	0x723								; case 0x0
071e 7804       |x   |		Jump	0x723								; case 0x1
071f 7803       |x   |		Jump	0x723								; case 0x2
0720 7802       |x   |		Jump	0x723								; case 0x3
0721 7801       |x   |		Jump	0x723								; case 0x4
0722 7800       |x   |		Jump	0x723								; case 0x5
0723 e5ff       |    |		Load	0x2,-0x1
0724 0304       |    |		Complete_Type	Variant_Record,By_Completing_Constraint
0725 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0726 00db       |    |		Load_Top	At_Offset_3
0727 4605       |F   |		Jump_Case	0x6
0728 7807       |x   |		Jump	0x730								; case 0x0
0729 7808       |x   |		Jump	0x732								; case 0x1
072a 7809       |x   |		Jump	0x734								; case 0x2
072b 780a       |x   |		Jump	0x736								; case 0x3
072c 780b       |x   |		Jump	0x738								; case 0x4
072d 7800       |x   |		Jump	0x72e								; case 0x5
072e 48ff       |H   |		Short_Literal	0xff
072f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0730 4801       |H   |		Short_Literal	0x1
0731 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0732 4802       |H   |		Short_Literal	0x2
0733 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0734 4803       |H   |		Short_Literal	0x3
0735 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0736 4804       |H   |		Short_Literal	0x4
0737 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0738 4805       |H   |		Short_Literal	0x5
0739 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
073a 00db       |    |		Load_Top	At_Offset_3
073b e5fe       |    |		Load	0x2,-0x2
073c 4605       |F   |		Jump_Case	0x6
073d 7807       |x   |		Jump	0x745								; case 0x0
073e 7808       |x   |		Jump	0x747								; case 0x1
073f 7809       |x   |		Jump	0x749								; case 0x2
0740 780a       |x   |		Jump	0x74b								; case 0x3
0741 780b       |x   |		Jump	0x74d								; case 0x4
0742 7800       |x   |		Jump	0x743								; case 0x5
0743 48ff       |H   |		Short_Literal	0xff
0744 7809       |x   |		Jump	0x74e
0745 4801       |H   |		Short_Literal	0x1
0746 7807       |x   |		Jump	0x74e
0747 4802       |H   |		Short_Literal	0x2
0748 7805       |x   |		Jump	0x74e
0749 4803       |H   |		Short_Literal	0x3
074a 7803       |x   |		Jump	0x74e
074b 4804       |H   |		Short_Literal	0x4
074c 7801       |x   |		Jump	0x74e
074d 4805       |H   |		Short_Literal	0x5
074e e5ff       |    |		Load	0x2,-0x1
074f 031b       |    |		Declare_Type	Variant_Record,Constrained
0750 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0751 00db       |    |		Load_Top	At_Offset_3
0752 e5fe       |    |		Load	0x2,-0x2
0753 e5ff       |    |		Load	0x2,-0x1
0754 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0755 e5ff       |    |		Load	0x2,-0x1
0756 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0757 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0758 4805       |H   |		Short_Literal	0x5
0759 00db       |    |		Load_Top	At_Offset_3
075a 1c07       |    |		Execute_Immediate	Run_Utility,0x7
075b 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
075c ; --------------------------------------------------------------------------------------
075c ; STRING TABLE
075c ; --------------------------------------------------------------------------------------
075c 0026       | &  |		.STRTAB	0x0026->0x076f							; "CHAINE"
075d 002a       | *  |		.STRTAB	0x002a->0x0772							; "NUMBER"
075e 002e       | .  |		.STRTAB	0x002e->0x0775							; "STRUCT"
075f 0032       | 2  |		.STRTAB	0x0032->0x0778							; "ENUM"
0760 0034       | 4  |		.STRTAB	0x0034->0x077a							; "BOOL"
0761 0036       | 6  |		.STRTAB	0x0036->0x077c							; "UNDEF"
0762 0039       | 9  |		.STRTAB	0x0039->0x077e							; "------------------------------------"
0763 005b       | [  |		.STRTAB	0x005b->0x0790							; " Nom : "
0764 0060       | `  |		.STRTAB	0x0060->0x0794							; " Donnee : "
0765 0068       | h  |		.STRTAB	0x0068->0x0799							; "- - - - - - - - - - - - - - - - - -"
0766 0089       |    |		.STRTAB	0x0089->0x07aa							; " "
0767 0088       |    |		.STRTAB	0x0088->0x07ab							; "Liste Vide"
0768 0090       |    |		.STRTAB	0x0090->0x07b0							; "ERROR"
0769 0093       |    |		.STRTAB	0x0093->0x07b2							; "  Nom : "
076a 0099       |    |		.STRTAB	0x0099->0x07b6							; "  Type : "
076b 00a0       |    |		.STRTAB	0x00a0->0x07bb							; "  Val : "
076c 00a6       |    |		.STRTAB	0x00a6->0x07bf							; "/"
076d 00a5       |    |		.STRTAB	0x00a5->0x07bf							; "   Parmis : "
076e 00af       |    |		.STREND 0x00af->0x07c5
076f 4348 4149  |CHAI|		.STRTAB_STRINGS
07c6 0000 0000  |    |		.XXX[0x2]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; Debug Table
07c8 ; --------------------------------------------------------------------------------------
07c8 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xdeaa,0x0000,0x0001,0x002b
07ce 000b 087a  |   z|		.DBG4T	0x000b,0x087a,0x8000,0x8000
07d2 00af 08d6  |    |		.DBG4T	0x00af,0x08d6,0x8000,0x0000
07d6 0103 0000  |    |		.DBG4T	0x0103,0x0000,0x0005,0x0000
07da 0133 08fd  | 3  |		.DBG4T	0x0133,0x08fd,0x0002,0x0000
07de 014b 0903  | K  |		.DBG4T	0x014b,0x0903,0x0002,0x0000
07e2 0163 0909  | c  |		.DBG4T	0x0163,0x0909,0x0001,0x4000
07e6 019b 091b  |    |		.DBG4T	0x019b,0x091b,0x0001,0x4000
07ea 01d3 092d  |   -|		.DBG4T	0x01d3,0x092d,0x0001,0x0000
07ee 0203 0937  |   7|		.DBG4T	0x0203,0x0937,0x0001,0x4000
07f2 023b 094b  | ; K|		.DBG4T	0x023b,0x094b,0x0001,0x4000
07f6 0273 095f  | s _|		.DBG4T	0x0273,0x095f,0x0002,0x4000
07fa 02a3 096e  |   n|		.DBG4T	0x02a3,0x096e,0x0002,0x4000
07fe 02d3 097d  |   }|		.DBG4T	0x02d3,0x097d,0x0001,0x4000
0802 0303 0991  |    |		.DBG4T	0x0303,0x0991,0x0002,0x4000
0806 0343 09a3  | C  |		.DBG4T	0x0343,0x09a3,0x0002,0x0000
080a 0363 09a9  | c  |		.DBG4T	0x0363,0x09a9,0x0002,0x0000
080e 0383 09af  |    |		.DBG4T	0x0383,0x09af,0x0002,0x0000
0812 03a3 09b5  |    |		.DBG4T	0x03a3,0x09b5,0x0002,0x0000
0816 03b3 09ba  |    |		.DBG4T	0x03b3,0x09ba,0x0002,0x0000
081a 03c3 09bf  |    |		.DBG4T	0x03c3,0x09bf,0x0002,0x0000
081e 03d3 09c4  |    |		.DBG4T	0x03d3,0x09c4,0x0001,0x0000
0822 0403 09ca  |    |		.DBG4T	0x0403,0x09ca,0x0001,0x0000
0826 041b 09ce  |    |		.DBG4T	0x041b,0x09ce,0x0001,0x0000
082a 0433 09d2  | 3  |		.DBG4T	0x0433,0x09d2,0x0001,0x0000
082e 044b 09d6  | K  |		.DBG4T	0x044b,0x09d6,0x0002,0x0000
0832 0463 09dc  | c  |		.DBG4T	0x0463,0x09dc,0x0002,0x0000
0836 047b 09e2  | {  |		.DBG4T	0x047b,0x09e2,0x0002,0x0000
083a 0493 09e8  |    |		.DBG4T	0x0493,0x09e8,0x0002,0x0000
083e 04ab 09ee  |    |		.DBG4T	0x04ab,0x09ee,0x0002,0x0000
0842 04c3 09f4  |    |		.DBG4T	0x04c3,0x09f4,0x0002,0x0000
0846 04db 09fa  |    |		.DBG4T	0x04db,0x09fa,0x0002,0x0000
084a 04f3 0a01  |    |		.DBG4T	0x04f3,0x0a01,0x0002,0x0000
084e 050b 0a08  |    |		.DBG4T	0x050b,0x0a08,0x0002,0x0000
0852 052b 0a0f  | +  |		.DBG4T	0x052b,0x0a0f,0x0002,0x0000
0856 0543 0a16  | C  |		.DBG4T	0x0543,0x0a16,0x0002,0x0000
085a 0563 0a1d  | c  |		.DBG4T	0x0563,0x0a1d,0x0002,0x0000
085e 057b 0a23  | { #|		.DBG4T	0x057b,0x0a23,0x0002,0x0000
0862 0593 0a29  |   )|		.DBG4T	0x0593,0x0a29,0x0001,0x0000
0866 05eb 0a38  |   8|		.DBG4T	0x05eb,0x0a38,0x0001,0x4000
086a 062b 0a46  | + F|		.DBG4T	0x062b,0x0a46,0x0001,0x0000
086e 0693 0000  |    |		.DBG4T	0x0693,0x0000,0x0005,0x0000
0872 06ab 0000  |    |		.DBG4T	0x06ab,0x0000,0x0005,0x0000
0876 06c3 0000  |    |		.DBG4T	0x06c3,0x0000,0x0005,0x0000
087a ; --------------------------------------------------------------------------------------
087a ; Debug chain
087a ; --------------------------------------------------------------------------------------
087a 002d 0000  | -  |		.DBGLEN	0x002d,0x0000
087c 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x001b,0x001f,0x0025,0x0034,0x003c,0x004b,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,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac
08a9 0001 0002  |    |		.XXX[0x2d]
08ab 0003 0004  |    |
08ad 0005 0006  |    |
08af 0007 000a  |    |
08b1 000b 000c  |    |
08b3 000d 000e  |    |
08b5 000f 0010  |    |
08b7 0011 0012  |    |
08b9 0013 0014  |    |
08bb 0015 0016  |    |
08bd 0017 0018  |    |
08bf 0019 001a  |    |
08c1 001b 001c  |    |
08c3 001d 001e  |    |
08c5 001f 0020  |    |
08c7 0021 0022  | ! "|
08c9 0023 0024  | # $|
08cb 0025 0026  | % &|
08cd 0027 0028  | ' (|
08cf 0029 002a  | ) *|
08d1 002b 002c  | + ,|
08d3 002d 002e  | - .|
08d5 002f       | /  |
08d6 ; --------------------------------------------------------------------------------------
08d6 ; Debug chain
08d6 ; --------------------------------------------------------------------------------------
08d6 0025 0000  | %  |		.DBGLEN	0x0025,0x0000
08d8 00af 00b1  |    |		.DBGLNO	0x00af,0x00b1,0x00b3,0x00b5,0x00b7,0x00b9,0x00bb,0x00bd,0x00bf,0x00c1,0x00c3,0x00c5,0x00c7,0x00c9,0x00cb,0x00cd,0x00cf,0x00d1,0x00d3,0x00d5,0x00d7,0x00d9,0x00db,0x00dd,0x00df,0x00e1,0x00e3,0x00e5,0x00e7,0x00e9,0x00eb,0x00ed,0x00ef,0x00f1,0x00f3,0x00f5,0x00f7
08fd ; --------------------------------------------------------------------------------------
08fd ; Debug chain
08fd ; --------------------------------------------------------------------------------------
08fd 0001 0003  |    |		.DBGLEN	0x0001,0x0003
08ff 0133 0137  | 3 7|		.DBGLNO	0x0133,0x0137,0x013b,0x0144
0903 ; --------------------------------------------------------------------------------------
0903 ; Debug chain
0903 ; --------------------------------------------------------------------------------------
0903 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0905 014b 014f  | K O|		.DBGLNO	0x014b,0x014f,0x0153,0x0158
0909 ; --------------------------------------------------------------------------------------
0909 ; Debug chain
0909 ; --------------------------------------------------------------------------------------
0909 0002 0007  |    |		.DBGLEN	0x0002,0x0007
090b 0163 0165  | c e|		.DBGLNO	0x0163,0x0165,0x0169,0x0170,0x0176,0x017c,0x017f,0x0185,0x018d
0914 0001 0003  |    |		.XXX[0x7]
0916 0004 0005  |    |
0918 0006 0002  |    |
091a 0007       |    |
091b ; --------------------------------------------------------------------------------------
091b ; Debug chain
091b ; --------------------------------------------------------------------------------------
091b 0002 0007  |    |		.DBGLEN	0x0002,0x0007
091d 019b 019d  |    |		.DBGLNO	0x019b,0x019d,0x01a1,0x01a8,0x01ae,0x01b4,0x01b7,0x01bd,0x01c5
0926 0001 0003  |    |		.XXX[0x7]
0928 0004 0005  |    |
092a 0006 0002  |    |
092c 0007       |    |
092d ; --------------------------------------------------------------------------------------
092d ; Debug chain
092d ; --------------------------------------------------------------------------------------
092d 0000 0008  |    |		.DBGLEN	0x0000,0x0008
092f 01d3 01d5  |    |		.DBGLNO	0x01d3,0x01d5,0x01dd,0x01df,0x01e7,0x01e9,0x01f1,0x01f3
0937 ; --------------------------------------------------------------------------------------
0937 ; Debug chain
0937 ; --------------------------------------------------------------------------------------
0937 0002 0008  |    |		.DBGLEN	0x0002,0x0008
0939 0203 0207  |    |		.DBGLNO	0x0203,0x0207,0x020b,0x0212,0x0219,0x021d,0x0221,0x0226,0x022a,0x022e
0943 0001 0003  |    |		.XXX[0x8]
0945 0004 0005  |    |
0947 0006 0007  |    |
0949 0008 0002  |    |
094b ; --------------------------------------------------------------------------------------
094b ; Debug chain
094b ; --------------------------------------------------------------------------------------
094b 0002 0008  |    |		.DBGLEN	0x0002,0x0008
094d 023b 023f  | ; ?|		.DBGLNO	0x023b,0x023f,0x0243,0x024a,0x0251,0x0255,0x025a,0x025e,0x0262,0x0267
0957 0001 0003  |    |		.XXX[0x8]
0959 0004 0005  |    |
095b 0006 0007  |    |
095d 0008 0002  |    |
095f ; --------------------------------------------------------------------------------------
095f ; Debug chain
095f ; --------------------------------------------------------------------------------------
095f 0003 0005  |    |		.DBGLEN	0x0003,0x0005
0961 0273 0277  | s w|		.DBGLNO	0x0273,0x0277,0x027b,0x027f,0x0286,0x028d,0x0294,0x029a
0969 0001 0003  |    |		.XXX[0x5]
096b 0004 0002  |    |
096d 0005       |    |
096e ; --------------------------------------------------------------------------------------
096e ; Debug chain
096e ; --------------------------------------------------------------------------------------
096e 0003 0005  |    |		.DBGLEN	0x0003,0x0005
0970 02a3 02a7  |    |		.DBGLNO	0x02a3,0x02a7,0x02ab,0x02af,0x02b6,0x02bd,0x02c4,0x02ca
0978 0001 0003  |    |		.XXX[0x5]
097a 0004 0002  |    |
097c 0005       |    |
097d ; --------------------------------------------------------------------------------------
097d ; Debug chain
097d ; --------------------------------------------------------------------------------------
097d 0002 0008  |    |		.DBGLEN	0x0002,0x0008
097f 02d3 02d7  |    |		.DBGLNO	0x02d3,0x02d7,0x02d9,0x02dc,0x02e1,0x02e6,0x02ea,0x02ef,0x02f3,0x02f7
0989 0001 0002  |    |		.XXX[0x8]
098b 0004 0005  |    |
098d 0006 0003  |    |
098f 0007 0008  |    |
0991 ; --------------------------------------------------------------------------------------
0991 ; Debug chain
0991 ; --------------------------------------------------------------------------------------
0991 0002 0007  |    |		.DBGLEN	0x0002,0x0007
0993 0303 0307  |    |		.DBGLNO	0x0303,0x0307,0x030b,0x0310,0x0316,0x0321,0x0323,0x032a,0x0331
099c 0001 0002  |    |		.XXX[0x7]
099e 0003 0007  |    |
09a0 0004 0005  |    |
09a2 0006       |    |
09a3 ; --------------------------------------------------------------------------------------
09a3 ; Debug chain
09a3 ; --------------------------------------------------------------------------------------
09a3 0001 0003  |    |		.DBGLEN	0x0001,0x0003
09a5 0343 0347  | C G|		.DBGLNO	0x0343,0x0347,0x034d,0x0353
09a9 ; --------------------------------------------------------------------------------------
09a9 ; Debug chain
09a9 ; --------------------------------------------------------------------------------------
09a9 0001 0003  |    |		.DBGLEN	0x0001,0x0003
09ab 0363 0367  | c g|		.DBGLNO	0x0363,0x0367,0x036d,0x0373
09af ; --------------------------------------------------------------------------------------
09af ; Debug chain
09af ; --------------------------------------------------------------------------------------
09af 0001 0003  |    |		.DBGLEN	0x0001,0x0003
09b1 0383 0387  |    |		.DBGLNO	0x0383,0x0387,0x038d,0x0393
09b5 ; --------------------------------------------------------------------------------------
09b5 ; Debug chain
09b5 ; --------------------------------------------------------------------------------------
09b5 0001 0002  |    |		.DBGLEN	0x0001,0x0002
09b7 03a3 03a7  |    |		.DBGLNO	0x03a3,0x03a7,0x03ad
09ba ; --------------------------------------------------------------------------------------
09ba ; Debug chain
09ba ; --------------------------------------------------------------------------------------
09ba 0001 0002  |    |		.DBGLEN	0x0001,0x0002
09bc 03b3 03b7  |    |		.DBGLNO	0x03b3,0x03b7,0x03bd
09bf ; --------------------------------------------------------------------------------------
09bf ; Debug chain
09bf ; --------------------------------------------------------------------------------------
09bf 0001 0002  |    |		.DBGLEN	0x0001,0x0002
09c1 03c3 03c7  |    |		.DBGLNO	0x03c3,0x03c7,0x03cd
09c4 ; --------------------------------------------------------------------------------------
09c4 ; Debug chain
09c4 ; --------------------------------------------------------------------------------------
09c4 0000 0004  |    |		.DBGLEN	0x0000,0x0004
09c6 03d3 03d8  |    |		.DBGLNO	0x03d3,0x03d8,0x03e3,0x03e9
09ca ; --------------------------------------------------------------------------------------
09ca ; Debug chain
09ca ; --------------------------------------------------------------------------------------
09ca 0000 0002  |    |		.DBGLEN	0x0000,0x0002
09cc 0403 0409  |    |		.DBGLNO	0x0403,0x0409
09ce ; --------------------------------------------------------------------------------------
09ce ; Debug chain
09ce ; --------------------------------------------------------------------------------------
09ce 0000 0002  |    |		.DBGLEN	0x0000,0x0002
09d0 041b 0421  |   !|		.DBGLNO	0x041b,0x0421
09d2 ; --------------------------------------------------------------------------------------
09d2 ; Debug chain
09d2 ; --------------------------------------------------------------------------------------
09d2 0000 0002  |    |		.DBGLEN	0x0000,0x0002
09d4 0433 0439  | 3 9|		.DBGLNO	0x0433,0x0439
09d6 ; --------------------------------------------------------------------------------------
09d6 ; Debug chain
09d6 ; --------------------------------------------------------------------------------------
09d6 0001 0003  |    |		.DBGLEN	0x0001,0x0003
09d8 044b 0450  | K P|		.DBGLNO	0x044b,0x0450,0x0456,0x045b
09dc ; --------------------------------------------------------------------------------------
09dc ; Debug chain
09dc ; --------------------------------------------------------------------------------------
09dc 0001 0003  |    |		.DBGLEN	0x0001,0x0003
09de 0463 0468  | c h|		.DBGLNO	0x0463,0x0468,0x046d,0x0472
09e2 ; --------------------------------------------------------------------------------------
09e2 ; Debug chain
09e2 ; --------------------------------------------------------------------------------------
09e2 0001 0003  |    |		.DBGLEN	0x0001,0x0003
09e4 047b 0480  | {  |		.DBGLNO	0x047b,0x0480,0x0485,0x048a
09e8 ; --------------------------------------------------------------------------------------
09e8 ; Debug chain
09e8 ; --------------------------------------------------------------------------------------
09e8 0001 0003  |    |		.DBGLEN	0x0001,0x0003
09ea 0493 0498  |    |		.DBGLNO	0x0493,0x0498,0x049e,0x04a4
09ee ; --------------------------------------------------------------------------------------
09ee ; Debug chain
09ee ; --------------------------------------------------------------------------------------
09ee 0001 0003  |    |		.DBGLEN	0x0001,0x0003
09f0 04ab 04b0  |    |		.DBGLNO	0x04ab,0x04b0,0x04b5,0x04bb
09f4 ; --------------------------------------------------------------------------------------
09f4 ; Debug chain
09f4 ; --------------------------------------------------------------------------------------
09f4 0001 0003  |    |		.DBGLEN	0x0001,0x0003
09f6 04c3 04c8  |    |		.DBGLNO	0x04c3,0x04c8,0x04cd,0x04d0
09fa ; --------------------------------------------------------------------------------------
09fa ; Debug chain
09fa ; --------------------------------------------------------------------------------------
09fa 0001 0004  |    |		.DBGLEN	0x0001,0x0004
09fc 04db 04e0  |    |		.DBGLNO	0x04db,0x04e0,0x04e6,0x04e9,0x04ec
0a01 ; --------------------------------------------------------------------------------------
0a01 ; Debug chain
0a01 ; --------------------------------------------------------------------------------------
0a01 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0a03 04f3 04f8  |    |		.DBGLNO	0x04f3,0x04f8,0x04fd,0x0500,0x0503
0a08 ; --------------------------------------------------------------------------------------
0a08 ; Debug chain
0a08 ; --------------------------------------------------------------------------------------
0a08 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0a0a 050b 0510  |    |		.DBGLNO	0x050b,0x0510,0x0516,0x051c,0x051f
0a0f ; --------------------------------------------------------------------------------------
0a0f ; Debug chain
0a0f ; --------------------------------------------------------------------------------------
0a0f 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0a11 052b 0530  | + 0|		.DBGLNO	0x052b,0x0530,0x0535,0x053b,0x053e
0a16 ; --------------------------------------------------------------------------------------
0a16 ; Debug chain
0a16 ; --------------------------------------------------------------------------------------
0a16 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0a18 0543 0548  | C H|		.DBGLNO	0x0543,0x0548,0x054d,0x0554,0x0557
0a1d ; --------------------------------------------------------------------------------------
0a1d ; Debug chain
0a1d ; --------------------------------------------------------------------------------------
0a1d 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0a1f 0563 0568  | c h|		.DBGLNO	0x0563,0x0568,0x056e,0x0571
0a23 ; --------------------------------------------------------------------------------------
0a23 ; Debug chain
0a23 ; --------------------------------------------------------------------------------------
0a23 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0a25 057b 0580  | {  |		.DBGLNO	0x057b,0x0580,0x0585,0x0588
0a29 ; --------------------------------------------------------------------------------------
0a29 ; Debug chain
0a29 ; --------------------------------------------------------------------------------------
0a29 0000 000d  |    |		.DBGLEN	0x0000,0x000d
0a2b 0593 0597  |    |		.DBGLNO	0x0593,0x0597,0x059c,0x05a6,0x05aa,0x05b3,0x05b8,0x05be,0x05c5,0x05cf,0x05d4,0x05d8,0x05dc
0a38 ; --------------------------------------------------------------------------------------
0a38 ; Debug chain
0a38 ; --------------------------------------------------------------------------------------
0a38 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0a3a 05eb 05f5  |    |		.DBGLNO	0x05eb,0x05f5,0x05fd,0x0605,0x060f,0x0619
0a40 0001 0003  |    |		.XXX[0x6]
0a42 0004 0005  |    |
0a44 0006 0007  |    |
0a46 ; --------------------------------------------------------------------------------------
0a46 ; Debug chain
0a46 ; --------------------------------------------------------------------------------------
0a46 0001 000c  |    |		.DBGLEN	0x0001,0x000c
0a48 062b 0630  | + 0|		.DBGLNO	0x062b,0x0630,0x0639,0x063c,0x0644,0x064c,0x0654,0x065c,0x0664,0x066e,0x0676,0x0680,0x0688
0a55 0000 0000  |    |		.BLANK	0000[0x1ab]