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

⟦469dd22c1⟧

    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 06b0       |    |		.CONST	0x06b0								; 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 008f       |    |		.CONST	0x008f								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0022       | "  |		.CONST	0x0022								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4819       |H   |		Short_Literal	0x19
000d 029f 009b  |    |		Declare_Subprogram	INIT_0098,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0012 029a 00db  |    |		Declare_Subprogram	INIT_00d8,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 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0022 4800       |H   |		Short_Literal	0x0
0023 4803       |H   |		Short_Literal	0x3
0024 029f 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Call
0026 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0027 4800       |H   |		Short_Literal	0x0
0028 4802       |H   |		Short_Literal	0x2
0029 029f 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Call
002b 03fe       |    |		Declare_Type	Discrete,Defined,Visible
002c 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
002e 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
0030 00db       |    |		Load_Top	At_Offset_3
0031 4802       |H   |		Short_Literal	0x2
0032 e211       |    |		Load	0x1,0x11
0033 00e3       |    |		Load_Encached	Natural_Cache
0034 4804       |H   |		Short_Literal	0x4
0035 e211       |    |		Load	0x1,0x11
0036 00d8       |    |		Load_Top	At_Offset_0
0037 00e4       |    |		Load_Encached	Positive_Cache
0038 00e4       |    |		Load_Encached	Positive_Cache
0039 4803       |H   |		Short_Literal	0x3
003a e002       |    |		Load	0x0,0x2
003b 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
003c 00e3       |    |		Load_Encached	Natural_Cache
003d e214       |    |		Load	0x1,0x14
003e 029f 05a3  |    |		Declare_Subprogram	INIT_05a0,For_Call
0040 4809       |H   |		Short_Literal	0x9
0041 4800       |H   |		Short_Literal	0x0
0042 4803       |H   |		Short_Literal	0x3
0043 4800       |H   |		Short_Literal	0x0
0044 4801       |H   |		Short_Literal	0x1
0045 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0046 4800       |H   |		Short_Literal	0x0
0047 4801       |H   |		Short_Literal	0x1
0048 029f 0253  |   S|		Declare_Subprogram	INIT_0250,For_Call
004a 03fe       |    |		Declare_Type	Discrete,Defined,Visible
004b 4800       |H   |		Short_Literal	0x0
004c 4802       |H   |		Short_Literal	0x2
004d 029f 027b  |   {|		Declare_Subprogram	INIT_0278,For_Call
004f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0050 00d9       |    |		Load_Top	At_Offset_1
0051 4802       |H   |		Short_Literal	0x2
0052 4800       |H   |		Short_Literal	0x0
0053 4801       |H   |		Short_Literal	0x1
0054 4806       |H   |		Short_Literal	0x6
0055 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
0056 029f 0543  |   C|		Declare_Subprogram	INIT_0540,For_Call
0058 00d9       |    |		Load_Top	At_Offset_1
0059 012a       | *  |		Execute	Any,Change_Utility
005a 0007       |    |		Action	Break_Optional
005b 00d8       |    |		Load_Top	At_Offset_0
005c 02a0       |    |		Declare_Subprogram	Null_Subprogram
005d 4818       |H   |		Short_Literal	0x18
005e 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
005f 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0061 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
0063 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0065 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
0067 00e1       |    |		Load_Encached	Boolean_Cache
0068 4803       |H   |		Short_Literal	0x3
0069 e21b       |    |		Load	0x1,0x1b
006a 00d8       |    |		Load_Top	At_Offset_0
006b e219       |    |		Load	0x1,0x19
006c 4801       |H   |		Short_Literal	0x1
006d e217       |    |		Load	0x1,0x17
006e 029f 0543  |   C|		Declare_Subprogram	INIT_0540,For_Call
0070 4804       |H   |		Short_Literal	0x4
0071 4801       |H   |		Short_Literal	0x1
0072 e21a       |    |		Load	0x1,0x1a
0073 0307       |    |		Complete_Type	Variant_Record,By_Defining
0074 e21b       |    |		Load	0x1,0x1b
0075 03c4       |    |		Complete_Type	Access,By_Component_Completion
0076 00bf       |    |		Action	Accept_Activation
0077 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 029d 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call
007b 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
007c 00c7       |    |		Action	Elaborate_Subprogram
007d 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 029d 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call
0085 029d 04f3  |    |		Declare_Subprogram	INIT_04f0,For_Outer_Call
0087 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
008e 00c7       |    |		Action	Elaborate_Subprogram
008f			BODY_0008:
008f 00bc       |    |		Action	Signal_Activated
0090 00bb       |    |		Action	Signal_Completion
0091 0000 0000  |    |		.BLANK	0000[0x7]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 4607       |F   |		Jump_Case	0x8
009c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
009d 7807       |x   |		Jump	0xa5								; case 0x1
009e 780a       |x   |		Jump	0xa9								; case 0x2
009f 780e       |x   |		Jump	0xae								; case 0x3
00a0 7811       |x   |		Jump	0xb2								; case 0x4
00a1 7812       |x   |		Jump	0xb4								; case 0x5
00a2 7813       |x   |		Jump	0xb6								; case 0x6
00a3 7816       |x   |		Jump	0xba								; case 0x7
00a4 4302       |C   |		.XXX[0x1]
00a5 00da       |    |		Load_Top	At_Offset_2
00a6 0091 05f3  |    |		Action	Push_String_Extended_Indexed,0x5f3				; "COMMUNICATION"
00a8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00a9 00db       |    |		Load_Top	At_Offset_3
00aa 00db       |    |		Load_Top	At_Offset_3
00ab 00e0       |    |		Load_Encached	Standard_Cache
00ac 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00ad 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ae 00da       |    |		Load_Top	At_Offset_2
00af 00e0       |    |		Load_Encached	Standard_Cache
00b0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00b1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00b2 00db       |    |		Load_Top	At_Offset_3
00b3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00b4 00db       |    |		Load_Top	At_Offset_3
00b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00b6 e20d       |    |		Load	0x1,0xd
00b7 00dc       |    |		Load_Top	At_Offset_4
00b8 0267       | g  |		Execute	Discrete,Predecessor
00b9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ba e20d       |    |		Load	0x1,0xd
00bb 00dc       |    |		Load_Top	At_Offset_4
00bc 0268       | h  |		Execute	Discrete,Successor
00bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00be 0000 0000  |    |		.XXX[0x2]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c5       |    |		.CONST	0x00c5								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0002       |    |		.CONST	0x0002								; Number of locals
00c3			INIT_00c0:
00c3 e20d       |    |		Load	0x1,0xd
00c4 0007       |    |		Action	Break_Optional
00c5			BODY_00c0:
00c5 00db       |    |		Load_Top	At_Offset_3
00c6 8003       |    |		Call	0x0,0x3
00c7 6809       |h   |		Jump_Zero	0xd1
00c8 00db       |    |		Load_Top	At_Offset_3
00c9 8004       |    |		Call	0x0,0x4
00ca 00d8       |    |		Load_Top	At_Offset_0
00cb e20d       |    |		Load	0x1,0xd
00cc 0260       | `  |		Execute	Discrete,In_Type
00cd 7001       |p   |		Jump_Nonzero	0xcf
00ce 0801       |    |		Execute_Immediate	Raise,0x1
00cf 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00d0 7803       |x   |		Jump	0xd4
00d1 00db       |    |		Load_Top	At_Offset_3
00d2 8220       |    |		Call	0x1,0x20
00d3 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00d4 00d8       |    |		Load_Top	At_Offset_0
00d5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00d6 0000 0000  |    |		.XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db 00da       |    |		Load_Top	At_Offset_2
00dc 4619       |F   |		Jump_Case	0x1a
00dd 7848       |xH  |		Jump	0x126								; case 0x0
00de 788e       |x   |		Jump	0x16d								; case 0x1
00df 7838       |x8  |		Jump	0x118								; case 0x2
00e0 7818       |x   |		Jump	0xf9								; case 0x3
00e1 7828       |x(  |		Jump	0x10a								; case 0x4
00e2 78a8       |x   |		Jump	0x18b								; case 0x5
00e3 7881       |x   |		Jump	0x165								; case 0x6
00e4 7812       |x   |		Jump	0xf7								; case 0x7
00e5 7811       |x   |		Jump	0xf7								; case 0x8
00e6 7874       |xt  |		Jump	0x15b								; case 0x9
00e7 786e       |xn  |		Jump	0x156								; case 0xa
00e8 7860       |x`  |		Jump	0x149								; case 0xb
00e9 786c       |xl  |		Jump	0x156								; case 0xc
00ea 780c       |x   |		Jump	0xf7								; case 0xd
00eb 7874       |xt  |		Jump	0x160								; case 0xe
00ec 7849       |xI  |		Jump	0x136								; case 0xf
00ed 7809       |x   |		Jump	0xf7								; case 0x10
00ee 7842       |xB  |		Jump	0x131								; case 0x11
00ef 7851       |xQ  |		Jump	0x141								; case 0x12
00f0 785d       |x]  |		Jump	0x14e								; case 0x13
00f1 7805       |x   |		Jump	0xf7								; case 0x14
00f2 7885       |x   |		Jump	0x178								; case 0x15
00f3 7884       |x   |		Jump	0x178								; case 0x16
00f4 7888       |x   |		Jump	0x17d								; case 0x17
00f5 7801       |x   |		Jump	0xf7								; case 0x18
00f6 7800       |x   |		Jump	0xf7								; case 0x19
00f7 4800       |H   |		Short_Literal	0x0
00f8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00f9 00db       |    |		Load_Top	At_Offset_3
00fa 0f0d       |    |		Execute_Immediate	Equal,0xd
00fb e5fe       |    |		Load	0x2,-0x2
00fc 0f0c       |    |		Execute_Immediate	Equal,0xc
00fd 0278       | x  |		Execute	Discrete,Or
00fe e5fe       |    |		Load	0x2,-0x2
00ff 0f09       |    |		Execute_Immediate	Equal,0x9
0100 0278       | x  |		Execute	Discrete,Or
0101 e5fe       |    |		Load	0x2,-0x2
0102 0f0b       |    |		Execute_Immediate	Equal,0xb
0103 0278       | x  |		Execute	Discrete,Or
0104 e5fe       |    |		Load	0x2,-0x2
0105 0f06       |    |		Execute_Immediate	Equal,0x6
0106 0278       | x  |		Execute	Discrete,Or
0107 6897       |h   |		Jump_Zero	0x19f
0108 4801       |H   |		Short_Literal	0x1
0109 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
010a 00db       |    |		Load_Top	At_Offset_3
010b 0f0d       |    |		Execute_Immediate	Equal,0xd
010c e5fe       |    |		Load	0x2,-0x2
010d 0f0a       |    |		Execute_Immediate	Equal,0xa
010e 0278       | x  |		Execute	Discrete,Or
010f e5fe       |    |		Load	0x2,-0x2
0110 0f09       |    |		Execute_Immediate	Equal,0x9
0111 0278       | x  |		Execute	Discrete,Or
0112 e5fe       |    |		Load	0x2,-0x2
0113 0f0b       |    |		Execute_Immediate	Equal,0xb
0114 0278       | x  |		Execute	Discrete,Or
0115 6889       |h   |		Jump_Zero	0x19f
0116 4801       |H   |		Short_Literal	0x1
0117 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0118 00db       |    |		Load_Top	At_Offset_3
0119 0f13       |    |		Execute_Immediate	Equal,0x13
011a e5fe       |    |		Load	0x2,-0x2
011b 0f09       |    |		Execute_Immediate	Equal,0x9
011c 0278       | x  |		Execute	Discrete,Or
011d e5fe       |    |		Load	0x2,-0x2
011e 0f17       |    |		Execute_Immediate	Equal,0x17
011f 0278       | x  |		Execute	Discrete,Or
0120 e5fe       |    |		Load	0x2,-0x2
0121 0f0e       |    |		Execute_Immediate	Equal,0xe
0122 0278       | x  |		Execute	Discrete,Or
0123 687b       |h{  |		Jump_Zero	0x19f
0124 4801       |H   |		Short_Literal	0x1
0125 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0126 00db       |    |		Load_Top	At_Offset_3
0127 0f11       |    |		Execute_Immediate	Equal,0x11
0128 e5fe       |    |		Load	0x2,-0x2
0129 0f17       |    |		Execute_Immediate	Equal,0x17
012a 0278       | x  |		Execute	Discrete,Or
012b e5fe       |    |		Load	0x2,-0x2
012c 0f09       |    |		Execute_Immediate	Equal,0x9
012d 0278       | x  |		Execute	Discrete,Or
012e 6870       |hp  |		Jump_Zero	0x19f
012f 4801       |H   |		Short_Literal	0x1
0130 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0131 00db       |    |		Load_Top	At_Offset_3
0132 0f12       |    |		Execute_Immediate	Equal,0x12
0133 686b       |hk  |		Jump_Zero	0x19f
0134 4801       |H   |		Short_Literal	0x1
0135 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0136 00db       |    |		Load_Top	At_Offset_3
0137 0f02       |    |		Execute_Immediate	Equal,0x2
0138 e5fe       |    |		Load	0x2,-0x2
0139 0f14       |    |		Execute_Immediate	Equal,0x14
013a 0278       | x  |		Execute	Discrete,Or
013b e5fe       |    |		Load	0x2,-0x2
013c 0f10       |    |		Execute_Immediate	Equal,0x10
013d 0278       | x  |		Execute	Discrete,Or
013e 6860       |h`  |		Jump_Zero	0x19f
013f 4801       |H   |		Short_Literal	0x1
0140 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0141 00db       |    |		Load_Top	At_Offset_3
0142 0f02       |    |		Execute_Immediate	Equal,0x2
0143 e5fe       |    |		Load	0x2,-0x2
0144 0f08       |    |		Execute_Immediate	Equal,0x8
0145 0278       | x  |		Execute	Discrete,Or
0146 6858       |hX  |		Jump_Zero	0x19f
0147 4801       |H   |		Short_Literal	0x1
0148 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0149 00db       |    |		Load_Top	At_Offset_3
014a 0f02       |    |		Execute_Immediate	Equal,0x2
014b 6853       |hS  |		Jump_Zero	0x19f
014c 4801       |H   |		Short_Literal	0x1
014d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
014e 00db       |    |		Load_Top	At_Offset_3
014f 0f08       |    |		Execute_Immediate	Equal,0x8
0150 e5fe       |    |		Load	0x2,-0x2
0151 0f02       |    |		Execute_Immediate	Equal,0x2
0152 0278       | x  |		Execute	Discrete,Or
0153 684b       |hK  |		Jump_Zero	0x19f
0154 4801       |H   |		Short_Literal	0x1
0155 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0156 00db       |    |		Load_Top	At_Offset_3
0157 0f03       |    |		Execute_Immediate	Equal,0x3
0158 6846       |hF  |		Jump_Zero	0x19f
0159 4801       |H   |		Short_Literal	0x1
015a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
015b 00db       |    |		Load_Top	At_Offset_3
015c 0f14       |    |		Execute_Immediate	Equal,0x14
015d 6841       |hA  |		Jump_Zero	0x19f
015e 4801       |H   |		Short_Literal	0x1
015f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0160 00db       |    |		Load_Top	At_Offset_3
0161 0f0f       |    |		Execute_Immediate	Equal,0xf
0162 683c       |h<  |		Jump_Zero	0x19f
0163 4801       |H   |		Short_Literal	0x1
0164 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0165 00db       |    |		Load_Top	At_Offset_3
0166 0f03       |    |		Execute_Immediate	Equal,0x3
0167 e5fe       |    |		Load	0x2,-0x2
0168 0f04       |    |		Execute_Immediate	Equal,0x4
0169 0278       | x  |		Execute	Discrete,Or
016a 6834       |h4  |		Jump_Zero	0x19f
016b 4801       |H   |		Short_Literal	0x1
016c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
016d 00db       |    |		Load_Top	At_Offset_3
016e 0f15       |    |		Execute_Immediate	Equal,0x15
016f e5fe       |    |		Load	0x2,-0x2
0170 0f16       |    |		Execute_Immediate	Equal,0x16
0171 0278       | x  |		Execute	Discrete,Or
0172 e5fe       |    |		Load	0x2,-0x2
0173 0f17       |    |		Execute_Immediate	Equal,0x17
0174 0278       | x  |		Execute	Discrete,Or
0175 6829       |h)  |		Jump_Zero	0x19f
0176 4801       |H   |		Short_Literal	0x1
0177 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0178 00db       |    |		Load_Top	At_Offset_3
0179 0f18       |    |		Execute_Immediate	Equal,0x18
017a 6824       |h$  |		Jump_Zero	0x19f
017b 4801       |H   |		Short_Literal	0x1
017c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
017d 00db       |    |		Load_Top	At_Offset_3
017e 0f18       |    |		Execute_Immediate	Equal,0x18
017f e5fe       |    |		Load	0x2,-0x2
0180 0f02       |    |		Execute_Immediate	Equal,0x2
0181 0278       | x  |		Execute	Discrete,Or
0182 e5fe       |    |		Load	0x2,-0x2
0183 0f04       |    |		Execute_Immediate	Equal,0x4
0184 0278       | x  |		Execute	Discrete,Or
0185 e5fe       |    |		Load	0x2,-0x2
0186 0f03       |    |		Execute_Immediate	Equal,0x3
0187 0278       | x  |		Execute	Discrete,Or
0188 6816       |h   |		Jump_Zero	0x19f
0189 4801       |H   |		Short_Literal	0x1
018a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
018b 00db       |    |		Load_Top	At_Offset_3
018c 0f00       |    |		Execute_Immediate	Equal,0x0
018d e5fe       |    |		Load	0x2,-0x2
018e 0f02       |    |		Execute_Immediate	Equal,0x2
018f 0278       | x  |		Execute	Discrete,Or
0190 e5fe       |    |		Load	0x2,-0x2
0191 0f04       |    |		Execute_Immediate	Equal,0x4
0192 0278       | x  |		Execute	Discrete,Or
0193 e5fe       |    |		Load	0x2,-0x2
0194 0f03       |    |		Execute_Immediate	Equal,0x3
0195 0278       | x  |		Execute	Discrete,Or
0196 e5fe       |    |		Load	0x2,-0x2
0197 0f14       |    |		Execute_Immediate	Equal,0x14
0198 0278       | x  |		Execute	Discrete,Or
0199 e5fe       |    |		Load	0x2,-0x2
019a 0f10       |    |		Execute_Immediate	Equal,0x10
019b 0278       | x  |		Execute	Discrete,Or
019c 6802       |h   |		Jump_Zero	0x19f
019d 4801       |H   |		Short_Literal	0x1
019e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
019f 4800       |H   |		Short_Literal	0x0
01a0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01a1 0000 0000  |    |		.BLANK	0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 00cf       |    |		Action	Mark_Auxiliary
01ac e5fe       |    |		Load	0x2,-0x2
01ad 01d9       |    |		Execute	Vector,Reverse_Bounds
01ae 0007       |    |		Action	Break_Optional
01af 00d8       |    |		Load_Top	At_Offset_0
01b0 e5fe       |    |		Load	0x2,-0x2
01b1 01d5       |    |		Execute	Vector,Field_Reference
01b2 00d8       |    |		Load_Top	At_Offset_0
01b3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01b4 00da       |    |		Load_Top	At_Offset_2
01b5 e5ff       |    |		Load	0x2,-0x1
01b6 01d5       |    |		Execute	Vector,Field_Reference
01b7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01b8 8005       |    |		Call	0x0,0x5
01b9 00d9       |    |		Load_Top	At_Offset_1
01ba 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01bb 00d1       |    |		Pop_Control	Pop_Count_1
01bc 00d8       |    |		Load_Top	At_Offset_0
01bd e5ff       |    |		Load	0x2,-0x1
01be 01d5       |    |		Execute	Vector,Field_Reference
01bf 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01c0 00d9       |    |		Load_Top	At_Offset_1
01c1 e5fe       |    |		Load	0x2,-0x2
01c2 01d5       |    |		Execute	Vector,Field_Reference
01c3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01c4 00c8       |    |		Action	Pop_Auxiliary_Range
01c5 3fe9       |?   |		Loop_Increasing	0x1af
01c6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c7 0000       |    |		.XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 4607       |F   |		Jump_Case	0x8
01cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01cd 7807       |x   |		Jump	0x1d5								; case 0x1
01ce 780a       |x   |		Jump	0x1d9								; case 0x2
01cf 780e       |x   |		Jump	0x1de								; case 0x3
01d0 7811       |x   |		Jump	0x1e2								; case 0x4
01d1 7812       |x   |		Jump	0x1e4								; case 0x5
01d2 7813       |x   |		Jump	0x1e6								; case 0x6
01d3 7816       |x   |		Jump	0x1ea								; case 0x7
01d4 4302       |C   |		.XXX[0x1]
01d5 00da       |    |		Load_Top	At_Offset_2
01d6 0091 060d  |    |		Action	Push_String_Extended_Indexed,0x60d				; "TYPE_ACTION"
01d8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01d9 00db       |    |		Load_Top	At_Offset_3
01da 00db       |    |		Load_Top	At_Offset_3
01db 00e0       |    |		Load_Encached	Standard_Cache
01dc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01dd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01de 00da       |    |		Load_Top	At_Offset_2
01df 00e0       |    |		Load_Encached	Standard_Cache
01e0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01e1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01e2 00db       |    |		Load_Top	At_Offset_3
01e3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01e4 00db       |    |		Load_Top	At_Offset_3
01e5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01e6 e213       |    |		Load	0x1,0x13
01e7 00dc       |    |		Load_Top	At_Offset_4
01e8 0267       | g  |		Execute	Discrete,Predecessor
01e9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01ea e213       |    |		Load	0x1,0x13
01eb 00dc       |    |		Load_Top	At_Offset_4
01ec 0268       | h  |		Execute	Discrete,Successor
01ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01ee 0000 0000  |    |		.XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 4607       |F   |		Jump_Case	0x8
01f4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01f5 7807       |x   |		Jump	0x1fd								; case 0x1
01f6 780a       |x   |		Jump	0x201								; case 0x2
01f7 780e       |x   |		Jump	0x206								; case 0x3
01f8 7811       |x   |		Jump	0x20a								; case 0x4
01f9 7812       |x   |		Jump	0x20c								; case 0x5
01fa 7813       |x   |		Jump	0x20e								; case 0x6
01fb 7816       |x   |		Jump	0x212								; case 0x7
01fc 4302       |C   |		.XXX[0x1]
01fd 00da       |    |		Load_Top	At_Offset_2
01fe 0091 0611  |    |		Action	Push_String_Extended_Indexed,0x611				; "GREATER"
0200 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0201 00db       |    |		Load_Top	At_Offset_3
0202 00db       |    |		Load_Top	At_Offset_3
0203 00e0       |    |		Load_Encached	Standard_Cache
0204 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0205 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0206 00da       |    |		Load_Top	At_Offset_2
0207 00e0       |    |		Load_Encached	Standard_Cache
0208 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0209 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
020a 00db       |    |		Load_Top	At_Offset_3
020b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
020c 00db       |    |		Load_Top	At_Offset_3
020d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
020e e214       |    |		Load	0x1,0x14
020f 00dc       |    |		Load_Top	At_Offset_4
0210 0267       | g  |		Execute	Discrete,Predecessor
0211 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0212 e214       |    |		Load	0x1,0x14
0213 00dc       |    |		Load_Top	At_Offset_4
0214 0268       | h  |		Execute	Discrete,Successor
0215 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0216 0000 0000  |    |		.XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 0092 0619  |    |		Action	Push_String_Extended,0x619					; ">"
021d e002       |    |		Load	0x0,0x2
021e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
021f 00db       |    |		Load_Top	At_Offset_3
0220 8006       |    |		Call	0x0,0x6
0221 0092 061a  |    |		Action	Push_String_Extended,0x61a					; "<"
0223 e002       |    |		Load	0x0,0x2
0224 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0225 e5ff       |    |		Load	0x2,-0x1
0226 8006       |    |		Call	0x0,0x6
0227 0278       | x  |		Execute	Discrete,Or
0228 0092 061b  |    |		Action	Push_String_Extended,0x61b					; "="
022a e002       |    |		Load	0x0,0x2
022b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
022c e5ff       |    |		Load	0x2,-0x1
022d 8006       |    |		Call	0x0,0x6
022e 0278       | x  |		Execute	Discrete,Or
022f 6802       |h   |		Jump_Zero	0x232
0230 4801       |H   |		Short_Literal	0x1
0231 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0232 4800       |H   |		Short_Literal	0x0
0233 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0234 0000 0000  |    |		.BLANK	0000[0x4]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b       | ;  |		.CONST	0x023b								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0001       |    |		.CONST	0x0001								; Number of locals
023b			BODY_0238:
023b			INIT_0238:
023b 0092 0619  |    |		Action	Push_String_Extended,0x619					; ">"
023d e002       |    |		Load	0x0,0x2
023e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
023f 00db       |    |		Load_Top	At_Offset_3
0240 8006       |    |		Call	0x0,0x6
0241 6802       |h   |		Jump_Zero	0x244
0242 4800       |H   |		Short_Literal	0x0
0243 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0244 0092 061a  |    |		Action	Push_String_Extended,0x61a					; "<"
0246 e002       |    |		Load	0x0,0x2
0247 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0248 00db       |    |		Load_Top	At_Offset_3
0249 8006       |    |		Call	0x0,0x6
024a 6802       |h   |		Jump_Zero	0x24d
024b 4801       |H   |		Short_Literal	0x1
024c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024d 4802       |H   |		Short_Literal	0x2
024e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024f 0000       |    |		.XXX[0x1]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 4607       |F   |		Jump_Case	0x8
0254 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0255 7807       |x   |		Jump	0x25d								; case 0x1
0256 780a       |x   |		Jump	0x261								; case 0x2
0257 780e       |x   |		Jump	0x266								; case 0x3
0258 7811       |x   |		Jump	0x26a								; case 0x4
0259 7812       |x   |		Jump	0x26c								; case 0x5
025a 7813       |x   |		Jump	0x26e								; case 0x6
025b 7816       |x   |		Jump	0x272								; case 0x7
025c 4302       |C   |		.XXX[0x1]
025d 00da       |    |		Load_Top	At_Offset_2
025e 0091 0614  |    |		Action	Push_String_Extended_Indexed,0x614				; "TYPE_LEAF"
0260 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0261 00db       |    |		Load_Top	At_Offset_3
0262 00db       |    |		Load_Top	At_Offset_3
0263 00e0       |    |		Load_Encached	Standard_Cache
0264 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0265 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0266 00da       |    |		Load_Top	At_Offset_2
0267 00e0       |    |		Load_Encached	Standard_Cache
0268 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0269 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
026a 00db       |    |		Load_Top	At_Offset_3
026b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
026c 00db       |    |		Load_Top	At_Offset_3
026d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
026e e218       |    |		Load	0x1,0x18
026f 00dc       |    |		Load_Top	At_Offset_4
0270 0267       | g  |		Execute	Discrete,Predecessor
0271 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0272 e218       |    |		Load	0x1,0x18
0273 00dc       |    |		Load_Top	At_Offset_4
0274 0268       | h  |		Execute	Discrete,Successor
0275 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0276 0000 0000  |    |		.XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b       | {  |		.CONST	0x027b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0001       |    |		.CONST	0x0001								; Number of locals
027b			BODY_0278:
027b			INIT_0278:
027b 4607       |F   |		Jump_Case	0x8
027c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
027d 7807       |x   |		Jump	0x285								; case 0x1
027e 780a       |x   |		Jump	0x289								; case 0x2
027f 780e       |x   |		Jump	0x28e								; case 0x3
0280 7811       |x   |		Jump	0x292								; case 0x4
0281 7812       |x   |		Jump	0x294								; case 0x5
0282 7813       |x   |		Jump	0x296								; case 0x6
0283 7816       |x   |		Jump	0x29a								; case 0x7
0284 4302       |C   |		.XXX[0x1]
0285 00da       |    |		Load_Top	At_Offset_2
0286 0091 0616  |    |		Action	Push_String_Extended_Indexed,0x616				; "ET"
0288 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0289 00db       |    |		Load_Top	At_Offset_3
028a 00db       |    |		Load_Top	At_Offset_3
028b 00e0       |    |		Load_Encached	Standard_Cache
028c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
028d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
028e 00da       |    |		Load_Top	At_Offset_2
028f 00e0       |    |		Load_Encached	Standard_Cache
0290 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0291 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0292 00db       |    |		Load_Top	At_Offset_3
0293 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0294 00db       |    |		Load_Top	At_Offset_3
0295 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0296 e219       |    |		Load	0x1,0x19
0297 00dc       |    |		Load_Top	At_Offset_4
0298 0267       | g  |		Execute	Discrete,Predecessor
0299 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
029a e219       |    |		Load	0x1,0x19
029b 00dc       |    |		Load_Top	At_Offset_4
029c 0268       | h  |		Execute	Discrete,Successor
029d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
029e 0000 0000  |    |		.XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 00da       |    |		Load_Top	At_Offset_2
02a4 8222       | "  |		Call	0x1,0x22
02a5 00da       |    |		Load_Top	At_Offset_2
02a6 0227       | '  |		Execute	Access,All_Reference
02a7 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02a8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a9 0000 0000  |    |		.BLANK	0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b5       |    |		.CONST	0x02b5								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0002       |    |		.CONST	0x0002								; Number of locals
02b3			INIT_02b0:
02b3 e21b       |    |		Load	0x1,0x1b
02b4 0007       |    |		Action	Break_Optional
02b5			BODY_02b0:
02b5 4800       |H   |		Short_Literal	0x0
02b6 4802       |H   |		Short_Literal	0x2
02b7 e21b       |    |		Load	0x1,0x1b
02b8 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
02b9 00d8       |    |		Load_Top	At_Offset_0
02ba 0227       | '  |		Execute	Access,All_Reference
02bb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02bc 0039       | 9  |		Store_Top	Access,At_Offset_1
02bd 00db       |    |		Load_Top	At_Offset_3
02be 00d9       |    |		Load_Top	At_Offset_1
02bf 0227       | '  |		Execute	Access,All_Reference
02c0 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
02c1 00d8       |    |		Load_Top	At_Offset_0
02c2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c3 0000 0000  |    |		.BLANK	0000[0x5]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cd       |    |		.CONST	0x02cd								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0002       |    |		.CONST	0x0002								; Number of locals
02cb			INIT_02c8:
02cb e21b       |    |		Load	0x1,0x1b
02cc 0007       |    |		Action	Break_Optional
02cd			BODY_02c8:
02cd 4801       |H   |		Short_Literal	0x1
02ce 4801       |H   |		Short_Literal	0x1
02cf e21b       |    |		Load	0x1,0x1b
02d0 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
02d1 00d8       |    |		Load_Top	At_Offset_0
02d2 0227       | '  |		Execute	Access,All_Reference
02d3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d4 0039       | 9  |		Store_Top	Access,At_Offset_1
02d5 00db       |    |		Load_Top	At_Offset_3
02d6 00d9       |    |		Load_Top	At_Offset_1
02d7 0227       | '  |		Execute	Access,All_Reference
02d8 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02d9 e5fe       |    |		Load	0x2,-0x2
02da 00d9       |    |		Load_Top	At_Offset_1
02db 0227       | '  |		Execute	Access,All_Reference
02dc 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02dd e5fd       |    |		Load	0x2,-0x3
02de 00d9       |    |		Load_Top	At_Offset_1
02df 0227       | '  |		Execute	Access,All_Reference
02e0 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02e1 00d8       |    |		Load_Top	At_Offset_0
02e2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02e3 0000 0000  |    |		.BLANK	0000[0x5]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ed       |    |		.CONST	0x02ed								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0002       |    |		.CONST	0x0002								; Number of locals
02eb			INIT_02e8:
02eb e21b       |    |		Load	0x1,0x1b
02ec 0007       |    |		Action	Break_Optional
02ed			BODY_02e8:
02ed 4801       |H   |		Short_Literal	0x1
02ee 4801       |H   |		Short_Literal	0x1
02ef e21b       |    |		Load	0x1,0x1b
02f0 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
02f1 00d8       |    |		Load_Top	At_Offset_0
02f2 0227       | '  |		Execute	Access,All_Reference
02f3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02f4 0039       | 9  |		Store_Top	Access,At_Offset_1
02f5 00db       |    |		Load_Top	At_Offset_3
02f6 00d9       |    |		Load_Top	At_Offset_1
02f7 0227       | '  |		Execute	Access,All_Reference
02f8 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02f9 e5fe       |    |		Load	0x2,-0x2
02fa 00d9       |    |		Load_Top	At_Offset_1
02fb 0227       | '  |		Execute	Access,All_Reference
02fc 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02fd e21b       |    |		Load	0x1,0x1b
02fe 00d9       |    |		Load_Top	At_Offset_1
02ff 0227       | '  |		Execute	Access,All_Reference
0300 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0301 00d8       |    |		Load_Top	At_Offset_0
0302 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0303 0000 0000  |    |		.BLANK	0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030d       |    |		.CONST	0x030d								; Address of begin
0309 0320       |    |		.CONST	0x0320								; Address of exception handler
030a 0002       |    |		.CONST	0x0002								; Number of locals
030b			INIT_0308:
030b e20d       |    |		Load	0x1,0xd
030c 0007       |    |		Action	Break_Optional
030d			BODY_0308:
030d 00db       |    |		Load_Top	At_Offset_3
030e e002       |    |		Load	0x0,0x2
030f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0310 e20d       |    |		Load	0x1,0xd
0311 1c02       |    |		Execute_Immediate	Run_Utility,0x2
0312 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0313 00d8       |    |		Load_Top	At_Offset_0
0314 0f08       |    |		Execute_Immediate	Equal,0x8
0315 6803       |h   |		Jump_Zero	0x319
0316 4802       |H   |		Short_Literal	0x2
0317 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0318 7805       |x   |		Jump	0x31e
0319 00d8       |    |		Load_Top	At_Offset_0
031a 0f07       |    |		Execute_Immediate	Equal,0x7
031b 6802       |h   |		Jump_Zero	0x31e
031c 4804       |H   |		Short_Literal	0x4
031d 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
031e 00d8       |    |		Load_Top	At_Offset_0
031f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0320			TRAP_0308:
0320 010e       |    |		Execute	Exception,Is_Constraint_Error
0321 6802       |h   |		Jump_Zero	0x324
0322 4819       |H   |		Short_Literal	0x19
0323 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0324 0100       |    |		Execute	Exception,Raise
0325 0000 0000  |    |		.XXX[0x3]
0327 0000       |    |
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0334       | 4  |		.CONST	0x0334								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0008       |    |		.CONST	0x0008								; Number of locals
032b			INIT_0328:
032b 00e1       |    |		Load_Encached	Boolean_Cache
032c e007       |    |		Load	0x0,0x7
032d 0322       | "  |		Declare_Variable	Record
032e 00e2       |    |		Load_Encached	Integer_Cache
032f e002       |    |		Load	0x0,0x2
0330 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0331 03bd       |    |		Declare_Variable	Access,Duplicate
0332 03bd       |    |		Declare_Variable	Access,Duplicate
0333 03bd       |    |		Declare_Variable	Access,Duplicate
0334			BODY_0328:
0334 e403       |    |		Load	0x2,0x3
0335 8008       |    |		Call	0x0,0x8
0336 00d1       |    |		Pop_Control	Pop_Count_1
0337 e5ff       |    |		Load	0x2,-0x1
0338 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0339 4603       |F   |		Jump_Case	0x4
033a 781e       |x   |		Jump	0x359								; case 0x0
033b 789d       |x   |		Jump	0x3d9								; case 0x1
033c 7964       |yd  |		Jump	0x4a1								; case 0x2
033d 7800       |x   |		Jump	0x33e								; case 0x3
033e e5ff       |    |		Load	0x2,-0x1
033f 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0340 4602       |F   |		Jump_Case	0x3
0341 7809       |x   |		Jump	0x34b								; case 0x0
0342 780f       |x   |		Jump	0x352								; case 0x1
0343 7800       |x   |		Jump	0x344								; case 0x2
0344 e5ff       |    |		Load	0x2,-0x1
0345 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0346 8009       |    |		Call	0x0,0x9
0347 e5ff       |    |		Load	0x2,-0x1
0348 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0349 027f       |    |		Execute	Discrete,Equal
034a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
034b e5ff       |    |		Load	0x2,-0x1
034c 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
034d 8009       |    |		Call	0x0,0x9
034e e5ff       |    |		Load	0x2,-0x1
034f 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0350 027d       | }  |		Execute	Discrete,Greater
0351 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0352 e5ff       |    |		Load	0x2,-0x1
0353 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0354 8009       |    |		Call	0x0,0x9
0355 e5ff       |    |		Load	0x2,-0x1
0356 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0357 027c       | |  |		Execute	Discrete,Less
0358 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0359 e403       |    |		Load	0x2,0x3
035a 800a       |    |		Call	0x0,0xa
035b 800b       |    |		Call	0x0,0xb
035c 00d1       |    |		Pop_Control	Pop_Count_1
035d e403       |    |		Load	0x2,0x3
035e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
035f e5ff       |    |		Load	0x2,-0x1
0360 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0361 027e       | ~  |		Execute	Discrete,Not_Equal
0362 6803       |h   |		Jump_Zero	0x366
0363 4800       |H   |		Short_Literal	0x0
0364 a402       |    |		Store_Unchecked	0x2,0x2
0365 7871       |xq  |		Jump	0x3d7
0366 4801       |H   |		Short_Literal	0x1
0367 a402       |    |		Store_Unchecked	0x2,0x2
0368 4801       |H   |		Short_Literal	0x1
0369 e403       |    |		Load	0x2,0x3
036a 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
036b 01d7       |    |		Execute	Vector,Field_Read
036c 4801       |H   |		Short_Literal	0x1
036d e5ff       |    |		Load	0x2,-0x1
036e 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
036f 01d5       |    |		Execute	Vector,Field_Reference
0370 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0371 8006       |    |		Call	0x0,0x6
0372 6862       |hb  |		Jump_Zero	0x3d5
0373 e403       |    |		Load	0x2,0x3
0374 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0375 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0376 6860       |h`  |		Jump_Zero	0x3d7
0377 4802       |H   |		Short_Literal	0x2
0378 e5ff       |    |		Load	0x2,-0x1
0379 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
037a 01d5       |    |		Execute	Vector,Field_Reference
037b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
037c 800c       |    |		Call	0x0,0xc
037d 683b       |h;  |		Jump_Zero	0x3b9
037e 4802       |H   |		Short_Literal	0x2
037f e5ff       |    |		Load	0x2,-0x1
0380 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0381 01d5       |    |		Execute	Vector,Field_Reference
0382 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0383 0f10       |    |		Execute_Immediate	Equal,0x10
0384 6814       |h   |		Jump_Zero	0x399
0385 e00d       |    |		Load	0x0,0xd
0386 4802       |H   |		Short_Literal	0x2
0387 e5ff       |    |		Load	0x2,-0x1
0388 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0389 01d5       |    |		Execute	Vector,Field_Reference
038a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
038b 800e       |    |		Call	0x0,0xe
038c 00d8       |    |		Load_Top	At_Offset_0
038d 00da       |    |		Load_Top	At_Offset_2
038e 01d7       |    |		Execute	Vector,Field_Read
038f 4802       |H   |		Short_Literal	0x2
0390 e403       |    |		Load	0x2,0x3
0391 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0392 01d7       |    |		Execute	Vector,Field_Read
0393 8005       |    |		Call	0x0,0x5
0394 00d9       |    |		Load_Top	At_Offset_1
0395 00db       |    |		Load_Top	At_Offset_3
0396 01d6       |    |		Execute	Vector,Field_Write
0397 00d2       |    |		Pop_Control	Pop_Count_2
0398 783e       |x>  |		Jump	0x3d7
0399 4802       |H   |		Short_Literal	0x2
039a e403       |    |		Load	0x2,0x3
039b 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
039c 01d7       |    |		Execute	Vector,Field_Read
039d 820e       |    |		Call	0x1,0xe
039e 4802       |H   |		Short_Literal	0x2
039f e5ff       |    |		Load	0x2,-0x1
03a0 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
03a1 01d5       |    |		Execute	Vector,Field_Reference
03a2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03a3 027f       |    |		Execute	Discrete,Equal
03a4 6832       |h2  |		Jump_Zero	0x3d7
03a5 e00d       |    |		Load	0x0,0xd
03a6 4802       |H   |		Short_Literal	0x2
03a7 e5ff       |    |		Load	0x2,-0x1
03a8 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
03a9 01d5       |    |		Execute	Vector,Field_Reference
03aa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03ab 800e       |    |		Call	0x0,0xe
03ac 00d8       |    |		Load_Top	At_Offset_0
03ad 00da       |    |		Load_Top	At_Offset_2
03ae 01d7       |    |		Execute	Vector,Field_Read
03af 4802       |H   |		Short_Literal	0x2
03b0 e403       |    |		Load	0x2,0x3
03b1 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
03b2 01d7       |    |		Execute	Vector,Field_Read
03b3 8005       |    |		Call	0x0,0x5
03b4 00d9       |    |		Load_Top	At_Offset_1
03b5 00db       |    |		Load_Top	At_Offset_3
03b6 01d6       |    |		Execute	Vector,Field_Write
03b7 00d2       |    |		Pop_Control	Pop_Count_2
03b8 781e       |x   |		Jump	0x3d7
03b9 4802       |H   |		Short_Literal	0x2
03ba a404       |    |		Store_Unchecked	0x2,0x4
03bb 00cf       |    |		Action	Mark_Auxiliary
03bc e404       |    |		Load	0x2,0x4
03bd e403       |    |		Load	0x2,0x3
03be 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03bf 027d       | }  |		Execute	Discrete,Greater
03c0 7012       |p   |		Jump_Nonzero	0x3d3
03c1 e404       |    |		Load	0x2,0x4
03c2 e403       |    |		Load	0x2,0x3
03c3 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
03c4 01d7       |    |		Execute	Vector,Field_Read
03c5 e404       |    |		Load	0x2,0x4
03c6 e5ff       |    |		Load	0x2,-0x1
03c7 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
03c8 01d5       |    |		Execute	Vector,Field_Reference
03c9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03ca 8006       |    |		Call	0x0,0x6
03cb 7002       |p   |		Jump_Nonzero	0x3ce
03cc 4800       |H   |		Short_Literal	0x0
03cd a402       |    |		Store_Unchecked	0x2,0x2
03ce e404       |    |		Load	0x2,0x4
03cf 0a01       |    |		Execute_Immediate	Plus,0x1
03d0 c404       |    |		Store	0x2,0x4
03d1 00c9       |    |		Action	Pop_Auxiliary_Loop
03d2 7fe9       |    |		Jump	0x3bc
03d3 00ce       |    |		Action	Pop_Auxiliary
03d4 7802       |x   |		Jump	0x3d7
03d5 4800       |H   |		Short_Literal	0x0
03d6 a402       |    |		Store_Unchecked	0x2,0x2
03d7 e402       |    |		Load	0x2,0x2
03d8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d9 e5ff       |    |		Load	0x2,-0x1
03da 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03db 0f02       |    |		Execute_Immediate	Equal,0x2
03dc 6808       |h   |		Jump_Zero	0x3e5
03dd 4801       |H   |		Short_Literal	0x1
03de e5ff       |    |		Load	0x2,-0x1
03df 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
03e0 01d5       |    |		Execute	Vector,Field_Reference
03e1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03e2 800f       |    |		Call	0x0,0xf
03e3 8010       |    |		Call	0x0,0x10
03e4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03e5 e5ff       |    |		Load	0x2,-0x1
03e6 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03e7 0f03       |    |		Execute_Immediate	Equal,0x3
03e8 6852       |hR  |		Jump_Zero	0x43b
03e9 4801       |H   |		Short_Literal	0x1
03ea e5ff       |    |		Load	0x2,-0x1
03eb 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
03ec 01d5       |    |		Execute	Vector,Field_Reference
03ed 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03ee 0e02       |    |		Execute_Immediate	Not_Equal,0x2
03ef 682d       |h-  |		Jump_Zero	0x41d
03f0 4801       |H   |		Short_Literal	0x1
03f1 e5ff       |    |		Load	0x2,-0x1
03f2 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
03f3 01d5       |    |		Execute	Vector,Field_Reference
03f4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03f5 7014       |p   |		Jump_Nonzero	0x40a
03f6 4803       |H   |		Short_Literal	0x3
03f7 e5ff       |    |		Load	0x2,-0x1
03f8 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
03f9 01d5       |    |		Execute	Vector,Field_Reference
03fa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03fb 800f       |    |		Call	0x0,0xf
03fc e011       |    |		Load	0x0,0x11
03fd 4802       |H   |		Short_Literal	0x2
03fe e5ff       |    |		Load	0x2,-0x1
03ff 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0400 01d5       |    |		Execute	Vector,Field_Reference
0401 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0402 4801       |H   |		Short_Literal	0x1
0403 e5ff       |    |		Load	0x2,-0x1
0404 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0405 01d5       |    |		Execute	Vector,Field_Reference
0406 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0407 800f       |    |		Call	0x0,0xf
0408 8012       |    |		Call	0x0,0x12
0409 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
040a 4803       |H   |		Short_Literal	0x3
040b e5ff       |    |		Load	0x2,-0x1
040c 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
040d 01d5       |    |		Execute	Vector,Field_Reference
040e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
040f 800f       |    |		Call	0x0,0xf
0410 4802       |H   |		Short_Literal	0x2
0411 e5ff       |    |		Load	0x2,-0x1
0412 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0413 01d5       |    |		Execute	Vector,Field_Reference
0414 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0415 4801       |H   |		Short_Literal	0x1
0416 e5ff       |    |		Load	0x2,-0x1
0417 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0418 01d5       |    |		Execute	Vector,Field_Reference
0419 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
041a 800f       |    |		Call	0x0,0xf
041b 8013       |    |		Call	0x0,0x13
041c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
041d 00db       |    |		Load_Top	At_Offset_3
041e 4801       |H   |		Short_Literal	0x1
041f e5ff       |    |		Load	0x2,-0x1
0420 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0421 01d5       |    |		Execute	Vector,Field_Reference
0422 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0423 800f       |    |		Call	0x0,0xf
0424 8005       |    |		Call	0x0,0x5
0425 c405       |    |		Store	0x2,0x5
0426 00d8       |    |		Load_Top	At_Offset_0
0427 4803       |H   |		Short_Literal	0x3
0428 e5ff       |    |		Load	0x2,-0x1
0429 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
042a 01d5       |    |		Execute	Vector,Field_Reference
042b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
042c 800f       |    |		Call	0x0,0xf
042d 8005       |    |		Call	0x0,0x5
042e 0039       | 9  |		Store_Top	Access,At_Offset_1
042f 00e1       |    |		Load_Encached	Boolean_Cache
0430 e011       |    |		Load	0x0,0x11
0431 e014       |    |		Load	0x0,0x14
0432 e405       |    |		Load	0x2,0x5
0433 e408       |    |		Load	0x2,0x8
0434 8015       |    |		Call	0x0,0x15
0435 c405       |    |		Store	0x2,0x5
0436 c014       |    |		Store	0x0,0x14
0437 c011       |    |		Store	0x0,0x11
0438 c402       |    |		Store	0x2,0x2
0439 e402       |    |		Load	0x2,0x2
043a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
043b 4802       |H   |		Short_Literal	0x2
043c e5ff       |    |		Load	0x2,-0x1
043d 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
043e 01d5       |    |		Execute	Vector,Field_Reference
043f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0440 0f11       |    |		Execute_Immediate	Equal,0x11
0441 681d       |h   |		Jump_Zero	0x45f
0442 00d9       |    |		Load_Top	At_Offset_1
0443 4801       |H   |		Short_Literal	0x1
0444 e5ff       |    |		Load	0x2,-0x1
0445 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0446 01d5       |    |		Execute	Vector,Field_Reference
0447 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0448 800f       |    |		Call	0x0,0xf
0449 8005       |    |		Call	0x0,0x5
044a 003a       | :  |		Store_Top	Access,At_Offset_2
044b 00d8       |    |		Load_Top	At_Offset_0
044c 4804       |H   |		Short_Literal	0x4
044d e5ff       |    |		Load	0x2,-0x1
044e 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
044f 01d5       |    |		Execute	Vector,Field_Reference
0450 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0451 800f       |    |		Call	0x0,0xf
0452 8005       |    |		Call	0x0,0x5
0453 0039       | 9  |		Store_Top	Access,At_Offset_1
0454 00e1       |    |		Load_Encached	Boolean_Cache
0455 e011       |    |		Load	0x0,0x11
0456 e014       |    |		Load	0x0,0x14
0457 e407       |    |		Load	0x2,0x7
0458 e408       |    |		Load	0x2,0x8
0459 8016       |    |		Call	0x0,0x16
045a c014       |    |		Store	0x0,0x14
045b c011       |    |		Store	0x0,0x11
045c c402       |    |		Store	0x2,0x2
045d e402       |    |		Load	0x2,0x2
045e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
045f 4804       |H   |		Short_Literal	0x4
0460 e5ff       |    |		Load	0x2,-0x1
0461 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0462 01d5       |    |		Execute	Vector,Field_Reference
0463 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0464 0f02       |    |		Execute_Immediate	Equal,0x2
0465 681e       |h   |		Jump_Zero	0x484
0466 00db       |    |		Load_Top	At_Offset_3
0467 4804       |H   |		Short_Literal	0x4
0468 e5ff       |    |		Load	0x2,-0x1
0469 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
046a 01d5       |    |		Execute	Vector,Field_Reference
046b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
046c 800f       |    |		Call	0x0,0xf
046d 8005       |    |		Call	0x0,0x5
046e c405       |    |		Store	0x2,0x5
046f 00d8       |    |		Load_Top	At_Offset_0
0470 4801       |H   |		Short_Literal	0x1
0471 e5ff       |    |		Load	0x2,-0x1
0472 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0473 01d5       |    |		Execute	Vector,Field_Reference
0474 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0475 800f       |    |		Call	0x0,0xf
0476 8005       |    |		Call	0x0,0x5
0477 0039       | 9  |		Store_Top	Access,At_Offset_1
0478 00e1       |    |		Load_Encached	Boolean_Cache
0479 e011       |    |		Load	0x0,0x11
047a e014       |    |		Load	0x0,0x14
047b e405       |    |		Load	0x2,0x5
047c e408       |    |		Load	0x2,0x8
047d 8017       |    |		Call	0x0,0x17
047e c405       |    |		Store	0x2,0x5
047f c014       |    |		Store	0x0,0x14
0480 c011       |    |		Store	0x0,0x11
0481 c402       |    |		Store	0x2,0x2
0482 e402       |    |		Load	0x2,0x2
0483 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0484 00da       |    |		Load_Top	At_Offset_2
0485 4804       |H   |		Short_Literal	0x4
0486 e5ff       |    |		Load	0x2,-0x1
0487 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0488 01d5       |    |		Execute	Vector,Field_Reference
0489 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
048a 800f       |    |		Call	0x0,0xf
048b 8005       |    |		Call	0x0,0x5
048c 003b       | ;  |		Store_Top	Access,At_Offset_3
048d 00d8       |    |		Load_Top	At_Offset_0
048e 4801       |H   |		Short_Literal	0x1
048f e5ff       |    |		Load	0x2,-0x1
0490 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0491 01d5       |    |		Execute	Vector,Field_Reference
0492 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0493 800f       |    |		Call	0x0,0xf
0494 8005       |    |		Call	0x0,0x5
0495 0039       | 9  |		Store_Top	Access,At_Offset_1
0496 00e1       |    |		Load_Encached	Boolean_Cache
0497 e011       |    |		Load	0x0,0x11
0498 e014       |    |		Load	0x0,0x14
0499 e406       |    |		Load	0x2,0x6
049a e408       |    |		Load	0x2,0x8
049b 8018       |    |		Call	0x0,0x18
049c c014       |    |		Store	0x0,0x14
049d c011       |    |		Store	0x0,0x11
049e c402       |    |		Store	0x2,0x2
049f e402       |    |		Load	0x2,0x2
04a0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04a1 e5ff       |    |		Load	0x2,-0x1
04a2 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
04a3 e5ff       |    |		Load	0x2,-0x1
04a4 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
04a5 027e       | ~  |		Execute	Discrete,Not_Equal
04a6 680f       |h   |		Jump_Zero	0x4b6
04a7 4801       |H   |		Short_Literal	0x1
04a8 e5ff       |    |		Load	0x2,-0x1
04a9 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
04aa 01d5       |    |		Execute	Vector,Field_Reference
04ab 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04ac 800f       |    |		Call	0x0,0xf
04ad 4801       |H   |		Short_Literal	0x1
04ae e5ff       |    |		Load	0x2,-0x1
04af 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
04b0 01d5       |    |		Execute	Vector,Field_Reference
04b1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04b2 800f       |    |		Call	0x0,0xf
04b3 8019       |    |		Call	0x0,0x19
04b4 8006       |    |		Call	0x0,0x6
04b5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04b6 4802       |H   |		Short_Literal	0x2
04b7 e5ff       |    |		Load	0x2,-0x1
04b8 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
04b9 01d5       |    |		Execute	Vector,Field_Reference
04ba 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04bb 0f09       |    |		Execute_Immediate	Equal,0x9
04bc 680e       |h   |		Jump_Zero	0x4cb
04bd 4801       |H   |		Short_Literal	0x1
04be e5ff       |    |		Load	0x2,-0x1
04bf 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
04c0 01d5       |    |		Execute	Vector,Field_Reference
04c1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04c2 800f       |    |		Call	0x0,0xf
04c3 4801       |H   |		Short_Literal	0x1
04c4 e5ff       |    |		Load	0x2,-0x1
04c5 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
04c6 01d5       |    |		Execute	Vector,Field_Reference
04c7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04c8 800f       |    |		Call	0x0,0xf
04c9 801a       |    |		Call	0x0,0x1a
04ca 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04cb 4802       |H   |		Short_Literal	0x2
04cc e5ff       |    |		Load	0x2,-0x1
04cd 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
04ce 01d5       |    |		Execute	Vector,Field_Reference
04cf 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04d0 0f0a       |    |		Execute_Immediate	Equal,0xa
04d1 680e       |h   |		Jump_Zero	0x4e0
04d2 4801       |H   |		Short_Literal	0x1
04d3 e5ff       |    |		Load	0x2,-0x1
04d4 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
04d5 01d5       |    |		Execute	Vector,Field_Reference
04d6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04d7 800f       |    |		Call	0x0,0xf
04d8 4801       |H   |		Short_Literal	0x1
04d9 e5ff       |    |		Load	0x2,-0x1
04da 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
04db 01d5       |    |		Execute	Vector,Field_Reference
04dc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04dd 800f       |    |		Call	0x0,0xf
04de 801b       |    |		Call	0x0,0x1b
04df 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04e0 4801       |H   |		Short_Literal	0x1
04e1 e5ff       |    |		Load	0x2,-0x1
04e2 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
04e3 01d5       |    |		Execute	Vector,Field_Reference
04e4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04e5 800f       |    |		Call	0x0,0xf
04e6 4801       |H   |		Short_Literal	0x1
04e7 e5ff       |    |		Load	0x2,-0x1
04e8 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
04e9 01d5       |    |		Execute	Vector,Field_Reference
04ea 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04eb 800f       |    |		Call	0x0,0xf
04ec 801c       |    |		Call	0x0,0x1c
04ed 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04ee 0000 0000  |    |		.XXX[0x2]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3       |    |		.CONST	0x04f3								; Address of begin
04f1 0004       |    |		.CONST	0x0004								; Address of exception handler
04f2 0001       |    |		.CONST	0x0001								; Number of locals
04f3			BODY_04f0:
04f3			INIT_04f0:
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 0f01       |    |		Execute_Immediate	Equal,0x1
04f7 683b       |h;  |		Jump_Zero	0x533
04f8 00da       |    |		Load_Top	At_Offset_2
04f9 0227       | '  |		Execute	Access,All_Reference
04fa 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04fb 8222       | "  |		Call	0x1,0x22
04fc 00da       |    |		Load_Top	At_Offset_2
04fd 0227       | '  |		Execute	Access,All_Reference
04fe 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
04ff 6804       |h   |		Jump_Zero	0x504
0500 00da       |    |		Load_Top	At_Offset_2
0501 0227       | '  |		Execute	Access,All_Reference
0502 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0503 8222       | "  |		Call	0x1,0x22
0504 00da       |    |		Load_Top	At_Offset_2
0505 0227       | '  |		Execute	Access,All_Reference
0506 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0507 4602       |F   |		Jump_Case	0x3
0508 780c       |x   |		Jump	0x515								; case 0x0
0509 781a       |x   |		Jump	0x524								; case 0x1
050a 7800       |x   |		Jump	0x50b								; case 0x2
050b 00da       |    |		Load_Top	At_Offset_2
050c 0227       | '  |		Execute	Access,All_Reference
050d 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
050e 0227       | '  |		Execute	Access,All_Reference
050f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0510 0f00       |    |		Execute_Immediate	Equal,0x0
0511 00db       |    |		Load_Top	At_Offset_3
0512 0227       | '  |		Execute	Access,All_Reference
0513 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0514 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0515 00da       |    |		Load_Top	At_Offset_2
0516 0227       | '  |		Execute	Access,All_Reference
0517 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0518 0227       | '  |		Execute	Access,All_Reference
0519 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
051a 00db       |    |		Load_Top	At_Offset_3
051b 0227       | '  |		Execute	Access,All_Reference
051c 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
051d 0227       | '  |		Execute	Access,All_Reference
051e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
051f 0279       | y  |		Execute	Discrete,And
0520 00db       |    |		Load_Top	At_Offset_3
0521 0227       | '  |		Execute	Access,All_Reference
0522 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0523 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0524 00da       |    |		Load_Top	At_Offset_2
0525 0227       | '  |		Execute	Access,All_Reference
0526 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0527 0227       | '  |		Execute	Access,All_Reference
0528 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0529 00db       |    |		Load_Top	At_Offset_3
052a 0227       | '  |		Execute	Access,All_Reference
052b 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
052c 0227       | '  |		Execute	Access,All_Reference
052d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
052e 0278       | x  |		Execute	Discrete,Or
052f 00db       |    |		Load_Top	At_Offset_3
0530 0227       | '  |		Execute	Access,All_Reference
0531 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0532 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0533 00da       |    |		Load_Top	At_Offset_2
0534 0227       | '  |		Execute	Access,All_Reference
0535 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0536 8221       | !  |		Call	0x1,0x21
0537 00db       |    |		Load_Top	At_Offset_3
0538 0227       | '  |		Execute	Access,All_Reference
0539 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
053a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
053b 0000 0000  |    |		.BLANK	0000[0x5]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0543       | C  |		.CONST	0x0543								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0001       |    |		.CONST	0x0001								; Number of locals
0543			BODY_0540:
0543			BODY_0540:
0543			INIT_0540:
0543			INIT_0540:
0543 4609       |F   |		Jump_Case	0xa
0544 7809       |x   |		Jump	0x54e								; case 0x0
0545 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0546 781b       |x   |		Jump	0x562								; case 0x2
0547 781e       |x   |		Jump	0x566								; case 0x3
0548 7823       |x#  |		Jump	0x56c								; case 0x4
0549 782d       |x-  |		Jump	0x577								; case 0x5
054a 7834       |x4  |		Jump	0x57f								; case 0x6
054b 783a       |x:  |		Jump	0x586								; case 0x7
054c 7843       |xC  |		Jump	0x590								; case 0x8
054d 7849       |xI  |		Jump	0x597								; case 0x9
054e 00da       |    |		Load_Top	At_Offset_2
054f 016c       | l  |		Execute	Variant_Record,Is_Constrained
0550 7009       |p   |		Jump_Nonzero	0x55a
0551 00cf       |    |		Action	Mark_Auxiliary
0552 4801       |H   |		Short_Literal	0x1
0553 e5ff       |    |		Load	0x2,-0x1
0554 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0555 00d8       |    |		Load_Top	At_Offset_0
0556 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0557 c5ff       |    |		Store	0x2,-0x1
0558 00ce       |    |		Action	Pop_Auxiliary
0559 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
055a 00da       |    |		Load_Top	At_Offset_2
055b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
055c 0f01       |    |		Execute_Immediate	Equal,0x1
055d 7003       |p   |		Jump_Nonzero	0x561
055e 00da       |    |		Load_Top	At_Offset_2
055f 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0560 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0561 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0562 4801       |H   |		Short_Literal	0x1
0563 4806       |H   |		Short_Literal	0x6
0564 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0565 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0566 e5fd       |    |		Load	0x2,-0x3
0567 00db       |    |		Load_Top	At_Offset_3
0568 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0569 e5fe       |    |		Load	0x2,-0x2
056a 0306       |    |		Complete_Type	Variant_Record,By_Renaming
056b 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
056c 4801       |H   |		Short_Literal	0x1
056d 4806       |H   |		Short_Literal	0x6
056e 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
056f e5fe       |    |		Load	0x2,-0x2
0570 00d8       |    |		Load_Top	At_Offset_0
0571 e5ff       |    |		Load	0x2,-0x1
0572 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0573 e5ff       |    |		Load	0x2,-0x1
0574 00db       |    |		Load_Top	At_Offset_3
0575 0305       |    |		Complete_Type	Variant_Record,By_Constraining_Incomplete
0576 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0577 4801       |H   |		Short_Literal	0x1
0578 00db       |    |		Load_Top	At_Offset_3
0579 0169       | i  |		Execute	Variant_Record,Read_Discriminant_Constraint
057a 0f01       |    |		Execute_Immediate	Equal,0x1
057b 7000       |p   |		Jump_Nonzero	0x57c
057c e5ff       |    |		Load	0x2,-0x1
057d 0304       |    |		Complete_Type	Variant_Record,By_Completing_Constraint
057e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
057f 00db       |    |		Load_Top	At_Offset_3
0580 0f01       |    |		Execute_Immediate	Equal,0x1
0581 7002       |p   |		Jump_Nonzero	0x584
0582 4802       |H   |		Short_Literal	0x2
0583 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0584 4801       |H   |		Short_Literal	0x1
0585 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0586 00db       |    |		Load_Top	At_Offset_3
0587 e5fe       |    |		Load	0x2,-0x2
0588 0f01       |    |		Execute_Immediate	Equal,0x1
0589 7002       |p   |		Jump_Nonzero	0x58c
058a 4802       |H   |		Short_Literal	0x2
058b 7801       |x   |		Jump	0x58d
058c 4801       |H   |		Short_Literal	0x1
058d e5ff       |    |		Load	0x2,-0x1
058e 031b       |    |		Declare_Type	Variant_Record,Constrained
058f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0590 00db       |    |		Load_Top	At_Offset_3
0591 e5fe       |    |		Load	0x2,-0x2
0592 e5ff       |    |		Load	0x2,-0x1
0593 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0594 e5ff       |    |		Load	0x2,-0x1
0595 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0596 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0597 4801       |H   |		Short_Literal	0x1
0598 00db       |    |		Load_Top	At_Offset_3
0599 1c07       |    |		Execute_Immediate	Run_Utility,0x7
059a 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
059b 0000 0000  |    |		.BLANK	0000[0x5]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3       |    |		.CONST	0x05a3								; Address of begin
05a1 0004       |    |		.CONST	0x0004								; Address of exception handler
05a2 0001       |    |		.CONST	0x0001								; Number of locals
05a3			BODY_05a0:
05a3			INIT_05a0:
05a3 4609       |F   |		Jump_Case	0xa
05a4 7809       |x   |		Jump	0x5ae								; case 0x0
05a5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
05a6 781b       |x   |		Jump	0x5c2								; case 0x2
05a7 781e       |x   |		Jump	0x5c6								; case 0x3
05a8 7849       |xI  |		Jump	0x5f2								; case 0x4
05a9 7848       |xH  |		Jump	0x5f2								; case 0x5
05aa 7821       |x!  |		Jump	0x5cc								; case 0x6
05ab 782c       |x,  |		Jump	0x5d8								; case 0x7
05ac 783a       |x:  |		Jump	0x5e7								; case 0x8
05ad 7840       |x@  |		Jump	0x5ee								; case 0x9
05ae 00da       |    |		Load_Top	At_Offset_2
05af 016c       | l  |		Execute	Variant_Record,Is_Constrained
05b0 7009       |p   |		Jump_Nonzero	0x5ba
05b1 00cf       |    |		Action	Mark_Auxiliary
05b2 4800       |H   |		Short_Literal	0x0
05b3 e5ff       |    |		Load	0x2,-0x1
05b4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05b5 00d8       |    |		Load_Top	At_Offset_0
05b6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05b7 c5ff       |    |		Store	0x2,-0x1
05b8 00ce       |    |		Action	Pop_Auxiliary
05b9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05ba 00da       |    |		Load_Top	At_Offset_2
05bb 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05bc 4603       |F   |		Jump_Case	0x4
05bd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
05be 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
05bf 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
05c0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
05c1 4302       |C   |		.XXX[0x1]
05c2 4801       |H   |		Short_Literal	0x1
05c3 480a       |H   |		Short_Literal	0xa
05c4 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
05c5 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
05c6 e5fd       |    |		Load	0x2,-0x3
05c7 00db       |    |		Load_Top	At_Offset_3
05c8 1c07       |    |		Execute_Immediate	Run_Utility,0x7
05c9 e5fe       |    |		Load	0x2,-0x2
05ca 0306       |    |		Complete_Type	Variant_Record,By_Renaming
05cb 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
05cc 00db       |    |		Load_Top	At_Offset_3
05cd 4603       |F   |		Jump_Case	0x4
05ce 7805       |x   |		Jump	0x5d4								; case 0x0
05cf 7804       |x   |		Jump	0x5d4								; case 0x1
05d0 7805       |x   |		Jump	0x5d6								; case 0x2
05d1 7800       |x   |		Jump	0x5d2								; case 0x3
05d2 4803       |H   |		Short_Literal	0x3
05d3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05d4 4801       |H   |		Short_Literal	0x1
05d5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05d6 4802       |H   |		Short_Literal	0x2
05d7 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05d8 00db       |    |		Load_Top	At_Offset_3
05d9 e5fe       |    |		Load	0x2,-0x2
05da 4603       |F   |		Jump_Case	0x4
05db 7805       |x   |		Jump	0x5e1								; case 0x0
05dc 7804       |x   |		Jump	0x5e1								; case 0x1
05dd 7805       |x   |		Jump	0x5e3								; case 0x2
05de 7800       |x   |		Jump	0x5df								; case 0x3
05df 4803       |H   |		Short_Literal	0x3
05e0 7803       |x   |		Jump	0x5e4
05e1 4801       |H   |		Short_Literal	0x1
05e2 7801       |x   |		Jump	0x5e4
05e3 4802       |H   |		Short_Literal	0x2
05e4 e5ff       |    |		Load	0x2,-0x1
05e5 031b       |    |		Declare_Type	Variant_Record,Constrained
05e6 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05e7 00db       |    |		Load_Top	At_Offset_3
05e8 e5fe       |    |		Load	0x2,-0x2
05e9 e5ff       |    |		Load	0x2,-0x1
05ea 1c06       |    |		Execute_Immediate	Run_Utility,0x6
05eb e5ff       |    |		Load	0x2,-0x1
05ec 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
05ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05ee 4800       |H   |		Short_Literal	0x0
05ef 00db       |    |		Load_Top	At_Offset_3
05f0 1c07       |    |		Execute_Immediate	Run_Utility,0x7
05f1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
05f2 0869       | i  |		Execute_Immediate	Raise,0x69
05f3 ; --------------------------------------------------------------------------------------
05f3 ; STRING TABLE
05f3 ; --------------------------------------------------------------------------------------
05f3 0054       | T  |		.STRTAB	0x0054->0x061d							; "COMMUNICATION"
05f4 005f       | _  |		.STRTAB	0x005f->0x0623							; "COMPTEUR"
05f5 0065       | e  |		.STRTAB	0x0065->0x0627							; "LIEU"
05f6 0067       | g  |		.STRTAB	0x0067->0x0629							; "OBJET"
05f7 006a       | j  |		.STRTAB	0x006a->0x062c							; "PERSONNAGE"
05f8 0072       | r  |		.STRTAB	0x0072->0x0631							; "VERBE"
05f9 0075       | u  |		.STRTAB	0x0075->0x0633							; "PREPOSITION"
05fa 007e       | ~  |		.STRTAB	0x007e->0x0639							; "JOUEUR"
05fb 0082       |    |		.STRTAB	0x0082->0x063c							; "POSITIONCOURANTE"
05fc 0090       |    |		.STRTAB	0x0090->0x0644							; "ETAT"
05fd 0092       |    |		.STRTAB	0x0092->0x0646							; "POSSESSION"
05fe 009a       |    |		.STRTAB	0x009a->0x064b							; "POSITION"
05ff 00a0       |    |		.STRTAB	0x00a0->0x064f							; "CONTENU"
0600 00a5       |    |		.STRTAB	0x00a5->0x0652							; "EXISTE"
0601 00a9       |    |		.STRTAB	0x00a9->0x0655							; "SORTIE"
0602 00ad       |    |		.STRTAB	0x00ad->0x0658							; "VERS"
0603 00af       |    |		.STRTAB	0x00af->0x065a							; "DIRECTION"
0604 00b6       |    |		.STRTAB	0x00b6->0x065f							; "EST"
0605 00b7       |    |		.STRTAB	0x00b7->0x0660							; "DANS"
0606 00b9       |    |		.STRTAB	0x00b9->0x0662							; "RELIEA"
0607 00bd       |    |		.STRTAB	0x00bd->0x0665							; "TEXTE"
0608 00c0       |    |		.STRTAB	0x00c0->0x0668							; "GREATER_THAN"
0609 00ca       |    |		.STRTAB	0x00ca->0x066e							; "LESS_THAN"
060a 00d1       |    |		.STRTAB	0x00d1->0x0672							; "EQUAL"
060b 00d4       |    |		.STRTAB	0x00d4->0x0675							; "NUMBER"
060c 00d8       |    |		.STRTAB	0x00d8->0x0678							; "UNKNOWN"
060d 00dd       |    |		.STRTAB	0x00dd->0x067b							; "TYPE_ACTION"
060e 00e6       |    |		.STRTAB	0x00e6->0x0681							; "TYPE_RECHERCHE"
060f 00f2       |    |		.STRTAB	0x00f2->0x0688							; "TYPE_EGALITE"
0610 00fc       |    |		.STRTAB	0x00fc->0x068e							; "TYPE_COMPARAISON"
0611 010a       |    |		.STRTAB	0x010a->0x0696							; "GREATER"
0612 010f       |    |		.STRTAB	0x010f->0x0699							; "LESS"
0613 0111       |    |		.STRTAB	0x0111->0x069b							; "EQUAL_AS"
0614 0117       |    |		.STRTAB	0x0117->0x069f							; "TYPE_LEAF"
0615 011e       |    |		.STRTAB	0x011e->0x06a4							; "TYPE_NODE"
0616 0125       | %  |		.STRTAB	0x0125->0x06a8							; "ET"
0617 0125       | %  |		.STRTAB	0x0125->0x06a9							; "OU"
0618 0125       | %  |		.STRTAB	0x0125->0x06aa							; "NON"
0619 0126       | &  |		.STRTAB	0x0126->0x06ac							; ">"
061a 0125       | %  |		.STRTAB	0x0125->0x06ac							; "<"
061b 0124       | $  |		.STRTAB	0x0124->0x06ad							; "="
061c 0123       | #  |		.STREND 0x0123->0x06ad
061d 434f 4d4d  |COMM|		.STRTAB_STRINGS
06ae 0000 0000  |    |		.XXX[0x2]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; Debug Table
06b0 ; --------------------------------------------------------------------------------------
06b0 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xebc0,0x0000,0x0001,0x0015
06b6 000b 070a  |    |		.DBG4T	0x000b,0x070a,0x8000,0x8000
06ba 0077 0734  | w 4|		.DBG4T	0x0077,0x0734,0x8000,0x8000
06be 009b 0000  |    |		.DBG4T	0x009b,0x0000,0x0005,0x0000
06c2 00c3 074e  |   N|		.DBG4T	0x00c3,0x074e,0x0002,0x0000
06c6 00db 0755  |   U|		.DBG4T	0x00db,0x0755,0x0002,0x4000
06ca 01ab 07a1  |    |		.DBG4T	0x01ab,0x07a1,0x0001,0x0000
06ce 01cb 0000  |    |		.DBG4T	0x01cb,0x0000,0x0005,0x0000
06d2 01f3 0000  |    |		.DBG4T	0x01f3,0x0000,0x0005,0x0000
06d6 021b 07a6  |    |		.DBG4T	0x021b,0x07a6,0x0002,0x0000
06da 023b 07ab  | ;  |		.DBG4T	0x023b,0x07ab,0x0002,0x0000
06de 0253 0000  | S  |		.DBG4T	0x0253,0x0000,0x0005,0x0000
06e2 027b 0000  | {  |		.DBG4T	0x027b,0x0000,0x0005,0x0000
06e6 02a3 07b2  |    |		.DBG4T	0x02a3,0x07b2,0x0002,0x0000
06ea 02b3 07b6  |    |		.DBG4T	0x02b3,0x07b6,0x0002,0x0000
06ee 02cb 07bc  |    |		.DBG4T	0x02cb,0x07bc,0x0002,0x0000
06f2 02eb 07c4  |    |		.DBG4T	0x02eb,0x07c4,0x0002,0x0000
06f6 030b 07cc  |    |		.DBG4T	0x030b,0x07cc,0x0002,0x0000
06fa 032b 07d6  | +  |		.DBG4T	0x032b,0x07d6,0x0002,0x4000
06fe 04f3 084c  |   L|		.DBG4T	0x04f3,0x084c,0x0001,0x4000
0702 0543 0000  | C  |		.DBG4T	0x0543,0x0000,0x0005,0x0000
0706 05a3 0000  |    |		.DBG4T	0x05a3,0x0000,0x0005,0x0000
070a ; --------------------------------------------------------------------------------------
070a ; Debug chain
070a ; --------------------------------------------------------------------------------------
070a 0014 0000  |    |		.DBGLEN	0x0014,0x0000
070c 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0012,0x0014,0x001a,0x0020,0x0022,0x0027,0x002c,0x002e,0x0030,0x0046,0x004b,0x0050,0x005b,0x005f,0x0061,0x0063,0x0065,0x0067
0720 0001 0002  |    |		.XXX[0x14]
0722 0003 0004  |    |
0724 0005 0006  |    |
0726 0007 0008  |    |
0728 0009 000a  |    |
072a 000b 000c  |    |
072c 000d 000e  |    |
072e 000f 0011  |    |
0730 0012 0013  |    |
0732 0014 0015  |    |
0734 ; --------------------------------------------------------------------------------------
0734 ; Debug chain
0734 ; --------------------------------------------------------------------------------------
0734 000c 0000  |    |		.DBGLEN	0x000c,0x0000
0736 0077 0079  | w y|		.DBGLNO	0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087,0x0089,0x008b,0x008d
0742 0003 0004  |    |		.XXX[0xc]
0744 0005 0006  |    |
0746 0007 0008  |    |
0748 0009 000a  |    |
074a 000b 000c  |    |
074c 000d 000e  |    |
074e ; --------------------------------------------------------------------------------------
074e ; Debug chain
074e ; --------------------------------------------------------------------------------------
074e 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0750 00c3 00c5  |    |		.DBGLNO	0x00c3,0x00c5,0x00c8,0x00d1,0x00d4
0755 ; --------------------------------------------------------------------------------------
0755 ; Debug chain
0755 ; --------------------------------------------------------------------------------------
0755 0000 0025  |   %|		.DBGLEN	0x0000,0x0025
0757 00db 00f7  |    |		.DBGLNO	0x00db,0x00f7,0x00f9,0x0108,0x010a,0x0116,0x0118,0x0124,0x0126,0x012f,0x0131,0x0134,0x0136,0x013f,0x0141,0x0147,0x0149,0x014c,0x014e,0x0154,0x0156,0x0159,0x015b,0x015e,0x0160,0x0163,0x0165,0x016b,0x016d,0x0176,0x0178,0x017b,0x017d,0x0189,0x018b,0x019d,0x019f
077c 0001 0024  |   $|		.XXX[0x25]
077e 0002 0003  |    |
0780 0004 0005  |    |
0782 0006 0007  |    |
0784 0008 0009  |    |
0786 000a 000b  |    |
0788 000c 000d  |    |
078a 000e 000f  |    |
078c 0010 0011  |    |
078e 0012 0013  |    |
0790 0014 0015  |    |
0792 0016 0017  |    |
0794 0018 0019  |    |
0796 001a 001b  |    |
0798 001c 001d  |    |
079a 001e 001f  |    |
079c 0020 0021  |   !|
079e 0022 0023  | " #|
07a0 0025       | %  |
07a1 ; --------------------------------------------------------------------------------------
07a1 ; Debug chain
07a1 ; --------------------------------------------------------------------------------------
07a1 0000 0003  |    |		.DBGLEN	0x0000,0x0003
07a3 01ac 01af  |    |		.DBGLNO	0x01ac,0x01af,0x01bc
07a6 ; --------------------------------------------------------------------------------------
07a6 ; Debug chain
07a6 ; --------------------------------------------------------------------------------------
07a6 0000 0003  |    |		.DBGLEN	0x0000,0x0003
07a8 021b 0230  |   0|		.DBGLNO	0x021b,0x0230,0x0232
07ab ; --------------------------------------------------------------------------------------
07ab ; Debug chain
07ab ; --------------------------------------------------------------------------------------
07ab 0000 0005  |    |		.DBGLEN	0x0000,0x0005
07ad 023b 0242  | ; B|		.DBGLNO	0x023b,0x0242,0x0244,0x024b,0x024d
07b2 ; --------------------------------------------------------------------------------------
07b2 ; Debug chain
07b2 ; --------------------------------------------------------------------------------------
07b2 0000 0002  |    |		.DBGLEN	0x0000,0x0002
07b4 02a3 02a5  |    |		.DBGLNO	0x02a3,0x02a5
07b6 ; --------------------------------------------------------------------------------------
07b6 ; Debug chain
07b6 ; --------------------------------------------------------------------------------------
07b6 0001 0003  |    |		.DBGLEN	0x0001,0x0003
07b8 02b3 02b5  |    |		.DBGLNO	0x02b3,0x02b5,0x02bd,0x02c1
07bc ; --------------------------------------------------------------------------------------
07bc ; Debug chain
07bc ; --------------------------------------------------------------------------------------
07bc 0001 0005  |    |		.DBGLEN	0x0001,0x0005
07be 02cb 02cd  |    |		.DBGLNO	0x02cb,0x02cd,0x02d5,0x02d9,0x02dd,0x02e1
07c4 ; --------------------------------------------------------------------------------------
07c4 ; Debug chain
07c4 ; --------------------------------------------------------------------------------------
07c4 0001 0005  |    |		.DBGLEN	0x0001,0x0005
07c6 02eb 02ed  |    |		.DBGLNO	0x02eb,0x02ed,0x02f5,0x02f9,0x02fd,0x0301
07cc ; --------------------------------------------------------------------------------------
07cc ; Debug chain
07cc ; --------------------------------------------------------------------------------------
07cc 0001 0007  |    |		.DBGLEN	0x0001,0x0007
07ce 030b 030d  |    |		.DBGLNO	0x030b,0x030d,0x0313,0x0316,0x0319,0x031c,0x031e,0x0322
07d6 ; --------------------------------------------------------------------------------------
07d6 ; Debug chain
07d6 ; --------------------------------------------------------------------------------------
07d6 0004 0038  |   8|		.DBGLEN	0x0004,0x0038
07d8 032b 032c  | + ,|		.DBGLNO	0x032b,0x032c,0x032e,0x032f,0x0334,0x0337,0x033e,0x0344,0x034b,0x0352,0x0359,0x035d,0x0363,0x0366,0x0368,0x0373,0x0377,0x037e,0x0385,0x0399,0x03a5,0x03b9,0x03bc,0x03c1,0x03cc,0x03ce,0x03d5,0x03d7,0x03d9,0x03dd,0x03e5,0x03e9,0x03f0,0x03f6,0x040a,0x041d,0x0426,0x042f,0x0439,0x043b,0x0442,0x044b,0x0454,0x045d,0x045f,0x0466,0x046f,0x0478,0x0482,0x0484,0x048d,0x0496,0x049f,0x04a1,0x04a7,0x04b6,0x04bd,0x04cb,0x04d2,0x04e0
0814 0001 0002  |    |		.XXX[0x38]
0816 0036 0039  | 6 9|
0818 0037 0038  | 7 8|
081a 0003 0004  |    |
081c 0005 0006  |    |
081e 0007 0008  |    |
0820 0009 000a  |    |
0822 000b 000c  |    |
0824 000d 000e  |    |
0826 0010 0011  |    |
0828 0012 0013  |    |
082a 0014 0015  |    |
082c 0016 0017  |    |
082e 0018 0019  |    |
0830 001a 001b  |    |
0832 001c 001d  |    |
0834 001e 001f  |    |
0836 0020 0021  |   !|
0838 0022 0023  | " #|
083a 0024 0025  | $ %|
083c 0026 0027  | & '|
083e 0028 0029  | ( )|
0840 002a 002b  | * +|
0842 002c 002d  | , -|
0844 002e 002f  | . /|
0846 0030 0031  | 0 1|
0848 0032 0033  | 2 3|
084a 0034 0035  | 4 5|
084c ; --------------------------------------------------------------------------------------
084c ; Debug chain
084c ; --------------------------------------------------------------------------------------
084c 0000 0009  |    |		.DBGLEN	0x0000,0x0009
084e 04f3 04f8  |    |		.DBGLNO	0x04f3,0x04f8,0x04fc,0x0500,0x0504,0x050b,0x0515,0x0524,0x0533
0857 0001 0002  |    |		.XXX[0x9]
0859 0003 0004  |    |
085b 0005 0008  |    |
085d 0006 0007  |    |
085f 0009       |    |
0860 0000 0000  |    |		.BLANK	0000[0x1a0]