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

⟦24c9b87e6⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_b660b7

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0680       |    |		.CONST	0x0680								; 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 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0088       |    |		.CONST	0x0088								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0021       | !  |		.CONST	0x0021								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4810       |H   |		Short_Literal	0x10
000d 029f 0093  |    |		Declare_Subprogram	INIT_0090,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0012 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0014 00da       |    |		Load_Top	At_Offset_2
0015 e002       |    |		Load	0x0,0x2
0016 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0017 02a0       |    |		Declare_Subprogram	Null_Subprogram
0018 4802       |H   |		Short_Literal	0x2
0019 032e       | .  |		Declare_Type	Record,Defined,Visible
001a 4801       |H   |		Short_Literal	0x1
001b 4805       |H   |		Short_Literal	0x5
001c 00da       |    |		Load_Top	At_Offset_2
001d 02a0       |    |		Declare_Subprogram	Null_Subprogram
001e 4801       |H   |		Short_Literal	0x1
001f 035e       | ^  |		Declare_Type	Array,Defined,Visible
0020 4800       |H   |		Short_Literal	0x0
0021 4802       |H   |		Short_Literal	0x2
0022 029f 0133  |   3|		Declare_Subprogram	INIT_0130,For_Call
0024 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0025 4800       |H   |		Short_Literal	0x0
0026 4804       |H   |		Short_Literal	0x4
0027 029f 015b  |   [|		Declare_Subprogram	INIT_0158,For_Call
0029 03fe       |    |		Declare_Type	Discrete,Defined,Visible
002a 00d9       |    |		Load_Top	At_Offset_1
002b 4803       |H   |		Short_Literal	0x3
002c 4800       |H   |		Short_Literal	0x0
002d 4801       |H   |		Short_Literal	0x1
002e 4807       |H   |		Short_Literal	0x7
002f 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
0030 029f 050b  |    |		Declare_Subprogram	INIT_0508,For_Call
0032 00d9       |    |		Load_Top	At_Offset_1
0033 012a       | *  |		Execute	Any,Change_Utility
0034 0007       |    |		Action	Break_Optional
0035 00d8       |    |		Load_Top	At_Offset_0
0036 02a0       |    |		Declare_Subprogram	Null_Subprogram
0037 4818       |H   |		Short_Literal	0x18
0038 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0039 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
003b 4800       |H   |		Short_Literal	0x0
003c 4801       |H   |		Short_Literal	0x1
003d 029f 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Call
003f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0040 00d8       |    |		Load_Top	At_Offset_0
0041 e002       |    |		Load	0x0,0x2
0042 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0043 4802       |H   |		Short_Literal	0x2
0044 e211       |    |		Load	0x1,0x11
0045 00e2       |    |		Load_Encached	Integer_Cache
0046 4801       |H   |		Short_Literal	0x1
0047 e215       |    |		Load	0x1,0x15
0048 029f 0573  |   s|		Declare_Subprogram	INIT_0570,For_Call
004a 4803       |H   |		Short_Literal	0x3
004b 4801       |H   |		Short_Literal	0x1
004c 4802       |H   |		Short_Literal	0x2
004d 4800       |H   |		Short_Literal	0x0
004e 4801       |H   |		Short_Literal	0x1
004f 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0050 4801       |H   |		Short_Literal	0x1
0051 00d9       |    |		Load_Top	At_Offset_1
0052 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0053 0129       | )  |		Execute	Any,Make_Visible
0054 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0056 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0058 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
005a 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
005c 00e2       |    |		Load_Encached	Integer_Cache
005d 4803       |H   |		Short_Literal	0x3
005e e215       |    |		Load	0x1,0x15
005f 00d8       |    |		Load_Top	At_Offset_0
0060 e213       |    |		Load	0x1,0x13
0061 4801       |H   |		Short_Literal	0x1
0062 00e2       |    |		Load_Encached	Integer_Cache
0063 4801       |H   |		Short_Literal	0x1
0064 e002       |    |		Load	0x0,0x2
0065 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0066 029f 050b  |    |		Declare_Subprogram	INIT_0508,For_Call
0068 4805       |H   |		Short_Literal	0x5
0069 4801       |H   |		Short_Literal	0x1
006a e214       |    |		Load	0x1,0x14
006b 0307       |    |		Complete_Type	Variant_Record,By_Defining
006c e215       |    |		Load	0x1,0x15
006d 03c4       |    |		Complete_Type	Access,By_Component_Completion
006e 00bf       |    |		Action	Accept_Activation
006f 4800       |H   |		Short_Literal	0x0
0070 480b       |H   |		Short_Literal	0xb
0071 029f 044b  |   K|		Declare_Subprogram	INIT_0448,For_Call
0073 03fd       |    |		Declare_Type	Discrete,Defined
0074 029d 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call
0076 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
007b 00c7       |    |		Action	Elaborate_Subprogram
007c 029d 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call
007e 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
007f 00c7       |    |		Action	Elaborate_Subprogram
0080 029d 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call
0082 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0087 00c7       |    |		Action	Elaborate_Subprogram
0088			BODY_0008:
0088 00bc       |    |		Action	Signal_Activated
0089 00bb       |    |		Action	Signal_Completion
008a 0000 0000  |    |		.BLANK	0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 4607       |F   |		Jump_Case	0x8
0094 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0095 7807       |x   |		Jump	0x9d								; case 0x1
0096 780a       |x   |		Jump	0xa1								; case 0x2
0097 780e       |x   |		Jump	0xa6								; case 0x3
0098 7811       |x   |		Jump	0xaa								; case 0x4
0099 7812       |x   |		Jump	0xac								; case 0x5
009a 7813       |x   |		Jump	0xae								; case 0x6
009b 7816       |x   |		Jump	0xb2								; case 0x7
009c 4302       |C   |		.XXX[0x1]
009d 00da       |    |		Load_Top	At_Offset_2
009e 0091 05b6  |    |		Action	Push_String_Extended_Indexed,0x5b6				; "COMMUNICATION"
00a0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00a1 00db       |    |		Load_Top	At_Offset_3
00a2 00db       |    |		Load_Top	At_Offset_3
00a3 00e0       |    |		Load_Encached	Standard_Cache
00a4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00a5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00a6 00da       |    |		Load_Top	At_Offset_2
00a7 00e0       |    |		Load_Encached	Standard_Cache
00a8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00a9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00aa 00db       |    |		Load_Top	At_Offset_3
00ab 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ac 00db       |    |		Load_Top	At_Offset_3
00ad 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ae e20d       |    |		Load	0x1,0xd
00af 00dc       |    |		Load_Top	At_Offset_4
00b0 0267       | g  |		Execute	Discrete,Predecessor
00b1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00b2 e20d       |    |		Load	0x1,0xd
00b3 00dc       |    |		Load_Top	At_Offset_4
00b4 0268       | h  |		Execute	Discrete,Successor
00b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00b6 0000 0000  |    |		.XXX[0x2]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bd       |    |		.CONST	0x00bd								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0002       |    |		.CONST	0x0002								; Number of locals
00bb			INIT_00b8:
00bb e20d       |    |		Load	0x1,0xd
00bc 0007       |    |		Action	Break_Optional
00bd			BODY_00b8:
00bd 00db       |    |		Load_Top	At_Offset_3
00be 8003       |    |		Call	0x0,0x3
00bf 6809       |h   |		Jump_Zero	0xc9
00c0 00db       |    |		Load_Top	At_Offset_3
00c1 8004       |    |		Call	0x0,0x4
00c2 00d8       |    |		Load_Top	At_Offset_0
00c3 e20d       |    |		Load	0x1,0xd
00c4 0260       | `  |		Execute	Discrete,In_Type
00c5 7001       |p   |		Jump_Nonzero	0xc7
00c6 0801       |    |		Execute_Immediate	Raise,0x1
00c7 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00c8 7803       |x   |		Jump	0xcc
00c9 00db       |    |		Load_Top	At_Offset_3
00ca 821f       |    |		Call	0x1,0x1f
00cb 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00cc 00d8       |    |		Load_Top	At_Offset_0
00cd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ce 0000 0000  |    |		.XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 4610       |F   |		Jump_Case	0x11
00d5 782d       |x-  |		Jump	0x103								; case 0x0
00d6 780f       |x   |		Jump	0xe6								; case 0x1
00d7 7826       |x&  |		Jump	0xfe								; case 0x2
00d8 780f       |x   |		Jump	0xe8								; case 0x3
00d9 7819       |x   |		Jump	0xf3								; case 0x4
00da 7818       |x   |		Jump	0xf3								; case 0x5
00db 780a       |x   |		Jump	0xe6								; case 0x6
00dc 7848       |xH  |		Jump	0x125								; case 0x7
00dd 7842       |xB  |		Jump	0x120								; case 0x8
00de 7841       |xA  |		Jump	0x120								; case 0x9
00df 783b       |x;  |		Jump	0x11b								; case 0xa
00e0 783a       |x:  |		Jump	0x11b								; case 0xb
00e1 7831       |x1  |		Jump	0x113								; case 0xc
00e2 7803       |x   |		Jump	0xe6								; case 0xd
00e3 782a       |x*  |		Jump	0x10e								; case 0xe
00e4 7801       |x   |		Jump	0xe6								; case 0xf
00e5 7800       |x   |		Jump	0xe6								; case 0x10
00e6 4800       |H   |		Short_Literal	0x0
00e7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00e8 00db       |    |		Load_Top	At_Offset_3
00e9 0f0c       |    |		Execute_Immediate	Equal,0xc
00ea e5fe       |    |		Load	0x2,-0x2
00eb 0f09       |    |		Execute_Immediate	Equal,0x9
00ec 0278       | x  |		Execute	Discrete,Or
00ed e5fe       |    |		Load	0x2,-0x2
00ee 0f07       |    |		Execute_Immediate	Equal,0x7
00ef 0278       | x  |		Execute	Discrete,Or
00f0 6839       |h9  |		Jump_Zero	0x12a
00f1 4801       |H   |		Short_Literal	0x1
00f2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00f3 00db       |    |		Load_Top	At_Offset_3
00f4 0f0c       |    |		Execute_Immediate	Equal,0xc
00f5 e5fe       |    |		Load	0x2,-0x2
00f6 0f08       |    |		Execute_Immediate	Equal,0x8
00f7 0278       | x  |		Execute	Discrete,Or
00f8 e5fe       |    |		Load	0x2,-0x2
00f9 0f07       |    |		Execute_Immediate	Equal,0x7
00fa 0278       | x  |		Execute	Discrete,Or
00fb 682e       |h.  |		Jump_Zero	0x12a
00fc 4801       |H   |		Short_Literal	0x1
00fd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00fe 00db       |    |		Load_Top	At_Offset_3
00ff 0f07       |    |		Execute_Immediate	Equal,0x7
0100 6829       |h)  |		Jump_Zero	0x12a
0101 4801       |H   |		Short_Literal	0x1
0102 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0103 00db       |    |		Load_Top	At_Offset_3
0104 0f0a       |    |		Execute_Immediate	Equal,0xa
0105 e5fe       |    |		Load	0x2,-0x2
0106 0f0b       |    |		Execute_Immediate	Equal,0xb
0107 0278       | x  |		Execute	Discrete,Or
0108 e5fe       |    |		Load	0x2,-0x2
0109 0f07       |    |		Execute_Immediate	Equal,0x7
010a 0278       | x  |		Execute	Discrete,Or
010b 681e       |h   |		Jump_Zero	0x12a
010c 4801       |H   |		Short_Literal	0x1
010d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
010e 00db       |    |		Load_Top	At_Offset_3
010f 0f04       |    |		Execute_Immediate	Equal,0x4
0110 6819       |h   |		Jump_Zero	0x12a
0111 4801       |H   |		Short_Literal	0x1
0112 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0113 00db       |    |		Load_Top	At_Offset_3
0114 0f02       |    |		Execute_Immediate	Equal,0x2
0115 e5fe       |    |		Load	0x2,-0x2
0116 0f0d       |    |		Execute_Immediate	Equal,0xd
0117 0278       | x  |		Execute	Discrete,Or
0118 6811       |h   |		Jump_Zero	0x12a
0119 4801       |H   |		Short_Literal	0x1
011a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
011b 00db       |    |		Load_Top	At_Offset_3
011c 0f07       |    |		Execute_Immediate	Equal,0x7
011d 680c       |h   |		Jump_Zero	0x12a
011e 4801       |H   |		Short_Literal	0x1
011f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0120 00db       |    |		Load_Top	At_Offset_3
0121 0f03       |    |		Execute_Immediate	Equal,0x3
0122 6807       |h   |		Jump_Zero	0x12a
0123 4801       |H   |		Short_Literal	0x1
0124 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0125 00db       |    |		Load_Top	At_Offset_3
0126 0f0f       |    |		Execute_Immediate	Equal,0xf
0127 6802       |h   |		Jump_Zero	0x12a
0128 4801       |H   |		Short_Literal	0x1
0129 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
012a 4800       |H   |		Short_Literal	0x0
012b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
012c 0000 0000  |    |		.BLANK	0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 4607       |F   |		Jump_Case	0x8
0134 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0135 7807       |x   |		Jump	0x13d								; case 0x1
0136 780a       |x   |		Jump	0x141								; case 0x2
0137 780e       |x   |		Jump	0x146								; case 0x3
0138 7811       |x   |		Jump	0x14a								; case 0x4
0139 7812       |x   |		Jump	0x14c								; case 0x5
013a 7813       |x   |		Jump	0x14e								; case 0x6
013b 7816       |x   |		Jump	0x152								; case 0x7
013c 4302       |C   |		.XXX[0x1]
013d 00da       |    |		Load_Top	At_Offset_2
013e 0091 05c7  |    |		Action	Push_String_Extended_Indexed,0x5c7				; "TYPE_NODE"
0140 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0141 00db       |    |		Load_Top	At_Offset_3
0142 00db       |    |		Load_Top	At_Offset_3
0143 00e0       |    |		Load_Encached	Standard_Cache
0144 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0145 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0146 00da       |    |		Load_Top	At_Offset_2
0147 00e0       |    |		Load_Encached	Standard_Cache
0148 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0149 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
014a 00db       |    |		Load_Top	At_Offset_3
014b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
014c 00db       |    |		Load_Top	At_Offset_3
014d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
014e e212       |    |		Load	0x1,0x12
014f 00dc       |    |		Load_Top	At_Offset_4
0150 0267       | g  |		Execute	Discrete,Predecessor
0151 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0152 e212       |    |		Load	0x1,0x12
0153 00dc       |    |		Load_Top	At_Offset_4
0154 0268       | h  |		Execute	Discrete,Successor
0155 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0156 0000 0000  |    |		.XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 4607       |F   |		Jump_Case	0x8
015c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
015d 7807       |x   |		Jump	0x165								; case 0x1
015e 780a       |x   |		Jump	0x169								; case 0x2
015f 780e       |x   |		Jump	0x16e								; case 0x3
0160 7811       |x   |		Jump	0x172								; case 0x4
0161 7812       |x   |		Jump	0x174								; case 0x5
0162 7813       |x   |		Jump	0x176								; case 0x6
0163 7816       |x   |		Jump	0x17a								; case 0x7
0164 4302       |C   |		.XXX[0x1]
0165 00da       |    |		Load_Top	At_Offset_2
0166 0091 05ca  |    |		Action	Push_String_Extended_Indexed,0x5ca				; "PLUS"
0168 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0169 00db       |    |		Load_Top	At_Offset_3
016a 00db       |    |		Load_Top	At_Offset_3
016b 00e0       |    |		Load_Encached	Standard_Cache
016c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
016d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
016e 00da       |    |		Load_Top	At_Offset_2
016f 00e0       |    |		Load_Encached	Standard_Cache
0170 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0171 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0172 00db       |    |		Load_Top	At_Offset_3
0173 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0174 00db       |    |		Load_Top	At_Offset_3
0175 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0176 e213       |    |		Load	0x1,0x13
0177 00dc       |    |		Load_Top	At_Offset_4
0178 0267       | g  |		Execute	Discrete,Predecessor
0179 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
017a e213       |    |		Load	0x1,0x13
017b 00dc       |    |		Load_Top	At_Offset_4
017c 0268       | h  |		Execute	Discrete,Successor
017d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
017e 0000 0000  |    |		.XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 0092 05dd  |    |		Action	Push_String_Extended,0x5dd					; "/"
0185 e002       |    |		Load	0x0,0x2
0186 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0187 00db       |    |		Load_Top	At_Offset_3
0188 8005       |    |		Call	0x0,0x5
0189 6802       |h   |		Jump_Zero	0x18c
018a 4802       |H   |		Short_Literal	0x2
018b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018c 0092 05de  |    |		Action	Push_String_Extended,0x5de					; "+"
018e e002       |    |		Load	0x0,0x2
018f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0190 00db       |    |		Load_Top	At_Offset_3
0191 8005       |    |		Call	0x0,0x5
0192 6802       |h   |		Jump_Zero	0x195
0193 4800       |H   |		Short_Literal	0x0
0194 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0195 0092 05df  |    |		Action	Push_String_Extended,0x5df					; "-"
0197 e002       |    |		Load	0x0,0x2
0198 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0199 00db       |    |		Load_Top	At_Offset_3
019a 8005       |    |		Call	0x0,0x5
019b 6802       |h   |		Jump_Zero	0x19e
019c 4801       |H   |		Short_Literal	0x1
019d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019e 0092 05e0  |    |		Action	Push_String_Extended,0x5e0					; "*"
01a0 e002       |    |		Load	0x0,0x2
01a1 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01a2 00db       |    |		Load_Top	At_Offset_3
01a3 8005       |    |		Call	0x0,0x5
01a4 6802       |h   |		Jump_Zero	0x1a7
01a5 4803       |H   |		Short_Literal	0x3
01a6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a7 4804       |H   |		Short_Literal	0x4
01a8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a9 0000 0000  |    |		.BLANK	0000[0x7]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 4607       |F   |		Jump_Case	0x8
01b4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01b5 7807       |x   |		Jump	0x1bd								; case 0x1
01b6 780a       |x   |		Jump	0x1c1								; case 0x2
01b7 780e       |x   |		Jump	0x1c6								; case 0x3
01b8 7811       |x   |		Jump	0x1ca								; case 0x4
01b9 7812       |x   |		Jump	0x1cc								; case 0x5
01ba 7813       |x   |		Jump	0x1ce								; case 0x6
01bb 7816       |x   |		Jump	0x1d2								; case 0x7
01bc 4302       |C   |		.XXX[0x1]
01bd 00da       |    |		Load_Top	At_Offset_2
01be 0091 05cf  |    |		Action	Push_String_Extended_Indexed,0x5cf				; "TYPE_VARIABLE"
01c0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01c1 00db       |    |		Load_Top	At_Offset_3
01c2 00db       |    |		Load_Top	At_Offset_3
01c3 00e0       |    |		Load_Encached	Standard_Cache
01c4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01c6 00da       |    |		Load_Top	At_Offset_2
01c7 00e0       |    |		Load_Encached	Standard_Cache
01c8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01c9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01ca 00db       |    |		Load_Top	At_Offset_3
01cb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01cc 00db       |    |		Load_Top	At_Offset_3
01cd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01ce e217       |    |		Load	0x1,0x17
01cf 00dc       |    |		Load_Top	At_Offset_4
01d0 0267       | g  |		Execute	Discrete,Predecessor
01d1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01d2 e217       |    |		Load	0x1,0x17
01d3 00dc       |    |		Load_Top	At_Offset_4
01d4 0268       | h  |		Execute	Discrete,Successor
01d5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01d6 0000 0000  |    |		.XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00da       |    |		Load_Top	At_Offset_2
01dc 8221       | !  |		Call	0x1,0x21
01dd 00da       |    |		Load_Top	At_Offset_2
01de 0227       | '  |		Execute	Access,All_Reference
01df 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01e0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e1 0000 0000  |    |		.BLANK	0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ef       |    |		.CONST	0x01ef								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0003       |    |		.CONST	0x0003								; Number of locals
01eb			INIT_01e8:
01eb e21e       |    |		Load	0x1,0x1e
01ec 0007       |    |		Action	Break_Optional
01ed 00e2       |    |		Load_Encached	Integer_Cache
01ee 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
01ef			BODY_01e8:
01ef e5ff       |    |		Load	0x2,-0x1
01f0 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01f1 8220       |    |		Call	0x1,0x20
01f2 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
01f3 00cf       |    |		Action	Mark_Auxiliary
01f4 00d9       |    |		Load_Top	At_Offset_1
01f5 e5ff       |    |		Load	0x2,-0x1
01f6 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01f7 027d       | }  |		Execute	Discrete,Greater
01f8 7005       |p   |		Jump_Nonzero	0x1fe
01f9 00d9       |    |		Load_Top	At_Offset_1
01fa 0a01       |    |		Execute_Immediate	Plus,0x1
01fb 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01fc 00c9       |    |		Action	Pop_Auxiliary_Loop
01fd 7ff6       |    |		Jump	0x1f4
01fe 00ce       |    |		Action	Pop_Auxiliary
01ff 00d9       |    |		Load_Top	At_Offset_1
0200 460b       |F   |		Jump_Case	0xc
0201 7881       |x   |		Jump	0x283								; case 0x0
0202 7898       |x   |		Jump	0x29b								; case 0x1
0203 790d       |y   |		Jump	0x311								; case 0x2
0204 7913       |y   |		Jump	0x318								; case 0x3
0205 7943       |yC  |		Jump	0x349								; case 0x4
0206 7968       |yh  |		Jump	0x36f								; case 0x5
0207 796e       |yn  |		Jump	0x376								; case 0x6
0208 7970       |yp  |		Jump	0x379								; case 0x7
0209 7992       |y   |		Jump	0x39c								; case 0x8
020a 79a8       |y   |		Jump	0x3b3								; case 0x9
020b 79b6       |y   |		Jump	0x3c2								; case 0xa
020c 7800       |x   |		Jump	0x20d								; case 0xb
020d e5ff       |    |		Load	0x2,-0x1
020e 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
020f 0f03       |    |		Execute_Immediate	Equal,0x3
0210 6851       |hQ  |		Jump_Zero	0x262
0211 4802       |H   |		Short_Literal	0x2
0212 e5ff       |    |		Load	0x2,-0x1
0213 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0214 01d5       |    |		Execute	Vector,Field_Reference
0215 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0216 0f08       |    |		Execute_Immediate	Equal,0x8
0217 680e       |h   |		Jump_Zero	0x226
0218 4803       |H   |		Short_Literal	0x3
0219 e5ff       |    |		Load	0x2,-0x1
021a 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
021b 01d5       |    |		Execute	Vector,Field_Reference
021c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
021d 8006       |    |		Call	0x0,0x6
021e 4801       |H   |		Short_Literal	0x1
021f e5ff       |    |		Load	0x2,-0x1
0220 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0221 01d5       |    |		Execute	Vector,Field_Reference
0222 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0223 8006       |    |		Call	0x0,0x6
0224 8007       |    |		Call	0x0,0x7
0225 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0226 4802       |H   |		Short_Literal	0x2
0227 e5ff       |    |		Load	0x2,-0x1
0228 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0229 01d5       |    |		Execute	Vector,Field_Reference
022a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
022b 0f09       |    |		Execute_Immediate	Equal,0x9
022c 680e       |h   |		Jump_Zero	0x23b
022d 4803       |H   |		Short_Literal	0x3
022e e5ff       |    |		Load	0x2,-0x1
022f 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0230 01d5       |    |		Execute	Vector,Field_Reference
0231 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0232 8006       |    |		Call	0x0,0x6
0233 4801       |H   |		Short_Literal	0x1
0234 e5ff       |    |		Load	0x2,-0x1
0235 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0236 01d5       |    |		Execute	Vector,Field_Reference
0237 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0238 8006       |    |		Call	0x0,0x6
0239 8008       |    |		Call	0x0,0x8
023a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
023b 4802       |H   |		Short_Literal	0x2
023c e5ff       |    |		Load	0x2,-0x1
023d 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
023e 01d5       |    |		Execute	Vector,Field_Reference
023f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0240 0f07       |    |		Execute_Immediate	Equal,0x7
0241 69c4       |i   |		Jump_Zero	0x406
0242 4801       |H   |		Short_Literal	0x1
0243 e5ff       |    |		Load	0x2,-0x1
0244 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0245 01d5       |    |		Execute	Vector,Field_Reference
0246 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0247 680d       |h   |		Jump_Zero	0x255
0248 4803       |H   |		Short_Literal	0x3
0249 e5ff       |    |		Load	0x2,-0x1
024a 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
024b 01d5       |    |		Execute	Vector,Field_Reference
024c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
024d 4801       |H   |		Short_Literal	0x1
024e e5ff       |    |		Load	0x2,-0x1
024f 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0250 01d5       |    |		Execute	Vector,Field_Reference
0251 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0252 8006       |    |		Call	0x0,0x6
0253 8009       |    |		Call	0x0,0x9
0254 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0255 4803       |H   |		Short_Literal	0x3
0256 e5ff       |    |		Load	0x2,-0x1
0257 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0258 01d5       |    |		Execute	Vector,Field_Reference
0259 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
025a 4801       |H   |		Short_Literal	0x1
025b e5ff       |    |		Load	0x2,-0x1
025c 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
025d 01d5       |    |		Execute	Vector,Field_Reference
025e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
025f 8006       |    |		Call	0x0,0x6
0260 800a       |    |		Call	0x0,0xa
0261 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0262 4802       |H   |		Short_Literal	0x2
0263 e5ff       |    |		Load	0x2,-0x1
0264 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0265 01d5       |    |		Execute	Vector,Field_Reference
0266 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0267 0f0a       |    |		Execute_Immediate	Equal,0xa
0268 680d       |h   |		Jump_Zero	0x276
0269 4804       |H   |		Short_Literal	0x4
026a e5ff       |    |		Load	0x2,-0x1
026b 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
026c 01d5       |    |		Execute	Vector,Field_Reference
026d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
026e 4801       |H   |		Short_Literal	0x1
026f e5ff       |    |		Load	0x2,-0x1
0270 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0271 01d5       |    |		Execute	Vector,Field_Reference
0272 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0273 8006       |    |		Call	0x0,0x6
0274 800a       |    |		Call	0x0,0xa
0275 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0276 4804       |H   |		Short_Literal	0x4
0277 e5ff       |    |		Load	0x2,-0x1
0278 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0279 01d5       |    |		Execute	Vector,Field_Reference
027a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
027b 4801       |H   |		Short_Literal	0x1
027c e5ff       |    |		Load	0x2,-0x1
027d 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
027e 01d5       |    |		Execute	Vector,Field_Reference
027f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0280 8006       |    |		Call	0x0,0x6
0281 800b       |    |		Call	0x0,0xb
0282 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0283 4801       |H   |		Short_Literal	0x1
0284 e5ff       |    |		Load	0x2,-0x1
0285 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0286 01d5       |    |		Execute	Vector,Field_Reference
0287 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0288 0f0f       |    |		Execute_Immediate	Equal,0xf
0289 6807       |h   |		Jump_Zero	0x291
028a 4801       |H   |		Short_Literal	0x1
028b e5ff       |    |		Load	0x2,-0x1
028c 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
028d 01d5       |    |		Execute	Vector,Field_Reference
028e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
028f 800c       |    |		Call	0x0,0xc
0290 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0291 4801       |H   |		Short_Literal	0x1
0292 e5ff       |    |		Load	0x2,-0x1
0293 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0294 01d5       |    |		Execute	Vector,Field_Reference
0295 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0296 800d       |    |		Call	0x0,0xd
0297 00e0       |    |		Load_Encached	Standard_Cache
0298 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0299 800e       |    |		Call	0x0,0xe
029a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
029b e5ff       |    |		Load	0x2,-0x1
029c 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
029d 0f03       |    |		Execute_Immediate	Equal,0x3
029e 6851       |hQ  |		Jump_Zero	0x2f0
029f 4802       |H   |		Short_Literal	0x2
02a0 e5ff       |    |		Load	0x2,-0x1
02a1 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
02a2 01d5       |    |		Execute	Vector,Field_Reference
02a3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02a4 0f08       |    |		Execute_Immediate	Equal,0x8
02a5 680e       |h   |		Jump_Zero	0x2b4
02a6 4803       |H   |		Short_Literal	0x3
02a7 e5ff       |    |		Load	0x2,-0x1
02a8 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
02a9 01d5       |    |		Execute	Vector,Field_Reference
02aa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ab 8006       |    |		Call	0x0,0x6
02ac 4801       |H   |		Short_Literal	0x1
02ad e5ff       |    |		Load	0x2,-0x1
02ae 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
02af 01d5       |    |		Execute	Vector,Field_Reference
02b0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02b1 8006       |    |		Call	0x0,0x6
02b2 800f       |    |		Call	0x0,0xf
02b3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02b4 4802       |H   |		Short_Literal	0x2
02b5 e5ff       |    |		Load	0x2,-0x1
02b6 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
02b7 01d5       |    |		Execute	Vector,Field_Reference
02b8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02b9 0f09       |    |		Execute_Immediate	Equal,0x9
02ba 680e       |h   |		Jump_Zero	0x2c9
02bb 4803       |H   |		Short_Literal	0x3
02bc e5ff       |    |		Load	0x2,-0x1
02bd 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
02be 01d5       |    |		Execute	Vector,Field_Reference
02bf 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c0 8006       |    |		Call	0x0,0x6
02c1 4801       |H   |		Short_Literal	0x1
02c2 e5ff       |    |		Load	0x2,-0x1
02c3 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
02c4 01d5       |    |		Execute	Vector,Field_Reference
02c5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c6 8006       |    |		Call	0x0,0x6
02c7 8010       |    |		Call	0x0,0x10
02c8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02c9 4802       |H   |		Short_Literal	0x2
02ca e5ff       |    |		Load	0x2,-0x1
02cb 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
02cc 01d5       |    |		Execute	Vector,Field_Reference
02cd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02ce 0f07       |    |		Execute_Immediate	Equal,0x7
02cf 6936       |i6  |		Jump_Zero	0x406
02d0 4801       |H   |		Short_Literal	0x1
02d1 e5ff       |    |		Load	0x2,-0x1
02d2 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
02d3 01d5       |    |		Execute	Vector,Field_Reference
02d4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02d5 680d       |h   |		Jump_Zero	0x2e3
02d6 4803       |H   |		Short_Literal	0x3
02d7 e5ff       |    |		Load	0x2,-0x1
02d8 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
02d9 01d5       |    |		Execute	Vector,Field_Reference
02da 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02db 4801       |H   |		Short_Literal	0x1
02dc e5ff       |    |		Load	0x2,-0x1
02dd 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
02de 01d5       |    |		Execute	Vector,Field_Reference
02df 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02e0 8006       |    |		Call	0x0,0x6
02e1 8011       |    |		Call	0x0,0x11
02e2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02e3 4803       |H   |		Short_Literal	0x3
02e4 e5ff       |    |		Load	0x2,-0x1
02e5 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
02e6 01d5       |    |		Execute	Vector,Field_Reference
02e7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02e8 4801       |H   |		Short_Literal	0x1
02e9 e5ff       |    |		Load	0x2,-0x1
02ea 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
02eb 01d5       |    |		Execute	Vector,Field_Reference
02ec 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ed 8006       |    |		Call	0x0,0x6
02ee 8012       |    |		Call	0x0,0x12
02ef 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02f0 4802       |H   |		Short_Literal	0x2
02f1 e5ff       |    |		Load	0x2,-0x1
02f2 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
02f3 01d5       |    |		Execute	Vector,Field_Reference
02f4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02f5 0f0a       |    |		Execute_Immediate	Equal,0xa
02f6 680d       |h   |		Jump_Zero	0x304
02f7 4804       |H   |		Short_Literal	0x4
02f8 e5ff       |    |		Load	0x2,-0x1
02f9 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
02fa 01d5       |    |		Execute	Vector,Field_Reference
02fb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02fc 4801       |H   |		Short_Literal	0x1
02fd e5ff       |    |		Load	0x2,-0x1
02fe 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
02ff 01d5       |    |		Execute	Vector,Field_Reference
0300 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0301 8006       |    |		Call	0x0,0x6
0302 8012       |    |		Call	0x0,0x12
0303 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0304 4804       |H   |		Short_Literal	0x4
0305 e5ff       |    |		Load	0x2,-0x1
0306 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0307 01d5       |    |		Execute	Vector,Field_Reference
0308 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0309 4801       |H   |		Short_Literal	0x1
030a e5ff       |    |		Load	0x2,-0x1
030b 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
030c 01d5       |    |		Execute	Vector,Field_Reference
030d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
030e 8006       |    |		Call	0x0,0x6
030f 8013       |    |		Call	0x0,0x13
0310 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0311 4801       |H   |		Short_Literal	0x1
0312 e5ff       |    |		Load	0x2,-0x1
0313 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0314 01d5       |    |		Execute	Vector,Field_Reference
0315 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0316 8014       |    |		Call	0x0,0x14
0317 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0318 e5ff       |    |		Load	0x2,-0x1
0319 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
031a 0f01       |    |		Execute_Immediate	Equal,0x1
031b 6816       |h   |		Jump_Zero	0x332
031c 4801       |H   |		Short_Literal	0x1
031d e5ff       |    |		Load	0x2,-0x1
031e 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
031f 01d5       |    |		Execute	Vector,Field_Reference
0320 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0321 6808       |h   |		Jump_Zero	0x32a
0322 4801       |H   |		Short_Literal	0x1
0323 e5ff       |    |		Load	0x2,-0x1
0324 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0325 01d5       |    |		Execute	Vector,Field_Reference
0326 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0327 8006       |    |		Call	0x0,0x6
0328 8015       |    |		Call	0x0,0x15
0329 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
032a 4801       |H   |		Short_Literal	0x1
032b e5ff       |    |		Load	0x2,-0x1
032c 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
032d 01d5       |    |		Execute	Vector,Field_Reference
032e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
032f 8006       |    |		Call	0x0,0x6
0330 8016       |    |		Call	0x0,0x16
0331 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0332 4802       |H   |		Short_Literal	0x2
0333 e5ff       |    |		Load	0x2,-0x1
0334 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0335 01d5       |    |		Execute	Vector,Field_Reference
0336 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0337 0f0a       |    |		Execute_Immediate	Equal,0xa
0338 6808       |h   |		Jump_Zero	0x341
0339 4801       |H   |		Short_Literal	0x1
033a e5ff       |    |		Load	0x2,-0x1
033b 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
033c 01d5       |    |		Execute	Vector,Field_Reference
033d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
033e 8006       |    |		Call	0x0,0x6
033f 8016       |    |		Call	0x0,0x16
0340 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0341 4801       |H   |		Short_Literal	0x1
0342 e5ff       |    |		Load	0x2,-0x1
0343 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0344 01d5       |    |		Execute	Vector,Field_Reference
0345 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0346 8006       |    |		Call	0x0,0x6
0347 8017       |    |		Call	0x0,0x17
0348 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0349 4801       |H   |		Short_Literal	0x1
034a e5ff       |    |		Load	0x2,-0x1
034b 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
034c 01d5       |    |		Execute	Vector,Field_Reference
034d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
034e 0f05       |    |		Execute_Immediate	Equal,0x5
034f 6812       |h   |		Jump_Zero	0x362
0350 e018       |    |		Load	0x0,0x18
0351 70b4       |p   |		Jump_Nonzero	0x406
0352 4803       |H   |		Short_Literal	0x3
0353 e5ff       |    |		Load	0x2,-0x1
0354 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0355 01d5       |    |		Execute	Vector,Field_Reference
0356 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0357 8006       |    |		Call	0x0,0x6
0358 4801       |H   |		Short_Literal	0x1
0359 e5ff       |    |		Load	0x2,-0x1
035a 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
035b 01d5       |    |		Execute	Vector,Field_Reference
035c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
035d 8006       |    |		Call	0x0,0x6
035e 8019       |    |		Call	0x0,0x19
035f 4801       |H   |		Short_Literal	0x1
0360 c018       |    |		Store	0x0,0x18
0361 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0362 4803       |H   |		Short_Literal	0x3
0363 e5ff       |    |		Load	0x2,-0x1
0364 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0365 01d5       |    |		Execute	Vector,Field_Reference
0366 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0367 8006       |    |		Call	0x0,0x6
0368 4801       |H   |		Short_Literal	0x1
0369 e5ff       |    |		Load	0x2,-0x1
036a 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
036b 01d5       |    |		Execute	Vector,Field_Reference
036c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
036d 8019       |    |		Call	0x0,0x19
036e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
036f 4801       |H   |		Short_Literal	0x1
0370 e5ff       |    |		Load	0x2,-0x1
0371 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0372 01d5       |    |		Execute	Vector,Field_Reference
0373 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0374 801a       |    |		Call	0x0,0x1a
0375 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0376 4801       |H   |		Short_Literal	0x1
0377 c01b       |    |		Store	0x0,0x1b
0378 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0379 e5ff       |    |		Load	0x2,-0x1
037a 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
037b 0f01       |    |		Execute_Immediate	Equal,0x1
037c 6808       |h   |		Jump_Zero	0x385
037d 4801       |H   |		Short_Literal	0x1
037e e5ff       |    |		Load	0x2,-0x1
037f 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0380 01d5       |    |		Execute	Vector,Field_Reference
0381 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0382 8006       |    |		Call	0x0,0x6
0383 801c       |    |		Call	0x0,0x1c
0384 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0385 4802       |H   |		Short_Literal	0x2
0386 e5ff       |    |		Load	0x2,-0x1
0387 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0388 01d5       |    |		Execute	Vector,Field_Reference
0389 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
038a 0f0a       |    |		Execute_Immediate	Equal,0xa
038b 6808       |h   |		Jump_Zero	0x394
038c 4801       |H   |		Short_Literal	0x1
038d e5ff       |    |		Load	0x2,-0x1
038e 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
038f 01d5       |    |		Execute	Vector,Field_Reference
0390 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0391 8006       |    |		Call	0x0,0x6
0392 801d       |    |		Call	0x0,0x1d
0393 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0394 4801       |H   |		Short_Literal	0x1
0395 e5ff       |    |		Load	0x2,-0x1
0396 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0397 01d5       |    |		Execute	Vector,Field_Reference
0398 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0399 8006       |    |		Call	0x0,0x6
039a 801e       |    |		Call	0x0,0x1e
039b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
039c 4801       |H   |		Short_Literal	0x1
039d e5ff       |    |		Load	0x2,-0x1
039e 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
039f 01d5       |    |		Execute	Vector,Field_Reference
03a0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03a1 0f04       |    |		Execute_Immediate	Equal,0x4
03a2 6808       |h   |		Jump_Zero	0x3ab
03a3 4801       |H   |		Short_Literal	0x1
03a4 e5ff       |    |		Load	0x2,-0x1
03a5 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
03a6 01d5       |    |		Execute	Vector,Field_Reference
03a7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03a8 8006       |    |		Call	0x0,0x6
03a9 801f       |    |		Call	0x0,0x1f
03aa 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03ab 4801       |H   |		Short_Literal	0x1
03ac e5ff       |    |		Load	0x2,-0x1
03ad 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
03ae 01d5       |    |		Execute	Vector,Field_Reference
03af 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03b0 8006       |    |		Call	0x0,0x6
03b1 8020       |    |		Call	0x0,0x20
03b2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03b3 e021       | !  |		Load	0x0,0x21
03b4 4802       |H   |		Short_Literal	0x2
03b5 e5ff       |    |		Load	0x2,-0x1
03b6 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
03b7 01d5       |    |		Execute	Vector,Field_Reference
03b8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03b9 8022       | "  |		Call	0x0,0x22
03ba c021       | !  |		Store	0x0,0x21
03bb 4802       |H   |		Short_Literal	0x2
03bc e5ff       |    |		Load	0x2,-0x1
03bd 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
03be 01d5       |    |		Execute	Vector,Field_Reference
03bf 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03c0 8014       |    |		Call	0x0,0x14
03c1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03c2 e5ff       |    |		Load	0x2,-0x1
03c3 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
03c4 0f02       |    |		Execute_Immediate	Equal,0x2
03c5 6820       |h   |		Jump_Zero	0x3e6
03c6 4801       |H   |		Short_Literal	0x1
03c7 e5ff       |    |		Load	0x2,-0x1
03c8 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
03c9 01d5       |    |		Execute	Vector,Field_Reference
03ca 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03cb 680d       |h   |		Jump_Zero	0x3d9
03cc 4802       |H   |		Short_Literal	0x2
03cd e5ff       |    |		Load	0x2,-0x1
03ce 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
03cf 01d5       |    |		Execute	Vector,Field_Reference
03d0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03d1 4801       |H   |		Short_Literal	0x1
03d2 e5ff       |    |		Load	0x2,-0x1
03d3 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
03d4 01d5       |    |		Execute	Vector,Field_Reference
03d5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03d6 8006       |    |		Call	0x0,0x6
03d7 8023       | #  |		Call	0x0,0x23
03d8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03d9 4802       |H   |		Short_Literal	0x2
03da e5ff       |    |		Load	0x2,-0x1
03db 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
03dc 01d5       |    |		Execute	Vector,Field_Reference
03dd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03de 4801       |H   |		Short_Literal	0x1
03df e5ff       |    |		Load	0x2,-0x1
03e0 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
03e1 01d5       |    |		Execute	Vector,Field_Reference
03e2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03e3 8006       |    |		Call	0x0,0x6
03e4 8024       | $  |		Call	0x0,0x24
03e5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03e6 4802       |H   |		Short_Literal	0x2
03e7 e5ff       |    |		Load	0x2,-0x1
03e8 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
03e9 01d5       |    |		Execute	Vector,Field_Reference
03ea 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03eb 0f0a       |    |		Execute_Immediate	Equal,0xa
03ec 680d       |h   |		Jump_Zero	0x3fa
03ed 4803       |H   |		Short_Literal	0x3
03ee e5ff       |    |		Load	0x2,-0x1
03ef 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
03f0 01d5       |    |		Execute	Vector,Field_Reference
03f1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03f2 4801       |H   |		Short_Literal	0x1
03f3 e5ff       |    |		Load	0x2,-0x1
03f4 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
03f5 01d5       |    |		Execute	Vector,Field_Reference
03f6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03f7 8006       |    |		Call	0x0,0x6
03f8 8024       | $  |		Call	0x0,0x24
03f9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03fa 4803       |H   |		Short_Literal	0x3
03fb e5ff       |    |		Load	0x2,-0x1
03fc 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
03fd 01d5       |    |		Execute	Vector,Field_Reference
03fe 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03ff 4801       |H   |		Short_Literal	0x1
0400 e5ff       |    |		Load	0x2,-0x1
0401 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0402 01d5       |    |		Execute	Vector,Field_Reference
0403 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0404 8006       |    |		Call	0x0,0x6
0405 8025       | %  |		Call	0x0,0x25
0406 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0407 0000       |    |		.XXX[0x1]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040d       |    |		.CONST	0x040d								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0002       |    |		.CONST	0x0002								; Number of locals
040b			INIT_0408:
040b e215       |    |		Load	0x1,0x15
040c 0007       |    |		Action	Break_Optional
040d			BODY_0408:
040d 00db       |    |		Load_Top	At_Offset_3
040e 00d8       |    |		Load_Top	At_Offset_0
040f e214       |    |		Load	0x1,0x14
0410 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0411 e215       |    |		Load	0x1,0x15
0412 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0413 0039       | 9  |		Store_Top	Access,At_Offset_1
0414 00db       |    |		Load_Top	At_Offset_3
0415 4602       |F   |		Jump_Case	0x3
0416 7815       |x   |		Jump	0x42c								; case 0x0
0417 780b       |x   |		Jump	0x423								; case 0x1
0418 7800       |x   |		Jump	0x419								; case 0x2
0419 e5fe       |    |		Load	0x2,-0x2
041a e002       |    |		Load	0x0,0x2
041b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
041c 00e2       |    |		Load_Encached	Integer_Cache
041d 00e0       |    |		Load_Encached	Standard_Cache
041e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
041f 00d9       |    |		Load_Top	At_Offset_1
0420 0227       | '  |		Execute	Access,All_Reference
0421 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0422 7809       |x   |		Jump	0x42c
0423 00d8       |    |		Load_Top	At_Offset_0
0424 0229       | )  |		Execute	Access,All_Read
0425 00d8       |    |		Load_Top	At_Offset_0
0426 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0427 e5fe       |    |		Load	0x2,-0x2
0428 8022       | "  |		Call	0x0,0x22
0429 00d9       |    |		Load_Top	At_Offset_1
042a 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
042b 00d1       |    |		Pop_Control	Pop_Count_1
042c 00d8       |    |		Load_Top	At_Offset_0
042d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
042e 0000 0000  |    |		.XXX[0x2]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0435       | 5  |		.CONST	0x0435								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0002       |    |		.CONST	0x0002								; Number of locals
0433			INIT_0430:
0433 e215       |    |		Load	0x1,0x15
0434 0007       |    |		Action	Break_Optional
0435			BODY_0430:
0435 4800       |H   |		Short_Literal	0x0
0436 4801       |H   |		Short_Literal	0x1
0437 e215       |    |		Load	0x1,0x15
0438 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0439 0039       | 9  |		Store_Top	Access,At_Offset_1
043a 00db       |    |		Load_Top	At_Offset_3
043b 00d9       |    |		Load_Top	At_Offset_1
043c 0227       | '  |		Execute	Access,All_Reference
043d 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
043e e5fe       |    |		Load	0x2,-0x2
043f 00d9       |    |		Load_Top	At_Offset_1
0440 0227       | '  |		Execute	Access,All_Reference
0441 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0442 e5fd       |    |		Load	0x2,-0x3
0443 00d9       |    |		Load_Top	At_Offset_1
0444 0227       | '  |		Execute	Access,All_Reference
0445 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0446 00d8       |    |		Load_Top	At_Offset_0
0447 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b       | K  |		.CONST	0x044b								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0001       |    |		.CONST	0x0001								; Number of locals
044b			BODY_0448:
044b			INIT_0448:
044b 4607       |F   |		Jump_Case	0x8
044c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
044d 7807       |x   |		Jump	0x455								; case 0x1
044e 780a       |x   |		Jump	0x459								; case 0x2
044f 780e       |x   |		Jump	0x45e								; case 0x3
0450 7811       |x   |		Jump	0x462								; case 0x4
0451 7812       |x   |		Jump	0x464								; case 0x5
0452 7813       |x   |		Jump	0x466								; case 0x6
0453 7816       |x   |		Jump	0x46a								; case 0x7
0454 4302       |C   |		.XXX[0x1]
0455 00da       |    |		Load_Top	At_Offset_2
0456 0091 05d1  |    |		Action	Push_String_Extended_Indexed,0x5d1				; "AFFICHER"
0458 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0459 00db       |    |		Load_Top	At_Offset_3
045a 00db       |    |		Load_Top	At_Offset_3
045b 00e0       |    |		Load_Encached	Standard_Cache
045c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
045d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
045e 00da       |    |		Load_Top	At_Offset_2
045f 00e0       |    |		Load_Encached	Standard_Cache
0460 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0461 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0462 00db       |    |		Load_Top	At_Offset_3
0463 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0464 00db       |    |		Load_Top	At_Offset_3
0465 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0466 e21e       |    |		Load	0x1,0x1e
0467 00dc       |    |		Load_Top	At_Offset_4
0468 0267       | g  |		Execute	Discrete,Predecessor
0469 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
046a e21e       |    |		Load	0x1,0x1e
046b 00dc       |    |		Load_Top	At_Offset_4
046c 0268       | h  |		Execute	Discrete,Successor
046d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
046e 0000 0000  |    |		.XXX[0x2]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473       | s  |		.CONST	0x0473								; Address of begin
0471 0479       | y  |		.CONST	0x0479								; Address of exception handler
0472 0001       |    |		.CONST	0x0001								; Number of locals
0473			BODY_0470:
0473			INIT_0470:
0473 00da       |    |		Load_Top	At_Offset_2
0474 e002       |    |		Load	0x0,0x2
0475 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0476 e20d       |    |		Load	0x1,0xd
0477 1c02       |    |		Execute_Immediate	Run_Utility,0x2
0478 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0479			TRAP_0470:
0479 010e       |    |		Execute	Exception,Is_Constraint_Error
047a 6802       |h   |		Jump_Zero	0x47d
047b 4810       |H   |		Short_Literal	0x10
047c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
047d 0100       |    |		Execute	Exception,Raise
047e 0000 0000  |    |		.XXX[0x2]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483       |    |		.CONST	0x0483								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0001       |    |		.CONST	0x0001								; Number of locals
0483			BODY_0480:
0483			INIT_0480:
0483 00da       |    |		Load_Top	At_Offset_2
0484 e002       |    |		Load	0x0,0x2
0485 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0486 e21e       |    |		Load	0x1,0x1e
0487 1c02       |    |		Execute_Immediate	Run_Utility,0x2
0488 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0489 0000 0000  |    |		.BLANK	0000[0x7]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493       |    |		.CONST	0x0493								; Address of begin
0491 0004       |    |		.CONST	0x0004								; Address of exception handler
0492 0001       |    |		.CONST	0x0001								; Number of locals
0493			BODY_0490:
0493			INIT_0490:
0493 00da       |    |		Load_Top	At_Offset_2
0494 0227       | '  |		Execute	Access,All_Reference
0495 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0496 705c       |p\  |		Jump_Nonzero	0x4f3
0497 00da       |    |		Load_Top	At_Offset_2
0498 0227       | '  |		Execute	Access,All_Reference
0499 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
049a 8221       | !  |		Call	0x1,0x21
049b 00da       |    |		Load_Top	At_Offset_2
049c 0227       | '  |		Execute	Access,All_Reference
049d 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
049e 8221       | !  |		Call	0x1,0x21
049f 00da       |    |		Load_Top	At_Offset_2
04a0 0227       | '  |		Execute	Access,All_Reference
04a1 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04a2 4604       |F   |		Jump_Case	0x5
04a3 7813       |x   |		Jump	0x4b7								; case 0x0
04a4 7821       |x!  |		Jump	0x4c6								; case 0x1
04a5 783e       |x>  |		Jump	0x4e4								; case 0x2
04a6 782e       |x.  |		Jump	0x4d5								; case 0x3
04a7 7800       |x   |		Jump	0x4a8								; case 0x4
04a8 00da       |    |		Load_Top	At_Offset_2
04a9 0227       | '  |		Execute	Access,All_Reference
04aa 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04ab 0227       | '  |		Execute	Access,All_Reference
04ac 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04ad 00db       |    |		Load_Top	At_Offset_3
04ae 0227       | '  |		Execute	Access,All_Reference
04af 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
04b0 0227       | '  |		Execute	Access,All_Reference
04b1 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04b2 026e       | n  |		Execute	Discrete,Modulo
04b3 00db       |    |		Load_Top	At_Offset_3
04b4 0227       | '  |		Execute	Access,All_Reference
04b5 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04b6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04b7 00da       |    |		Load_Top	At_Offset_2
04b8 0227       | '  |		Execute	Access,All_Reference
04b9 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04ba 0227       | '  |		Execute	Access,All_Reference
04bb 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04bc 00db       |    |		Load_Top	At_Offset_3
04bd 0227       | '  |		Execute	Access,All_Reference
04be 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
04bf 0227       | '  |		Execute	Access,All_Reference
04c0 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04c1 0273       | s  |		Execute	Discrete,Plus
04c2 00db       |    |		Load_Top	At_Offset_3
04c3 0227       | '  |		Execute	Access,All_Reference
04c4 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04c5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04c6 00da       |    |		Load_Top	At_Offset_2
04c7 0227       | '  |		Execute	Access,All_Reference
04c8 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04c9 0227       | '  |		Execute	Access,All_Reference
04ca 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04cb 00db       |    |		Load_Top	At_Offset_3
04cc 0227       | '  |		Execute	Access,All_Reference
04cd 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
04ce 0227       | '  |		Execute	Access,All_Reference
04cf 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04d0 0272       | r  |		Execute	Discrete,Minus
04d1 00db       |    |		Load_Top	At_Offset_3
04d2 0227       | '  |		Execute	Access,All_Reference
04d3 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04d4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04d5 00da       |    |		Load_Top	At_Offset_2
04d6 0227       | '  |		Execute	Access,All_Reference
04d7 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04d8 0227       | '  |		Execute	Access,All_Reference
04d9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04da 00db       |    |		Load_Top	At_Offset_3
04db 0227       | '  |		Execute	Access,All_Reference
04dc 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
04dd 0227       | '  |		Execute	Access,All_Reference
04de 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04df 0271       | q  |		Execute	Discrete,Times
04e0 00db       |    |		Load_Top	At_Offset_3
04e1 0227       | '  |		Execute	Access,All_Reference
04e2 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04e3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04e4 00da       |    |		Load_Top	At_Offset_2
04e5 0227       | '  |		Execute	Access,All_Reference
04e6 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04e7 0227       | '  |		Execute	Access,All_Reference
04e8 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04e9 00db       |    |		Load_Top	At_Offset_3
04ea 0227       | '  |		Execute	Access,All_Reference
04eb 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
04ec 0227       | '  |		Execute	Access,All_Reference
04ed 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04ee 0270       | p  |		Execute	Discrete,Divide
04ef 00db       |    |		Load_Top	At_Offset_3
04f0 0227       | '  |		Execute	Access,All_Reference
04f1 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04f2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04f3 00da       |    |		Load_Top	At_Offset_2
04f4 0227       | '  |		Execute	Access,All_Reference
04f5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04f6 0f02       |    |		Execute_Immediate	Equal,0x2
04f7 6807       |h   |		Jump_Zero	0x4ff
04f8 00da       |    |		Load_Top	At_Offset_2
04f9 0227       | '  |		Execute	Access,All_Reference
04fa 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
04fb 00db       |    |		Load_Top	At_Offset_3
04fc 0227       | '  |		Execute	Access,All_Reference
04fd 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04fe 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04ff 00da       |    |		Load_Top	At_Offset_2
0500 0227       | '  |		Execute	Access,All_Reference
0501 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0502 800d       |    |		Call	0x0,0xd
0503 00db       |    |		Load_Top	At_Offset_3
0504 0227       | '  |		Execute	Access,All_Reference
0505 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0506 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0507 0000       |    |		.XXX[0x1]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b       |    |		.CONST	0x050b								; Address of begin
0509 0004       |    |		.CONST	0x0004								; Address of exception handler
050a 0001       |    |		.CONST	0x0001								; Number of locals
050b			BODY_0508:
050b			BODY_0508:
050b			INIT_0508:
050b			INIT_0508:
050b 4609       |F   |		Jump_Case	0xa
050c 7809       |x   |		Jump	0x516								; case 0x0
050d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
050e 781a       |x   |		Jump	0x529								; case 0x2
050f 781d       |x   |		Jump	0x52d								; case 0x3
0510 7822       |x"  |		Jump	0x533								; case 0x4
0511 782c       |x,  |		Jump	0x53e								; case 0x5
0512 7835       |x5  |		Jump	0x548								; case 0x6
0513 783f       |x?  |		Jump	0x553								; case 0x7
0514 784c       |xL  |		Jump	0x561								; case 0x8
0515 7852       |xR  |		Jump	0x568								; case 0x9
0516 00da       |    |		Load_Top	At_Offset_2
0517 016c       | l  |		Execute	Variant_Record,Is_Constrained
0518 7009       |p   |		Jump_Nonzero	0x522
0519 00cf       |    |		Action	Mark_Auxiliary
051a 4800       |H   |		Short_Literal	0x0
051b e5ff       |    |		Load	0x2,-0x1
051c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
051d 00d8       |    |		Load_Top	At_Offset_0
051e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
051f c5ff       |    |		Store	0x2,-0x1
0520 00ce       |    |		Action	Pop_Auxiliary
0521 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0522 00da       |    |		Load_Top	At_Offset_2
0523 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0524 4602       |F   |		Jump_Case	0x3
0525 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0526 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0527 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0528 4302       |C   |		.XXX[0x1]
0529 4801       |H   |		Short_Literal	0x1
052a 4807       |H   |		Short_Literal	0x7
052b 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
052c 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
052d e5fd       |    |		Load	0x2,-0x3
052e 00db       |    |		Load_Top	At_Offset_3
052f 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0530 e5fe       |    |		Load	0x2,-0x2
0531 0306       |    |		Complete_Type	Variant_Record,By_Renaming
0532 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
0533 4801       |H   |		Short_Literal	0x1
0534 4807       |H   |		Short_Literal	0x7
0535 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0536 e5fe       |    |		Load	0x2,-0x2
0537 00d8       |    |		Load_Top	At_Offset_0
0538 e5ff       |    |		Load	0x2,-0x1
0539 1c06       |    |		Execute_Immediate	Run_Utility,0x6
053a e5ff       |    |		Load	0x2,-0x1
053b 00db       |    |		Load_Top	At_Offset_3
053c 0305       |    |		Complete_Type	Variant_Record,By_Constraining_Incomplete
053d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
053e 4801       |H   |		Short_Literal	0x1
053f 00db       |    |		Load_Top	At_Offset_3
0540 0169       | i  |		Execute	Variant_Record,Read_Discriminant_Constraint
0541 4602       |F   |		Jump_Case	0x3
0542 7802       |x   |		Jump	0x545								; case 0x0
0543 7801       |x   |		Jump	0x545								; case 0x1
0544 7800       |x   |		Jump	0x545								; case 0x2
0545 e5ff       |    |		Load	0x2,-0x1
0546 0304       |    |		Complete_Type	Variant_Record,By_Completing_Constraint
0547 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0548 00db       |    |		Load_Top	At_Offset_3
0549 4602       |F   |		Jump_Case	0x3
054a 7804       |x   |		Jump	0x54f								; case 0x0
054b 7805       |x   |		Jump	0x551								; case 0x1
054c 7800       |x   |		Jump	0x54d								; case 0x2
054d 4802       |H   |		Short_Literal	0x2
054e 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
054f 4801       |H   |		Short_Literal	0x1
0550 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0551 4803       |H   |		Short_Literal	0x3
0552 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0553 00db       |    |		Load_Top	At_Offset_3
0554 e5fe       |    |		Load	0x2,-0x2
0555 4602       |F   |		Jump_Case	0x3
0556 7804       |x   |		Jump	0x55b								; case 0x0
0557 7805       |x   |		Jump	0x55d								; case 0x1
0558 7800       |x   |		Jump	0x559								; case 0x2
0559 4802       |H   |		Short_Literal	0x2
055a 7803       |x   |		Jump	0x55e
055b 4801       |H   |		Short_Literal	0x1
055c 7801       |x   |		Jump	0x55e
055d 4803       |H   |		Short_Literal	0x3
055e e5ff       |    |		Load	0x2,-0x1
055f 031b       |    |		Declare_Type	Variant_Record,Constrained
0560 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0561 00db       |    |		Load_Top	At_Offset_3
0562 e5fe       |    |		Load	0x2,-0x2
0563 e5ff       |    |		Load	0x2,-0x1
0564 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0565 e5ff       |    |		Load	0x2,-0x1
0566 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0567 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0568 4800       |H   |		Short_Literal	0x0
0569 00db       |    |		Load_Top	At_Offset_3
056a 1c07       |    |		Execute_Immediate	Run_Utility,0x7
056b 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
056c 0000 0000  |    |		.BLANK	0000[0x4]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0573       | s  |		.CONST	0x0573								; Address of begin
0571 0004       |    |		.CONST	0x0004								; Address of exception handler
0572 0001       |    |		.CONST	0x0001								; Number of locals
0573			BODY_0570:
0573			INIT_0570:
0573 4609       |F   |		Jump_Case	0xa
0574 7809       |x   |		Jump	0x57e								; case 0x0
0575 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0576 7818       |x   |		Jump	0x58f								; case 0x2
0577 781b       |x   |		Jump	0x593								; case 0x3
0578 783c       |x<  |		Jump	0x5b5								; case 0x4
0579 783b       |x;  |		Jump	0x5b5								; case 0x5
057a 781e       |x   |		Jump	0x599								; case 0x6
057b 7824       |x$  |		Jump	0x5a0								; case 0x7
057c 782d       |x-  |		Jump	0x5aa								; case 0x8
057d 7833       |x3  |		Jump	0x5b1								; case 0x9
057e 00da       |    |		Load_Top	At_Offset_2
057f 016c       | l  |		Execute	Variant_Record,Is_Constrained
0580 7009       |p   |		Jump_Nonzero	0x58a
0581 00cf       |    |		Action	Mark_Auxiliary
0582 4800       |H   |		Short_Literal	0x0
0583 e5ff       |    |		Load	0x2,-0x1
0584 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0585 00d8       |    |		Load_Top	At_Offset_0
0586 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0587 c5ff       |    |		Store	0x2,-0x1
0588 00ce       |    |		Action	Pop_Auxiliary
0589 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
058a 00da       |    |		Load_Top	At_Offset_2
058b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
058c 0f01       |    |		Execute_Immediate	Equal,0x1
058d 7000       |p   |		Jump_Nonzero	0x58e
058e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
058f 4801       |H   |		Short_Literal	0x1
0590 4805       |H   |		Short_Literal	0x5
0591 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0592 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0593 e5fd       |    |		Load	0x2,-0x3
0594 00db       |    |		Load_Top	At_Offset_3
0595 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0596 e5fe       |    |		Load	0x2,-0x2
0597 0306       |    |		Complete_Type	Variant_Record,By_Renaming
0598 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
0599 00db       |    |		Load_Top	At_Offset_3
059a 0f01       |    |		Execute_Immediate	Equal,0x1
059b 7002       |p   |		Jump_Nonzero	0x59e
059c 4802       |H   |		Short_Literal	0x2
059d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
059e 4801       |H   |		Short_Literal	0x1
059f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05a0 00db       |    |		Load_Top	At_Offset_3
05a1 e5fe       |    |		Load	0x2,-0x2
05a2 0f01       |    |		Execute_Immediate	Equal,0x1
05a3 7002       |p   |		Jump_Nonzero	0x5a6
05a4 4802       |H   |		Short_Literal	0x2
05a5 7801       |x   |		Jump	0x5a7
05a6 4801       |H   |		Short_Literal	0x1
05a7 e5ff       |    |		Load	0x2,-0x1
05a8 031b       |    |		Declare_Type	Variant_Record,Constrained
05a9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05aa 00db       |    |		Load_Top	At_Offset_3
05ab e5fe       |    |		Load	0x2,-0x2
05ac e5ff       |    |		Load	0x2,-0x1
05ad 1c06       |    |		Execute_Immediate	Run_Utility,0x6
05ae e5ff       |    |		Load	0x2,-0x1
05af 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
05b0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05b1 4800       |H   |		Short_Literal	0x0
05b2 00db       |    |		Load_Top	At_Offset_3
05b3 1c07       |    |		Execute_Immediate	Run_Utility,0x7
05b4 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
05b5 0869       | i  |		Execute_Immediate	Raise,0x69
05b6 ; --------------------------------------------------------------------------------------
05b6 ; STRING TABLE
05b6 ; --------------------------------------------------------------------------------------
05b6 0058       | X  |		.STRTAB	0x0058->0x05e2							; "COMMUNICATION"
05b7 0063       | c  |		.STRTAB	0x0063->0x05e8							; "COMPTEUR"
05b8 0069       | i  |		.STRTAB	0x0069->0x05ec							; "LIEU"
05b9 006b       | k  |		.STRTAB	0x006b->0x05ee							; "OBJET"
05ba 006e       | n  |		.STRTAB	0x006e->0x05f1							; "PERSONNAGE"
05bb 0076       | v  |		.STRTAB	0x0076->0x05f6							; "JOUEUR"
05bc 007a       | z  |		.STRTAB	0x007a->0x05f9							; "POSITIONCOURANTE"
05bd 0088       |    |		.STRTAB	0x0088->0x0601							; "ETAT"
05be 008a       |    |		.STRTAB	0x008a->0x0603							; "POSSESSION"
05bf 0092       |    |		.STRTAB	0x0092->0x0608							; "CONTENU"
05c0 0097       |    |		.STRTAB	0x0097->0x060b							; "SENS1"
05c1 009a       |    |		.STRTAB	0x009a->0x060e							; "SENS2"
05c2 009d       |    |		.STRTAB	0x009d->0x0610							; "VERS"
05c3 009f       |    |		.STRTAB	0x009f->0x0612							; "SORTIE"
05c4 00a3       |    |		.STRTAB	0x00a3->0x0615							; "EST"
05c5 00a4       |    |		.STRTAB	0x00a4->0x0617							; "TEXTE"
05c6 00a7       |    |		.STRTAB	0x00a7->0x0619							; "UNKNOWN"
05c7 00ac       |    |		.STRTAB	0x00ac->0x061d							; "TYPE_NODE"
05c8 00b3       |    |		.STRTAB	0x00b3->0x0621							; "TYPE_LEAF_ID"
05c9 00bd       |    |		.STRTAB	0x00bd->0x0627							; "TYPE_LEAF_NUMERIC"
05ca 00cc       |    |		.STRTAB	0x00cc->0x0630							; "PLUS"
05cb 00ce       |    |		.STRTAB	0x00ce->0x0632							; "MOINS"
05cc 00d1       |    |		.STRTAB	0x00d1->0x0634							; "DIV"
05cd 00d2       |    |		.STRTAB	0x00d2->0x0636							; "MULT"
05ce 00d4       |    |		.STRTAB	0x00d4->0x0638							; "MODULO"
05cf 00d8       |    |		.STRTAB	0x00d8->0x063b							; "TYPE_VARIABLE"
05d0 00e3       |    |		.STRTAB	0x00e3->0x0641							; "TYPE_FUNCTION"
05d1 00ee       |    |		.STRTAB	0x00ee->0x0648							; "AFFICHER"
05d2 00f4       |    |		.STRTAB	0x00f4->0x064c							; "AJOUTER"
05d3 00f9       |    |		.STRTAB	0x00f9->0x064f							; "CREER"
05d4 00fc       |    |		.STRTAB	0x00fc->0x0652							; "DECRIRE"
05d5 0101       |    |		.STRTAB	0x0101->0x0655							; "DEPLACER"
05d6 0107       |    |		.STRTAB	0x0107->0x0659							; "DETRUIRE"
05d7 010d       |    |		.STRTAB	0x010d->0x065d							; "FINDUJEU"
05d8 0113       |    |		.STRTAB	0x0113->0x0661							; "INFORMER"
05d9 0119       |    |		.STRTAB	0x0119->0x0665							; "INVENTAIRE"
05da 0121       | !  |		.STRTAB	0x0121->0x066a							; "JOUEUR"
05db 0125       | %  |		.STRTAB	0x0125->0x066d							; "MODIFIERDESCRIPTION"
05dc 0136       | 6  |		.STRTAB	0x0136->0x0677							; "SUPPRIMER"
05dd 013d       | =  |		.STRTAB	0x013d->0x067b							; "/"
05de 013c       | <  |		.STRTAB	0x013c->0x067c							; "+"
05df 013b       | ;  |		.STRTAB	0x013b->0x067c							; "-"
05e0 013a       | :  |		.STRTAB	0x013a->0x067d							; "*"
05e1 0139       | 9  |		.STREND 0x0139->0x067d
05e2 434f 4d4d  |COMM|		.STRTAB_STRINGS
067e 0000 0000  |    |		.XXX[0x2]
0680 ; --------------------------------------------------------------------------------------
0680 ; Debug Table
0680 ; --------------------------------------------------------------------------------------
0680 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xebc1,0x0000,0x0001,0x0013
0686 000b 06d2  |    |		.DBG4T	0x000b,0x06d2,0x8000,0x8000
068a 006f 06f8  | o  |		.DBG4T	0x006f,0x06f8,0x8000,0x8000
068e 0093 0000  |    |		.DBG4T	0x0093,0x0000,0x0005,0x0000
0692 00bb 0710  |    |		.DBG4T	0x00bb,0x0710,0x0002,0x0000
0696 00d3 0717  |    |		.DBG4T	0x00d3,0x0717,0x0002,0x4000
069a 0133 0000  | 3  |		.DBG4T	0x0133,0x0000,0x0005,0x0000
069e 015b 0000  | [  |		.DBG4T	0x015b,0x0000,0x0005,0x0000
06a2 0183 0743  |   C|		.DBG4T	0x0183,0x0743,0x0002,0x0000
06a6 01b3 0000  |    |		.DBG4T	0x01b3,0x0000,0x0005,0x0000
06aa 01db 074e  |   N|		.DBG4T	0x01db,0x074e,0x0002,0x0000
06ae 01eb 0752  |   R|		.DBG4T	0x01eb,0x0752,0x0001,0x4000
06b2 040b 07d4  |    |		.DBG4T	0x040b,0x07d4,0x0002,0x4000
06b6 0433 07e1  | 3  |		.DBG4T	0x0433,0x07e1,0x0002,0x0000
06ba 044b 0000  | K  |		.DBG4T	0x044b,0x0000,0x0005,0x0000
06be 0473 07e9  | s  |		.DBG4T	0x0473,0x07e9,0x0002,0x0000
06c2 0483 07ed  |    |		.DBG4T	0x0483,0x07ed,0x0002,0x0000
06c6 0493 07f0  |    |		.DBG4T	0x0493,0x07f0,0x0001,0x4000
06ca 050b 0000  |    |		.DBG4T	0x050b,0x0000,0x0005,0x0000
06ce 0573 0000  | s  |		.DBG4T	0x0573,0x0000,0x0005,0x0000
06d2 ; --------------------------------------------------------------------------------------
06d2 ; Debug chain
06d2 ; --------------------------------------------------------------------------------------
06d2 0012 0000  |    |		.DBGLEN	0x0012,0x0000
06d4 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0012,0x0014,0x001a,0x0020,0x0025,0x002a,0x0035,0x0039,0x003b,0x0040,0x0050,0x0054,0x0056,0x0058,0x005a,0x005c
06e6 0001 0002  |    |		.XXX[0x12]
06e8 0003 0004  |    |
06ea 0005 0006  |    |
06ec 0007 0008  |    |
06ee 0009 000a  |    |
06f0 000b 000c  |    |
06f2 000d 000f  |    |
06f4 0010 0011  |    |
06f6 0012 0013  |    |
06f8 ; --------------------------------------------------------------------------------------
06f8 ; Debug chain
06f8 ; --------------------------------------------------------------------------------------
06f8 000b 0000  |    |		.DBGLEN	0x000b,0x0000
06fa 006f 0074  | o t|		.DBGLNO	0x006f,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086
0705 0001 0003  |    |		.XXX[0xb]
0707 0004 0005  |    |
0709 0006 0007  |    |
070b 0008 0009  |    |
070d 000a 000b  |    |
070f 000c       |    |
0710 ; --------------------------------------------------------------------------------------
0710 ; Debug chain
0710 ; --------------------------------------------------------------------------------------
0710 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0712 00bb 00bd  |    |		.DBGLNO	0x00bb,0x00bd,0x00c0,0x00c9,0x00cc
0717 ; --------------------------------------------------------------------------------------
0717 ; Debug chain
0717 ; --------------------------------------------------------------------------------------
0717 0000 0015  |    |		.DBGLEN	0x0000,0x0015
0719 00d3 00e6  |    |		.DBGLNO	0x00d3,0x00e6,0x00e8,0x00f1,0x00f3,0x00fc,0x00fe,0x0101,0x0103,0x010c,0x010e,0x0111,0x0113,0x0119,0x011b,0x011e,0x0120,0x0123,0x0125,0x0128,0x012a
072e 0001 0014  |    |		.XXX[0x15]
0730 0002 0003  |    |
0732 0004 0005  |    |
0734 0006 0007  |    |
0736 0008 0009  |    |
0738 000a 000b  |    |
073a 000c 000d  |    |
073c 000e 000f  |    |
073e 0010 0011  |    |
0740 0012 0013  |    |
0742 0015       |    |
0743 ; --------------------------------------------------------------------------------------
0743 ; Debug chain
0743 ; --------------------------------------------------------------------------------------
0743 0000 0009  |    |		.DBGLEN	0x0000,0x0009
0745 0183 018a  |    |		.DBGLNO	0x0183,0x018a,0x018c,0x0193,0x0195,0x019c,0x019e,0x01a5,0x01a7
074e ; --------------------------------------------------------------------------------------
074e ; Debug chain
074e ; --------------------------------------------------------------------------------------
074e 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0750 01db 01dd  |    |		.DBGLNO	0x01db,0x01dd
0752 ; --------------------------------------------------------------------------------------
0752 ; Debug chain
0752 ; --------------------------------------------------------------------------------------
0752 0002 003f  |   ?|		.DBGLEN	0x0002,0x003f
0754 01eb 01ed  |    |		.DBGLNO	0x01eb,0x01ed,0x01ef,0x01f4,0x01f9,0x01ff,0x020d,0x0211,0x0218,0x0226,0x022d,0x023b,0x0242,0x0248,0x0255,0x0262,0x0269,0x0276,0x0283,0x028a,0x0291,0x029b,0x029f,0x02a6,0x02b4,0x02bb,0x02c9,0x02d0,0x02d6,0x02e3,0x02f0,0x02f7,0x0304,0x0311,0x0318,0x031c,0x0322,0x032a,0x0332,0x0339,0x0341,0x0349,0x0350,0x0352,0x035f,0x0362,0x036f,0x0376,0x0379,0x037d,0x0385,0x038c,0x0394,0x039c,0x03a3,0x03ab,0x03b3,0x03bb,0x03c2,0x03c6,0x03cc,0x03d9,0x03e6,0x03ed,0x03fa
0795 0001 0003  |    |		.XXX[0x3f]
0797 0004 0005  |    |
0799 0035 0036  | 5 6|
079b 0037 0038  | 7 8|
079d 0039 003a  | 9 :|
079f 003b 003c  | ; <|
07a1 003d 003e  | = >|
07a3 003f 0040  | ? @|
07a5 0006 0007  |    |
07a7 0008 0009  |    |
07a9 000a 000b  |    |
07ab 000c 000d  |    |
07ad 000e 000f  |    |
07af 0010 0011  |    |
07b1 0012 0013  |    |
07b3 0014 0015  |    |
07b5 0016 0017  |    |
07b7 0018 0019  |    |
07b9 001a 001b  |    |
07bb 001c 001d  |    |
07bd 001e 001f  |    |
07bf 0020 0021  |   !|
07c1 0022 0023  | " #|
07c3 0024 0025  | $ %|
07c5 0026 0027  | & '|
07c7 0028 0029  | ( )|
07c9 002a 002b  | * +|
07cb 002c 002d  | , -|
07cd 002e 002f  | . /|
07cf 0030 0031  | 0 1|
07d1 0032 0033  | 2 3|
07d3 0034       | 4  |
07d4 ; --------------------------------------------------------------------------------------
07d4 ; Debug chain
07d4 ; --------------------------------------------------------------------------------------
07d4 0001 0005  |    |		.DBGLEN	0x0001,0x0005
07d6 040b 040d  |    |		.DBGLNO	0x040b,0x040d,0x0414,0x0419,0x0423,0x042c
07dc 0001 0002  |    |		.XXX[0x5]
07de 0004 0005  |    |
07e0 0006       |    |
07e1 ; --------------------------------------------------------------------------------------
07e1 ; Debug chain
07e1 ; --------------------------------------------------------------------------------------
07e1 0001 0005  |    |		.DBGLEN	0x0001,0x0005
07e3 0433 0435  | 3 5|		.DBGLNO	0x0433,0x0435,0x043a,0x043e,0x0442,0x0446
07e9 ; --------------------------------------------------------------------------------------
07e9 ; Debug chain
07e9 ; --------------------------------------------------------------------------------------
07e9 0000 0002  |    |		.DBGLEN	0x0000,0x0002
07eb 0473 047b  | s {|		.DBGLNO	0x0473,0x047b
07ed ; --------------------------------------------------------------------------------------
07ed ; Debug chain
07ed ; --------------------------------------------------------------------------------------
07ed 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07ef 0483       |    |		.DBGLNO	0x0483
07f0 ; --------------------------------------------------------------------------------------
07f0 ; Debug chain
07f0 ; --------------------------------------------------------------------------------------
07f0 0000 000c  |    |		.DBGLEN	0x0000,0x000c
07f2 0493 0497  |    |		.DBGLNO	0x0493,0x0497,0x049b,0x049f,0x04a8,0x04b7,0x04c6,0x04d5,0x04e4,0x04f3,0x04f8,0x04ff
07fe 0001 0002  |    |		.XXX[0xc]
0800 0003 0004  |    |
0802 0009 0005  |    |
0804 0006 0007  |    |
0806 0008 000a  |    |
0808 000b 000c  |    |
080a 0000 0000  |    |		.BLANK	0000[0x1f6]