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

⟦1f5055865⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 04a8       |    |		.CONST	0x04a8								; 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 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0082       |    |		.CONST	0x0082								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001f       |    |		.CONST	0x001f								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 480b       |H   |		Short_Literal	0xb
000d 029f 008b  |    |		Declare_Subprogram	INIT_0088,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 4800       |H   |		Short_Literal	0x0
0011 4801       |H   |		Short_Literal	0x1
0012 00da       |    |		Load_Top	At_Offset_2
0013 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0014 4800       |H   |		Short_Literal	0x0
0015 4805       |H   |		Short_Literal	0x5
0016 029f 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Call
0018 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0019 4800       |H   |		Short_Literal	0x0
001a 4801       |H   |		Short_Literal	0x1
001b 029f 00db  |    |		Declare_Subprogram	INIT_00d8,For_Call
001d 03fe       |    |		Declare_Type	Discrete,Defined,Visible
001e 4818       |H   |		Short_Literal	0x18
001f 03cf       |    |		Declare_Type	Access,Incomplete,Visible
0020 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0022 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0024 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0026 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0028 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
002a 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
002c 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
002e 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
0030 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0032 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0034 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0036 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
0038 00c4       |    |		Action	Make_Default
0039 e20d       |    |		Load	0x1,0xd
003a 4802       |H   |		Short_Literal	0x2
003b e211       |    |		Load	0x1,0x11
003c 00d8       |    |		Load_Top	At_Offset_0
003d 4803       |H   |		Short_Literal	0x3
003e e006       |    |		Load	0x0,0x6
003f e20f       |    |		Load	0x1,0xf
0040 e007       |    |		Load	0x0,0x7
0041 4801       |H   |		Short_Literal	0x1
0042 e008       |    |		Load	0x0,0x8
0043 4801       |H   |		Short_Literal	0x1
0044 e008       |    |		Load	0x0,0x8
0045 4801       |H   |		Short_Literal	0x1
0046 00e3       |    |		Load_Encached	Natural_Cache
0047 4801       |H   |		Short_Literal	0x1
0048 e008       |    |		Load	0x0,0x8
0049 4803       |H   |		Short_Literal	0x3
004a e009       |    |		Load	0x0,0x9
004b e008       |    |		Load	0x0,0x8
004c e210       |    |		Load	0x1,0x10
004d 4802       |H   |		Short_Literal	0x2
004e e006       |    |		Load	0x0,0x6
004f e210       |    |		Load	0x1,0x10
0050 4802       |H   |		Short_Literal	0x2
0051 e009       |    |		Load	0x0,0x9
0052 e210       |    |		Load	0x1,0x10
0053 4802       |H   |		Short_Literal	0x2
0054 e008       |    |		Load	0x0,0x8
0055 e210       |    |		Load	0x1,0x10
0056 029f 0363  |   c|		Declare_Subprogram	INIT_0360,For_Call
0058 4812       |H   |		Short_Literal	0x12
0059 4800       |H   |		Short_Literal	0x0
005a 480a       |H   |		Short_Literal	0xa
005b 4800       |H   |		Short_Literal	0x0
005c 4801       |H   |		Short_Literal	0x1
005d 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
005e 00d8       |    |		Load_Top	At_Offset_0
005f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0060 e211       |    |		Load	0x1,0x11
0061 03c7       |    |		Complete_Type	Access,By_Defining
0062 480b       |H   |		Short_Literal	0xb
0063 00d9       |    |		Load_Top	At_Offset_1
0064 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0065 e211       |    |		Load	0x1,0x11
0066 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0067 0129       | )  |		Execute	Any,Make_Visible
0068 c21e       |    |		Store	0x1,0x1e
0069 00bf       |    |		Action	Accept_Activation
006a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
007b 00c7       |    |		Action	Elaborate_Subprogram
007c 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
007d 00c7       |    |		Action	Elaborate_Subprogram
007e 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
007f 00c7       |    |		Action	Elaborate_Subprogram
0080 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0081 00c7       |    |		Action	Elaborate_Subprogram
0082			BODY_0008:
0082 00bc       |    |		Action	Signal_Activated
0083 00bb       |    |		Action	Signal_Completion
0084 0000 0000  |    |		.BLANK	0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b 4607       |F   |		Jump_Case	0x8
008c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
008d 7807       |x   |		Jump	0x95								; case 0x1
008e 780a       |x   |		Jump	0x99								; case 0x2
008f 780e       |x   |		Jump	0x9e								; case 0x3
0090 7811       |x   |		Jump	0xa2								; case 0x4
0091 7812       |x   |		Jump	0xa4								; case 0x5
0092 7813       |x   |		Jump	0xa6								; case 0x6
0093 7816       |x   |		Jump	0xaa								; case 0x7
0094 4302       |C   |		.XXX[0x1]
0095 00da       |    |		Load_Top	At_Offset_2
0096 0091 0415  |    |		Action	Push_String_Extended_Indexed,0x415				; "ET"
0098 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0099 00db       |    |		Load_Top	At_Offset_3
009a 00db       |    |		Load_Top	At_Offset_3
009b 00e0       |    |		Load_Encached	Standard_Cache
009c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
009d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
009e 00da       |    |		Load_Top	At_Offset_2
009f 00e0       |    |		Load_Encached	Standard_Cache
00a0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00a1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00a2 00db       |    |		Load_Top	At_Offset_3
00a3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00a4 00db       |    |		Load_Top	At_Offset_3
00a5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00a6 e20d       |    |		Load	0x1,0xd
00a7 00dc       |    |		Load_Top	At_Offset_4
00a8 0267       | g  |		Execute	Discrete,Predecessor
00a9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00aa e20d       |    |		Load	0x1,0xd
00ab 00dc       |    |		Load_Top	At_Offset_4
00ac 0268       | h  |		Execute	Discrete,Successor
00ad 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ae 0000 0000  |    |		.XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 4607       |F   |		Jump_Case	0x8
00b4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00b5 7807       |x   |		Jump	0xbd								; case 0x1
00b6 780a       |x   |		Jump	0xc1								; case 0x2
00b7 780e       |x   |		Jump	0xc6								; case 0x3
00b8 7811       |x   |		Jump	0xca								; case 0x4
00b9 7812       |x   |		Jump	0xcc								; case 0x5
00ba 7813       |x   |		Jump	0xce								; case 0x6
00bb 7816       |x   |		Jump	0xd2								; case 0x7
00bc 4302       |C   |		.XXX[0x1]
00bd 00da       |    |		Load_Top	At_Offset_2
00be 0091 0421  |   !|		Action	Push_String_Extended_Indexed,0x421				; "EQUAL"
00c0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00c1 00db       |    |		Load_Top	At_Offset_3
00c2 00db       |    |		Load_Top	At_Offset_3
00c3 00e0       |    |		Load_Encached	Standard_Cache
00c4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c6 00da       |    |		Load_Top	At_Offset_2
00c7 00e0       |    |		Load_Encached	Standard_Cache
00c8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00c9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00ca 00db       |    |		Load_Top	At_Offset_3
00cb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00cc 00db       |    |		Load_Top	At_Offset_3
00cd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ce e20f       |    |		Load	0x1,0xf
00cf 00dc       |    |		Load_Top	At_Offset_4
00d0 0267       | g  |		Execute	Discrete,Predecessor
00d1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00d2 e20f       |    |		Load	0x1,0xf
00d3 00dc       |    |		Load_Top	At_Offset_4
00d4 0268       | h  |		Execute	Discrete,Successor
00d5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
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 4607       |F   |		Jump_Case	0x8
00dc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00dd 7807       |x   |		Jump	0xe5								; case 0x1
00de 780a       |x   |		Jump	0xe9								; case 0x2
00df 780e       |x   |		Jump	0xee								; case 0x3
00e0 7811       |x   |		Jump	0xf2								; case 0x4
00e1 7812       |x   |		Jump	0xf4								; case 0x5
00e2 7813       |x   |		Jump	0xf6								; case 0x6
00e3 7816       |x   |		Jump	0xfa								; case 0x7
00e4 4302       |C   |		.XXX[0x1]
00e5 00da       |    |		Load_Top	At_Offset_2
00e6 0091 0427  |   '|		Action	Push_String_Extended_Indexed,0x427				; "YES"
00e8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00e9 00db       |    |		Load_Top	At_Offset_3
00ea 00db       |    |		Load_Top	At_Offset_3
00eb 00e0       |    |		Load_Encached	Standard_Cache
00ec 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ee 00da       |    |		Load_Top	At_Offset_2
00ef 00e0       |    |		Load_Encached	Standard_Cache
00f0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00f1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f2 00db       |    |		Load_Top	At_Offset_3
00f3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f4 00db       |    |		Load_Top	At_Offset_3
00f5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f6 e210       |    |		Load	0x1,0x10
00f7 00dc       |    |		Load_Top	At_Offset_4
00f8 0267       | g  |		Execute	Discrete,Predecessor
00f9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fa e210       |    |		Load	0x1,0x10
00fb 00dc       |    |		Load_Top	At_Offset_4
00fc 0268       | h  |		Execute	Discrete,Successor
00fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fe 0000 0000  |    |		.XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00da       |    |		Load_Top	At_Offset_2
0104 700d       |p   |		Jump_Nonzero	0x112
0105 4800       |H   |		Short_Literal	0x0
0106 e21f       |    |		Load	0x1,0x1f
0107 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0108 e5fe       |    |		Load	0x2,-0x2
0109 00d9       |    |		Load_Top	At_Offset_1
010a 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
010b e5fd       |    |		Load	0x2,-0x3
010c 00d9       |    |		Load_Top	At_Offset_1
010d 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
010e e211       |    |		Load	0x1,0x11
010f 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0110 a5fc       |    |		Store_Unchecked	0x2,-0x4
0111 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0112 4801       |H   |		Short_Literal	0x1
0113 e21f       |    |		Load	0x1,0x1f
0114 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0115 e5fe       |    |		Load	0x2,-0x2
0116 00d9       |    |		Load_Top	At_Offset_1
0117 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0118 e5fd       |    |		Load	0x2,-0x3
0119 00d9       |    |		Load_Top	At_Offset_1
011a 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
011b e211       |    |		Load	0x1,0x11
011c 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
011d a5fc       |    |		Store_Unchecked	0x2,-0x4
011e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
011f 0000       |    |		.XXX[0x1]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 e5fd       |    |		Load	0x2,-0x3
0124 800a       |    |		Call	0x0,0xa
0125 e5fd       |    |		Load	0x2,-0x3
0126 800b       |    |		Call	0x0,0xb
0127 e5fe       |    |		Load	0x2,-0x2
0128 0f00       |    |		Execute_Immediate	Equal,0x0
0129 e5fe       |    |		Load	0x2,-0x2
012a 0f01       |    |		Execute_Immediate	Equal,0x1
012b 0278       | x  |		Execute	Discrete,Or
012c 0279       | y  |		Execute	Discrete,And
012d 0278       | x  |		Execute	Discrete,Or
012e 6812       |h   |		Jump_Zero	0x141
012f 4802       |H   |		Short_Literal	0x2
0130 e21f       |    |		Load	0x1,0x1f
0131 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0132 00db       |    |		Load_Top	At_Offset_3
0133 00d9       |    |		Load_Top	At_Offset_1
0134 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0135 e5fe       |    |		Load	0x2,-0x2
0136 00d9       |    |		Load_Top	At_Offset_1
0137 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0138 e5fd       |    |		Load	0x2,-0x3
0139 00d9       |    |		Load_Top	At_Offset_1
013a 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
013b e211       |    |		Load	0x1,0x11
013c 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
013d a5fc       |    |		Store_Unchecked	0x2,-0x4
013e 4801       |H   |		Short_Literal	0x1
013f a5fb       |    |		Store_Unchecked	0x2,-0x5
0140 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0141 4800       |H   |		Short_Literal	0x0
0142 a5fb       |    |		Store_Unchecked	0x2,-0x5
0143 e21e       |    |		Load	0x1,0x1e
0144 a5fc       |    |		Store_Unchecked	0x2,-0x4
0145 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0146 0000 0000  |    |		.XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 4803       |H   |		Short_Literal	0x3
014c e21f       |    |		Load	0x1,0x1f
014d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
014e 00db       |    |		Load_Top	At_Offset_3
014f 00d9       |    |		Load_Top	At_Offset_1
0150 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0151 e211       |    |		Load	0x1,0x11
0152 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0153 a5fe       |    |		Store_Unchecked	0x2,-0x2
0154 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0155 0000 0000  |    |		.XXX[0x3]
0157 0000       |    |
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 4804       |H   |		Short_Literal	0x4
015c e21f       |    |		Load	0x1,0x1f
015d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
015e 00db       |    |		Load_Top	At_Offset_3
015f 00d9       |    |		Load_Top	At_Offset_1
0160 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0161 e211       |    |		Load	0x1,0x11
0162 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0163 a5fe       |    |		Store_Unchecked	0x2,-0x2
0164 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0165 0000 0000  |    |		.XXX[0x3]
0167 0000       |    |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 4805       |H   |		Short_Literal	0x5
016c e21f       |    |		Load	0x1,0x1f
016d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
016e 00db       |    |		Load_Top	At_Offset_3
016f 00d9       |    |		Load_Top	At_Offset_1
0170 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0171 e211       |    |		Load	0x1,0x11
0172 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0173 a5fe       |    |		Store_Unchecked	0x2,-0x2
0174 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0175 0000 0000  |    |		.XXX[0x3]
0177 0000       |    |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 4806       |H   |		Short_Literal	0x6
017c e21f       |    |		Load	0x1,0x1f
017d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
017e 00db       |    |		Load_Top	At_Offset_3
017f 00d9       |    |		Load_Top	At_Offset_1
0180 2a0a       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
0181 e211       |    |		Load	0x1,0x11
0182 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0183 a5fe       |    |		Store_Unchecked	0x2,-0x2
0184 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0185 0000 0000  |    |		.XXX[0x3]
0187 0000       |    |
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 4807       |H   |		Short_Literal	0x7
018c e21f       |    |		Load	0x1,0x1f
018d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
018e 00db       |    |		Load_Top	At_Offset_3
018f 00d9       |    |		Load_Top	At_Offset_1
0190 2a0b       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
0191 e5fe       |    |		Load	0x2,-0x2
0192 00d9       |    |		Load_Top	At_Offset_1
0193 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
0194 e5fd       |    |		Load	0x2,-0x3
0195 00d9       |    |		Load_Top	At_Offset_1
0196 2a0d       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
0197 e211       |    |		Load	0x1,0x11
0198 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0199 a5fc       |    |		Store_Unchecked	0x2,-0x4
019a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
019b 0000 0000  |    |		.BLANK	0000[0x5]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 4808       |H   |		Short_Literal	0x8
01a4 e21f       |    |		Load	0x1,0x1f
01a5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01a6 00db       |    |		Load_Top	At_Offset_3
01a7 00d9       |    |		Load_Top	At_Offset_1
01a8 2a0e       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
01a9 e5fe       |    |		Load	0x2,-0x2
01aa 00d9       |    |		Load_Top	At_Offset_1
01ab 2a0f       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
01ac e211       |    |		Load	0x1,0x11
01ad 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01ae a5fd       |    |		Store_Unchecked	0x2,-0x3
01af 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 4809       |H   |		Short_Literal	0x9
01b4 e21f       |    |		Load	0x1,0x1f
01b5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01b6 00db       |    |		Load_Top	At_Offset_3
01b7 00d9       |    |		Load_Top	At_Offset_1
01b8 2a10       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
01b9 e5fe       |    |		Load	0x2,-0x2
01ba 00d9       |    |		Load_Top	At_Offset_1
01bb 2a11       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x11
01bc e211       |    |		Load	0x1,0x11
01bd 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01be a5fd       |    |		Store_Unchecked	0x2,-0x3
01bf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 480a       |H   |		Short_Literal	0xa
01c4 e21f       |    |		Load	0x1,0x1f
01c5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01c6 00db       |    |		Load_Top	At_Offset_3
01c7 00d9       |    |		Load_Top	At_Offset_1
01c8 2a12       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x12
01c9 e5fe       |    |		Load	0x2,-0x2
01ca 00d9       |    |		Load_Top	At_Offset_1
01cb 2a13       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x13
01cc e211       |    |		Load	0x1,0x11
01cd 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01ce a5fd       |    |		Store_Unchecked	0x2,-0x3
01cf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 0227       | '  |		Execute	Access,All_Reference
01d5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01d6 460b       |F   |		Jump_Case	0xc
01d7 780f       |x   |		Jump	0x1e7								; case 0x0
01d8 780e       |x   |		Jump	0x1e7								; case 0x1
01d9 7827       |x'  |		Jump	0x201								; case 0x2
01da 7837       |x7  |		Jump	0x212								; case 0x3
01db 783c       |x<  |		Jump	0x218								; case 0x4
01dc 7841       |xA  |		Jump	0x21e								; case 0x5
01dd 7849       |xI  |		Jump	0x227								; case 0x6
01de 7851       |xQ  |		Jump	0x230								; case 0x7
01df 7865       |xe  |		Jump	0x245								; case 0x8
01e0 7874       |xt  |		Jump	0x255								; case 0x9
01e1 7883       |x   |		Jump	0x265								; case 0xa
01e2 7800       |x   |		Jump	0x1e3								; case 0xb
01e3 4801       |H   |		Short_Literal	0x1
01e4 e00c       |    |		Load	0x0,0xc
01e5 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
01e6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01e7 00da       |    |		Load_Top	At_Offset_2
01e8 0227       | '  |		Execute	Access,All_Reference
01e9 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
01ea 821c       |    |		Call	0x1,0x1c
01eb 0092 0429  |   )|		Action	Push_String_Extended,0x429					; " "
01ed 00db       |    |		Load_Top	At_Offset_3
01ee 0227       | '  |		Execute	Access,All_Reference
01ef 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01f0 e20d       |    |		Load	0x1,0xd
01f1 011c       |    |		Execute	Any,Convert_Unchecked
01f2 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01f3 01cc       |    |		Execute	Vector,Catenate
01f4 0092 0429  |   )|		Action	Push_String_Extended,0x429					; " "
01f6 01cc       |    |		Execute	Vector,Catenate
01f7 e00c       |    |		Load	0x0,0xc
01f8 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
01f9 00da       |    |		Load_Top	At_Offset_2
01fa 0227       | '  |		Execute	Access,All_Reference
01fb 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01fc 821c       |    |		Call	0x1,0x1c
01fd 4801       |H   |		Short_Literal	0x1
01fe e00c       |    |		Load	0x0,0xc
01ff 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0200 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0201 00da       |    |		Load_Top	At_Offset_2
0202 0227       | '  |		Execute	Access,All_Reference
0203 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0204 800d       |    |		Call	0x0,0xd
0205 00da       |    |		Load_Top	At_Offset_2
0206 0227       | '  |		Execute	Access,All_Reference
0207 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0208 e20f       |    |		Load	0x1,0xf
0209 011c       |    |		Execute	Any,Convert_Unchecked
020a 1c01       |    |		Execute_Immediate	Run_Utility,0x1
020b e00c       |    |		Load	0x0,0xc
020c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
020d 00da       |    |		Load_Top	At_Offset_2
020e 0227       | '  |		Execute	Access,All_Reference
020f 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0210 800e       |    |		Call	0x0,0xe
0211 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0212 800f       |    |		Call	0x0,0xf
0213 00da       |    |		Load_Top	At_Offset_2
0214 0227       | '  |		Execute	Access,All_Reference
0215 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0216 8010       |    |		Call	0x0,0x10
0217 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0218 8011       |    |		Call	0x0,0x11
0219 00da       |    |		Load_Top	At_Offset_2
021a 0227       | '  |		Execute	Access,All_Reference
021b 2608       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8
021c 8010       |    |		Call	0x0,0x10
021d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
021e 8012       |    |		Call	0x0,0x12
021f 00da       |    |		Load_Top	At_Offset_2
0220 0227       | '  |		Execute	Access,All_Reference
0221 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0222 00e0       |    |		Load_Encached	Standard_Cache
0223 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0224 e00c       |    |		Load	0x0,0xc
0225 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0226 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0227 0092 042a  |   *|		Action	Push_String_Extended,0x42a					; "Meet : "
0229 e00c       |    |		Load	0x0,0xc
022a 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
022b 00da       |    |		Load_Top	At_Offset_2
022c 0227       | '  |		Execute	Access,All_Reference
022d 260a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa
022e 8010       |    |		Call	0x0,0x10
022f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0230 0092 042b  |   +|		Action	Push_String_Extended,0x42b					; "Belong : "
0232 e00c       |    |		Load	0x0,0xc
0233 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0234 00da       |    |		Load_Top	At_Offset_2
0235 0227       | '  |		Execute	Access,All_Reference
0236 260c       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc
0237 8010       |    |		Call	0x0,0x10
0238 00da       |    |		Load_Top	At_Offset_2
0239 0227       | '  |		Execute	Access,All_Reference
023a 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
023b e210       |    |		Load	0x1,0x10
023c 011c       |    |		Execute	Any,Convert_Unchecked
023d 1c01       |    |		Execute_Immediate	Run_Utility,0x1
023e e00c       |    |		Load	0x0,0xc
023f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0240 00da       |    |		Load_Top	At_Offset_2
0241 0227       | '  |		Execute	Access,All_Reference
0242 260b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
0243 8013       |    |		Call	0x0,0x13
0244 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0245 0092 042c  |   ,|		Action	Push_String_Extended,0x42c					; "attribute_Exist : Binary :"
0247 00db       |    |		Load_Top	At_Offset_3
0248 0227       | '  |		Execute	Access,All_Reference
0249 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
024a e210       |    |		Load	0x1,0x10
024b 011c       |    |		Execute	Any,Convert_Unchecked
024c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
024d 01cc       |    |		Execute	Vector,Catenate
024e e00c       |    |		Load	0x0,0xc
024f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0250 00da       |    |		Load_Top	At_Offset_2
0251 0227       | '  |		Execute	Access,All_Reference
0252 260e       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
0253 800d       |    |		Call	0x0,0xd
0254 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0255 0092 042d  |   -|		Action	Push_String_Extended,0x42d					; "exits_Exist : Binary :"
0257 00db       |    |		Load_Top	At_Offset_3
0258 0227       | '  |		Execute	Access,All_Reference
0259 2e11       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x11
025a e210       |    |		Load	0x1,0x10
025b 011c       |    |		Execute	Any,Convert_Unchecked
025c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
025d 01cc       |    |		Execute	Vector,Catenate
025e e00c       |    |		Load	0x0,0xc
025f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0260 00da       |    |		Load_Top	At_Offset_2
0261 0227       | '  |		Execute	Access,All_Reference
0262 2610       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x10
0263 8013       |    |		Call	0x0,0x13
0264 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0265 0092 042e  |   .|		Action	Push_String_Extended,0x42e					; "subject_Exist : Binary : "
0267 00db       |    |		Load_Top	At_Offset_3
0268 0227       | '  |		Execute	Access,All_Reference
0269 2e13       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x13
026a e210       |    |		Load	0x1,0x10
026b 011c       |    |		Execute	Any,Convert_Unchecked
026c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
026d 01cc       |    |		Execute	Vector,Catenate
026e e00c       |    |		Load	0x0,0xc
026f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0270 00da       |    |		Load_Top	At_Offset_2
0271 0227       | '  |		Execute	Access,All_Reference
0272 2612       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12
0273 8010       |    |		Call	0x0,0x10
0274 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0275 0000 0000  |    |		.XXX[0x3]
0277 0000       |    |
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027e       | ~  |		.CONST	0x027e								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0004       |    |		.CONST	0x0004								; Number of locals
027b			INIT_0278:
027b 00e2       |    |		Load_Encached	Integer_Cache
027c 03e9       |    |		Declare_Variable	Discrete,Duplicate
027d 00e1       |    |		Load_Encached	Boolean_Cache
027e			BODY_0278:
027e e5ff       |    |		Load	0x2,-0x1
027f 0227       | '  |		Execute	Access,All_Reference
0280 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0281 460b       |F   |		Jump_Case	0xc
0282 780e       |x   |		Jump	0x291								; case 0x0
0283 781d       |x   |		Jump	0x2a1								; case 0x1
0284 782b       |x+  |		Jump	0x2b0								; case 0x2
0285 7874       |xt  |		Jump	0x2fa								; case 0x3
0286 787b       |x{  |		Jump	0x302								; case 0x4
0287 7882       |x   |		Jump	0x30a								; case 0x5
0288 7889       |x   |		Jump	0x312								; case 0x6
0289 7892       |x   |		Jump	0x31c								; case 0x7
028a 78a5       |x   |		Jump	0x330								; case 0x8
028b 78b2       |x   |		Jump	0x33e								; case 0x9
028c 78c0       |x   |		Jump	0x34d								; case 0xa
028d 7800       |x   |		Jump	0x28e								; case 0xb
028e 4800       |H   |		Short_Literal	0x0
028f 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0290 78cb       |x   |		Jump	0x35c
0291 e5ff       |    |		Load	0x2,-0x1
0292 0227       | '  |		Execute	Access,All_Reference
0293 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0294 821d       |    |		Call	0x1,0x1d
0295 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0296 00d8       |    |		Load_Top	At_Offset_0
0297 0f01       |    |		Execute_Immediate	Equal,0x1
0298 68c3       |h   |		Jump_Zero	0x35c
0299 00d8       |    |		Load_Top	At_Offset_0
029a e5ff       |    |		Load	0x2,-0x1
029b 0227       | '  |		Execute	Access,All_Reference
029c 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
029d 821d       |    |		Call	0x1,0x1d
029e 0279       | y  |		Execute	Discrete,And
029f 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02a0 78bb       |x   |		Jump	0x35c
02a1 e5ff       |    |		Load	0x2,-0x1
02a2 0227       | '  |		Execute	Access,All_Reference
02a3 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
02a4 821d       |    |		Call	0x1,0x1d
02a5 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02a6 00d8       |    |		Load_Top	At_Offset_0
02a7 70b4       |p   |		Jump_Nonzero	0x35c
02a8 00d8       |    |		Load_Top	At_Offset_0
02a9 e5ff       |    |		Load	0x2,-0x1
02aa 0227       | '  |		Execute	Access,All_Reference
02ab 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
02ac 821d       |    |		Call	0x1,0x1d
02ad 0278       | x  |		Execute	Discrete,Or
02ae 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02af 78ac       |x   |		Jump	0x35c
02b0 e5ff       |    |		Load	0x2,-0x1
02b1 0227       | '  |		Execute	Access,All_Reference
02b2 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
02b3 8014       |    |		Call	0x0,0x14
02b4 6832       |h2  |		Jump_Zero	0x2e7
02b5 e5ff       |    |		Load	0x2,-0x1
02b6 0227       | '  |		Execute	Access,All_Reference
02b7 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
02b8 8015       |    |		Call	0x0,0x15
02b9 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
02ba e5ff       |    |		Load	0x2,-0x1
02bb 0227       | '  |		Execute	Access,All_Reference
02bc 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
02bd 8016       |    |		Call	0x0,0x16
02be 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
02bf e5ff       |    |		Load	0x2,-0x1
02c0 0227       | '  |		Execute	Access,All_Reference
02c1 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
02c2 4605       |F   |		Jump_Case	0x6
02c3 780a       |x   |		Jump	0x2ce								; case 0x0
02c4 780e       |x   |		Jump	0x2d3								; case 0x1
02c5 7812       |x   |		Jump	0x2d8								; case 0x2
02c6 7816       |x   |		Jump	0x2dd								; case 0x3
02c7 781a       |x   |		Jump	0x2e2								; case 0x4
02c8 7800       |x   |		Jump	0x2c9								; case 0x5
02c9 00da       |    |		Load_Top	At_Offset_2
02ca 00da       |    |		Load_Top	At_Offset_2
02cb 027a       | z  |		Execute	Discrete,Less_Equal
02cc 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02cd 788e       |x   |		Jump	0x35c
02ce 00da       |    |		Load_Top	At_Offset_2
02cf 00da       |    |		Load_Top	At_Offset_2
02d0 027f       |    |		Execute	Discrete,Equal
02d1 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02d2 7889       |x   |		Jump	0x35c
02d3 00da       |    |		Load_Top	At_Offset_2
02d4 00da       |    |		Load_Top	At_Offset_2
02d5 027e       | ~  |		Execute	Discrete,Not_Equal
02d6 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02d7 7884       |x   |		Jump	0x35c
02d8 00da       |    |		Load_Top	At_Offset_2
02d9 00da       |    |		Load_Top	At_Offset_2
02da 027c       | |  |		Execute	Discrete,Less
02db 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02dc 787f       |x   |		Jump	0x35c
02dd 00da       |    |		Load_Top	At_Offset_2
02de 00da       |    |		Load_Top	At_Offset_2
02df 027d       | }  |		Execute	Discrete,Greater
02e0 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02e1 787a       |xz  |		Jump	0x35c
02e2 00da       |    |		Load_Top	At_Offset_2
02e3 00da       |    |		Load_Top	At_Offset_2
02e4 027b       | {  |		Execute	Discrete,Greater_Equal
02e5 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02e6 7875       |xu  |		Jump	0x35c
02e7 e5ff       |    |		Load	0x2,-0x1
02e8 0227       | '  |		Execute	Access,All_Reference
02e9 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
02ea 8017       |    |		Call	0x0,0x17
02eb e5ff       |    |		Load	0x2,-0x1
02ec 0227       | '  |		Execute	Access,All_Reference
02ed 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
02ee 8018       |    |		Call	0x0,0x18
02ef 027f       |    |		Execute	Discrete,Equal
02f0 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02f1 e5ff       |    |		Load	0x2,-0x1
02f2 0227       | '  |		Execute	Access,All_Reference
02f3 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
02f4 0f01       |    |		Execute_Immediate	Equal,0x1
02f5 6866       |hf  |		Jump_Zero	0x35c
02f6 00d8       |    |		Load_Top	At_Offset_0
02f7 0f00       |    |		Execute_Immediate	Equal,0x0
02f8 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02f9 7862       |xb  |		Jump	0x35c
02fa 8019       |    |		Call	0x0,0x19
02fb e5ff       |    |		Load	0x2,-0x1
02fc 0227       | '  |		Execute	Access,All_Reference
02fd 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
02fe 801a       |    |		Call	0x0,0x1a
02ff 027f       |    |		Execute	Discrete,Equal
0300 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0301 785a       |xZ  |		Jump	0x35c
0302 801b       |    |		Call	0x0,0x1b
0303 e5ff       |    |		Load	0x2,-0x1
0304 0227       | '  |		Execute	Access,All_Reference
0305 2608       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8
0306 801a       |    |		Call	0x0,0x1a
0307 027f       |    |		Execute	Discrete,Equal
0308 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0309 7852       |xR  |		Jump	0x35c
030a 801c       |    |		Call	0x0,0x1c
030b e5ff       |    |		Load	0x2,-0x1
030c 0227       | '  |		Execute	Access,All_Reference
030d 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
030e 026e       | n  |		Execute	Discrete,Modulo
030f 0f00       |    |		Execute_Immediate	Equal,0x0
0310 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0311 784a       |xJ  |		Jump	0x35c
0312 8019       |    |		Call	0x0,0x19
0313 801d       |    |		Call	0x0,0x1d
0314 e5ff       |    |		Load	0x2,-0x1
0315 0227       | '  |		Execute	Access,All_Reference
0316 260a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa
0317 801a       |    |		Call	0x0,0x1a
0318 801d       |    |		Call	0x0,0x1d
0319 027f       |    |		Execute	Discrete,Equal
031a 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
031b 7840       |x@  |		Jump	0x35c
031c e5ff       |    |		Load	0x2,-0x1
031d 0227       | '  |		Execute	Access,All_Reference
031e 260c       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc
031f 801a       |    |		Call	0x0,0x1a
0320 801d       |    |		Call	0x0,0x1d
0321 e5ff       |    |		Load	0x2,-0x1
0322 0227       | '  |		Execute	Access,All_Reference
0323 260b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xb
0324 801e       |    |		Call	0x0,0x1e
0325 027f       |    |		Execute	Discrete,Equal
0326 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0327 e5ff       |    |		Load	0x2,-0x1
0328 0227       | '  |		Execute	Access,All_Reference
0329 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
032a 0f01       |    |		Execute_Immediate	Equal,0x1
032b 6830       |h0  |		Jump_Zero	0x35c
032c 00d8       |    |		Load_Top	At_Offset_0
032d 0f00       |    |		Execute_Immediate	Equal,0x0
032e 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
032f 782c       |x,  |		Jump	0x35c
0330 e5ff       |    |		Load	0x2,-0x1
0331 0227       | '  |		Execute	Access,All_Reference
0332 260e       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
0333 801f       |    |		Call	0x0,0x1f
0334 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0335 e5ff       |    |		Load	0x2,-0x1
0336 0227       | '  |		Execute	Access,All_Reference
0337 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0338 0f01       |    |		Execute_Immediate	Equal,0x1
0339 6822       |h"  |		Jump_Zero	0x35c
033a 00d8       |    |		Load_Top	At_Offset_0
033b 0f00       |    |		Execute_Immediate	Equal,0x0
033c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
033d 781e       |x   |		Jump	0x35c
033e e5ff       |    |		Load	0x2,-0x1
033f 0227       | '  |		Execute	Access,All_Reference
0340 2610       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x10
0341 801e       |    |		Call	0x0,0x1e
0342 8020       |    |		Call	0x0,0x20
0343 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0344 e5ff       |    |		Load	0x2,-0x1
0345 0227       | '  |		Execute	Access,All_Reference
0346 2e11       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x11
0347 0f01       |    |		Execute_Immediate	Equal,0x1
0348 6813       |h   |		Jump_Zero	0x35c
0349 00d8       |    |		Load_Top	At_Offset_0
034a 0f00       |    |		Execute_Immediate	Equal,0x0
034b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
034c 780f       |x   |		Jump	0x35c
034d e5ff       |    |		Load	0x2,-0x1
034e 0227       | '  |		Execute	Access,All_Reference
034f 2612       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12
0350 801a       |    |		Call	0x0,0x1a
0351 801d       |    |		Call	0x0,0x1d
0352 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0353 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0354 e5ff       |    |		Load	0x2,-0x1
0355 0227       | '  |		Execute	Access,All_Reference
0356 2e13       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x13
0357 0f01       |    |		Execute_Immediate	Equal,0x1
0358 6803       |h   |		Jump_Zero	0x35c
0359 00d8       |    |		Load_Top	At_Offset_0
035a 0f00       |    |		Execute_Immediate	Equal,0x0
035b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
035c 00d8       |    |		Load_Top	At_Offset_0
035d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
035e 0000 0000  |    |		.XXX[0x2]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 4609       |F   |		Jump_Case	0xa
0364 7809       |x   |		Jump	0x36e								; case 0x0
0365 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0366 784d       |xM  |		Jump	0x3b4								; case 0x2
0367 7850       |xP  |		Jump	0x3b8								; case 0x3
0368 78ab       |x   |		Jump	0x414								; case 0x4
0369 78aa       |x   |		Jump	0x414								; case 0x5
036a 7853       |xS  |		Jump	0x3be								; case 0x6
036b 7876       |xv  |		Jump	0x3e2								; case 0x7
036c 789c       |x   |		Jump	0x409								; case 0x8
036d 78a2       |x   |		Jump	0x410								; case 0x9
036e 00da       |    |		Load_Top	At_Offset_2
036f 016c       | l  |		Execute	Variant_Record,Is_Constrained
0370 7009       |p   |		Jump_Nonzero	0x37a
0371 00cf       |    |		Action	Mark_Auxiliary
0372 480b       |H   |		Short_Literal	0xb
0373 e5ff       |    |		Load	0x2,-0x1
0374 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0375 00d8       |    |		Load_Top	At_Offset_0
0376 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0377 c5ff       |    |		Store	0x2,-0x1
0378 00ce       |    |		Action	Pop_Auxiliary
0379 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
037a 00da       |    |		Load_Top	At_Offset_2
037b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
037c 460b       |F   |		Jump_Case	0xc
037d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
037e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
037f 780a       |x   |		Jump	0x38a								; case 0x2
0380 7810       |x   |		Jump	0x391								; case 0x3
0381 7813       |x   |		Jump	0x395								; case 0x4
0382 7816       |x   |		Jump	0x399								; case 0x5
0383 7819       |x   |		Jump	0x39d								; case 0x6
0384 781c       |x   |		Jump	0x3a1								; case 0x7
0385 7822       |x"  |		Jump	0x3a8								; case 0x8
0386 7825       |x%  |		Jump	0x3ac								; case 0x9
0387 7828       |x(  |		Jump	0x3b0								; case 0xa
0388 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xb
0389 4302       |C   |		.XXX[0x1]
038a e002       |    |		Load	0x0,0x2
038b 00db       |    |		Load_Top	At_Offset_3
038c 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
038d e003       |    |		Load	0x0,0x3
038e 00db       |    |		Load_Top	At_Offset_3
038f 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0390 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0391 e004       |    |		Load	0x0,0x4
0392 00db       |    |		Load_Top	At_Offset_3
0393 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0394 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0395 e004       |    |		Load	0x0,0x4
0396 00db       |    |		Load_Top	At_Offset_3
0397 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0398 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0399 4800       |H   |		Short_Literal	0x0
039a 00db       |    |		Load_Top	At_Offset_3
039b 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
039c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
039d e004       |    |		Load	0x0,0x4
039e 00db       |    |		Load_Top	At_Offset_3
039f 2a0a       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
03a0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03a1 e005       |    |		Load	0x0,0x5
03a2 00db       |    |		Load_Top	At_Offset_3
03a3 2a0b       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
03a4 e004       |    |		Load	0x0,0x4
03a5 00db       |    |		Load_Top	At_Offset_3
03a6 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
03a7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03a8 e002       |    |		Load	0x0,0x2
03a9 00db       |    |		Load_Top	At_Offset_3
03aa 2a0e       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
03ab 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03ac e005       |    |		Load	0x0,0x5
03ad 00db       |    |		Load_Top	At_Offset_3
03ae 2a10       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
03af 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03b0 e004       |    |		Load	0x0,0x4
03b1 00db       |    |		Load_Top	At_Offset_3
03b2 2a12       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x12
03b3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03b4 4801       |H   |		Short_Literal	0x1
03b5 4813       |H   |		Short_Literal	0x13
03b6 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
03b7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03b8 e5fd       |    |		Load	0x2,-0x3
03b9 00db       |    |		Load_Top	At_Offset_3
03ba 1c07       |    |		Execute_Immediate	Run_Utility,0x7
03bb e5fe       |    |		Load	0x2,-0x2
03bc 0306       |    |		Complete_Type	Variant_Record,By_Renaming
03bd 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
03be 00db       |    |		Load_Top	At_Offset_3
03bf 460b       |F   |		Jump_Case	0xc
03c0 780d       |x   |		Jump	0x3ce								; case 0x0
03c1 780c       |x   |		Jump	0x3ce								; case 0x1
03c2 780d       |x   |		Jump	0x3d0								; case 0x2
03c3 780e       |x   |		Jump	0x3d2								; case 0x3
03c4 780f       |x   |		Jump	0x3d4								; case 0x4
03c5 7810       |x   |		Jump	0x3d6								; case 0x5
03c6 7811       |x   |		Jump	0x3d8								; case 0x6
03c7 7812       |x   |		Jump	0x3da								; case 0x7
03c8 7813       |x   |		Jump	0x3dc								; case 0x8
03c9 7814       |x   |		Jump	0x3de								; case 0x9
03ca 7815       |x   |		Jump	0x3e0								; case 0xa
03cb 7800       |x   |		Jump	0x3cc								; case 0xb
03cc 48ff       |H   |		Short_Literal	0xff
03cd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03ce 4801       |H   |		Short_Literal	0x1
03cf 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03d0 4802       |H   |		Short_Literal	0x2
03d1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03d2 4803       |H   |		Short_Literal	0x3
03d3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03d4 4804       |H   |		Short_Literal	0x4
03d5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03d6 4805       |H   |		Short_Literal	0x5
03d7 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03d8 4806       |H   |		Short_Literal	0x6
03d9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03da 4807       |H   |		Short_Literal	0x7
03db 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03dc 4808       |H   |		Short_Literal	0x8
03dd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03de 4809       |H   |		Short_Literal	0x9
03df 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03e0 480a       |H   |		Short_Literal	0xa
03e1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03e2 00db       |    |		Load_Top	At_Offset_3
03e3 e5fe       |    |		Load	0x2,-0x2
03e4 460b       |F   |		Jump_Case	0xc
03e5 780d       |x   |		Jump	0x3f3								; case 0x0
03e6 780c       |x   |		Jump	0x3f3								; case 0x1
03e7 780d       |x   |		Jump	0x3f5								; case 0x2
03e8 780e       |x   |		Jump	0x3f7								; case 0x3
03e9 780f       |x   |		Jump	0x3f9								; case 0x4
03ea 7810       |x   |		Jump	0x3fb								; case 0x5
03eb 7811       |x   |		Jump	0x3fd								; case 0x6
03ec 7812       |x   |		Jump	0x3ff								; case 0x7
03ed 7813       |x   |		Jump	0x401								; case 0x8
03ee 7814       |x   |		Jump	0x403								; case 0x9
03ef 7815       |x   |		Jump	0x405								; case 0xa
03f0 7800       |x   |		Jump	0x3f1								; case 0xb
03f1 48ff       |H   |		Short_Literal	0xff
03f2 7813       |x   |		Jump	0x406
03f3 4801       |H   |		Short_Literal	0x1
03f4 7811       |x   |		Jump	0x406
03f5 4802       |H   |		Short_Literal	0x2
03f6 780f       |x   |		Jump	0x406
03f7 4803       |H   |		Short_Literal	0x3
03f8 780d       |x   |		Jump	0x406
03f9 4804       |H   |		Short_Literal	0x4
03fa 780b       |x   |		Jump	0x406
03fb 4805       |H   |		Short_Literal	0x5
03fc 7809       |x   |		Jump	0x406
03fd 4806       |H   |		Short_Literal	0x6
03fe 7807       |x   |		Jump	0x406
03ff 4807       |H   |		Short_Literal	0x7
0400 7805       |x   |		Jump	0x406
0401 4808       |H   |		Short_Literal	0x8
0402 7803       |x   |		Jump	0x406
0403 4809       |H   |		Short_Literal	0x9
0404 7801       |x   |		Jump	0x406
0405 480a       |H   |		Short_Literal	0xa
0406 e5ff       |    |		Load	0x2,-0x1
0407 031b       |    |		Declare_Type	Variant_Record,Constrained
0408 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0409 00db       |    |		Load_Top	At_Offset_3
040a e5fe       |    |		Load	0x2,-0x2
040b e5ff       |    |		Load	0x2,-0x1
040c 1c06       |    |		Execute_Immediate	Run_Utility,0x6
040d e5ff       |    |		Load	0x2,-0x1
040e 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
040f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0410 480b       |H   |		Short_Literal	0xb
0411 00db       |    |		Load_Top	At_Offset_3
0412 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0413 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0414 0869       | i  |		Execute_Immediate	Raise,0x69
0415 ; --------------------------------------------------------------------------------------
0415 ; STRING TABLE
0415 ; --------------------------------------------------------------------------------------
0415 0036       | 6  |		.STRTAB	0x0036->0x0430							; "ET"
0416 0036       | 6  |		.STRTAB	0x0036->0x0431							; "OU"
0417 0036       | 6  |		.STRTAB	0x0036->0x0432							; "SINGLE_ATTRIBUTE"
0418 0044       | D  |		.STRTAB	0x0044->0x043a							; "HERO"
0419 0046       | F  |		.STRTAB	0x0046->0x043c							; "PLACE"
041a 0049       | I  |		.STRTAB	0x0049->0x043e							; "ACTIONS"
041b 004e       | N  |		.STRTAB	0x004e->0x0442							; "MEET"
041c 0050       | P  |		.STRTAB	0x0050->0x0444							; "BELONG"
041d 0054       | T  |		.STRTAB	0x0054->0x0447							; "ATTRIBUTE_EXIST"
041e 0061       | a  |		.STRTAB	0x0061->0x044e							; "EXITS_EXIST"
041f 006a       | j  |		.STRTAB	0x006a->0x0454							; "SUBJECT_EXIST"
0420 0075       | u  |		.STRTAB	0x0075->0x045a							; "UNKNOWN"
0421 007a       | z  |		.STRTAB	0x007a->0x045e							; "EQUAL"
0422 007d       | }  |		.STRTAB	0x007d->0x0460							; "NOT_EQUAL"
0423 0084       |    |		.STRTAB	0x0084->0x0465							; "LESS"
0424 0086       |    |		.STRTAB	0x0086->0x0467							; "GREATER"
0425 008b       |    |		.STRTAB	0x008b->0x046a							; "GREATER_EQUAL"
0426 0096       |    |		.STRTAB	0x0096->0x0471							; "LESS_EQUAL"
0427 009e       |    |		.STRTAB	0x009e->0x0476							; "YES"
0428 009f       |    |		.STRTAB	0x009f->0x0477							; "NO"
0429 009f       |    |		.STRTAB	0x009f->0x0478							; " "
042a 009e       |    |		.STRTAB	0x009e->0x0479							; "Meet : "
042b 00a3       |    |		.STRTAB	0x00a3->0x047c							; "Belong : "
042c 00aa       |    |		.STRTAB	0x00aa->0x0481							; "attribute_Exist : Binary :"
042d 00c2       |    |		.STRTAB	0x00c2->0x048e							; "exits_Exist : Binary :"
042e 00d6       |    |		.STRTAB	0x00d6->0x0499							; "subject_Exist : Binary : "
042f 00ed       |    |		.STREND 0x00ed->0x04a5
0430 4554 4f55  |ETOU|		.STRTAB_STRINGS
04a6 0000 0000  |    |		.XXX[0x2]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; Debug Table
04a8 ; --------------------------------------------------------------------------------------
04a8 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xffdf,0x0000,0x0001,0x0012
04ae 000b 04f6  |    |		.DBG4T	0x000b,0x04f6,0x8000,0x0000
04b2 006a 050d  | j  |		.DBG4T	0x006a,0x050d,0x8000,0x0000
04b6 008b 0000  |    |		.DBG4T	0x008b,0x0000,0x0005,0x0000
04ba 00b3 0000  |    |		.DBG4T	0x00b3,0x0000,0x0005,0x0000
04be 00db 0000  |    |		.DBG4T	0x00db,0x0000,0x0005,0x0000
04c2 0103 051b  |    |		.DBG4T	0x0103,0x051b,0x0001,0x0000
04c6 0123 0520  | #  |		.DBG4T	0x0123,0x0520,0x0001,0x0000
04ca 014b 0527  | K '|		.DBG4T	0x014b,0x0527,0x0001,0x0000
04ce 015b 052a  | [ *|		.DBG4T	0x015b,0x052a,0x0001,0x0000
04d2 016b 052d  | k -|		.DBG4T	0x016b,0x052d,0x0001,0x0000
04d6 017b 0530  | { 0|		.DBG4T	0x017b,0x0530,0x0001,0x0000
04da 018b 0533  |   3|		.DBG4T	0x018b,0x0533,0x0001,0x0000
04de 01a3 0536  |   6|		.DBG4T	0x01a3,0x0536,0x0001,0x0000
04e2 01b3 0539  |   9|		.DBG4T	0x01b3,0x0539,0x0001,0x0000
04e6 01c3 053c  |   <|		.DBG4T	0x01c3,0x053c,0x0001,0x0000
04ea 01d3 053f  |   ?|		.DBG4T	0x01d3,0x053f,0x0001,0x4000
04ee 027b 0577  | { w|		.DBG4T	0x027b,0x0577,0x0002,0x4000
04f2 0363 0000  | c  |		.DBG4T	0x0363,0x0000,0x0005,0x0000
04f6 ; --------------------------------------------------------------------------------------
04f6 ; Debug chain
04f6 ; --------------------------------------------------------------------------------------
04f6 0015 0000  |    |		.DBGLEN	0x0015,0x0000
04f8 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0014,0x0019,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x0039,0x005e,0x0062
050d ; --------------------------------------------------------------------------------------
050d ; Debug chain
050d ; --------------------------------------------------------------------------------------
050d 000c 0000  |    |		.DBGLEN	0x000c,0x0000
050f 006a 006c  | j l|		.DBGLNO	0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080
051b ; --------------------------------------------------------------------------------------
051b ; Debug chain
051b ; --------------------------------------------------------------------------------------
051b 0000 0003  |    |		.DBGLEN	0x0000,0x0003
051d 0103 0105  |    |		.DBGLNO	0x0103,0x0105,0x0112
0520 ; --------------------------------------------------------------------------------------
0520 ; Debug chain
0520 ; --------------------------------------------------------------------------------------
0520 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0522 0123 012f  | # /|		.DBGLNO	0x0123,0x012f,0x013e,0x0141,0x0143
0527 ; --------------------------------------------------------------------------------------
0527 ; Debug chain
0527 ; --------------------------------------------------------------------------------------
0527 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0529 014b       | K  |		.DBGLNO	0x014b
052a ; --------------------------------------------------------------------------------------
052a ; Debug chain
052a ; --------------------------------------------------------------------------------------
052a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
052c 015b       | [  |		.DBGLNO	0x015b
052d ; --------------------------------------------------------------------------------------
052d ; Debug chain
052d ; --------------------------------------------------------------------------------------
052d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
052f 016b       | k  |		.DBGLNO	0x016b
0530 ; --------------------------------------------------------------------------------------
0530 ; Debug chain
0530 ; --------------------------------------------------------------------------------------
0530 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0532 017b       | {  |		.DBGLNO	0x017b
0533 ; --------------------------------------------------------------------------------------
0533 ; Debug chain
0533 ; --------------------------------------------------------------------------------------
0533 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0535 018b       |    |		.DBGLNO	0x018b
0536 ; --------------------------------------------------------------------------------------
0536 ; Debug chain
0536 ; --------------------------------------------------------------------------------------
0536 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0538 01a3       |    |		.DBGLNO	0x01a3
0539 ; --------------------------------------------------------------------------------------
0539 ; Debug chain
0539 ; --------------------------------------------------------------------------------------
0539 0000 0001  |    |		.DBGLEN	0x0000,0x0001
053b 01b3       |    |		.DBGLNO	0x01b3
053c ; --------------------------------------------------------------------------------------
053c ; Debug chain
053c ; --------------------------------------------------------------------------------------
053c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
053e 01c3       |    |		.DBGLNO	0x01c3
053f ; --------------------------------------------------------------------------------------
053f ; Debug chain
053f ; --------------------------------------------------------------------------------------
053f 0000 001b  |    |		.DBGLEN	0x0000,0x001b
0541 01d3 01e3  |    |		.DBGLNO	0x01d3,0x01e3,0x01e7,0x01eb,0x01f9,0x01fd,0x0201,0x0205,0x020d,0x0212,0x0213,0x0218,0x0219,0x021e,0x021f,0x0227,0x022b,0x0230,0x0234,0x0238,0x0240,0x0245,0x0250,0x0255,0x0260,0x0265,0x0270
055c 0001 001b  |    |		.XXX[0x1b]
055e 0002 0003  |    |
0560 0004 0005  |    |
0562 0006 0007  |    |
0564 0008 0009  |    |
0566 000a 000b  |    |
0568 000c 000d  |    |
056a 000e 000f  |    |
056c 0010 0011  |    |
056e 0012 0013  |    |
0570 0014 0015  |    |
0572 0016 0017  |    |
0574 0018 0019  |    |
0576 001a       |    |
0577 ; --------------------------------------------------------------------------------------
0577 ; Debug chain
0577 ; --------------------------------------------------------------------------------------
0577 0002 0026  |   &|		.DBGLEN	0x0002,0x0026
0579 027b 027d  | { }|		.DBGLNO	0x027b,0x027d,0x027e,0x028e,0x0291,0x0296,0x0299,0x02a1,0x02a6,0x02a8,0x02b0,0x02b5,0x02ba,0x02bf,0x02c9,0x02ce,0x02d3,0x02d8,0x02dd,0x02e2,0x02e7,0x02f1,0x02f6,0x02fa,0x0302,0x030a,0x0312,0x031c,0x0327,0x032c,0x0330,0x0335,0x033a,0x033e,0x0344,0x0349,0x034d,0x0354,0x0359,0x035c
05a1 0001 0025  |   %|		.XXX[0x26]
05a3 0002 0003  |    |
05a5 0004 0005  |    |
05a7 0006 0007  |    |
05a9 0008 0009  |    |
05ab 000a 000b  |    |
05ad 0010 000c  |    |
05af 000d 000e  |    |
05b1 000f 0011  |    |
05b3 0012 0013  |    |
05b5 0014 0015  |    |
05b7 0016 0017  |    |
05b9 0018 0019  |    |
05bb 001a 001b  |    |
05bd 001c 001d  |    |
05bf 001e 001f  |    |
05c1 0020 0021  |   !|
05c3 0022 0023  | " #|
05c5 0024 0026  | $ &|
05c7 0000 0000  |    |		.BLANK	0000[0x39]