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

⟦55048c701⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 03c8       |    |		.CONST	0x03c8								; 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 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x1a2, index=0x0
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x1ad, index=0x0
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x1fa, index=0x0
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x201, index=0x0
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x354, index=0x0
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x35d, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 00cf       |    |		.CONST	0x00cf								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0030       | 0  |		.CONST	0x0030								; Number of locals
000b			INIT_0008:
000b			INIT_0008:
000b			INIT_0008:
000b			INIT_0008:
000b			INIT_0008:
000b			INIT_0008:
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional
000c 0007       |    |		Action	Break_Optional
000d 0007       |    |		Action	Break_Optional
000e 0007       |    |		Action	Break_Optional
000f 0007       |    |		Action	Break_Optional
0010 0007       |    |		Action	Break_Optional
0011 0007       |    |		Action	Break_Optional
0012 0007       |    |		Action	Break_Optional
0013 0007       |    |		Action	Break_Optional
0014 0007       |    |		Action	Break_Optional
0015 0007       |    |		Action	Break_Optional
0016 0007       |    |		Action	Break_Optional
0017 0007       |    |		Action	Break_Optional
0018 0007       |    |		Action	Break_Optional
0019 0007       |    |		Action	Break_Optional
001a 0007       |    |		Action	Break_Optional
001b e003       |    |		Load	0x0,0x3
001c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
001d 02a0       |    |		Declare_Subprogram	Null_Subprogram
001e 4818       |H   |		Short_Literal	0x18
001f 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0020 00d8       |    |		Load_Top	At_Offset_0
0021 0221       | !  |		Execute	Access,Allow_Deallocate
0022 0007       |    |		Action	Break_Optional
0023 0007       |    |		Action	Break_Optional
0024 a004       |    |		Store_Unchecked	0x0,0x4
0025 00c6       |    |		Action	Check_Subprogram_Elaborated
0026 e003       |    |		Load	0x0,0x3
0027 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0028 0129       | )  |		Execute	Any,Make_Visible
0029 00d9       |    |		Load_Top	At_Offset_1
002a 0129       | )  |		Execute	Any,Make_Visible
002b e005       |    |		Load	0x0,0x5
002c 0129       | )  |		Execute	Any,Make_Visible
002d e006       |    |		Load	0x0,0x6
002e 0129       | )  |		Execute	Any,Make_Visible
002f 4800       |H   |		Short_Literal	0x0
0030 0129       | )  |		Execute	Any,Make_Visible
0031 0007       |    |		Action	Break_Optional
0032 0007       |    |		Action	Break_Optional
0033 0007       |    |		Action	Break_Optional
0034 0007       |    |		Action	Break_Optional
0035 0007       |    |		Action	Break_Optional
0036 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0038 0007       |    |		Action	Break_Optional
0039 0007       |    |		Action	Break_Optional
003a 0007       |    |		Action	Break_Optional
003b 4800       |H   |		Short_Literal	0x0
003c 0093 034b  |   K|		push_full_address	INIT_0348
003e 00f5       |    |		Load_Encached	Unused21
003f 037b       | {  |		Declare_Type	Task,Defined,Visible,Not_Elaborated
0040 00d8       |    |		Load_Top	At_Offset_0
0041 02a0       |    |		Declare_Subprogram	Null_Subprogram
0042 4818       |H   |		Short_Literal	0x18
0043 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0044 0007       |    |		Action	Break_Optional
0045 0007       |    |		Action	Break_Optional
0046 4800       |H   |		Short_Literal	0x0
0047 4802       |H   |		Short_Literal	0x2
0048 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
004a 03fe       |    |		Declare_Type	Discrete,Defined,Visible
004b 0007       |    |		Action	Break_Optional
004c 4818       |H   |		Short_Literal	0x18
004d 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
004e 4800       |H   |		Short_Literal	0x0
004f 0093 01e3  |    |		push_full_address	INIT_01e0
0051 00f5       |    |		Load_Encached	Unused21
0052 037b       | {  |		Declare_Type	Task,Defined,Visible,Not_Elaborated
0053 e002       |    |		Load	0x0,0x2
0054 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0055 00db       |    |		Load_Top	At_Offset_3
0056 00da       |    |		Load_Top	At_Offset_2
0057 029f 0133  |   3|		Declare_Subprogram	INIT_0130,For_Call
0059 4803       |H   |		Short_Literal	0x3
005a 032e       | .  |		Declare_Type	Record,Defined,Visible
005b 00d8       |    |		Load_Top	At_Offset_0
005c 02a0       |    |		Declare_Subprogram	Null_Subprogram
005d e217       |    |		Load	0x1,0x17
005e 03c7       |    |		Complete_Type	Access,By_Defining
005f 0007       |    |		Action	Break_Optional
0060 0007       |    |		Action	Break_Optional
0061 a004       |    |		Store_Unchecked	0x0,0x4
0062 00c6       |    |		Action	Check_Subprogram_Elaborated
0063 00d8       |    |		Load_Top	At_Offset_0
0064 0129       | )  |		Execute	Any,Make_Visible
0065 00db       |    |		Load_Top	At_Offset_3
0066 0129       | )  |		Execute	Any,Make_Visible
0067 e007       |    |		Load	0x0,0x7
0068 0129       | )  |		Execute	Any,Make_Visible
0069 e008       |    |		Load	0x0,0x8
006a 0129       | )  |		Execute	Any,Make_Visible
006b 4800       |H   |		Short_Literal	0x0
006c 0129       | )  |		Execute	Any,Make_Visible
006d 00e3       |    |		Load_Encached	Natural_Cache
006e 00e3       |    |		Load_Encached	Natural_Cache
006f 4801       |H   |		Short_Literal	0x1
0070 606f       |`o  |		Indirect_Literal	Discrete,0xe0,{0x00000000, 0x7fffffff}
0071 e003       |    |		Load	0x0,0x3
0072 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0073 034f       | O  |		Declare_Type	Array,Constrained,Visible,Bounds_With_Object
0074 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
0076 4800       |H   |		Short_Literal	0x0
0077 4801       |H   |		Short_Literal	0x1
0078 4801       |H   |		Short_Literal	0x1
0079 4800       |H   |		Short_Literal	0x0
007a 4801       |H   |		Short_Literal	0x1
007b 4801       |H   |		Short_Literal	0x1
007c 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
007d 4800       |H   |		Short_Literal	0x0
007e 0093 019b  |    |		push_full_address	INIT_0198
0080 00f5       |    |		Load_Encached	Unused21
0081 037b       | {  |		Declare_Type	Task,Defined,Visible,Not_Elaborated
0082 00d8       |    |		Load_Top	At_Offset_0
0083 02a0       |    |		Declare_Subprogram	Null_Subprogram
0084 4818       |H   |		Short_Literal	0x18
0085 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0086 0007       |    |		Action	Break_Optional
0087 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0089 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
008b 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
008d e217       |    |		Load	0x1,0x17
008e 00e2       |    |		Load_Encached	Integer_Cache
008f 029f 018b  |    |		Declare_Subprogram	INIT_0188,For_Call
0091 4802       |H   |		Short_Literal	0x2
0092 032e       | .  |		Declare_Type	Record,Defined,Visible
0093 e003       |    |		Load	0x0,0x3
0094 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0095 02a0       |    |		Declare_Subprogram	Null_Subprogram
0096 4818       |H   |		Short_Literal	0x18
0097 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0098 00d8       |    |		Load_Top	At_Offset_0
0099 0221       | !  |		Execute	Access,Allow_Deallocate
009a 0007       |    |		Action	Break_Optional
009b a004       |    |		Store_Unchecked	0x0,0x4
009c 00c6       |    |		Action	Check_Subprogram_Elaborated
009d e003       |    |		Load	0x0,0x3
009e 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
009f 0129       | )  |		Execute	Any,Make_Visible
00a0 00d9       |    |		Load_Top	At_Offset_1
00a1 0129       | )  |		Execute	Any,Make_Visible
00a2 e009       |    |		Load	0x0,0x9
00a3 0129       | )  |		Execute	Any,Make_Visible
00a4 e00a       |    |		Load	0x0,0xa
00a5 0129       | )  |		Execute	Any,Make_Visible
00a6 4800       |H   |		Short_Literal	0x0
00a7 0129       | )  |		Execute	Any,Make_Visible
00a8 00bf       |    |		Action	Accept_Activation
00a9 a004       |    |		Store_Unchecked	0x0,0x4
00aa 00c6       |    |		Action	Check_Subprogram_Elaborated
00ab e220       |    |		Load	0x1,0x20
00ac e221       | !  |		Load	0x1,0x21
00ad e00b       |    |		Load	0x0,0xb
00ae e00c       |    |		Load	0x0,0xc
00af 4800       |H   |		Short_Literal	0x0
00b0 0007       |    |		Action	Break_Optional
00b1 e214       |    |		Load	0x1,0x14
00b2 020d       |    |		Execute	Module,Elaborate
00b3 0007       |    |		Action	Break_Optional
00b4 e217       |    |		Load	0x1,0x17
00b5 e215       |    |		Load	0x1,0x15
00b6 e003       |    |		Load	0x0,0x3
00b7 e00d       |    |		Load	0x0,0xd
00b8 e002       |    |		Load	0x0,0x2
00b9 480e       |H   |		Short_Literal	0xe
00ba 4806       |H   |		Short_Literal	0x6
00bb e218       |    |		Load	0x1,0x18
00bc 020e       |    |		Execute	Module,Augment_Imports
00bd e218       |    |		Load	0x1,0x18
00be 020d       |    |		Execute	Module,Elaborate
00bf 0007       |    |		Action	Break_Optional
00c0 e00e       |    |		Load	0x0,0xe
00c1 4801       |H   |		Short_Literal	0x1
00c2 e220       |    |		Load	0x1,0x20
00c3 020e       |    |		Execute	Module,Augment_Imports
00c4 e220       |    |		Load	0x1,0x20
00c5 020d       |    |		Execute	Module,Elaborate
00c6 0007       |    |		Action	Break_Optional
00c7 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00c8 00c7       |    |		Action	Elaborate_Subprogram
00c9 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00ca 00c7       |    |		Action	Elaborate_Subprogram
00cb 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00cc 00c7       |    |		Action	Elaborate_Subprogram
00cd 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00ce 00c7       |    |		Action	Elaborate_Subprogram
00cf			BODY_0008:
00cf			BODY_0008:
00cf			BODY_0008:
00cf			BODY_0008:
00cf			BODY_0008:
00cf			BODY_0008:
00cf			BODY_0008:
00cf 00bc       |    |		Action	Signal_Activated
00d0 00bb       |    |		Action	Signal_Completion
00d1 0000 0000  |    |		.BLANK	0000[0x7]
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 e00d       |    |		Load	0x0,0xd
00dd 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00df 0000       |    |		.XXX[0x1]
00e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
00e4 0000 0000  |    |		.BLANK	0000[0x4]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 4607       |F   |		Jump_Case	0x8
00ec 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00ed 7807       |x   |		Jump	0xf5								; case 0x1
00ee 780a       |x   |		Jump	0xf9								; case 0x2
00ef 780e       |x   |		Jump	0xfe								; case 0x3
00f0 7811       |x   |		Jump	0x102								; case 0x4
00f1 7812       |x   |		Jump	0x104								; case 0x5
00f2 7813       |x   |		Jump	0x106								; case 0x6
00f3 7816       |x   |		Jump	0x10a								; case 0x7
00f4 4302       |C   |		.XXX[0x1]
00f5 00da       |    |		Load_Top	At_Offset_2
00f6 0091 03a6  |    |		Action	Push_String_Extended_Indexed,0x3a6				; "PENDING_READ_NONE"
00f8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f9 00db       |    |		Load_Top	At_Offset_3
00fa 00db       |    |		Load_Top	At_Offset_3
00fb 00e0       |    |		Load_Encached	Standard_Cache
00fc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fe 00da       |    |		Load_Top	At_Offset_2
00ff 00e0       |    |		Load_Encached	Standard_Cache
0100 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0101 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0102 00db       |    |		Load_Top	At_Offset_3
0103 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0104 00db       |    |		Load_Top	At_Offset_3
0105 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0106 e216       |    |		Load	0x1,0x16
0107 00dc       |    |		Load_Top	At_Offset_4
0108 0267       | g  |		Execute	Discrete,Predecessor
0109 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
010a e216       |    |		Load	0x1,0x16
010b 00dc       |    |		Load_Top	At_Offset_4
010c 0268       | h  |		Execute	Discrete,Successor
010d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
010e 0000 0000  |    |		.XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00da       |    |		Load_Top	At_Offset_2
0114 680a       |h   |		Jump_Zero	0x11f
0115 4800       |H   |		Short_Literal	0x0
0116 00db       |    |		Load_Top	At_Offset_3
0117 0229       | )  |		Execute	Access,All_Read
0118 170f       |    |		Execute	Task,Entry_Call,Field_Number 0xf
0119 00da       |    |		Load_Top	At_Offset_2
011a e22c       | ,  |		Load	0x1,0x2c
011b e22d       | -  |		Load	0x1,0x2d
011c 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
011d 8004       |    |		Call	0x0,0x4
011e 003b       | ;  |		Store_Top	Access,At_Offset_3
011f 4501       |E   |		Exit_Suprogram	New_Top_Offset 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 4800       |H   |		Short_Literal	0x0
0124 00db       |    |		Load_Top	At_Offset_3
0125 0229       | )  |		Execute	Access,All_Read
0126 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0127 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 4800       |H   |		Short_Literal	0x0
012c 00db       |    |		Load_Top	At_Offset_3
012d 0229       | )  |		Execute	Access,All_Read
012e 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
012f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 4601       |F   |		Jump_Case	0x2
0134 7801       |x   |		Jump	0x136								; case 0x0
0135 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0136 00da       |    |		Load_Top	At_Offset_2
0137 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0138 0125       | %  |		Execute	Any,Set_Constraint
0139 e002       |    |		Load	0x0,0x2
013a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
013b 00db       |    |		Load_Top	At_Offset_3
013c 00d9       |    |		Load_Top	At_Offset_1
013d 00d9       |    |		Load_Top	At_Offset_1
013e 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
013f 0119       |    |		Execute	Any,Check_In_Formal_Type
0140 00d1       |    |		Pop_Control	Pop_Count_1
0141 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0142 4800       |H   |		Short_Literal	0x0
0143 00db       |    |		Load_Top	At_Offset_3
0144 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0145 00da       |    |		Load_Top	At_Offset_2
0146 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0147 036b       | k  |		Declare_Variable	Task,As_Component
0148 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0149 0000 0000  |    |		.BLANK	0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 4609       |F   |		Jump_Case	0xa
0154 7809       |x   |		Jump	0x15e								; case 0x0
0155 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0156 780b       |x   |		Jump	0x162								; case 0x2
0157 780e       |x   |		Jump	0x166								; case 0x3
0158 7828       |x(  |		Jump	0x181								; case 0x4
0159 7827       |x'  |		Jump	0x181								; case 0x5
015a 7826       |x&  |		Jump	0x181								; case 0x6
015b 7810       |x   |		Jump	0x16c								; case 0x7
015c 7819       |x   |		Jump	0x176								; case 0x8
015d 7823       |x#  |		Jump	0x181								; case 0x9
015e 4800       |H   |		Short_Literal	0x0
015f 00db       |    |		Load_Top	At_Offset_3
0160 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0161 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0162 4801       |H   |		Short_Literal	0x1
0163 4803       |H   |		Short_Literal	0x3
0164 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0165 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0166 e5fd       |    |		Load	0x2,-0x3
0167 00db       |    |		Load_Top	At_Offset_3
0168 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0169 e5fe       |    |		Load	0x2,-0x2
016a 0306       |    |		Complete_Type	Variant_Record,By_Renaming
016b 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
016c 00db       |    |		Load_Top	At_Offset_3
016d 4801       |H   |		Short_Literal	0x1
016e e5fe       |    |		Load	0x2,-0x2
016f e003       |    |		Load	0x0,0x3
0170 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0171 035b       | [  |		Declare_Type	Array,Constrained
0172 4801       |H   |		Short_Literal	0x1
0173 e5ff       |    |		Load	0x2,-0x1
0174 031b       |    |		Declare_Type	Variant_Record,Constrained
0175 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0176 00db       |    |		Load_Top	At_Offset_3
0177 00db       |    |		Load_Top	At_Offset_3
0178 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0179 4801       |H   |		Short_Literal	0x1
017a e5fe       |    |		Load	0x2,-0x2
017b e003       |    |		Load	0x0,0x3
017c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
017d 0334       | 4  |		Declare_Variable	Array,With_Constraint
017e 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
017f 016a       | j  |		QQ_execute	Variant_Record,XXX
0180 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0181 0869       | i  |		Execute_Immediate	Raise,0x69
0182 0000 0000  |    |		.BLANK	0000[0x6]
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 4601       |F   |		Jump_Case	0x2
018c 7801       |x   |		Jump	0x18e								; case 0x0
018d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
018e 4800       |H   |		Short_Literal	0x0
018f 00db       |    |		Load_Top	At_Offset_3
0190 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0191 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0192 0000 0000  |    |		.BLANK	0000[0x6]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01b5       |    |		.CONST	0x01b5								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0011       |    |		.CONST	0x0011								; Number of locals
019b			INIT_0198:
019b 4800       |H   |		Short_Literal	0x0
019c 02cb       |    |		Declare_Variable	Entry
019d 4800       |H   |		Short_Literal	0x0
019e 02cb       |    |		Declare_Variable	Entry
019f 4800       |H   |		Short_Literal	0x0
01a0 02cb       |    |		Declare_Variable	Entry
01a1 00bf       |    |		Action	Accept_Activation
01a2 480f 4838  |H H8|		Declare_Variable	Select	0x000, 0x003,
01a4 480e 4839  |H H9|				[0x000]: 0x001 = 0x0008,
01a6 480d 483a  |H H:|				[0x00d]: 0x03a = 0x01d0,
01a8 4800 4801  |H H |				[0x00e]: 0x039 = 0x01c8,
01aa 4800 4803  |H H |				[0x00f]: 0x038 = 0x01c0
01ac 02cf       |    |
01ad 480e 483b  |H H;|		Declare_Variable	Select	0x000, 0x001,
01af 4800 4801  |H H |				[0x000]: 0x001 = 0x0008,
01b1 4800 4801  |H H |				[0x00e]: 0x03b = 0x01d8
01b3 02cf       |    |
01b4 00bc       |    |		Action	Signal_Activated
01b5			BODY_0198:
01b5 00cf       |    |		Action	Mark_Auxiliary
01b6 0007       |    |		Action	Break_Optional
01b7 00da       |    |		Load_Top	At_Offset_2
01b8 013f       | ?  |		Execute	Select,Rendezvous
01b9 00d1       |    |		Pop_Control	Pop_Count_1
01ba 00d9       |    |		Load_Top	At_Offset_1
01bb 013f       | ?  |		Execute	Select,Rendezvous
01bc 00d1       |    |		Pop_Control	Pop_Count_1
01bd 00c9       |    |		Action	Pop_Auxiliary_Loop
01be 7ff8       |    |		Jump	0x1b7
01bf 0000       |    |		.XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; See instruction 0x02cf at 0x1a2, index=0xf
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 4100       |A   |		End_Rendezvous	0x0
01c4 0000 0000  |    |		.BLANK	0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; See instruction 0x02cf at 0x1a2, index=0xe
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 e001       |    |		Load	0x0,0x1
01cc 0257       | W  |		Execute	Discrete,Raise
01cd 0000 0000  |    |		.XXX[0x3]
01cf 0000       |    |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; See instruction 0x02cf at 0x1a2, index=0xd
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 0008       |    |		Action	Idle
01d4 4100       |A   |		End_Rendezvous	0x0
01d5 0000 0000  |    |		.XXX[0x3]
01d7 0000       |    |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; See instruction 0x02cf at 0x1ad, index=0xe
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 0008       |    |		Action	Idle
01dc 4100       |A   |		End_Rendezvous	0x0
01dd 0000 0000  |    |		.XXX[0x3]
01df 0000       |    |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 020d       |    |		.CONST	0x020d								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0018       |    |		.CONST	0x0018								; Number of locals
01e3			INIT_01e0:
01e3 4801       |H   |		Short_Literal	0x1
01e4 02cb       |    |		Declare_Variable	Entry
01e5 4803       |H   |		Short_Literal	0x3
01e6 02cb       |    |		Declare_Variable	Entry
01e7 4804       |H   |		Short_Literal	0x4
01e8 02cb       |    |		Declare_Variable	Entry
01e9 4803       |H   |		Short_Literal	0x3
01ea 02cb       |    |		Declare_Variable	Entry
01eb 00bf       |    |		Action	Accept_Activation
01ec e001       |    |		Load	0x0,0x1
01ed 0007       |    |		Action	Break_Optional
01ee e002       |    |		Load	0x0,0x2
01ef 0007       |    |		Action	Break_Optional
01f0 00e3       |    |		Load_Encached	Natural_Cache
01f1 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01f2 4801       |H   |		Short_Literal	0x1
01f3 4801       |H   |		Short_Literal	0x1
01f4 e003       |    |		Load	0x0,0x3
01f5 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01f6 035b       | [  |		Declare_Type	Array,Constrained
01f7 0337       | 7  |		Declare_Variable	Array
01f8 00e3       |    |		Load_Encached	Natural_Cache
01f9 00e2       |    |		Load_Encached	Integer_Cache
01fa 480d 4848  |H HH|		Declare_Variable	Select	0x000, 0x001,
01fc 4800 4801  |H H |				[0x000]: 0x001 = 0x0008,
01fe 4800 4801  |H H |				[0x00d]: 0x048 = 0x0240
0200 02cf       |    |
0201 4810 484a  |H HJ|		Declare_Variable	Select	0x000, 0x003,
0203 480f 484b  |H HK|				[0x000]: 0x001 = 0x0008,
0205 480e 4856  |H HV|				[0x00e]: 0x056 = 0x02b0,
0207 4800 4801  |H H |				[0x00f]: 0x04b = 0x0258,
0209 4800 4803  |H H |				[0x010]: 0x04a = 0x0250
020b 02cf       |    |
020c 00bc       |    |		Action	Signal_Activated
020d			BODY_01e0:
020d 00d9       |    |		Load_Top	At_Offset_1
020e 013f       | ?  |		Execute	Select,Rendezvous
020f 00d1       |    |		Pop_Control	Pop_Count_1
0210 00cf       |    |		Action	Mark_Auxiliary
0211 00cf       |    |		Action	Mark_Auxiliary
0212 7808       |x   |		Jump	0x21b
0213 00da       |    |		Load_Top	At_Offset_2
0214 013f       | ?  |		Execute	Select,Rendezvous
0215 4603       |F   |		Jump_Case	0x4
0216 7803       |x   |		Jump	0x21a								; case 0x0
0217 7802       |x   |		Jump	0x21a								; case 0x1
0218 7801       |x   |		Jump	0x21a								; case 0x2
0219 7800       |x   |		Jump	0x21a								; case 0x3
021a 00c9       |    |		Action	Pop_Auxiliary_Loop
021b e212       |    |		Load	0x1,0x12
021c e002       |    |		Load	0x0,0x2
021d 022f       | /  |		Execute	Access,Equal
021e 77f4       |w   |		Jump_Nonzero	0x213
021f 00ce       |    |		Action	Pop_Auxiliary
0220 00e3       |    |		Load_Encached	Natural_Cache
0221 e214       |    |		Load	0x1,0x14
0222 e004       |    |		Load	0x0,0x4
0223 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0224 6027       |`'  |		Indirect_Literal	Discrete,0x24c,{0x00007fff, 0xffffffff}
0225 e211       |    |		Load	0x1,0x11
0226 0227       | '  |		Execute	Access,All_Reference
0227 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0228 e005       |    |		Load	0x0,0x5
0229 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
022a c216       |    |		Store	0x1,0x16
022b 00d1       |    |		Pop_Control	Pop_Count_1
022c c213       |    |		Store	0x1,0x13
022d 4802       |H   |		Short_Literal	0x2
022e e211       |    |		Load	0x1,0x11
022f 0227       | '  |		Execute	Access,All_Reference
0230 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0231 4800       |H   |		Short_Literal	0x0
0232 e212       |    |		Load	0x1,0x12
0233 0229       | )  |		Execute	Access,All_Read
0234 e006       |    |		Load	0x0,0x6
0235 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
0236 00db       |    |		Load_Top	At_Offset_3
0237 6802       |h   |		Jump_Zero	0x23a
0238 4800       |H   |		Short_Literal	0x0
0239 a213       |    |		Store_Unchecked	0x1,0x13
023a e002       |    |		Load	0x0,0x2
023b a212       |    |		Store_Unchecked	0x1,0x12
023c 00c9       |    |		Action	Pop_Auxiliary_Loop
023d 7fd3       |    |		Jump	0x211
023e 0000 0000  |    |		.XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; See instruction 0x02cf at 0x1fa, index=0xd
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 00db       |    |		Load_Top	At_Offset_3
0244 a211       |    |		Store_Unchecked	0x1,0x11
0245 4800       |H   |		Short_Literal	0x0
0246 e211       |    |		Load	0x1,0x11
0247 0227       | '  |		Execute	Access,All_Reference
0248 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0249 4100       |A   |		End_Rendezvous	0x0
024a 0000 0000  |    |		.XXX[0x2]
024c 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; See instruction 0x02cf at 0x201, index=0x10
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 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
0255 8402       |    |		Call	0x2,0x2
0256 4103       |A   |		End_Rendezvous	0x3
0257 0000       |    |		.XXX[0x1]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; See instruction 0x02cf at 0x201, index=0xf
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b e213       |    |		Load	0x1,0x13
025c 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
025d 682a       |h*  |		Jump_Zero	0x288
025e 4801       |H   |		Short_Literal	0x1
025f e214       |    |		Load	0x1,0x14
0260 01d7       |    |		Execute	Vector,Field_Read
0261 e5fc       |    |		Load	0x2,-0x4
0262 01dd       |    |		Execute	Vector,First
0263 e5fc       |    |		Load	0x2,-0x4
0264 01d6       |    |		Execute	Vector,Field_Write
0265 4800       |H   |		Short_Literal	0x0
0266 a213       |    |		Store_Unchecked	0x1,0x13
0267 e5fc       |    |		Load	0x2,-0x4
0268 00d8       |    |		Load_Top	At_Offset_0
0269 01dd       |    |		Execute	Vector,First
026a 0a01       |    |		Execute_Immediate	Plus,0x1
026b 00d8       |    |		Load_Top	At_Offset_0
026c 00e2       |    |		Load_Encached	Integer_Cache
026d 0260       | `  |		Execute	Discrete,In_Type
026e 7001       |p   |		Jump_Nonzero	0x270
026f 0801       |    |		Execute_Immediate	Raise,0x1
0270 e5fc       |    |		Load	0x2,-0x4
0271 01dc       |    |		Execute	Vector,Last
0272 00da       |    |		Load_Top	At_Offset_2
0273 035b       | [  |		Declare_Type	Array,Constrained
0274 00d0       |    |		Action	Swap_Control
0275 01cd       |    |		Execute	Vector,Slice_Reference
0276 00e3       |    |		Load_Encached	Natural_Cache
0277 00d9       |    |		Load_Top	At_Offset_1
0278 e004       |    |		Load	0x0,0x4
0279 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
027a 4800       |H   |		Short_Literal	0x0
027b e211       |    |		Load	0x1,0x11
027c 0227       | '  |		Execute	Access,All_Reference
027d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
027e e005       |    |		Load	0x0,0x5
027f 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0280 c5fd       |    |		Store	0x2,-0x3
0281 00d1       |    |		Pop_Control	Pop_Count_1
0282 c215       |    |		Store	0x1,0x15
0283 00d1       |    |		Pop_Control	Pop_Count_1
0284 e215       |    |		Load	0x1,0x15
0285 0a01       |    |		Execute_Immediate	Plus,0x1
0286 c5fb       |    |		Store	0x2,-0x5
0287 4103       |A   |		End_Rendezvous	0x3
0288 00e3       |    |		Load_Encached	Natural_Cache
0289 e5fc       |    |		Load	0x2,-0x4
028a e004       |    |		Load	0x0,0x4
028b 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
028c 4800       |H   |		Short_Literal	0x0
028d e211       |    |		Load	0x1,0x11
028e 0227       | '  |		Execute	Access,All_Reference
028f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0290 e005       |    |		Load	0x0,0x5
0291 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0292 c216       |    |		Store	0x1,0x16
0293 00d1       |    |		Pop_Control	Pop_Count_1
0294 c215       |    |		Store	0x1,0x15
0295 e216       |    |		Load	0x1,0x16
0296 a5fd       |    |		Store_Unchecked	0x2,-0x3
0297 e215       |    |		Load	0x1,0x15
0298 a5fb       |    |		Store_Unchecked	0x2,-0x5
0299 e215       |    |		Load	0x1,0x15
029a 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
029b 7005       |p   |		Jump_Nonzero	0x2a1
029c e216       |    |		Load	0x1,0x16
029d 6804       |h   |		Jump_Zero	0x2a2
029e e216       |    |		Load	0x1,0x16
029f 0f07       |    |		Execute_Immediate	Equal,0x7
02a0 7001       |p   |		Jump_Nonzero	0x2a2
02a1 4103       |A   |		End_Rendezvous	0x3
02a2 00db       |    |		Load_Top	At_Offset_3
02a3 a212       |    |		Store_Unchecked	0x1,0x12
02a4 4801       |H   |		Short_Literal	0x1
02a5 e211       |    |		Load	0x1,0x11
02a6 0227       | '  |		Execute	Access,All_Reference
02a7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02a8 4103       |A   |		End_Rendezvous	0x3
02a9 0000 0000  |    |		.BLANK	0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; See instruction 0x02cf at 0x201, index=0xe
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 e213       |    |		Load	0x1,0x13
02b4 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
02b5 682a       |h*  |		Jump_Zero	0x2e0
02b6 4801       |H   |		Short_Literal	0x1
02b7 e214       |    |		Load	0x1,0x14
02b8 01d7       |    |		Execute	Vector,Field_Read
02b9 e5fd       |    |		Load	0x2,-0x3
02ba 01dd       |    |		Execute	Vector,First
02bb e5fd       |    |		Load	0x2,-0x3
02bc 01d6       |    |		Execute	Vector,Field_Write
02bd 4800       |H   |		Short_Literal	0x0
02be a213       |    |		Store_Unchecked	0x1,0x13
02bf e5fd       |    |		Load	0x2,-0x3
02c0 00d8       |    |		Load_Top	At_Offset_0
02c1 01dd       |    |		Execute	Vector,First
02c2 0a01       |    |		Execute_Immediate	Plus,0x1
02c3 00d8       |    |		Load_Top	At_Offset_0
02c4 00e2       |    |		Load_Encached	Integer_Cache
02c5 0260       | `  |		Execute	Discrete,In_Type
02c6 7001       |p   |		Jump_Nonzero	0x2c8
02c7 0801       |    |		Execute_Immediate	Raise,0x1
02c8 e5fd       |    |		Load	0x2,-0x3
02c9 01dc       |    |		Execute	Vector,Last
02ca 00da       |    |		Load_Top	At_Offset_2
02cb 035b       | [  |		Declare_Type	Array,Constrained
02cc 00d0       |    |		Action	Swap_Control
02cd 01cd       |    |		Execute	Vector,Slice_Reference
02ce 00e3       |    |		Load_Encached	Natural_Cache
02cf 00d9       |    |		Load_Top	At_Offset_1
02d0 e004       |    |		Load	0x0,0x4
02d1 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
02d2 4800       |H   |		Short_Literal	0x0
02d3 e211       |    |		Load	0x1,0x11
02d4 0227       | '  |		Execute	Access,All_Reference
02d5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02d6 e005       |    |		Load	0x0,0x5
02d7 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
02d8 c5fe       |    |		Store	0x2,-0x2
02d9 00d1       |    |		Pop_Control	Pop_Count_1
02da c215       |    |		Store	0x1,0x15
02db 00d1       |    |		Pop_Control	Pop_Count_1
02dc e215       |    |		Load	0x1,0x15
02dd 0a01       |    |		Execute_Immediate	Plus,0x1
02de c5fc       |    |		Store	0x2,-0x4
02df 4103       |A   |		End_Rendezvous	0x3
02e0 00e3       |    |		Load_Encached	Natural_Cache
02e1 e5fd       |    |		Load	0x2,-0x3
02e2 e004       |    |		Load	0x0,0x4
02e3 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
02e4 4800       |H   |		Short_Literal	0x0
02e5 e211       |    |		Load	0x1,0x11
02e6 0227       | '  |		Execute	Access,All_Reference
02e7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02e8 e005       |    |		Load	0x0,0x5
02e9 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
02ea c5fe       |    |		Store	0x2,-0x2
02eb 00d1       |    |		Pop_Control	Pop_Count_1
02ec c5fc       |    |		Store	0x2,-0x4
02ed 4103       |A   |		End_Rendezvous	0x3
02ee 0000 0000  |    |		.XXX[0x2]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f8       |    |		.CONST	0x02f8								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0003       |    |		.CONST	0x0003								; Number of locals
02f3			INIT_02f0:
02f3 e5fd       |    |		Load	0x2,-0x3
02f4 01db       |    |		Execute	Vector,Length
02f5 00e3       |    |		Load_Encached	Natural_Cache
02f6 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
02f7 00e3       |    |		Load_Encached	Natural_Cache
02f8			BODY_02f0:
02f8 4800       |H   |		Short_Literal	0x0
02f9 a216       |    |		Store_Unchecked	0x1,0x16
02fa e213       |    |		Load	0x1,0x13
02fb 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
02fc 680c       |h   |		Jump_Zero	0x309
02fd 4801       |H   |		Short_Literal	0x1
02fe e214       |    |		Load	0x1,0x14
02ff 01d7       |    |		Execute	Vector,Field_Read
0300 e5fd       |    |		Load	0x2,-0x3
0301 01dd       |    |		Execute	Vector,First
0302 e5fd       |    |		Load	0x2,-0x3
0303 01d6       |    |		Execute	Vector,Field_Write
0304 4800       |H   |		Short_Literal	0x0
0305 a213       |    |		Store_Unchecked	0x1,0x13
0306 4801       |H   |		Short_Literal	0x1
0307 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0308 7802       |x   |		Jump	0x30b
0309 4800       |H   |		Short_Literal	0x0
030a 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
030b 00cf       |    |		Action	Mark_Auxiliary
030c 0007       |    |		Action	Break_Optional
030d 00d9       |    |		Load_Top	At_Offset_1
030e 00db       |    |		Load_Top	At_Offset_3
030f 027f       |    |		Execute	Discrete,Equal
0310 7002       |p   |		Jump_Nonzero	0x313
0311 e216       |    |		Load	0x1,0x16
0312 6806       |h   |		Jump_Zero	0x319
0313 e216       |    |		Load	0x1,0x16
0314 a5fe       |    |		Store_Unchecked	0x2,-0x2
0315 00d9       |    |		Load_Top	At_Offset_1
0316 a5fc       |    |		Store_Unchecked	0x2,-0x4
0317 00cc       |    |		Action	Pop_Block
0318 4103       |A   |		End_Rendezvous	0x3
0319 e5fd       |    |		Load	0x2,-0x3
031a 00d8       |    |		Load_Top	At_Offset_0
031b 01dd       |    |		Execute	Vector,First
031c 00db       |    |		Load_Top	At_Offset_3
031d 0273       | s  |		Execute	Discrete,Plus
031e 00d8       |    |		Load_Top	At_Offset_0
031f 00e2       |    |		Load_Encached	Integer_Cache
0320 0260       | `  |		Execute	Discrete,In_Type
0321 7001       |p   |		Jump_Nonzero	0x323
0322 0801       |    |		Execute_Immediate	Raise,0x1
0323 e5fd       |    |		Load	0x2,-0x3
0324 01dc       |    |		Execute	Vector,Last
0325 00da       |    |		Load_Top	At_Offset_2
0326 035b       | [  |		Declare_Type	Array,Constrained
0327 00d0       |    |		Action	Swap_Control
0328 01cd       |    |		Execute	Vector,Slice_Reference
0329 00e3       |    |		Load_Encached	Natural_Cache
032a 00d9       |    |		Load_Top	At_Offset_1
032b e004       |    |		Load	0x0,0x4
032c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
032d 6012       |`   |		Indirect_Literal	Discrete,0x340,{0x00007fff, 0xffffffff}
032e e211       |    |		Load	0x1,0x11
032f 0227       | '  |		Execute	Access,All_Reference
0330 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0331 e005       |    |		Load	0x0,0x5
0332 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0333 c216       |    |		Store	0x1,0x16
0334 00d1       |    |		Pop_Control	Pop_Count_1
0335 c215       |    |		Store	0x1,0x15
0336 00d1       |    |		Pop_Control	Pop_Count_1
0337 00d9       |    |		Load_Top	At_Offset_1
0338 e215       |    |		Load	0x1,0x15
0339 0273       | s  |		Execute	Discrete,Plus
033a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
033b 00c9       |    |		Action	Pop_Auxiliary_Loop
033c 7fd0       |    |		Jump	0x30d
033d 0000 0000  |    |		.XXX[0x3]
033f 0000       |    |
0340 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
0344 0000 0000  |    |		.BLANK	0000[0x4]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0369       | i  |		.CONST	0x0369								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0012       |    |		.CONST	0x0012								; Number of locals
034b			INIT_0348:
034b 4800       |H   |		Short_Literal	0x0
034c 02cb       |    |		Declare_Variable	Entry
034d 4800       |H   |		Short_Literal	0x0
034e 02cb       |    |		Declare_Variable	Entry
034f 4800       |H   |		Short_Literal	0x0
0350 02cb       |    |		Declare_Variable	Entry
0351 00bf       |    |		Action	Accept_Activation
0352 00e1       |    |		Load_Encached	Boolean_Cache
0353 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0354 480e 4870  |H Hp|		Declare_Variable	Select	0x000, 0x002,
0356 480d 4871  |H Hq|				[0x000]: 0x001 = 0x0008,
0358 4800 4801  |H H |				[0x00d]: 0x071 = 0x0388,
035a 4800 4802  |H H |				[0x00e]: 0x070 = 0x0380
035c 02cf       |    |
035d 480f 4872  |H Hr|		Declare_Variable	Select	0x000, 0x003,
035f 480e 4873  |H Hs|				[0x000]: 0x001 = 0x0008,
0361 480d 4874  |H Ht|				[0x00d]: 0x074 = 0x03a0,
0363 4800 4801  |H H |				[0x00e]: 0x073 = 0x0398,
0365 4800 4803  |H H |				[0x00f]: 0x072 = 0x0390
0367 02cf       |    |
0368 00bc       |    |		Action	Signal_Activated
0369			BODY_0348:
0369 00cf       |    |		Action	Mark_Auxiliary
036a 0007       |    |		Action	Break_Optional
036b 00da       |    |		Load_Top	At_Offset_2
036c 013f       | ?  |		Execute	Select,Rendezvous
036d 00d1       |    |		Pop_Control	Pop_Count_1
036e 00cf       |    |		Action	Mark_Auxiliary
036f 7804       |x   |		Jump	0x374
0370 00da       |    |		Load_Top	At_Offset_2
0371 013f       | ?  |		Execute	Select,Rendezvous
0372 00d1       |    |		Pop_Control	Pop_Count_1
0373 00c9       |    |		Action	Pop_Auxiliary_Loop
0374 e210       |    |		Load	0x1,0x10
0375 77fa       |w   |		Jump_Nonzero	0x370
0376 00ce       |    |		Action	Pop_Auxiliary
0377 00c9       |    |		Action	Pop_Auxiliary_Loop
0378 7ff2       |    |		Jump	0x36b
0379 0000 0000  |    |		.BLANK	0000[0x7]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; See instruction 0x02cf at 0x354, index=0xe
0380 ; --------------------------------------------------------------------------------------
0380 0383       |    |		.CONST	0x0383								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0001       |    |		.CONST	0x0001								; Number of locals
0383			BODY_0380:
0383			INIT_0380:
0383 4801       |H   |		Short_Literal	0x1
0384 a210       |    |		Store_Unchecked	0x1,0x10
0385 4100       |A   |		End_Rendezvous	0x0
0386 0000 0000  |    |		.XXX[0x2]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; See instruction 0x02cf at 0x354, index=0xd
0388 ; --------------------------------------------------------------------------------------
0388 038b       |    |		.CONST	0x038b								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0001       |    |		.CONST	0x0001								; Number of locals
038b			BODY_0388:
038b			INIT_0388:
038b 4800       |H   |		Short_Literal	0x0
038c a210       |    |		Store_Unchecked	0x1,0x10
038d 4100       |A   |		End_Rendezvous	0x0
038e 0000 0000  |    |		.XXX[0x2]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; See instruction 0x02cf at 0x35d, index=0xf
0390 ; --------------------------------------------------------------------------------------
0390 0393       |    |		.CONST	0x0393								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0001       |    |		.CONST	0x0001								; Number of locals
0393			BODY_0390:
0393			INIT_0390:
0393 4800       |H   |		Short_Literal	0x0
0394 a210       |    |		Store_Unchecked	0x1,0x10
0395 4100       |A   |		End_Rendezvous	0x0
0396 0000 0000  |    |		.XXX[0x2]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; See instruction 0x02cf at 0x35d, index=0xe
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			INIT_0398:
039b 4801       |H   |		Short_Literal	0x1
039c a210       |    |		Store_Unchecked	0x1,0x10
039d 4100       |A   |		End_Rendezvous	0x0
039e 0000 0000  |    |		.XXX[0x2]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; See instruction 0x02cf at 0x35d, index=0xd
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 4800       |H   |		Short_Literal	0x0
03a4 a210       |    |		Store_Unchecked	0x1,0x10
03a5 4100       |A   |		End_Rendezvous	0x0
03a6 ; --------------------------------------------------------------------------------------
03a6 ; STRING TABLE
03a6 ; --------------------------------------------------------------------------------------
03a6 0008       |    |		.STRTAB	0x0008->0x03aa							; "PENDING_READ_NONE"
03a7 0017       |    |		.STRTAB	0x0017->0x03b2							; "PENDING_READ_WAIT"
03a8 0026       | &  |		.STRTAB	0x0026->0x03bb							; "PENDING_READ_DONE"
03a9 0035       | 5  |		.STREND 0x0035->0x03c3
03aa 5045 4e44  |PEND|		.STRTAB_STRINGS
03c4 0000 0000  |    |		.BLANK	0000[0x4]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; Debug Table
03c8 ; --------------------------------------------------------------------------------------
03c8 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x68dc,0x0000,0x0001,0x001e
03ce 000b 0446  |   F|		.DBG4T	0x000b,0x0446,0x8000,0x0000
03d2 00a9 047d  |   }|		.DBG4T	0x00a9,0x047d,0x8000,0x0000
03d6 00db 0487  |    |		.DBG4T	0x00db,0x0487,0x0002,0x0000
03da 00eb 0000  |    |		.DBG4T	0x00eb,0x0000,0x0005,0x0000
03de 0113 048a  |    |		.DBG4T	0x0113,0x048a,0x0001,0x0000
03e2 0123 048f  | #  |		.DBG4T	0x0123,0x048f,0x0001,0x0000
03e6 012b 0492  | +  |		.DBG4T	0x012b,0x0492,0x0001,0x0000
03ea 0133 0000  | 3  |		.DBG4T	0x0133,0x0000,0x0005,0x0000
03ee 0153 0000  | S  |		.DBG4T	0x0153,0x0000,0x0005,0x0000
03f2 018b 0000  |    |		.DBG4T	0x018b,0x0000,0x0005,0x0000
03f6 019b 0495  |    |		.DBG4T	0x019b,0x0495,0x0000,0x0000
03fa 01a2 049a  |    |		.DBG4T	0x01a2,0x049a,0x0000,0x4000
03fe 01c3 04a2  |    |		.DBG4T	0x01c3,0x04a2,0x0003,0x0000
0402 01cb 04a5  |    |		.DBG4T	0x01cb,0x04a5,0x0003,0x0000
0406 01d3 04a8  |    |		.DBG4T	0x01d3,0x04a8,0x0003,0x0000
040a 01db 04ab  |    |		.DBG4T	0x01db,0x04ab,0x0003,0x0000
040e 01e3 04ae  |    |		.DBG4T	0x01e3,0x04ae,0x0000,0x0000
0412 01ec 04b4  |    |		.DBG4T	0x01ec,0x04b4,0x0000,0x4000
0416 0243 04d0  | C  |		.DBG4T	0x0243,0x04d0,0x0003,0x0000
041a 0253 04d4  | S  |		.DBG4T	0x0253,0x04d4,0x0003,0x0000
041e 025b 04d7  | [  |		.DBG4T	0x025b,0x04d7,0x0003,0x0000
0422 02b3 04e6  |    |		.DBG4T	0x02b3,0x04e6,0x0003,0x0000
0426 02f3 04f0  |    |		.DBG4T	0x02f3,0x04f0,0x0004,0x0000
042a 034b 0501  | K  |		.DBG4T	0x034b,0x0501,0x0000,0x0000
042e 0352 0506  | R  |		.DBG4T	0x0352,0x0506,0x0000,0x4000
0432 0383 0511  |    |		.DBG4T	0x0383,0x0511,0x0003,0x0000
0436 038b 0514  |    |		.DBG4T	0x038b,0x0514,0x0003,0x0000
043a 0393 0517  |    |		.DBG4T	0x0393,0x0517,0x0003,0x0000
043e 039b 051a  |    |		.DBG4T	0x039b,0x051a,0x0003,0x0000
0442 03a3 051d  |    |		.DBG4T	0x03a3,0x051d,0x0003,0x0000
0446 ; --------------------------------------------------------------------------------------
0446 ; Debug chain
0446 ; --------------------------------------------------------------------------------------
0446 0035 0000  | 5  |		.DBGLEN	0x0035,0x0000
0448 000b 000c  |    |		.DBGLNO	0x000b,0x000c,0x000d,0x000e,0x000f,0x0010,0x0011,0x0012,0x0013,0x0014,0x0015,0x0016,0x0017,0x0018,0x0019,0x001a,0x001b,0x0022,0x0023,0x0024,0x0031,0x0032,0x0033,0x0034,0x0035,0x0036,0x0038,0x0039,0x003a,0x003b,0x0040,0x0044,0x0045,0x0046,0x004b,0x004c,0x004e,0x0053,0x005f,0x0060,0x0061,0x006d,0x007d,0x0082,0x0086,0x0087,0x0089,0x008b,0x008d,0x0093,0x009a,0x009b,0x00a8
047d ; --------------------------------------------------------------------------------------
047d ; Debug chain
047d ; --------------------------------------------------------------------------------------
047d 0008 0000  |    |		.DBGLEN	0x0008,0x0000
047f 00a9 00b1  |    |		.DBGLNO	0x00a9,0x00b1,0x00b4,0x00c0,0x00c7,0x00c9,0x00cb,0x00cd
0487 ; --------------------------------------------------------------------------------------
0487 ; Debug chain
0487 ; --------------------------------------------------------------------------------------
0487 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0489 00db       |    |		.DBGLNO	0x00db
048a ; --------------------------------------------------------------------------------------
048a ; Debug chain
048a ; --------------------------------------------------------------------------------------
048a 0000 0003  |    |		.DBGLEN	0x0000,0x0003
048c 0113 0115  |    |		.DBGLNO	0x0113,0x0115,0x0119
048f ; --------------------------------------------------------------------------------------
048f ; Debug chain
048f ; --------------------------------------------------------------------------------------
048f 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0491 0123       | #  |		.DBGLNO	0x0123
0492 ; --------------------------------------------------------------------------------------
0492 ; Debug chain
0492 ; --------------------------------------------------------------------------------------
0492 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0494 012b       | +  |		.DBGLNO	0x012b
0495 ; --------------------------------------------------------------------------------------
0495 ; Debug chain
0495 ; --------------------------------------------------------------------------------------
0495 0003 0000  |    |		.DBGLEN	0x0003,0x0000
0497 019b 019d  |    |		.DBGLNO	0x019b,0x019d,0x019f
049a ; --------------------------------------------------------------------------------------
049a ; Debug chain
049a ; --------------------------------------------------------------------------------------
049a 0000 0003  |    |		.DBGLEN	0x0000,0x0003
049c 01b6 01b7  |    |		.DBGLNO	0x01b6,0x01b7,0x01ba
049f 0001 0002  |    |		.XXX[0x3]
04a1 0006       |    |
04a2 ; --------------------------------------------------------------------------------------
04a2 ; Debug chain
04a2 ; --------------------------------------------------------------------------------------
04a2 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04a4 01c3       |    |		.DBGLNO	0x01c3
04a5 ; --------------------------------------------------------------------------------------
04a5 ; Debug chain
04a5 ; --------------------------------------------------------------------------------------
04a5 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04a7 01cb       |    |		.DBGLNO	0x01cb
04a8 ; --------------------------------------------------------------------------------------
04a8 ; Debug chain
04a8 ; --------------------------------------------------------------------------------------
04a8 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04aa 01d3       |    |		.DBGLNO	0x01d3
04ab ; --------------------------------------------------------------------------------------
04ab ; Debug chain
04ab ; --------------------------------------------------------------------------------------
04ab 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04ad 01db       |    |		.DBGLNO	0x01db
04ae ; --------------------------------------------------------------------------------------
04ae ; Debug chain
04ae ; --------------------------------------------------------------------------------------
04ae 0004 0000  |    |		.DBGLEN	0x0004,0x0000
04b0 01e3 01e5  |    |		.DBGLNO	0x01e3,0x01e5,0x01e7,0x01e9
04b4 ; --------------------------------------------------------------------------------------
04b4 ; Debug chain
04b4 ; --------------------------------------------------------------------------------------
04b4 0006 000a  |    |		.DBGLEN	0x0006,0x000a
04b6 01ec 01ee  |    |		.DBGLNO	0x01ec,0x01ee,0x01f0,0x01f2,0x01f8,0x01f9,0x020d,0x0211,0x0213,0x021b,0x0220,0x022d,0x0231,0x0236,0x0238,0x023a
04c6 0001 0003  |    |		.XXX[0xa]
04c8 0005 0004  |    |
04ca 0009 000a  |    |
04cc 000b 000c  |    |
04ce 000d 000e  |    |
04d0 ; --------------------------------------------------------------------------------------
04d0 ; Debug chain
04d0 ; --------------------------------------------------------------------------------------
04d0 0000 0002  |    |		.DBGLEN	0x0000,0x0002
04d2 0243 0245  | C E|		.DBGLNO	0x0243,0x0245
04d4 ; --------------------------------------------------------------------------------------
04d4 ; Debug chain
04d4 ; --------------------------------------------------------------------------------------
04d4 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04d6 0255       | U  |		.DBGLNO	0x0255
04d7 ; --------------------------------------------------------------------------------------
04d7 ; Debug chain
04d7 ; --------------------------------------------------------------------------------------
04d7 0000 000d  |    |		.DBGLEN	0x0000,0x000d
04d9 025b 025e  | [ ^|		.DBGLNO	0x025b,0x025e,0x0265,0x0267,0x0284,0x0287,0x0288,0x0295,0x0297,0x0299,0x02a1,0x02a2,0x02a4
04e6 ; --------------------------------------------------------------------------------------
04e6 ; Debug chain
04e6 ; --------------------------------------------------------------------------------------
04e6 0000 0008  |    |		.DBGLEN	0x0000,0x0008
04e8 02b3 02b6  |    |		.DBGLNO	0x02b3,0x02b6,0x02bd,0x02bf,0x02dc,0x02df,0x02e0,0x02ed
04f0 ; --------------------------------------------------------------------------------------
04f0 ; Debug chain
04f0 ; --------------------------------------------------------------------------------------
04f0 0002 000d  |    |		.DBGLEN	0x0002,0x000d
04f2 02f3 02f7  |    |		.DBGLNO	0x02f3,0x02f7,0x02f8,0x02fa,0x02fd,0x0304,0x0306,0x0309,0x030c,0x030d,0x0313,0x0315,0x0317,0x0319,0x0337
0501 ; --------------------------------------------------------------------------------------
0501 ; Debug chain
0501 ; --------------------------------------------------------------------------------------
0501 0003 0000  |    |		.DBGLEN	0x0003,0x0000
0503 034b 034d  | K M|		.DBGLNO	0x034b,0x034d,0x034f
0506 ; --------------------------------------------------------------------------------------
0506 ; Debug chain
0506 ; --------------------------------------------------------------------------------------
0506 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0508 0352 036a  | R j|		.DBGLNO	0x0352,0x036a,0x036b,0x0370,0x0374
050d 0001 0002  |    |		.XXX[0x4]
050f 0006 0005  |    |
0511 ; --------------------------------------------------------------------------------------
0511 ; Debug chain
0511 ; --------------------------------------------------------------------------------------
0511 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0513 0383       |    |		.DBGLNO	0x0383
0514 ; --------------------------------------------------------------------------------------
0514 ; Debug chain
0514 ; --------------------------------------------------------------------------------------
0514 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0516 038b       |    |		.DBGLNO	0x038b
0517 ; --------------------------------------------------------------------------------------
0517 ; Debug chain
0517 ; --------------------------------------------------------------------------------------
0517 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0519 0393       |    |		.DBGLNO	0x0393
051a ; --------------------------------------------------------------------------------------
051a ; Debug chain
051a ; --------------------------------------------------------------------------------------
051a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
051c 039b       |    |		.DBGLNO	0x039b
051d ; --------------------------------------------------------------------------------------
051d ; Debug chain
051d ; --------------------------------------------------------------------------------------
051d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
051f 03a3       |    |		.DBGLNO	0x03a3
0520 0000 0000  |    |		.BLANK	0000[0xe0]