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

⟦39adf1783⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0748       | H  |		.CONST	0x0748								; 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 8004       |    |		.CONST	0x8004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0106       |    |		.CONST	0x0106								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002f       | /  |		.CONST	0x002f								; Number of locals
000b			INIT_0008:
000b 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
000c 00c4       |    |		Action	Make_Default
000d 4800       |H   |		Short_Literal	0x0
000e 4801       |H   |		Short_Literal	0x1
000f 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
0011 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0012 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0014 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0016 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0018 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
001a 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
001c 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
001e 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
0020 4800       |H   |		Short_Literal	0x0
0021 0093 04bb  |    |		push_full_address	INIT_04b8
0023 02a0       |    |		Declare_Subprogram	Null_Subprogram
0024 038f       |    |		Declare_Type	Package,Defined,Visible
0025 0386       |    |		Declare_Variable	Package,Visible
0026 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
0028 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
002a 4802       |H   |		Short_Literal	0x2
002b 032a       | *  |		Declare_Type	Record,Incomplete
002c 00d8       |    |		Load_Top	At_Offset_0
002d 02a0       |    |		Declare_Subprogram	Null_Subprogram
002e e20d       |    |		Load	0x1,0xd
002f 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0030 e20d       |    |		Load	0x1,0xd
0031 0129       | )  |		Execute	Any,Make_Visible
0032 c20e       |    |		Store	0x1,0xe
0033 00bf       |    |		Action	Accept_Activation
0034 4800       |H   |		Short_Literal	0x0
0035 e001       |    |		Load	0x0,0x1
0036 00f5       |    |		Load_Encached	Unused21
0037 037a       | z  |		Declare_Type	Task,Defined,Not_Elaborated
0038 00d8       |    |		Load_Top	At_Offset_0
0039 02a0       |    |		Declare_Subprogram	Null_Subprogram
003a 4818       |H   |		Short_Literal	0x18
003b 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
003c e002       |    |		Load	0x0,0x2
003d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
003e e003       |    |		Load	0x0,0x3
003f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0040 029f 0283  |    |		Declare_Subprogram	INIT_0280,For_Call
0042 e21a       |    |		Load	0x1,0x1a
0043 0326       | &  |		Complete_Type	Record,By_Defining
0044 e004       |    |		Load	0x0,0x4
0045 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0046 0266       | f  |		Execute	Discrete,Bounds
0047 00e3       |    |		Load_Encached	Natural_Cache
0048 02a0       |    |		Declare_Subprogram	Null_Subprogram
0049 4801       |H   |		Short_Literal	0x1
004a 035d       | ]  |		Declare_Type	Array,Defined
004b 4800       |H   |		Short_Literal	0x0
004c 4804       |H   |		Short_Literal	0x4
004d 029f 029b  |    |		Declare_Subprogram	INIT_0298,For_Call
004f 03fd       |    |		Declare_Type	Discrete,Defined
0050 00d8       |    |		Load_Top	At_Offset_0
0051 00db       |    |		Load_Top	At_Offset_3
0052 e20d       |    |		Load	0x1,0xd
0053 4802       |H   |		Short_Literal	0x2
0054 e005       |    |		Load	0x0,0x5
0055 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0056 00e3       |    |		Load_Encached	Natural_Cache
0057 4801       |H   |		Short_Literal	0x1
0058 e006       |    |		Load	0x0,0x6
0059 029f 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Call
005b 4803       |H   |		Short_Literal	0x3
005c 4802       |H   |		Short_Literal	0x2
005d 4802       |H   |		Short_Literal	0x2
005e 4800       |H   |		Short_Literal	0x0
005f 4801       |H   |		Short_Literal	0x1
0060 031d       |    |		Declare_Type	Variant_Record,Defined
0061 4800       |H   |		Short_Literal	0x0
0062 48ff       |H   |		Short_Literal	0xff
0063 00da       |    |		Load_Top	At_Offset_2
0064 029f 030b  |    |		Declare_Subprogram	INIT_0308,For_Call
0066 4801       |H   |		Short_Literal	0x1
0067 035d       | ]  |		Declare_Type	Array,Defined
0068 4800       |H   |		Short_Literal	0x0
0069 00da       |    |		Load_Top	At_Offset_2
006a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
006b 4800       |H   |		Short_Literal	0x0
006c 00db       |    |		Load_Top	At_Offset_3
006d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
006e e21c       |    |		Load	0x1,0x1c
006f 00d9       |    |		Load_Top	At_Offset_1
0070 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0071 e20d       |    |		Load	0x1,0xd
0072 00d9       |    |		Load_Top	At_Offset_1
0073 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0074 00d9       |    |		Load_Top	At_Offset_1
0075 016d       | m  |		Execute	Variant_Record,Structure_Write
0076 00d9       |    |		Load_Top	At_Offset_1
0077 0337       | 7  |		Declare_Variable	Array
0078 00d8       |    |		Load_Top	At_Offset_0
0079 0335       | 5  |		Declare_Variable	Array,Duplicate
007a 00cd       |    |		Action	Spare6_Action
007b 48ff       |H   |		Short_Literal	0xff
007c 4800       |H   |		Short_Literal	0x0
007d e221       | !  |		Load	0x1,0x21
007e 00d9       |    |		Load_Top	At_Offset_1
007f e223       | #  |		Load	0x1,0x23
0080 01d6       |    |		Execute	Vector,Field_Write
0081 3ffb       |?   |		Loop_Increasing	0x7d
0082 00d9       |    |		Load_Top	At_Offset_1
0083 01d4       |    |		Execute	Vector,Structure_Write
0084 4800       |H   |		Short_Literal	0x0
0085 e007       |    |		Load	0x0,0x7
0086 00f5       |    |		Load_Encached	Unused21
0087 037d       | }  |		Declare_Type	Task,Defined
0088 036f       | o  |		Declare_Variable	Task
0089 4800       |H   |		Short_Literal	0x0
008a e008       |    |		Load	0x0,0x8
008b 00f5       |    |		Load_Encached	Unused21
008c 037d       | }  |		Declare_Type	Task,Defined
008d 036f       | o  |		Declare_Variable	Task
008e e009       |    |		Load	0x0,0x9
008f e00a       |    |		Load	0x0,0xa
0090 e21a       |    |		Load	0x1,0x1a
0091 e20d       |    |		Load	0x1,0xd
0092 e00b       |    |		Load	0x0,0xb
0093 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0094 0387       |    |		Declare_Variable	Package
0095 00d8       |    |		Load_Top	At_Offset_0
0096 020f       |    |		Execute	Module,Activate
0097 029d 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call
0099 e00c       |    |		Load	0x0,0xc
009a e00d       |    |		Load	0x0,0xd
009b e00e       |    |		Load	0x0,0xe
009c e005       |    |		Load	0x0,0x5
009d e006       |    |		Load	0x0,0x6
009e e00f       |    |		Load	0x0,0xf
009f e010       |    |		Load	0x0,0x10
00a0 a011       |    |		Store_Unchecked	0x0,0x11
00a1 e224       | $  |		Load	0x1,0x24
00a2 e012       |    |		Load	0x0,0x12
00a3 e222       | "  |		Load	0x1,0x22
00a4 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00a5 e013       |    |		Load	0x0,0x13
00a6 e21c       |    |		Load	0x1,0x1c
00a7 00b6       |    |		Action	Make_Scope
00a8 e21f       |    |		Load	0x1,0x1f
00a9 e221       | !  |		Load	0x1,0x21
00aa a014       |    |		Store_Unchecked	0x0,0x14
00ab 4812       |H   |		Short_Literal	0x12
00ac e223       | #  |		Load	0x1,0x23
00ad 020e       |    |		Execute	Module,Augment_Imports
00ae 0007       |    |		Action	Break_Optional
00af e015       |    |		Load	0x0,0x15
00b0 e016       |    |		Load	0x0,0x16
00b1 a011       |    |		Store_Unchecked	0x0,0x11
00b2 4803       |H   |		Short_Literal	0x3
00b3 e224       | $  |		Load	0x1,0x24
00b4 020e       |    |		Execute	Module,Augment_Imports
00b5 0007       |    |		Action	Break_Optional
00b6 029d 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call
00b8 029d 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call
00ba 029d 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call
00bc 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00bd 00c7       |    |		Action	Elaborate_Subprogram
00be 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
00c3 00c7       |    |		Action	Elaborate_Subprogram
00c4 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00c5 00c7       |    |		Action	Elaborate_Subprogram
00c6 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00c7 00c7       |    |		Action	Elaborate_Subprogram
00c8 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00c9 00c7       |    |		Action	Elaborate_Subprogram
00ca 029d 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Outer_Call
00cc 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00cd 00c7       |    |		Action	Elaborate_Subprogram
00ce 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00cf 00c7       |    |		Action	Elaborate_Subprogram
00d0 e222       | "  |		Load	0x1,0x22
00d1 e017       |    |		Load	0x0,0x17
00d2 e018       |    |		Load	0x0,0x18
00d3 e005       |    |		Load	0x0,0x5
00d4 e224       | $  |		Load	0x1,0x24
00d5 e223       | #  |		Load	0x1,0x23
00d6 e013       |    |		Load	0x0,0x13
00d7 4807       |H   |		Short_Literal	0x7
00d8 e217       |    |		Load	0x1,0x17
00d9 020e       |    |		Execute	Module,Augment_Imports
00da e217       |    |		Load	0x1,0x17
00db 020f       |    |		Execute	Module,Activate
00dc 029d 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call
00de 029d 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call
00e0 029d 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call
00e2 029d 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call
00e4 029d 047b  |   {|		Declare_Subprogram	INIT_0478,For_Outer_Call
00e6 e005       |    |		Load	0x0,0x5
00e7 00b6       |    |		Action	Make_Scope
00e8 e00c       |    |		Load	0x0,0xc
00e9 e019       |    |		Load	0x0,0x19
00ea e21d       |    |		Load	0x1,0x1d
00eb e01a       |    |		Load	0x0,0x1a
00ec e01b       |    |		Load	0x0,0x1b
00ed e006       |    |		Load	0x0,0x6
00ee a011       |    |		Store_Unchecked	0x0,0x11
00ef 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00f0 e224       | $  |		Load	0x1,0x24
00f1 e013       |    |		Load	0x0,0x13
00f2 e003       |    |		Load	0x0,0x3
00f3 e004       |    |		Load	0x0,0x4
00f4 e017       |    |		Load	0x0,0x17
00f5 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
00f6 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00f7 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
00f8 e012       |    |		Load	0x0,0x12
00f9 e010       |    |		Load	0x0,0x10
00fa e01c       |    |		Load	0x0,0x1c
00fb e223       | #  |		Load	0x1,0x23
00fc e002       |    |		Load	0x0,0x2
00fd e00b       |    |		Load	0x0,0xb
00fe e225       | %  |		Load	0x1,0x25
00ff 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
0100 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
0101 481b       |H   |		Short_Literal	0x1b
0102 e21b       |    |		Load	0x1,0x1b
0103 020e       |    |		Execute	Module,Augment_Imports
0104 e21b       |    |		Load	0x1,0x1b
0105 020d       |    |		Execute	Module,Elaborate
0106			BODY_0008:
0106 00be       |    |		Action	Activate_Tasks
0107 00bc       |    |		Action	Signal_Activated
0108 00bb       |    |		Action	Signal_Completion
0109 0000 0000  |    |		.BLANK	0000[0x7]
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 4607       |F   |		Jump_Case	0x8
0114 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0115 7806       |x   |		Jump	0x11c								; case 0x1
0116 7809       |x   |		Jump	0x120								; case 0x2
0117 780d       |x   |		Jump	0x125								; case 0x3
0118 7810       |x   |		Jump	0x129								; case 0x4
0119 7811       |x   |		Jump	0x12b								; case 0x5
011a 7812       |x   |		Jump	0x12d								; case 0x6
011b 7815       |x   |		Jump	0x131								; case 0x7
011c 00da       |    |		Load_Top	At_Offset_2
011d 0091 0617  |    |		Action	Push_String_Extended_Indexed,0x617				; "READ"
011f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0120 00db       |    |		Load_Top	At_Offset_3
0121 00db       |    |		Load_Top	At_Offset_3
0122 00e0       |    |		Load_Encached	Standard_Cache
0123 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0124 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0125 00da       |    |		Load_Top	At_Offset_2
0126 00e0       |    |		Load_Encached	Standard_Cache
0127 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0128 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0129 00db       |    |		Load_Top	At_Offset_3
012a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012b 00db       |    |		Load_Top	At_Offset_3
012c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012d e20f       |    |		Load	0x1,0xf
012e 00dc       |    |		Load_Top	At_Offset_4
012f 0267       | g  |		Execute	Discrete,Predecessor
0130 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0131 e20f       |    |		Load	0x1,0xf
0132 00dc       |    |		Load_Top	At_Offset_4
0133 0268       | h  |		Execute	Discrete,Successor
0134 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0135 0000 0000  |    |		.XXX[0x3]
0137 0000       |    |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00db       |    |		Load_Top	At_Offset_3
013c 6803       |h   |		Jump_Zero	0x140
013d 00da       |    |		Load_Top	At_Offset_2
013e 8228       | (  |		Call	0x1,0x28
013f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0140 00da       |    |		Load_Top	At_Offset_2
0141 8227       | '  |		Call	0x1,0x27
0142 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0143 0000 0000  |    |		.BLANK	0000[0x5]
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 00db       |    |		Load_Top	At_Offset_3
014c 0f01       |    |		Execute_Immediate	Equal,0x1
014d 6802       |h   |		Jump_Zero	0x150
014e 00da       |    |		Load_Top	At_Offset_2
014f 8229       | )  |		Call	0x1,0x29
0150 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0151 0000 0000  |    |		.BLANK	0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015d       | ]  |		.CONST	0x015d								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0002       |    |		.CONST	0x0002								; Number of locals
015b			INIT_0158:
015b e002       |    |		Load	0x0,0x2
015c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
015d			BODY_0158:
015d 00db       |    |		Load_Top	At_Offset_3
015e 0219       |    |		Execute	Heap_Access,All_Read
015f e002       |    |		Load	0x0,0x2
0160 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0161 00d9       |    |		Load_Top	At_Offset_1
0162 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0163 e002       |    |		Load	0x0,0x2
0164 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0165 00da       |    |		Load_Top	At_Offset_2
0166 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0167 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0168 00d1       |    |		Pop_Control	Pop_Count_1
0169 00d8       |    |		Load_Top	At_Offset_0
016a 0f03       |    |		Execute_Immediate	Equal,0x3
016b 6804       |h   |		Jump_Zero	0x170
016c 0092 061e  |    |		Action	Push_String_Extended,0x61e					; "Semaphore release, but not owner"
016e 4800       |H   |		Short_Literal	0x0
016f 8014       |    |		Call	0x0,0x14
0170 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0171 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
017c 0219       |    |		Execute	Heap_Access,All_Read
017d 00d8       |    |		Load_Top	At_Offset_0
017e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
017f e002       |    |		Load	0x0,0x2
0180 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0181 00d9       |    |		Load_Top	At_Offset_1
0182 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0183 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0184 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2
018c 0217       |    |		Execute	Heap_Access,All_Reference
018d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
018e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018f 0000       |    |		.XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 00da       |    |		Load_Top	At_Offset_2
0194 e018       |    |		Load	0x0,0x18
0195 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0196 4802       |H   |		Short_Literal	0x2
0197 e223       | #  |		Load	0x1,0x23
0198 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0199 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
019a 0000 0000  |    |		.BLANK	0000[0x6]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01be       |    |		.CONST	0x01be								; Address of begin
01a1 021d       |    |		.CONST	0x021d								; Address of exception handler
01a2 0009       |    |		.CONST	0x0009								; Number of locals
01a3			INIT_01a0:
01a3 00e1       |    |		Load_Encached	Boolean_Cache
01a4 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
01a5 00db       |    |		Load_Top	At_Offset_3
01a6 0217       |    |		Execute	Heap_Access,All_Reference
01a7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01a8 e012       |    |		Load	0x0,0x12
01a9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01aa 03f1       |    |		Declare_Variable	Discrete,With_Value
01ab 00d8       |    |		Load_Top	At_Offset_0
01ac e012       |    |		Load	0x0,0x12
01ad 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
01ae e012       |    |		Load	0x0,0x12
01af 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01b0 03f1       |    |		Declare_Variable	Discrete,With_Value
01b1 e012       |    |		Load	0x0,0x12
01b2 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
01b3 02c7       |    |		Declare_Variable	Any
01b4 00d8       |    |		Load_Top	At_Offset_0
01b5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b6 e012       |    |		Load	0x0,0x12
01b7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b8 e21c       |    |		Load	0x1,0x1c
01b9 0007       |    |		Action	Break_Optional
01ba 00e3       |    |		Load_Encached	Natural_Cache
01bb 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01bc 029f 0493  |    |		Declare_Subprogram	INIT_0490,For_Call
01be			BODY_01a0:
01be 00be       |    |		Action	Activate_Tasks
01bf e405       |    |		Load	0x2,0x5
01c0 e404       |    |		Load	0x2,0x4
01c1 e012       |    |		Load	0x0,0x12
01c2 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
01c3 c405       |    |		Store	0x2,0x5
01c4 4801       |H   |		Short_Literal	0x1
01c5 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
01c6 00cf       |    |		Action	Mark_Auxiliary
01c7 7808       |x   |		Jump	0x1d0
01c8 8409       |    |		Call	0x2,0x9
01c9 e405       |    |		Load	0x2,0x5
01ca e012       |    |		Load	0x0,0x12
01cb 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
01cc c405       |    |		Store	0x2,0x5
01cd 4806       |H   |		Short_Literal	0x6
01ce 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
01cf 00c9       |    |		Action	Pop_Auxiliary_Loop
01d0 e405       |    |		Load	0x2,0x5
01d1 e012       |    |		Load	0x0,0x12
01d2 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
01d3 6ff4       |o   |		Jump_Zero	0x1c8
01d4 00ce       |    |		Action	Pop_Auxiliary
01d5 4807       |H   |		Short_Literal	0x7
01d6 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
01d7 e5ff       |    |		Load	0x2,-0x1
01d8 0217       |    |		Execute	Heap_Access,All_Reference
01d9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01da 6812       |h   |		Jump_Zero	0x1ed
01db 4808       |H   |		Short_Literal	0x8
01dc 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
01dd e5ff       |    |		Load	0x2,-0x1
01de 0217       |    |		Execute	Heap_Access,All_Reference
01df 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01e0 e222       | "  |		Load	0x1,0x22
01e1 01d5       |    |		Execute	Vector,Field_Reference
01e2 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01e3 003b       | ;  |		Store_Top	Access,At_Offset_3
01e4 4809       |H   |		Short_Literal	0x9
01e5 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
01e6 e5ff       |    |		Load	0x2,-0x1
01e7 4801       |H   |		Short_Literal	0x1
01e8 e223       | #  |		Load	0x1,0x23
01e9 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
01ea 480a       |H   |		Short_Literal	0xa
01eb 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
01ec 780c       |x   |		Jump	0x1f9
01ed e402       |    |		Load	0x2,0x2
01ee 680a       |h   |		Jump_Zero	0x1f9
01ef 480b       |H   |		Short_Literal	0xb
01f0 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
01f1 e21c       |    |		Load	0x1,0x1c
01f2 e404       |    |		Load	0x2,0x4
01f3 4802       |H   |		Short_Literal	0x2
01f4 e223       | #  |		Load	0x1,0x23
01f5 170f       |    |		Execute	Task,Entry_Call,Field_Number 0xf
01f6 003b       | ;  |		Store_Top	Access,At_Offset_3
01f7 480c       |H   |		Short_Literal	0xc
01f8 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
01f9 480d       |H   |		Short_Literal	0xd
01fa 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
01fb e402       |    |		Load	0x2,0x2
01fc 681d       |h   |		Jump_Zero	0x21a
01fd 00da       |    |		Load_Top	At_Offset_2
01fe 681b       |h   |		Jump_Zero	0x21a
01ff 480e       |H   |		Short_Literal	0xe
0200 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0201 4802       |H   |		Short_Literal	0x2
0202 0092 061f  |    |		Action	Push_String_Extended,0x61f					; "Job "
0204 e406       |    |		Load	0x2,0x6
0205 00e0       |    |		Load_Encached	Standard_Cache
0206 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0207 01cc       |    |		Execute	Vector,Catenate
0208 0092 0620  |    |		Action	Push_String_Extended,0x620					; " is cleaning up for session "
020a 01cc       |    |		Execute	Vector,Catenate
020b e404       |    |		Load	0x2,0x4
020c 00e0       |    |		Load_Encached	Standard_Cache
020d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
020e 01cc       |    |		Execute	Vector,Catenate
020f 4802       |H   |		Short_Literal	0x2
0210 e224       | $  |		Load	0x1,0x24
0211 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0212 480f       |H   |		Short_Literal	0xf
0213 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0214 4800       |H   |		Short_Literal	0x0
0215 00db       |    |		Load_Top	At_Offset_3
0216 0229       | )  |		Execute	Access,All_Read
0217 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
0218 4810       |H   |		Short_Literal	0x10
0219 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
021a 4811       |H   |		Short_Literal	0x11
021b 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
021c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
021d			TRAP_01a0:
021d 0007       |    |		Action	Break_Optional
021e 0092 0621  |   !|		Action	Push_String_Extended,0x621					; "Exception checking destroyable for session "
0220 e404       |    |		Load	0x2,0x4
0221 00e0       |    |		Load_Encached	Standard_Cache
0222 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0223 01cc       |    |		Execute	Vector,Catenate
0224 0092 0622  |   "|		Action	Push_String_Extended,0x622					; " statement="
0226 01cc       |    |		Execute	Vector,Catenate
0227 00db       |    |		Load_Top	At_Offset_3
0228 00e0       |    |		Load_Encached	Standard_Cache
0229 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
022a 01cc       |    |		Execute	Vector,Catenate
022b 8219       |    |		Call	0x1,0x19
022c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
022d 0000 0000  |    |		.XXX[0x3]
022f 0000       |    |
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0238       | 8  |		.CONST	0x0238								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0004       |    |		.CONST	0x0004								; Number of locals
0233			INIT_0230:
0233 e006       |    |		Load	0x0,0x6
0234 0007       |    |		Action	Break_Optional
0235 00e1       |    |		Load_Encached	Boolean_Cache
0236 00e3       |    |		Load_Encached	Natural_Cache
0237 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0238			BODY_0230:
0238 e5ff       |    |		Load	0x2,-0x1
0239 6817       |h   |		Jump_Zero	0x251
023a e006       |    |		Load	0x0,0x6
023b 00e1       |    |		Load_Encached	Boolean_Cache
023c e5ff       |    |		Load	0x2,-0x1
023d 4803       |H   |		Short_Literal	0x3
023e e223       | #  |		Load	0x1,0x23
023f 1710       |    |		Execute	Task,Entry_Call,Field_Number 0x10
0240 005b       | [  |		Store_Top	Discrete,At_Offset_3
0241 005b       | [  |		Store_Top	Discrete,At_Offset_3
0242 00d9       |    |		Load_Top	At_Offset_1
0243 6809       |h   |		Jump_Zero	0x24d
0244 0092 0623  |   #|		Action	Push_String_Extended,0x623					; "No items are cached for "
0246 e5ff       |    |		Load	0x2,-0x1
0247 8226       | &  |		Call	0x1,0x26
0248 01cc       |    |		Execute	Vector,Catenate
0249 e5fe       |    |		Load	0x2,-0x2
024a e01c       |    |		Load	0x0,0x1c
024b 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
024c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
024d e5fe       |    |		Load	0x2,-0x2
024e 00db       |    |		Load_Top	At_Offset_3
024f 822a       | *  |		Call	0x1,0x2a
0250 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0251 00cf       |    |		Action	Mark_Auxiliary
0252 48ff       |H   |		Short_Literal	0xff
0253 4800       |H   |		Short_Literal	0x0
0254 0007       |    |		Action	Break_Optional
0255 00d8       |    |		Load_Top	At_Offset_0
0256 e222       | "  |		Load	0x1,0x22
0257 01d5       |    |		Execute	Vector,Field_Reference
0258 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0259 0f01       |    |		Execute_Immediate	Equal,0x1
025a 6806       |h   |		Jump_Zero	0x261
025b e5fe       |    |		Load	0x2,-0x2
025c 00d9       |    |		Load_Top	At_Offset_1
025d 822a       | *  |		Call	0x1,0x2a
025e 00db       |    |		Load_Top	At_Offset_3
025f 0a01       |    |		Execute_Immediate	Plus,0x1
0260 c404       |    |		Store	0x2,0x4
0261 00c8       |    |		Action	Pop_Auxiliary_Range
0262 3ff2       |?   |		Loop_Increasing	0x255
0263 00ce       |    |		Action	Pop_Auxiliary
0264 00d8       |    |		Load_Top	At_Offset_0
0265 7005       |p   |		Jump_Nonzero	0x26b
0266 0092 0624  |   $|		Action	Push_String_Extended,0x624					; "No sessions currently have cached items"
0268 e5fe       |    |		Load	0x2,-0x2
0269 e01c       |    |		Load	0x0,0x1c
026a 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
026b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
026c 0000 0000  |    |		.BLANK	0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 4808       |H   |		Short_Literal	0x8
0274 00db       |    |		Load_Top	At_Offset_3
0275 0092 0625  |   %|		Action	Push_String_Extended,0x625					; "; unexpected exception "
0277 01cc       |    |		Execute	Vector,Catenate
0278 8011       |    |		Call	0x0,0x11
0279 01cc       |    |		Execute	Vector,Catenate
027a 4802       |H   |		Short_Literal	0x2
027b e224       | $  |		Load	0x1,0x24
027c 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
027d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
027e 0000 0000  |    |		.XXX[0x2]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 4608       |F   |		Jump_Case	0x9
0284 7808       |x   |		Jump	0x28d								; case 0x0
0285 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0286 780d       |x   |		Jump	0x294								; case 0x2
0287 780c       |x   |		Jump	0x294								; case 0x3
0288 780b       |x   |		Jump	0x294								; case 0x4
0289 780a       |x   |		Jump	0x294								; case 0x5
028a 7809       |x   |		Jump	0x294								; case 0x6
028b 7808       |x   |		Jump	0x294								; case 0x7
028c 7807       |x   |		Jump	0x294								; case 0x8
028d 00da       |    |		Load_Top	At_Offset_2
028e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
028f 0125       | %  |		Execute	Any,Set_Constraint
0290 00da       |    |		Load_Top	At_Offset_2
0291 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0292 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0293 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0294 0869       | i  |		Execute_Immediate	Raise,0x69
0295 0000 0000  |    |		.XXX[0x3]
0297 0000       |    |
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b 4607       |F   |		Jump_Case	0x8
029c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
029d 7806       |x   |		Jump	0x2a4								; case 0x1
029e 7809       |x   |		Jump	0x2a8								; case 0x2
029f 780d       |x   |		Jump	0x2ad								; case 0x3
02a0 7810       |x   |		Jump	0x2b1								; case 0x4
02a1 7811       |x   |		Jump	0x2b3								; case 0x5
02a2 7812       |x   |		Jump	0x2b5								; case 0x6
02a3 7815       |x   |		Jump	0x2b9								; case 0x7
02a4 00da       |    |		Load_Top	At_Offset_2
02a5 0091 0619  |    |		Action	Push_String_Extended_Indexed,0x619				; "NOT_USED"
02a7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02a8 00db       |    |		Load_Top	At_Offset_3
02a9 00db       |    |		Load_Top	At_Offset_3
02aa 00e0       |    |		Load_Encached	Standard_Cache
02ab 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02ac 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ad 00da       |    |		Load_Top	At_Offset_2
02ae 00e0       |    |		Load_Encached	Standard_Cache
02af 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02b1 00db       |    |		Load_Top	At_Offset_3
02b2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02b3 00db       |    |		Load_Top	At_Offset_3
02b4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02b5 e21e       |    |		Load	0x1,0x1e
02b6 00dc       |    |		Load_Top	At_Offset_4
02b7 0267       | g  |		Execute	Discrete,Predecessor
02b8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02b9 e21e       |    |		Load	0x1,0x1e
02ba 00dc       |    |		Load_Top	At_Offset_4
02bb 0268       | h  |		Execute	Discrete,Successor
02bc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02bd 0000 0000  |    |		.XXX[0x3]
02bf 0000       |    |
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 4608       |F   |		Jump_Case	0x9
02c4 7808       |x   |		Jump	0x2cd								; case 0x0
02c5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02c6 783e       |x>  |		Jump	0x305								; case 0x2
02c7 783d       |x=  |		Jump	0x305								; case 0x3
02c8 783c       |x<  |		Jump	0x305								; case 0x4
02c9 783b       |x;  |		Jump	0x305								; case 0x5
02ca 7816       |x   |		Jump	0x2e1								; case 0x6
02cb 7822       |x"  |		Jump	0x2ee								; case 0x7
02cc 7831       |x1  |		Jump	0x2fe								; case 0x8
02cd 00da       |    |		Load_Top	At_Offset_2
02ce 016c       | l  |		Execute	Variant_Record,Is_Constrained
02cf 7009       |p   |		Jump_Nonzero	0x2d9
02d0 00cf       |    |		Action	Mark_Auxiliary
02d1 4800       |H   |		Short_Literal	0x0
02d2 e5ff       |    |		Load	0x2,-0x1
02d3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02d4 00d8       |    |		Load_Top	At_Offset_0
02d5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d6 c5ff       |    |		Store	0x2,-0x1
02d7 00ce       |    |		Action	Pop_Auxiliary
02d8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02d9 00da       |    |		Load_Top	At_Offset_2
02da 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02db 4604       |F   |		Jump_Case	0x5
02dc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02dd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02de 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
02df 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
02e0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
02e1 00db       |    |		Load_Top	At_Offset_3
02e2 4604       |F   |		Jump_Case	0x5
02e3 7808       |x   |		Jump	0x2ec								; case 0x0
02e4 7803       |x   |		Jump	0x2e8								; case 0x1
02e5 7806       |x   |		Jump	0x2ec								; case 0x2
02e6 7803       |x   |		Jump	0x2ea								; case 0x3
02e7 7800       |x   |		Jump	0x2e8								; case 0x4
02e8 4801       |H   |		Short_Literal	0x1
02e9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ea 4802       |H   |		Short_Literal	0x2
02eb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ec 48ff       |H   |		Short_Literal	0xff
02ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ee 00db       |    |		Load_Top	At_Offset_3
02ef e5fe       |    |		Load	0x2,-0x2
02f0 4604       |F   |		Jump_Case	0x5
02f1 7808       |x   |		Jump	0x2fa								; case 0x0
02f2 7803       |x   |		Jump	0x2f6								; case 0x1
02f3 7806       |x   |		Jump	0x2fa								; case 0x2
02f4 7803       |x   |		Jump	0x2f8								; case 0x3
02f5 7800       |x   |		Jump	0x2f6								; case 0x4
02f6 4801       |H   |		Short_Literal	0x1
02f7 7803       |x   |		Jump	0x2fb
02f8 4802       |H   |		Short_Literal	0x2
02f9 7801       |x   |		Jump	0x2fb
02fa 48ff       |H   |		Short_Literal	0xff
02fb e5ff       |    |		Load	0x2,-0x1
02fc 031b       |    |		Declare_Type	Variant_Record,Constrained
02fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02fe 00db       |    |		Load_Top	At_Offset_3
02ff e5fe       |    |		Load	0x2,-0x2
0300 e5ff       |    |		Load	0x2,-0x1
0301 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0302 e5ff       |    |		Load	0x2,-0x1
0303 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0304 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0305 0869       | i  |		Execute_Immediate	Raise,0x69
0306 0000 0000  |    |		.XXX[0x2]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b       |    |		.CONST	0x030b								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0001       |    |		.CONST	0x0001								; Number of locals
030b			BODY_0308:
030b			INIT_0308:
030b 00d1       |    |		Pop_Control	Pop_Count_1
030c 00da       |    |		Load_Top	At_Offset_2
030d 01d8       |    |		Execute	Vector,Element_Type
030e 02ff       |    |		Declare_Variable	Variant_Record
030f 00d8       |    |		Load_Top	At_Offset_0
0310 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0311 00db       |    |		Load_Top	At_Offset_3
0312 01dc       |    |		Execute	Vector,Last
0313 e5ff       |    |		Load	0x2,-0x1
0314 01dd       |    |		Execute	Vector,First
0315 0263       | c  |		Execute	Discrete,Above_Bound
0316 7006       |p   |		Jump_Nonzero	0x31d
0317 00da       |    |		Load_Top	At_Offset_2
0318 00d9       |    |		Load_Top	At_Offset_1
0319 e5ff       |    |		Load	0x2,-0x1
031a 01d6       |    |		Execute	Vector,Field_Write
031b 0a01       |    |		Execute_Immediate	Plus,0x1
031c 7ff8       |    |		Jump	0x315
031d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
031e 0000 0000  |    |		.XXX[0x2]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 00da       |    |		Load_Top	At_Offset_2
0324 6816       |h   |		Jump_Zero	0x33b
0325 4829       |H)  |		Short_Literal	0x29
0326 482e       |H.  |		Short_Literal	0x2e
0327 0092 0626  |   &|		Action	Push_String_Extended,0x626					; "session "
0329 e5ff       |    |		Load	0x2,-0x1
032a 00e0       |    |		Load_Encached	Standard_Cache
032b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
032c 01cc       |    |		Execute	Vector,Catenate
032d 0092 0627  |   '|		Action	Push_String_Extended,0x627					; " ("
032f 01cc       |    |		Execute	Vector,Catenate
0330 e5ff       |    |		Load	0x2,-0x1
0331 e01d       |    |		Load	0x0,0x1d
0332 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0333 01cc       |    |		Execute	Vector,Catenate
0334 01cb       |    |		Execute	Vector,Append
0335 e5ff       |    |		Load	0x2,-0x1
0336 e01d       |    |		Load	0x0,0x1d
0337 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0338 01cc       |    |		Execute	Vector,Catenate
0339 01cb       |    |		Execute	Vector,Append
033a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
033b 0092 0628  |   (|		Action	Push_String_Extended,0x628					; "No Session"
033d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
033e 0000 0000  |    |		.XXX[0x2]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0345       | E  |		.CONST	0x0345								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0002       |    |		.CONST	0x0002								; Number of locals
0343			INIT_0340:
0343 e002       |    |		Load	0x0,0x2
0344 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0345			BODY_0340:
0345 00cf       |    |		Action	Mark_Auxiliary
0346 e5ff       |    |		Load	0x2,-0x1
0347 0219       |    |		Execute	Heap_Access,All_Read
0348 e002       |    |		Load	0x0,0x2
0349 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
034a 00d9       |    |		Load_Top	At_Offset_1
034b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
034c e002       |    |		Load	0x0,0x2
034d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
034e 00da       |    |		Load_Top	At_Offset_2
034f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0350 005b       | [  |		Store_Top	Discrete,At_Offset_3
0351 00d1       |    |		Pop_Control	Pop_Count_1
0352 00d9       |    |		Load_Top	At_Offset_1
0353 6803       |h   |		Jump_Zero	0x357
0354 00d9       |    |		Load_Top	At_Offset_1
0355 0f05       |    |		Execute_Immediate	Equal,0x5
0356 6801       |h   |		Jump_Zero	0x358
0357 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0358 00d9       |    |		Load_Top	At_Offset_1
0359 0f01       |    |		Execute_Immediate	Equal,0x1
035a 680d       |h   |		Jump_Zero	0x368
035b e5ff       |    |		Load	0x2,-0x1
035c 0219       |    |		Execute	Heap_Access,All_Read
035d e002       |    |		Load	0x0,0x2
035e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
035f 00d9       |    |		Load_Top	At_Offset_1
0360 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0361 e002       |    |		Load	0x0,0x2
0362 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0363 00da       |    |		Load_Top	At_Offset_2
0364 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0365 005b       | [  |		Store_Top	Discrete,At_Offset_3
0366 00d1       |    |		Pop_Control	Pop_Count_1
0367 7808       |x   |		Jump	0x370
0368 00d9       |    |		Load_Top	At_Offset_1
0369 0f02       |    |		Execute_Immediate	Equal,0x2
036a 6801       |h   |		Jump_Zero	0x36c
036b 7804       |x   |		Jump	0x370
036c 0092 0629  |   )|		Action	Push_String_Extended,0x629					; "Unexpected status from Semaphore.acquire for read"
036e 4800       |H   |		Short_Literal	0x0
036f 8014       |    |		Call	0x0,0x14
0370 00c9       |    |		Action	Pop_Auxiliary_Loop
0371 7fd4       |    |		Jump	0x346
0372 0000 0000  |    |		.BLANK	0000[0x6]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037d       | }  |		.CONST	0x037d								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0002       |    |		.CONST	0x0002								; Number of locals
037b			INIT_0378:
037b e002       |    |		Load	0x0,0x2
037c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
037d			BODY_0378:
037d 00cf       |    |		Action	Mark_Auxiliary
037e e5ff       |    |		Load	0x2,-0x1
037f 0219       |    |		Execute	Heap_Access,All_Read
0380 e002       |    |		Load	0x0,0x2
0381 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0382 00d9       |    |		Load_Top	At_Offset_1
0383 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0384 e002       |    |		Load	0x0,0x2
0385 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0386 00da       |    |		Load_Top	At_Offset_2
0387 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0388 005b       | [  |		Store_Top	Discrete,At_Offset_3
0389 00d1       |    |		Pop_Control	Pop_Count_1
038a 00d9       |    |		Load_Top	At_Offset_1
038b 6803       |h   |		Jump_Zero	0x38f
038c 00d9       |    |		Load_Top	At_Offset_1
038d 0f05       |    |		Execute_Immediate	Equal,0x5
038e 6801       |h   |		Jump_Zero	0x390
038f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0390 00d9       |    |		Load_Top	At_Offset_1
0391 0f01       |    |		Execute_Immediate	Equal,0x1
0392 680d       |h   |		Jump_Zero	0x3a0
0393 e5ff       |    |		Load	0x2,-0x1
0394 0219       |    |		Execute	Heap_Access,All_Read
0395 e002       |    |		Load	0x0,0x2
0396 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0397 00d9       |    |		Load_Top	At_Offset_1
0398 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0399 e002       |    |		Load	0x0,0x2
039a 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
039b 00da       |    |		Load_Top	At_Offset_2
039c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
039d 005b       | [  |		Store_Top	Discrete,At_Offset_3
039e 00d1       |    |		Pop_Control	Pop_Count_1
039f 7808       |x   |		Jump	0x3a8
03a0 00d9       |    |		Load_Top	At_Offset_1
03a1 0f02       |    |		Execute_Immediate	Equal,0x2
03a2 6801       |h   |		Jump_Zero	0x3a4
03a3 7804       |x   |		Jump	0x3a8
03a4 0092 062a  |   *|		Action	Push_String_Extended,0x62a					; "Unexpected status from Semaphore acquire for write"
03a6 4800       |H   |		Short_Literal	0x0
03a7 8014       |    |		Call	0x0,0x14
03a8 00c9       |    |		Action	Pop_Auxiliary_Loop
03a9 7fd4       |    |		Jump	0x37e
03aa 0000 0000  |    |		.BLANK	0000[0x6]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b5       |    |		.CONST	0x03b5								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0002       |    |		.CONST	0x0002								; Number of locals
03b3			INIT_03b0:
03b3 e002       |    |		Load	0x0,0x2
03b4 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
03b5			BODY_03b0:
03b5 00db       |    |		Load_Top	At_Offset_3
03b6 0219       |    |		Execute	Heap_Access,All_Read
03b7 e002       |    |		Load	0x0,0x2
03b8 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
03b9 00d9       |    |		Load_Top	At_Offset_1
03ba 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03bb e002       |    |		Load	0x0,0x2
03bc 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
03bd 00da       |    |		Load_Top	At_Offset_2
03be 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03bf 005a       | Z  |		Store_Top	Discrete,At_Offset_2
03c0 00d1       |    |		Pop_Control	Pop_Count_1
03c1 00d8       |    |		Load_Top	At_Offset_0
03c2 0f03       |    |		Execute_Immediate	Equal,0x3
03c3 6804       |h   |		Jump_Zero	0x3c8
03c4 0092 062b  |   +|		Action	Push_String_Extended,0x62b					; "Semaphore convert to write, but not owner"
03c6 4800       |H   |		Short_Literal	0x0
03c7 8014       |    |		Call	0x0,0x14
03c8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03c9 0000 0000  |    |		.BLANK	0000[0x7]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3       |    |		.CONST	0x03d3								; Address of begin
03d1 03fd       |    |		.CONST	0x03fd								; Address of exception handler
03d2 0001       |    |		.CONST	0x0001								; Number of locals
03d3			BODY_03d0:
03d3			INIT_03d0:
03d3 00cf       |    |		Action	Mark_Auxiliary
03d4 00e1       |    |		Load_Encached	Boolean_Cache
03d5 0265       | e  |		Execute	Discrete,Reverse_Bounds
03d6 0007       |    |		Action	Break_Optional
03d7 e5fe       |    |		Load	0x2,-0x2
03d8 4801       |H   |		Short_Literal	0x1
03d9 6036       |`6  |		Indirect_Literal	Discrete,0x410,{0x00000000, 0x00028000}
03da e5ff       |    |		Load	0x2,-0x1
03db e222       | "  |		Load	0x1,0x22
03dc 01d5       |    |		Execute	Vector,Field_Reference
03dd 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03de 0229       | )  |		Execute	Access,All_Read
03df 1519       |    |		Execute	Task,Timed_Call,Field_Number 0x19
03e0 4601       |F   |		Jump_Case	0x2
03e1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x0
03e2 7800       |x   |		Jump	0x3e3								; case 0x1
03e3 0092 062c  |   ,|		Action	Push_String_Extended,0x62c					; "Worker in slot "
03e5 e5ff       |    |		Load	0x2,-0x1
03e6 00e0       |    |		Load_Encached	Standard_Cache
03e7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03e8 01cc       |    |		Execute	Vector,Catenate
03e9 0092 062d  |   -|		Action	Push_String_Extended,0x62d					; " not responding"
03eb 01cc       |    |		Execute	Vector,Catenate
03ec e01c       |    |		Load	0x0,0x1c
03ed 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
03ee 00c8       |    |		Action	Pop_Auxiliary_Range
03ef 3fe7       |?   |		Loop_Increasing	0x3d7
03f0 00ce       |    |		Action	Pop_Auxiliary
03f1 0092 062c  |   ,|		Action	Push_String_Extended,0x62c					; "Worker in slot "
03f3 00db       |    |		Load_Top	At_Offset_3
03f4 00e0       |    |		Load_Encached	Standard_Cache
03f5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03f6 01cc       |    |		Execute	Vector,Catenate
03f7 0092 062e  |   .|		Action	Push_String_Extended,0x62e					; " did not accept call to show information"
03f9 01cc       |    |		Execute	Vector,Catenate
03fa e01c       |    |		Load	0x0,0x1c
03fb 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
03fc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03fd			TRAP_03d0:
03fd 010a       |    |		Execute	Exception,Is_Tasking_Error
03fe 680e       |h   |		Jump_Zero	0x40d
03ff 0092 062f  |   /|		Action	Push_String_Extended,0x62f					; "Got Tasking_Error calling worker in slot "
0401 e5ff       |    |		Load	0x2,-0x1
0402 00e0       |    |		Load_Encached	Standard_Cache
0403 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0404 01cc       |    |		Execute	Vector,Catenate
0405 e01c       |    |		Load	0x0,0x1c
0406 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0407 4800       |H   |		Short_Literal	0x0
0408 e5ff       |    |		Load	0x2,-0x1
0409 4802       |H   |		Short_Literal	0x2
040a e223       | #  |		Load	0x1,0x23
040b 1713       |    |		Execute	Task,Entry_Call,Field_Number 0x13
040c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
040d 0100       |    |		Execute	Exception,Raise
040e 0000 0000  |    |		.XXX[0x2]
0410 0000 0000  |    |		.LITERAL	{0x00000000, 0x00028000}
0414 0000 0000  |    |		.BLANK	0000[0x4]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			INIT_0418:
041b 00da       |    |		Load_Top	At_Offset_2
041c e5fe       |    |		Load	0x2,-0x2
041d 01d7       |    |		Execute	Vector,Field_Read
041e 0a01       |    |		Execute_Immediate	Plus,0x1
041f 00db       |    |		Load_Top	At_Offset_3
0420 e5fe       |    |		Load	0x2,-0x2
0421 01d6       |    |		Execute	Vector,Field_Write
0422 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0423 0000 0000  |    |		.BLANK	0000[0x5]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b 00da       |    |		Load_Top	At_Offset_2
042c e5fe       |    |		Load	0x2,-0x2
042d 01d7       |    |		Execute	Vector,Field_Read
042e 0aff       |    |		Execute_Immediate	Plus,-0x1
042f 00db       |    |		Load_Top	At_Offset_3
0430 e5fe       |    |		Load	0x2,-0x2
0431 01d6       |    |		Execute	Vector,Field_Write
0432 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0433 0000 0000  |    |		.BLANK	0000[0x5]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043d       | =  |		.CONST	0x043d								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0002       |    |		.CONST	0x0002								; Number of locals
043b			INIT_0438:
043b 00e3       |    |		Load_Encached	Natural_Cache
043c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
043d			BODY_0438:
043d 00cf       |    |		Action	Mark_Auxiliary
043e e004       |    |		Load	0x0,0x4
043f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0440 0265       | e  |		Execute	Discrete,Reverse_Bounds
0441 0007       |    |		Action	Break_Optional
0442 00db       |    |		Load_Top	At_Offset_3
0443 00d9       |    |		Load_Top	At_Offset_1
0444 e5ff       |    |		Load	0x2,-0x1
0445 01d7       |    |		Execute	Vector,Field_Read
0446 0273       | s  |		Execute	Discrete,Plus
0447 c402       |    |		Store	0x2,0x2
0448 00c8       |    |		Action	Pop_Auxiliary_Range
0449 3ff8       |?   |		Loop_Increasing	0x442
044a 00ce       |    |		Action	Pop_Auxiliary
044b 00d8       |    |		Load_Top	At_Offset_0
044c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
044d 0000 0000  |    |		.XXX[0x3]
044f 0000       |    |
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0455       | U  |		.CONST	0x0455								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0002       |    |		.CONST	0x0002								; Number of locals
0453			INIT_0450:
0453 e002       |    |		Load	0x0,0x2
0454 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0455			BODY_0450:
0455 00db       |    |		Load_Top	At_Offset_3
0456 0219       |    |		Execute	Heap_Access,All_Read
0457 e002       |    |		Load	0x0,0x2
0458 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0459 00d9       |    |		Load_Top	At_Offset_1
045a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
045b 4800       |H   |		Short_Literal	0x0
045c e002       |    |		Load	0x0,0x2
045d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
045e 00da       |    |		Load_Top	At_Offset_2
045f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0460 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0461 00d1       |    |		Pop_Control	Pop_Count_1
0462 00d8       |    |		Load_Top	At_Offset_0
0463 0f01       |    |		Execute_Immediate	Equal,0x1
0464 680c       |h   |		Jump_Zero	0x471
0465 00db       |    |		Load_Top	At_Offset_3
0466 0219       |    |		Execute	Heap_Access,All_Read
0467 e002       |    |		Load	0x0,0x2
0468 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0469 00d9       |    |		Load_Top	At_Offset_1
046a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
046b e002       |    |		Load	0x0,0x2
046c 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
046d 00da       |    |		Load_Top	At_Offset_2
046e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
046f 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0470 00d1       |    |		Pop_Control	Pop_Count_1
0471 00d8       |    |		Load_Top	At_Offset_0
0472 0f00       |    |		Execute_Immediate	Equal,0x0
0473 a5fe       |    |		Store_Unchecked	0x2,-0x2
0474 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0475 0000 0000  |    |		.XXX[0x3]
0477 0000       |    |
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 0480       |    |		.CONST	0x0480								; Address of begin
0479 0004       |    |		.CONST	0x0004								; Address of exception handler
047a 0002       |    |		.CONST	0x0002								; Number of locals
047b			INIT_0478:
047b e01e       |    |		Load	0x0,0x1e
047c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
047d 02c7       |    |		Declare_Variable	Any
047e 00d8       |    |		Load_Top	At_Offset_0
047f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0480			BODY_0478:
0480 00d8       |    |		Load_Top	At_Offset_0
0481 0120       |    |		Execute	Any,Is_Value
0482 6803       |h   |		Jump_Zero	0x486
0483 e017       |    |		Load	0x0,0x17
0484 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
0485 7801       |x   |		Jump	0x487
0486 00d8       |    |		Load_Top	At_Offset_0
0487 e5ff       |    |		Load	0x2,-0x1
0488 e017       |    |		Load	0x0,0x17
0489 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
048a c402       |    |		Store	0x2,0x2
048b 00db       |    |		Load_Top	At_Offset_3
048c e017       |    |		Load	0x0,0x17
048d 1859       | Y  |		Execute	Package,Field_Execute,Field_Number 0x59
048e c5ff       |    |		Store	0x2,-0x1
048f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493       |    |		.CONST	0x0493								; Address of begin
0491 04ab       |    |		.CONST	0x04ab								; Address of exception handler
0492 0001       |    |		.CONST	0x0001								; Number of locals
0493			BODY_0490:
0493			INIT_0490:
0493 4802       |H   |		Short_Literal	0x2
0494 a408       |    |		Store_Unchecked	0x2,0x8
0495 e405       |    |		Load	0x2,0x5
0496 e012       |    |		Load	0x0,0x12
0497 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0498 a406       |    |		Store_Unchecked	0x2,0x6
0499 4803       |H   |		Short_Literal	0x3
049a a408       |    |		Store_Unchecked	0x2,0x8
049b e406       |    |		Load	0x2,0x6
049c e403       |    |		Load	0x2,0x3
049d 027f       |    |		Execute	Discrete,Equal
049e 7009       |p   |		Jump_Nonzero	0x4a8
049f e406       |    |		Load	0x2,0x6
04a0 e012       |    |		Load	0x0,0x12
04a1 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
04a2 0f01       |    |		Execute_Immediate	Equal,0x1
04a3 7004       |p   |		Jump_Nonzero	0x4a8
04a4 4800       |H   |		Short_Literal	0x0
04a5 a402       |    |		Store_Unchecked	0x2,0x2
04a6 4804       |H   |		Short_Literal	0x4
04a7 a408       |    |		Store_Unchecked	0x2,0x8
04a8 4805       |H   |		Short_Literal	0x5
04a9 a408       |    |		Store_Unchecked	0x2,0x8
04aa 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04ab			TRAP_0490:
04ab e012       |    |		Load	0x0,0x12
04ac 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
04ad 010f       |    |		Execute	Exception,Equal
04ae 6801       |h   |		Jump_Zero	0x4b0
04af 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04b0 0100       |    |		Execute	Exception,Raise
04b1 0000 0000  |    |		.BLANK	0000[0x7]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04e6       |    |		.CONST	0x04e6								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0017       |    |		.CONST	0x0017								; Number of locals
04bb			INIT_04b8:
04bb 029a 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Outer_Call,Visible,Unelaborated
04bd 029a 050b  |    |		Declare_Subprogram	INIT_0508,For_Outer_Call,Visible,Unelaborated
04bf 029a 052b  |   +|		Declare_Subprogram	INIT_0528,For_Outer_Call,Visible,Unelaborated
04c1 029a 054b  |   K|		Declare_Subprogram	INIT_0548,For_Outer_Call,Visible,Unelaborated
04c3 029a 056b  |   k|		Declare_Subprogram	INIT_0568,For_Outer_Call,Visible,Unelaborated
04c5 029a 0583  |    |		Declare_Subprogram	INIT_0580,For_Outer_Call,Visible,Unelaborated
04c7 029a 059b  |    |		Declare_Subprogram	INIT_0598,For_Outer_Call,Visible,Unelaborated
04c9 029a 05b3  |    |		Declare_Subprogram	INIT_05b0,For_Outer_Call,Visible,Unelaborated
04cb 029a 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Outer_Call,Visible,Unelaborated
04cd 029a 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Outer_Call,Visible,Unelaborated
04cf 00bf       |    |		Action	Accept_Activation
04d0 029d 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call
04d2 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
04d3 00c7       |    |		Action	Elaborate_Subprogram
04d4 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
04d5 00c7       |    |		Action	Elaborate_Subprogram
04d6 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
04d7 00c7       |    |		Action	Elaborate_Subprogram
04d8 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
04d9 00c7       |    |		Action	Elaborate_Subprogram
04da 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
04db 00c7       |    |		Action	Elaborate_Subprogram
04dc 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
04dd 00c7       |    |		Action	Elaborate_Subprogram
04de 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
04df 00c7       |    |		Action	Elaborate_Subprogram
04e0 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
04e1 00c7       |    |		Action	Elaborate_Subprogram
04e2 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
04e3 00c7       |    |		Action	Elaborate_Subprogram
04e4 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
04e5 00c7       |    |		Action	Elaborate_Subprogram
04e6			BODY_04b8:
04e6 00bc       |    |		Action	Signal_Activated
04e7 00bb       |    |		Action	Signal_Completion
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb       |    |		.CONST	0x04eb								; Address of begin
04e9 04fe       |    |		.CONST	0x04fe								; Address of exception handler
04ea 0001       |    |		.CONST	0x0001								; Number of locals
04eb			BODY_04e8:
04eb			INIT_04e8:
04eb e5fb       |    |		Load	0x2,-0x5
04ec 00e1       |    |		Load_Encached	Boolean_Cache
04ed e5fe       |    |		Load	0x2,-0x2
04ee e5fd       |    |		Load	0x2,-0x3
04ef 0217       |    |		Execute	Heap_Access,All_Reference
04f0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04f1 e5ff       |    |		Load	0x2,-0x1
04f2 4805       |H   |		Short_Literal	0x5
04f3 e5fd       |    |		Load	0x2,-0x3
04f4 0217       |    |		Execute	Heap_Access,All_Reference
04f5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04f6 e001       |    |		Load	0x0,0x1
04f7 01d5       |    |		Execute	Vector,Field_Reference
04f8 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04f9 0229       | )  |		Execute	Access,All_Read
04fa 170f       |    |		Execute	Task,Entry_Call,Field_Number 0xf
04fb c5fc       |    |		Store	0x2,-0x4
04fc c5fb       |    |		Store	0x2,-0x5
04fd 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04fe			TRAP_04e8:
04fe 010a       |    |		Execute	Exception,Is_Tasking_Error
04ff 6803       |h   |		Jump_Zero	0x503
0500 e5fd       |    |		Load	0x2,-0x3
0501 8217       |    |		Call	0x1,0x17
0502 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0503 0100       |    |		Execute	Exception,Raise
0504 0000 0000  |    |		.BLANK	0000[0x4]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b       |    |		.CONST	0x050b								; Address of begin
0509 051b       |    |		.CONST	0x051b								; Address of exception handler
050a 0001       |    |		.CONST	0x0001								; Number of locals
050b			BODY_0508:
050b			INIT_0508:
050b e5fd       |    |		Load	0x2,-0x3
050c 00db       |    |		Load_Top	At_Offset_3
050d e5fe       |    |		Load	0x2,-0x2
050e 0217       |    |		Execute	Heap_Access,All_Reference
050f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0510 4803       |H   |		Short_Literal	0x3
0511 e5fe       |    |		Load	0x2,-0x2
0512 0217       |    |		Execute	Heap_Access,All_Reference
0513 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0514 e001       |    |		Load	0x0,0x1
0515 01d5       |    |		Execute	Vector,Field_Reference
0516 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0517 0229       | )  |		Execute	Access,All_Read
0518 1710       |    |		Execute	Task,Entry_Call,Field_Number 0x10
0519 c5fd       |    |		Store	0x2,-0x3
051a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
051b			TRAP_0508:
051b 010a       |    |		Execute	Exception,Is_Tasking_Error
051c 6803       |h   |		Jump_Zero	0x520
051d e5fe       |    |		Load	0x2,-0x2
051e 8217       |    |		Call	0x1,0x17
051f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0520 0100       |    |		Execute	Exception,Raise
0521 0000 0000  |    |		.BLANK	0000[0x7]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b       | +  |		.CONST	0x052b								; Address of begin
0529 053b       | ;  |		.CONST	0x053b								; Address of exception handler
052a 0001       |    |		.CONST	0x0001								; Number of locals
052b			BODY_0528:
052b			INIT_0528:
052b e5fd       |    |		Load	0x2,-0x3
052c 00db       |    |		Load_Top	At_Offset_3
052d e5fe       |    |		Load	0x2,-0x2
052e 0217       |    |		Execute	Heap_Access,All_Reference
052f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0530 4803       |H   |		Short_Literal	0x3
0531 e5fe       |    |		Load	0x2,-0x2
0532 0217       |    |		Execute	Heap_Access,All_Reference
0533 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0534 e001       |    |		Load	0x0,0x1
0535 01d5       |    |		Execute	Vector,Field_Reference
0536 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0537 0229       | )  |		Execute	Access,All_Read
0538 1711       |    |		Execute	Task,Entry_Call,Field_Number 0x11
0539 c5fd       |    |		Store	0x2,-0x3
053a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
053b			TRAP_0528:
053b 010a       |    |		Execute	Exception,Is_Tasking_Error
053c 6803       |h   |		Jump_Zero	0x540
053d e5fe       |    |		Load	0x2,-0x2
053e 8217       |    |		Call	0x1,0x17
053f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0540 0100       |    |		Execute	Exception,Raise
0541 0000 0000  |    |		.BLANK	0000[0x7]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054b       | K  |		.CONST	0x054b								; Address of begin
0549 055c       | \  |		.CONST	0x055c								; Address of exception handler
054a 0001       |    |		.CONST	0x0001								; Number of locals
054b			BODY_0548:
054b			INIT_0548:
054b e002       |    |		Load	0x0,0x2
054c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
054d 00db       |    |		Load_Top	At_Offset_3
054e e5fe       |    |		Load	0x2,-0x2
054f 0217       |    |		Execute	Heap_Access,All_Reference
0550 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0551 4803       |H   |		Short_Literal	0x3
0552 e5fe       |    |		Load	0x2,-0x2
0553 0217       |    |		Execute	Heap_Access,All_Reference
0554 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0555 e001       |    |		Load	0x0,0x1
0556 01d5       |    |		Execute	Vector,Field_Reference
0557 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0558 0229       | )  |		Execute	Access,All_Read
0559 1712       |    |		Execute	Task,Entry_Call,Field_Number 0x12
055a c5fd       |    |		Store	0x2,-0x3
055b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
055c			TRAP_0548:
055c 010a       |    |		Execute	Exception,Is_Tasking_Error
055d 6803       |h   |		Jump_Zero	0x561
055e e5fe       |    |		Load	0x2,-0x2
055f 8217       |    |		Call	0x1,0x17
0560 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0561 0100       |    |		Execute	Exception,Raise
0562 0000 0000  |    |		.BLANK	0000[0x6]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b       | k  |		.CONST	0x056b								; Address of begin
0569 0579       | y  |		.CONST	0x0579								; Address of exception handler
056a 0001       |    |		.CONST	0x0001								; Number of locals
056b			BODY_0568:
056b			INIT_0568:
056b 00da       |    |		Load_Top	At_Offset_2
056c e5fe       |    |		Load	0x2,-0x2
056d 0217       |    |		Execute	Heap_Access,All_Reference
056e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
056f 4802       |H   |		Short_Literal	0x2
0570 e5fe       |    |		Load	0x2,-0x2
0571 0217       |    |		Execute	Heap_Access,All_Reference
0572 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0573 e001       |    |		Load	0x0,0x1
0574 01d5       |    |		Execute	Vector,Field_Reference
0575 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0576 0229       | )  |		Execute	Access,All_Read
0577 1713       |    |		Execute	Task,Entry_Call,Field_Number 0x13
0578 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0579			TRAP_0568:
0579 010a       |    |		Execute	Exception,Is_Tasking_Error
057a 6803       |h   |		Jump_Zero	0x57e
057b e5fe       |    |		Load	0x2,-0x2
057c 8217       |    |		Call	0x1,0x17
057d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
057e 0100       |    |		Execute	Exception,Raise
057f 0000       |    |		.XXX[0x1]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583       |    |		.CONST	0x0583								; Address of begin
0581 0592       |    |		.CONST	0x0592								; Address of exception handler
0582 0001       |    |		.CONST	0x0001								; Number of locals
0583			BODY_0580:
0583			INIT_0580:
0583 00db       |    |		Load_Top	At_Offset_3
0584 00db       |    |		Load_Top	At_Offset_3
0585 e5fd       |    |		Load	0x2,-0x3
0586 0217       |    |		Execute	Heap_Access,All_Reference
0587 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0588 4803       |H   |		Short_Literal	0x3
0589 e5fd       |    |		Load	0x2,-0x3
058a 0217       |    |		Execute	Heap_Access,All_Reference
058b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
058c e001       |    |		Load	0x0,0x1
058d 01d5       |    |		Execute	Vector,Field_Reference
058e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
058f 0229       | )  |		Execute	Access,All_Read
0590 1714       |    |		Execute	Task,Entry_Call,Field_Number 0x14
0591 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0592			TRAP_0580:
0592 010a       |    |		Execute	Exception,Is_Tasking_Error
0593 6803       |h   |		Jump_Zero	0x597
0594 e5fd       |    |		Load	0x2,-0x3
0595 8217       |    |		Call	0x1,0x17
0596 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0597 0100       |    |		Execute	Exception,Raise
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059b       |    |		.CONST	0x059b								; Address of begin
0599 05a7       |    |		.CONST	0x05a7								; Address of exception handler
059a 0001       |    |		.CONST	0x0001								; Number of locals
059b			BODY_0598:
059b			INIT_0598:
059b 00db       |    |		Load_Top	At_Offset_3
059c 00db       |    |		Load_Top	At_Offset_3
059d 4802       |H   |		Short_Literal	0x2
059e e5fd       |    |		Load	0x2,-0x3
059f 0217       |    |		Execute	Heap_Access,All_Reference
05a0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05a1 e001       |    |		Load	0x0,0x1
05a2 01d5       |    |		Execute	Vector,Field_Reference
05a3 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05a4 0229       | )  |		Execute	Access,All_Read
05a5 1715       |    |		Execute	Task,Entry_Call,Field_Number 0x15
05a6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05a7			TRAP_0598:
05a7 010a       |    |		Execute	Exception,Is_Tasking_Error
05a8 6803       |h   |		Jump_Zero	0x5ac
05a9 e5fd       |    |		Load	0x2,-0x3
05aa 8217       |    |		Call	0x1,0x17
05ab 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05ac 0100       |    |		Execute	Exception,Raise
05ad 0000 0000  |    |		.XXX[0x3]
05af 0000       |    |
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3       |    |		.CONST	0x05b3								; Address of begin
05b1 05c0       |    |		.CONST	0x05c0								; Address of exception handler
05b2 0001       |    |		.CONST	0x0001								; Number of locals
05b3			BODY_05b0:
05b3			INIT_05b0:
05b3 e5fd       |    |		Load	0x2,-0x3
05b4 00db       |    |		Load_Top	At_Offset_3
05b5 4802       |H   |		Short_Literal	0x2
05b6 e5fe       |    |		Load	0x2,-0x2
05b7 0217       |    |		Execute	Heap_Access,All_Reference
05b8 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05b9 e001       |    |		Load	0x0,0x1
05ba 01d5       |    |		Execute	Vector,Field_Reference
05bb 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05bc 0229       | )  |		Execute	Access,All_Read
05bd 1716       |    |		Execute	Task,Entry_Call,Field_Number 0x16
05be c5fd       |    |		Store	0x2,-0x3
05bf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05c0			TRAP_05b0:
05c0 010a       |    |		Execute	Exception,Is_Tasking_Error
05c1 6803       |h   |		Jump_Zero	0x5c5
05c2 e5fe       |    |		Load	0x2,-0x2
05c3 8217       |    |		Call	0x1,0x17
05c4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05c5 0100       |    |		Execute	Exception,Raise
05c6 0000 0000  |    |		.XXX[0x2]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb       |    |		.CONST	0x05cb								; Address of begin
05c9 05d7       |    |		.CONST	0x05d7								; Address of exception handler
05ca 0001       |    |		.CONST	0x0001								; Number of locals
05cb			BODY_05c8:
05cb			INIT_05c8:
05cb 00db       |    |		Load_Top	At_Offset_3
05cc 4801       |H   |		Short_Literal	0x1
05cd e5ff       |    |		Load	0x2,-0x1
05ce 0217       |    |		Execute	Heap_Access,All_Reference
05cf 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05d0 e001       |    |		Load	0x0,0x1
05d1 01d5       |    |		Execute	Vector,Field_Reference
05d2 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05d3 0229       | )  |		Execute	Access,All_Read
05d4 1717       |    |		Execute	Task,Entry_Call,Field_Number 0x17
05d5 c5fe       |    |		Store	0x2,-0x2
05d6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05d7			TRAP_05c8:
05d7 010a       |    |		Execute	Exception,Is_Tasking_Error
05d8 6803       |h   |		Jump_Zero	0x5dc
05d9 00db       |    |		Load_Top	At_Offset_3
05da 8217       |    |		Call	0x1,0x17
05db 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05dc 0100       |    |		Execute	Exception,Raise
05dd 0000 0000  |    |		.XXX[0x3]
05df 0000       |    |
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3       |    |		.CONST	0x05e3								; Address of begin
05e1 05ef       |    |		.CONST	0x05ef								; Address of exception handler
05e2 0001       |    |		.CONST	0x0001								; Number of locals
05e3			BODY_05e0:
05e3			INIT_05e0:
05e3 00db       |    |		Load_Top	At_Offset_3
05e4 4801       |H   |		Short_Literal	0x1
05e5 e5ff       |    |		Load	0x2,-0x1
05e6 0217       |    |		Execute	Heap_Access,All_Reference
05e7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05e8 e001       |    |		Load	0x0,0x1
05e9 01d5       |    |		Execute	Vector,Field_Reference
05ea 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05eb 0229       | )  |		Execute	Access,All_Read
05ec 1718       |    |		Execute	Task,Entry_Call,Field_Number 0x18
05ed c5fe       |    |		Store	0x2,-0x2
05ee 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05ef			TRAP_05e0:
05ef 010a       |    |		Execute	Exception,Is_Tasking_Error
05f0 6803       |h   |		Jump_Zero	0x5f4
05f1 00db       |    |		Load_Top	At_Offset_3
05f2 8217       |    |		Call	0x1,0x17
05f3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05f4 0100       |    |		Execute	Exception,Raise
05f5 0000 0000  |    |		.XXX[0x3]
05f7 0000       |    |
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 0600       |    |		.CONST	0x0600								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0002       |    |		.CONST	0x0002								; Number of locals
05fb			INIT_05f8:
05fb e003       |    |		Load	0x0,0x3
05fc 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05fd e004       |    |		Load	0x0,0x4
05fe 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
05ff 03f1       |    |		Declare_Variable	Discrete,With_Value
0600			BODY_05f8:
0600 4807       |H   |		Short_Literal	0x7
0601 0092 0630  |   0|		Action	Push_String_Extended,0x630					; "Dead worker for session "
0603 00da       |    |		Load_Top	At_Offset_2
0604 00e0       |    |		Load_Encached	Standard_Cache
0605 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0606 01cc       |    |		Execute	Vector,Catenate
0607 4802       |H   |		Short_Literal	0x2
0608 e005       |    |		Load	0x0,0x5
0609 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
060a 4801       |H   |		Short_Literal	0x1
060b e5ff       |    |		Load	0x2,-0x1
060c 0217       |    |		Execute	Heap_Access,All_Reference
060d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
060e 4802       |H   |		Short_Literal	0x2
060f e006       |    |		Load	0x0,0x6
0610 1713       |    |		Execute	Task,Entry_Call,Field_Number 0x13
0611 4800       |H   |		Short_Literal	0x0
0612 e5ff       |    |		Load	0x2,-0x1
0613 0217       |    |		Execute	Heap_Access,All_Reference
0614 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0615 e007       |    |		Load	0x0,0x7
0616 0257       | W  |		Execute	Discrete,Raise
0617 ; --------------------------------------------------------------------------------------
0617 ; STRING TABLE
0617 ; --------------------------------------------------------------------------------------
0617 0036       | 6  |		.STRTAB	0x0036->0x0632							; "READ"
0618 0038       | 8  |		.STRTAB	0x0038->0x0634							; "WRITE"
0619 003b       | ;  |		.STRTAB	0x003b->0x0636							; "NOT_USED"
061a 0041       | A  |		.STRTAB	0x0041->0x063a							; "IN_USE"
061b 0045       | E  |		.STRTAB	0x0045->0x063d							; "CLEANING_UP"
061c 004e       | N  |		.STRTAB	0x004e->0x0643							; "QUIESCENT"
061d 0055       | U  |		.STRTAB	0x0055->0x0647							; "DEAD"
061e 0057       | W  |		.STRTAB	0x0057->0x0649							; "Semaphore release, but not owner"
061f 0075       | u  |		.STRTAB	0x0075->0x0659							; "Job "
0620 0077       | w  |		.STRTAB	0x0077->0x065b							; " is cleaning up for session "
0621 0091       |    |		.STRTAB	0x0091->0x0669							; "Exception checking destroyable for session "
0622 00ba       |    |		.STRTAB	0x00ba->0x067f							; " statement="
0623 00c3       |    |		.STRTAB	0x00c3->0x0684							; "No items are cached for "
0624 00d9       |    |		.STRTAB	0x00d9->0x0690							; "No sessions currently have cached items"
0625 00fe       |    |		.STRTAB	0x00fe->0x06a4							; "; unexpected exception "
0626 0113       |    |		.STRTAB	0x0113->0x06af							; "session "
0627 0119       |    |		.STRTAB	0x0119->0x06b3							; " ("
0628 0119       |    |		.STRTAB	0x0119->0x06b4							; "No Session"
0629 0121       | !  |		.STRTAB	0x0121->0x06b9							; "Unexpected status from Semaphore.acquire for read"
062a 0150       | P  |		.STRTAB	0x0150->0x06d2							; "Unexpected status from Semaphore acquire for write"
062b 0180       |    |		.STRTAB	0x0180->0x06eb							; "Semaphore convert to write, but not owner"
062c 01a7       |    |		.STRTAB	0x01a7->0x06ff							; "Worker in slot "
062d 01b4       |    |		.STRTAB	0x01b4->0x0707							; " not responding"
062e 01c1       |    |		.STRTAB	0x01c1->0x070e							; " did not accept call to show information"
062f 01e7       |    |		.STRTAB	0x01e7->0x0722							; "Got Tasking_Error calling worker in slot "
0630 020e       |    |		.STRTAB	0x020e->0x0737							; "Dead worker for session "
0631 0224       | $  |		.STREND 0x0224->0x0743
0632 5245 4144  |READ|		.STRTAB_STRINGS
0743 0000 0000  |    |		.BLANK	0000[0x5]
0748 ; --------------------------------------------------------------------------------------
0748 ; Debug Table
0748 ; --------------------------------------------------------------------------------------
0748 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xf45b,0x0000,0x0001,0x0000
074e 0000 0019  |    |		.XXX[0x13]
0750 50c0 0727  |P  '|
0752 5000 002c  |P  ,|
0754 97b0 0000  |    |
0756 0000 0000  |    |
0758 0001 dbf3  |    |
075a 10a0 0077  |   w|
075c 8e30 0000  | 0  |
075e 0000 0019  |    |
0760 48c0       |H   |
0761 0000 0000  |    |		.BLANK	0000[0x4]
0765 0393 a800  |    |		.XXX[0x4]
0767 0006 8650  |   P|
0769 0000 0000  |    |		.BLANK	0000[0x4]
076d edf9 8850  |   P|		.XXX[0x4]
076f 003b b2a0  | ;  |
0771 0000 0000  |    |		.BLANK	0000[0x8]
0779 01c9 d400  |    |		.XXX[0x4]
077b 000b 4e70  |  Np|
077d 0000 0000  |    |		.BLANK	0000[0x4]
0781 01c9 d400  |    |		.XXX[0x14]
0783 000b 25ec  |  % |
0785 0000 0000  |    |
0787 0006 5e38  |  ^8|
0789 01c9 d400  |    |
078b 000b 25ec  |  % |
078d 0000 0000  |    |
078f 0006 6438  |  d8|
0791 01c9 d400  |    |
0793 000b 4e70  |  Np|
0795 0000 0000  |    |		.BLANK	0000[0x4]
0799 76fc c428  |v  (|		.XXX[0x4]
079b 0001 80f8  |    |
079d 0000 0000  |    |		.BLANK	0000[0x6]
07a3 0006 9134  |   4|		.XXX[0x22]
07a5 0000 0004  |    |
07a7 0000 0000  |    |
07a9 0210 6800  |  h |
07ab 0030 5f78  | 0_x|
07ad 0000 0000  |    |
07af 000c d868  |   h|
07b1 0210 6800  |  h |
07b3 0030 9ec0  | 0  |
07b5 0000 0000  |    |
07b7 000c dc68  |   h|
07b9 0210 6800  |  h |
07bb 0030 de08  | 0  |
07bd 0000 0000  |    |
07bf 000c e068  |   h|
07c1 0210 6800  |  h |
07c3 0031 1d50  | 1 P|
07c5 0000 0000  |    |		.BLANK	0000[0x4]
07c9 0210 6800  |  h |		.XXX[0x1c]
07cb 0030 5f78  | 0_x|
07cd 0000 0000  |    |
07cf 000c e868  |   h|
07d1 0210 6800  |  h |
07d3 0030 9ec0  | 0  |
07d5 0000 0000  |    |
07d7 000c ec68  |   h|
07d9 0210 6800  |  h |
07db 0030 de08  | 0  |
07dd 0000 0000  |    |
07df 000c f068  |   h|
07e1 0210 6800  |  h |
07e3 0031 1d50  | 1 P|
07e5 0000 0000  |    |		.BLANK	0000[0x4]
07e9 0210 6800  |  h |		.XXX[0x6]
07eb 0005 7488  |  t |
07ed 0000 0014  |    |
07ef 0000 0000  |    |		.BLANK	0000[0x8]
07f7 3b7e 8214  |;~  |		.XXX[0x4]
07f9 0000 a674  |   t|
07fb 0000 0000  |    |		.BLANK	0000[0x4]
07ff 3b7e       |;~  |		.XXX[0x1]