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

⟦d320f485d⟧

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

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 0440       | @  |		.CONST	0x0440								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003f       | ?  |		.CONST	0x003f								; Address of begin
0009 004f       | O  |		.CONST	0x004f								; Address of exception handler
000a 001f       |    |		.CONST	0x001f								; Number of locals
000b			INIT_0008:
000b 4802       |H   |		Short_Literal	0x2
000c 02cb       |    |		Declare_Variable	Entry
000d 4801       |H   |		Short_Literal	0x1
000e 02cb       |    |		Declare_Variable	Entry
000f 4802       |H   |		Short_Literal	0x2
0010 02cb       |    |		Declare_Variable	Entry
0011 4803       |H   |		Short_Literal	0x3
0012 02cb       |    |		Declare_Variable	Entry
0013 4803       |H   |		Short_Literal	0x3
0014 02cb       |    |		Declare_Variable	Entry
0015 4801       |H   |		Short_Literal	0x1
0016 02cb       |    |		Declare_Variable	Entry
0017 4802       |H   |		Short_Literal	0x2
0018 02cb       |    |		Declare_Variable	Entry
0019 00bf       |    |		Action	Accept_Activation
001a e001       |    |		Load	0x0,0x1
001b 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
001c 029b 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Unelaborated
001e e002       |    |		Load	0x0,0x2
001f e003       |    |		Load	0x0,0x3
0020 e004       |    |		Load	0x0,0x4
0021 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0022 e005       |    |		Load	0x0,0x5
0023 e004       |    |		Load	0x0,0x4
0024 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0025 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0026 e006       |    |		Load	0x0,0x6
0027 0387       |    |		Declare_Variable	Package
0028 00d8       |    |		Load_Top	At_Offset_0
0029 020f       |    |		Execute	Module,Activate
002a 00d8       |    |		Load_Top	At_Offset_0
002b 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
002c 00e1       |    |		Load_Encached	Boolean_Cache
002d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
002e e005       |    |		Load	0x0,0x5
002f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0030 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0031 00c7       |    |		Action	Elaborate_Subprogram
0032 029d 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call
0034 029d 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call
0036 029d 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call
0038 029d 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call
003a 029d 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call
003c 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call
003e 00bc       |    |		Action	Signal_Activated
003f			BODY_0008:
003f e001       |    |		Load	0x0,0x1
0040 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0041 4864       |Hd  |		Short_Literal	0x64
0042 e007       |    |		Load	0x0,0x7
0043 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0044 c214       |    |		Store	0x1,0x14
0045 e216       |    |		Load	0x1,0x16
0046 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0047 e214       |    |		Load	0x1,0x14
0048 e216       |    |		Load	0x1,0x16
0049 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
004a c217       |    |		Store	0x1,0x17
004b 00cf       |    |		Action	Mark_Auxiliary
004c 821f       |    |		Call	0x1,0x1f
004d 00c9       |    |		Action	Pop_Auxiliary_Loop
004e 7ffd       |    |		Jump	0x4c
004f			TRAP_0008:
004f 0007       |    |		Action	Break_Optional
0050 4808       |H   |		Short_Literal	0x8
0051 0092 032f  |   /|		Action	Push_String_Extended,0x32f					; "Unexpected exception "
0053 8008       |    |		Call	0x0,0x8
0054 01cc       |    |		Execute	Vector,Catenate
0055 0092 0330  |   0|		Action	Push_String_Extended,0x330					; " causing death of the Controller"
0057 01cc       |    |		Execute	Vector,Catenate
0058 4802       |H   |		Short_Literal	0x2
0059 e009       |    |		Load	0x0,0x9
005a 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
005b e214       |    |		Load	0x1,0x14
005c e007       |    |		Load	0x0,0x7
005d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
005e 00bb       |    |		Action	Signal_Completion
005f 0000       |    |		.XXX[0x1]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 00da       |    |		Load_Top	At_Offset_2
0064 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0065 0000 0000  |    |		.XXX[0x3]
0067 0000       |    |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b 00da       |    |		Load_Top	At_Offset_2
006c 0a25       | %  |		Execute_Immediate	Plus,0x25
006d 48ff       |H   |		Short_Literal	0xff
006e 026e       | n  |		Execute	Discrete,Modulo
006f 00d8       |    |		Load_Top	At_Offset_0
0070 e005       |    |		Load	0x0,0x5
0071 0260       | `  |		Execute	Discrete,In_Type
0072 7001       |p   |		Jump_Nonzero	0x74
0073 0801       |    |		Execute_Immediate	Raise,0x1
0074 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0075 0000 0000  |    |		.XXX[0x3]
0077 0000       |    |
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0081       |    |		.CONST	0x0081								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0002       |    |		.CONST	0x0002								; Number of locals
007b			INIT_0078:
007b 00da       |    |		Load_Top	At_Offset_2
007c e00a       |    |		Load	0x0,0xa
007d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
007e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
007f e005       |    |		Load	0x0,0x5
0080 03f1       |    |		Declare_Variable	Discrete,With_Value
0081			BODY_0078:
0081 00cf       |    |		Action	Mark_Auxiliary
0082 7804       |x   |		Jump	0x87
0083 00d9       |    |		Load_Top	At_Offset_1
0084 821a       |    |		Call	0x1,0x1a
0085 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0086 00c9       |    |		Action	Pop_Auxiliary_Loop
0087 00d9       |    |		Load_Top	At_Offset_1
0088 e00b       |    |		Load	0x0,0xb
0089 01d5       |    |		Execute	Vector,Field_Reference
008a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
008b 77f7       |w   |		Jump_Nonzero	0x83
008c 00ce       |    |		Action	Pop_Auxiliary
008d 00d8       |    |		Load_Top	At_Offset_0
008e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
008f 0000       |    |		.XXX[0x1]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 4807       |H   |		Short_Literal	0x7
0094 4820       |H   |		Short_Literal	0x20
0095 0092 0331  |   1|		Action	Push_String_Extended,0x331					; "Got unexpected exception "
0097 8008       |    |		Call	0x0,0x8
0098 01cc       |    |		Execute	Vector,Catenate
0099 01cb       |    |		Execute	Vector,Append
009a e5fe       |    |		Load	0x2,-0x2
009b 01cc       |    |		Execute	Vector,Catenate
009c 0092 0332  |   2|		Action	Push_String_Extended,0x332					; " for "
009e 01cc       |    |		Execute	Vector,Catenate
009f e5ff       |    |		Load	0x2,-0x1
00a0 800c       |    |		Call	0x0,0xc
00a1 01cc       |    |		Execute	Vector,Catenate
00a2 0092 0333  |   3|		Action	Push_String_Extended,0x333					; "; the Corrupt_State exception will be raised"
00a4 01cc       |    |		Execute	Vector,Catenate
00a5 4802       |H   |		Short_Literal	0x2
00a6 e009       |    |		Load	0x0,0x9
00a7 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
00a8 e00d       |    |		Load	0x0,0xd
00a9 0257       | W  |		Execute	Discrete,Raise
00aa 0000 0000  |    |		.BLANK	0000[0x6]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0103       |    |		.CONST	0x0103								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 00db       |    |		Load_Top	At_Offset_3
00b4 6813       |h   |		Jump_Zero	0xc8
00b5 4807       |H   |		Short_Literal	0x7
00b6 0092 0334  |   4|		Action	Push_String_Extended,0x334					; "Killing non-responsive worker for "
00b8 e5ff       |    |		Load	0x2,-0x1
00b9 800c       |    |		Call	0x0,0xc
00ba 01cc       |    |		Execute	Vector,Catenate
00bb 4802       |H   |		Short_Literal	0x2
00bc e009       |    |		Load	0x0,0x9
00bd 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
00be e5fd       |    |		Load	0x2,-0x3
00bf 0229       | )  |		Execute	Access,All_Read
00c0 0209       |    |		Execute	Task,Abort
00c1 0007       |    |		Action	Break_Optional
00c2 e00e       |    |		Load	0x0,0xe
00c3 03bc       |    |		Declare_Variable	Access,By_Allocation
00c4 00d8       |    |		Load_Top	At_Offset_0
00c5 00e0       |    |		Load_Encached	Standard_Cache
00c6 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00c7 a5fd       |    |		Store_Unchecked	0x2,-0x3
00c8 00cf       |    |		Action	Mark_Auxiliary
00c9 00e1       |    |		Load_Encached	Boolean_Cache
00ca 0265       | e  |		Execute	Discrete,Reverse_Bounds
00cb 0007       |    |		Action	Break_Optional
00cc e00f       |    |		Load	0x0,0xf
00cd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ce e5ff       |    |		Load	0x2,-0x1
00cf 4802       |H   |		Short_Literal	0x2
00d0 6057       |`W  |		Indirect_Literal	Discrete,0x128,{0x00000000, 0x000f0000}
00d1 e5fd       |    |		Load	0x2,-0x3
00d2 0229       | )  |		Execute	Access,All_Read
00d3 150d       |    |		Execute	Task,Timed_Call,Field_Number 0xd
00d4 4601       |F   |		Jump_Case	0x2
00d5 7801       |x   |		Jump	0xd7								; case 0x0
00d6 7802       |x   |		Jump	0xd9								; case 0x1
00d7 c5fc       |    |		Store	0x2,-0x4
00d8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00d9 00d8       |    |		Load_Top	At_Offset_0
00da 700c       |p   |		Jump_Nonzero	0xe7
00db 4806       |H   |		Short_Literal	0x6
00dc 0092 0335  |   5|		Action	Push_String_Extended,0x335					; "Worker for "
00de e5ff       |    |		Load	0x2,-0x1
00df 800c       |    |		Call	0x0,0xc
00e0 01cc       |    |		Execute	Vector,Catenate
00e1 0092 0336  |   6|		Action	Push_String_Extended,0x336					; " did not accept Activate call - one retry will be made"
00e3 01cc       |    |		Execute	Vector,Catenate
00e4 4802       |H   |		Short_Literal	0x2
00e5 e009       |    |		Load	0x0,0x9
00e6 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
00e7 00c8       |    |		Action	Pop_Auxiliary_Range
00e8 3fe3       |?   |		Loop_Increasing	0xcc
00e9 00ce       |    |		Action	Pop_Auxiliary
00ea 00db       |    |		Load_Top	At_Offset_3
00eb 7009       |p   |		Jump_Nonzero	0xf5
00ec e00f       |    |		Load	0x0,0xf
00ed 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ee e5fd       |    |		Load	0x2,-0x3
00ef 4801       |H   |		Short_Literal	0x1
00f0 e5ff       |    |		Load	0x2,-0x1
00f1 821d       |    |		Call	0x1,0x1d
00f2 c5fd       |    |		Store	0x2,-0x3
00f3 c5fc       |    |		Store	0x2,-0x4
00f4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00f5 4807       |H   |		Short_Literal	0x7
00f6 0092 0337  |   7|		Action	Push_String_Extended,0x337					; "Could not activate a worker for "
00f8 e5ff       |    |		Load	0x2,-0x1
00f9 800c       |    |		Call	0x0,0xc
00fa 01cc       |    |		Execute	Vector,Catenate
00fb 0092 0333  |   3|		Action	Push_String_Extended,0x333					; "; the Corrupt_State exception will be raised"
00fd 01cc       |    |		Execute	Vector,Catenate
00fe 4802       |H   |		Short_Literal	0x2
00ff e009       |    |		Load	0x0,0x9
0100 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0101 e00d       |    |		Load	0x0,0xd
0102 0257       | W  |		Execute	Discrete,Raise
0103			TRAP_00b0:
0103 e00d       |    |		Load	0x0,0xd
0104 010f       |    |		Execute	Exception,Equal
0105 6802       |h   |		Jump_Zero	0x108
0106 00d8       |    |		Load_Top	At_Offset_0
0107 0101       |    |		Execute	Exception,Reraise
0108 010a       |    |		Execute	Exception,Is_Tasking_Error
0109 6819       |h   |		Jump_Zero	0x123
010a e5fe       |    |		Load	0x2,-0x2
010b 7009       |p   |		Jump_Nonzero	0x115
010c e00f       |    |		Load	0x0,0xf
010d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010e e5fd       |    |		Load	0x2,-0x3
010f 4801       |H   |		Short_Literal	0x1
0110 e5ff       |    |		Load	0x2,-0x1
0111 821d       |    |		Call	0x1,0x1d
0112 c5fd       |    |		Store	0x2,-0x3
0113 c5fc       |    |		Store	0x2,-0x4
0114 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0115 4807       |H   |		Short_Literal	0x7
0116 0092 0338  |   8|		Action	Push_String_Extended,0x338					; "Got Tasking_Error activating worker for "
0118 e5ff       |    |		Load	0x2,-0x1
0119 800c       |    |		Call	0x0,0xc
011a 01cc       |    |		Execute	Vector,Catenate
011b 0092 0333  |   3|		Action	Push_String_Extended,0x333					; "; the Corrupt_State exception will be raised"
011d 01cc       |    |		Execute	Vector,Catenate
011e 4802       |H   |		Short_Literal	0x2
011f e009       |    |		Load	0x0,0x9
0120 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0121 e00d       |    |		Load	0x0,0xd
0122 0257       | W  |		Execute	Discrete,Raise
0123 0092 0339  |   9|		Action	Push_String_Extended,0x339					; "Activating Worker"
0125 e5ff       |    |		Load	0x2,-0x1
0126 821c       |    |		Call	0x1,0x1c
0127 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0128 0000 0000  |    |		.LITERAL	{0x00000000, 0x000f0000}
012c 0000 0000  |    |		.BLANK	0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0139       | 9  |		.CONST	0x0139								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0004       |    |		.CONST	0x0004								; Number of locals
0133			INIT_0130:
0133 e005       |    |		Load	0x0,0x5
0134 0007       |    |		Action	Break_Optional
0135 e00e       |    |		Load	0x0,0xe
0136 0007       |    |		Action	Break_Optional
0137 e00f       |    |		Load	0x0,0xf
0138 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0139			BODY_0130:
0139 e218       |    |		Load	0x1,0x18
013a 6813       |h   |		Jump_Zero	0x14e
013b e219       |    |		Load	0x1,0x19
013c 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
013d 00da       |    |		Load_Top	At_Offset_2
013e e00b       |    |		Load	0x0,0xb
013f 01d5       |    |		Execute	Vector,Field_Reference
0140 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0141 a219       |    |		Store_Unchecked	0x1,0x19
0142 e219       |    |		Load	0x1,0x19
0143 e00b       |    |		Load	0x0,0xb
0144 01d5       |    |		Execute	Vector,Field_Reference
0145 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0146 0f03       |    |		Execute_Immediate	Equal,0x3
0147 a218       |    |		Store_Unchecked	0x1,0x18
0148 00da       |    |		Load_Top	At_Offset_2
0149 e00b       |    |		Load	0x0,0xb
014a 01d5       |    |		Execute	Vector,Field_Reference
014b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
014c 003a       | :  |		Store_Top	Access,At_Offset_2
014d 7809       |x   |		Jump	0x157
014e e5ff       |    |		Load	0x2,-0x1
014f 821b       |    |		Call	0x1,0x1b
0150 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0151 e00e       |    |		Load	0x0,0xe
0152 03bc       |    |		Declare_Variable	Access,By_Allocation
0153 00d8       |    |		Load_Top	At_Offset_0
0154 00e0       |    |		Load_Encached	Standard_Cache
0155 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0156 003a       | :  |		Store_Top	Access,At_Offset_2
0157 e00f       |    |		Load	0x0,0xf
0158 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0159 00da       |    |		Load_Top	At_Offset_2
015a 4800       |H   |		Short_Literal	0x0
015b e5ff       |    |		Load	0x2,-0x1
015c 821d       |    |		Call	0x1,0x1d
015d 003b       | ;  |		Store_Top	Access,At_Offset_3
015e 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
015f 4801       |H   |		Short_Literal	0x1
0160 e010       |    |		Load	0x0,0x10
0161 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0162 00da       |    |		Load_Top	At_Offset_2
0163 00d9       |    |		Load_Top	At_Offset_1
0164 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0165 00d9       |    |		Load_Top	At_Offset_1
0166 00d9       |    |		Load_Top	At_Offset_1
0167 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0168 e5ff       |    |		Load	0x2,-0x1
0169 00d9       |    |		Load_Top	At_Offset_1
016a 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
016b 4800       |H   |		Short_Literal	0x0
016c 00d9       |    |		Load_Top	At_Offset_1
016d 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
016e 00db       |    |		Load_Top	At_Offset_3
016f e00b       |    |		Load	0x0,0xb
0170 01d6       |    |		Execute	Vector,Field_Write
0171 4800       |H   |		Short_Literal	0x0
0172 00db       |    |		Load_Top	At_Offset_3
0173 e5ff       |    |		Load	0x2,-0x1
0174 e217       |    |		Load	0x1,0x17
0175 e216       |    |		Load	0x1,0x16
0176 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0177 00da       |    |		Load_Top	At_Offset_2
0178 a5fe       |    |		Store_Unchecked	0x2,-0x2
0179 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
017a 0000 0000  |    |		.BLANK	0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0196       |    |		.CONST	0x0196								; Address of begin
0181 0199       |    |		.CONST	0x0199								; Address of exception handler
0182 0002       |    |		.CONST	0x0002								; Number of locals
0183			INIT_0180:
0183 4813 4836  |H H6|		Declare_Variable	Select	0x000, 0x007,
0185 4812 4837  |H H7|				[0x000]: 0x000 = 0x0000,
0187 4811 4838  |H H8|				[0x00d]: 0x03c = 0x01e0,
0189 4810 4839  |H H9|				[0x00e]: 0x03b = 0x01d8,
018b 480f 483a  |H H:|				[0x00f]: 0x03a = 0x01d0,
018d 480e 483b  |H H;|				[0x010]: 0x039 = 0x01c8,
018f 480d 483c  |H H<|				[0x011]: 0x038 = 0x01c0,
0191 4800 4800  |H H |				[0x012]: 0x037 = 0x01b8,
0193 4800 4807  |H H |				[0x013]: 0x036 = 0x01b0
0195 02cf       |    |
0196			BODY_0180:
0196 00d8       |    |		Load_Top	At_Offset_0
0197 013f       | ?  |		Execute	Select,Rendezvous
0198 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0199			TRAP_0180:
0199 e00d       |    |		Load	0x0,0xd
019a 010f       |    |		Execute	Exception,Equal
019b 6801       |h   |		Jump_Zero	0x19d
019c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
019d 4808       |H   |		Short_Literal	0x8
019e 0092 032f  |   /|		Action	Push_String_Extended,0x32f					; "Unexpected exception "
01a0 8008       |    |		Call	0x0,0x8
01a1 01cc       |    |		Execute	Vector,Catenate
01a2 0092 033a  |   :|		Action	Push_String_Extended,0x33a					; " in Controller main loop"
01a4 01cc       |    |		Execute	Vector,Catenate
01a5 4802       |H   |		Short_Literal	0x2
01a6 e009       |    |		Load	0x0,0x9
01a7 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
01a8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01a9 0000 0000  |    |		.BLANK	0000[0x7]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; See instruction 0x02cf at 0x183, index=0x13
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 029f 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Call
01b5 8602       |    |		Call	0x3,0x2
01b6 4100       |A   |		End_Rendezvous	0x0
01b7 0000       |    |		.XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; See instruction 0x02cf at 0x183, index=0x12
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 029f 0233  |   3|		Declare_Subprogram	INIT_0230,For_Call
01bd 8602       |    |		Call	0x3,0x2
01be 4100       |A   |		End_Rendezvous	0x0
01bf 0000       |    |		.XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; See instruction 0x02cf at 0x183, index=0x11
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 029f 0263  |   c|		Declare_Subprogram	INIT_0260,For_Call
01c5 8602       |    |		Call	0x3,0x2
01c6 4102       |A   |		End_Rendezvous	0x2
01c7 0000       |    |		.XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; See instruction 0x02cf at 0x183, index=0x10
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 029f 029b  |    |		Declare_Subprogram	INIT_0298,For_Call
01cd 8602       |    |		Call	0x3,0x2
01ce 4102       |A   |		End_Rendezvous	0x2
01cf 0000       |    |		.XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; See instruction 0x02cf at 0x183, index=0xf
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 029f 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Call
01d5 8602       |    |		Call	0x3,0x2
01d6 4101       |A   |		End_Rendezvous	0x1
01d7 0000       |    |		.XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; See instruction 0x02cf at 0x183, 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 029f 02db  |    |		Declare_Subprogram	INIT_02d8,For_Call
01dd 8602       |    |		Call	0x3,0x2
01de 4100       |A   |		End_Rendezvous	0x0
01df 0000       |    |		.XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; See instruction 0x02cf at 0x183, index=0xd
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 029f 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Call
01e5 8602       |    |		Call	0x3,0x2
01e6 4100       |A   |		End_Rendezvous	0x0
01e7 0000       |    |		.XXX[0x1]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0229       | )  |		.CONST	0x0229								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb e7fe       |    |		Load	0x3,-0x2
01ec e00b       |    |		Load	0x0,0xb
01ed 01d5       |    |		Execute	Vector,Field_Reference
01ee 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01ef 0f01       |    |		Execute_Immediate	Equal,0x1
01f0 681d       |h   |		Jump_Zero	0x20e
01f1 e7fe       |    |		Load	0x3,-0x2
01f2 e00b       |    |		Load	0x0,0xb
01f3 01d5       |    |		Execute	Vector,Field_Reference
01f4 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01f5 e217       |    |		Load	0x1,0x17
01f6 e216       |    |		Load	0x1,0x16
01f7 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01f8 4804       |H   |		Short_Literal	0x4
01f9 e010       |    |		Load	0x0,0x10
01fa 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01fb e00e       |    |		Load	0x0,0xe
01fc 00d9       |    |		Load_Top	At_Offset_1
01fd 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01fe e00f       |    |		Load	0x0,0xf
01ff 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0200 00d9       |    |		Load_Top	At_Offset_1
0201 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0202 4800       |H   |		Short_Literal	0x0
0203 00d9       |    |		Load_Top	At_Offset_1
0204 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0205 e7fe       |    |		Load	0x3,-0x2
0206 e00b       |    |		Load	0x0,0xb
0207 01d5       |    |		Execute	Vector,Field_Reference
0208 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0209 00d9       |    |		Load_Top	At_Offset_1
020a 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
020b e7fe       |    |		Load	0x3,-0x2
020c e00b       |    |		Load	0x0,0xb
020d 01d6       |    |		Execute	Vector,Field_Write
020e e7fe       |    |		Load	0x3,-0x2
020f e00b       |    |		Load	0x0,0xb
0210 01d5       |    |		Execute	Vector,Field_Reference
0211 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0212 0f04       |    |		Execute_Immediate	Equal,0x4
0213 6814       |h   |		Jump_Zero	0x228
0214 e7fd       |    |		Load	0x3,-0x3
0215 6809       |h   |		Jump_Zero	0x21f
0216 e7fe       |    |		Load	0x3,-0x2
0217 e00b       |    |		Load	0x0,0xb
0218 01d5       |    |		Execute	Vector,Field_Reference
0219 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
021a 0aff       |    |		Execute_Immediate	Plus,-0x1
021b e7fe       |    |		Load	0x3,-0x2
021c e00b       |    |		Load	0x0,0xb
021d 01d5       |    |		Execute	Vector,Field_Reference
021e 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
021f e7fe       |    |		Load	0x3,-0x2
0220 e00b       |    |		Load	0x0,0xb
0221 01d5       |    |		Execute	Vector,Field_Reference
0222 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0223 7004       |p   |		Jump_Nonzero	0x228
0224 e011       |    |		Load	0x0,0x11
0225 e7fe       |    |		Load	0x3,-0x2
0226 e00b       |    |		Load	0x0,0xb
0227 01d6       |    |		Execute	Vector,Field_Write
0228 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0229			TRAP_01e8:
0229 0007       |    |		Action	Break_Optional
022a 0092 033b  |   ;|		Action	Push_String_Extended,0x33b					; "in Worker_Dead"
022c 4800       |H   |		Short_Literal	0x0
022d 821c       |    |		Call	0x1,0x1c
022e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
022f 0000       |    |		.XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0253       | S  |		.CONST	0x0253								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 0092 033c  |   <|		Action	Push_String_Extended,0x33c					; "Slot not in cleanup on call to worker quiescent"
0235 e7fe       |    |		Load	0x3,-0x2
0236 e00b       |    |		Load	0x0,0xb
0237 01d5       |    |		Execute	Vector,Field_Reference
0238 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0239 0f02       |    |		Execute_Immediate	Equal,0x2
023a 8012       |    |		Call	0x0,0x12
023b 4803       |H   |		Short_Literal	0x3
023c e010       |    |		Load	0x0,0x10
023d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
023e e7fe       |    |		Load	0x3,-0x2
023f e00b       |    |		Load	0x0,0xb
0240 01d5       |    |		Execute	Vector,Field_Reference
0241 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0242 00d9       |    |		Load_Top	At_Offset_1
0243 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0244 e00f       |    |		Load	0x0,0xf
0245 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0246 00d9       |    |		Load_Top	At_Offset_1
0247 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0248 e219       |    |		Load	0x1,0x19
0249 00d9       |    |		Load_Top	At_Offset_1
024a 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
024b e7fe       |    |		Load	0x3,-0x2
024c e00b       |    |		Load	0x0,0xb
024d 01d6       |    |		Execute	Vector,Field_Write
024e e7fe       |    |		Load	0x3,-0x2
024f a219       |    |		Store_Unchecked	0x1,0x19
0250 4801       |H   |		Short_Literal	0x1
0251 a218       |    |		Store_Unchecked	0x1,0x18
0252 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0253			TRAP_0230:
0253 0007       |    |		Action	Break_Optional
0254 0092 033d  |   =|		Action	Push_String_Extended,0x33d					; "in Worker_Quiescent"
0256 4800       |H   |		Short_Literal	0x0
0257 821c       |    |		Call	0x1,0x1c
0258 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0259 0000 0000  |    |		.BLANK	0000[0x7]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0265       | e  |		.CONST	0x0265								; Address of begin
0261 028d       |    |		.CONST	0x028d								; Address of exception handler
0262 0002       |    |		.CONST	0x0002								; Number of locals
0263			INIT_0260:
0263 e005       |    |		Load	0x0,0x5
0264 0007       |    |		Action	Break_Optional
0265			BODY_0260:
0265 e7fe       |    |		Load	0x3,-0x2
0266 e217       |    |		Load	0x1,0x17
0267 e216       |    |		Load	0x1,0x16
0268 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0269 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
026a 00d8       |    |		Load_Top	At_Offset_0
026b e00b       |    |		Load	0x0,0xb
026c 01d5       |    |		Execute	Vector,Field_Reference
026d 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
026e 7019       |p   |		Jump_Nonzero	0x288
026f e7fe       |    |		Load	0x3,-0x2
0270 e217       |    |		Load	0x1,0x17
0271 e216       |    |		Load	0x1,0x16
0272 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0273 4802       |H   |		Short_Literal	0x2
0274 e010       |    |		Load	0x0,0x10
0275 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0276 00d9       |    |		Load_Top	At_Offset_1
0277 e00b       |    |		Load	0x0,0xb
0278 01d5       |    |		Execute	Vector,Field_Reference
0279 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
027a 00d9       |    |		Load_Top	At_Offset_1
027b 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
027c e00f       |    |		Load	0x0,0xf
027d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
027e 00d9       |    |		Load_Top	At_Offset_1
027f 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0280 00d9       |    |		Load_Top	At_Offset_1
0281 e00b       |    |		Load	0x0,0xb
0282 01d6       |    |		Execute	Vector,Field_Write
0283 4801       |H   |		Short_Literal	0x1
0284 a7fd       |    |		Store_Unchecked	0x3,-0x3
0285 00d8       |    |		Load_Top	At_Offset_0
0286 a7fc       |    |		Store_Unchecked	0x3,-0x4
0287 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0288 4800       |H   |		Short_Literal	0x0
0289 a7fd       |    |		Store_Unchecked	0x3,-0x3
028a 4800       |H   |		Short_Literal	0x0
028b a7fc       |    |		Store_Unchecked	0x3,-0x4
028c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
028d			TRAP_0260:
028d 0007       |    |		Action	Break_Optional
028e 0092 033e  |   >|		Action	Push_String_Extended,0x33e					; "in Worker_Ready_To_Cleanup"
0290 e7fe       |    |		Load	0x3,-0x2
0291 821c       |    |		Call	0x1,0x1c
0292 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0293 0000 0000  |    |		.BLANK	0000[0x5]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029e       |    |		.CONST	0x029e								; Address of begin
0299 02b1       |    |		.CONST	0x02b1								; Address of exception handler
029a 0003       |    |		.CONST	0x0003								; Number of locals
029b			INIT_0298:
029b 00e1       |    |		Load_Encached	Boolean_Cache
029c e005       |    |		Load	0x0,0x5
029d 0007       |    |		Action	Break_Optional
029e			BODY_0298:
029e 00e1       |    |		Load_Encached	Boolean_Cache
029f 00d9       |    |		Load_Top	At_Offset_1
02a0 e7fe       |    |		Load	0x3,-0x2
02a1 e217       |    |		Load	0x1,0x17
02a2 e216       |    |		Load	0x1,0x16
02a3 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02a4 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02a5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02a6 00d9       |    |		Load_Top	At_Offset_1
02a7 0f00       |    |		Execute_Immediate	Equal,0x0
02a8 a7fd       |    |		Store_Unchecked	0x3,-0x3
02a9 00d9       |    |		Load_Top	At_Offset_1
02aa 6803       |h   |		Jump_Zero	0x2ae
02ab 00d8       |    |		Load_Top	At_Offset_0
02ac a7fc       |    |		Store_Unchecked	0x3,-0x4
02ad 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02ae 4800       |H   |		Short_Literal	0x0
02af a7fc       |    |		Store_Unchecked	0x3,-0x4
02b0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02b1			TRAP_0298:
02b1 0007       |    |		Action	Break_Optional
02b2 0092 033f  |   ?|		Action	Push_String_Extended,0x33f					; "in Find_Slot"
02b4 e7fe       |    |		Load	0x3,-0x2
02b5 821c       |    |		Call	0x1,0x1c
02b6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02b7 0000       |    |		.XXX[0x1]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02be       |    |		.CONST	0x02be								; Address of begin
02b9 02d1       |    |		.CONST	0x02d1								; Address of exception handler
02ba 0003       |    |		.CONST	0x0003								; Number of locals
02bb			INIT_02b8:
02bb e005       |    |		Load	0x0,0x5
02bc 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02bd 00e1       |    |		Load_Encached	Boolean_Cache
02be			BODY_02b8:
02be 00e1       |    |		Load_Encached	Boolean_Cache
02bf 00da       |    |		Load_Top	At_Offset_2
02c0 e7fe       |    |		Load	0x3,-0x2
02c1 e217       |    |		Load	0x1,0x17
02c2 e216       |    |		Load	0x1,0x16
02c3 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02c4 005b       | [  |		Store_Top	Discrete,At_Offset_3
02c5 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02c6 00d8       |    |		Load_Top	At_Offset_0
02c7 6806       |h   |		Jump_Zero	0x2ce
02c8 00d9       |    |		Load_Top	At_Offset_1
02c9 e00b       |    |		Load	0x0,0xb
02ca 01d5       |    |		Execute	Vector,Field_Reference
02cb 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02cc a7fd       |    |		Store_Unchecked	0x3,-0x3
02cd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02ce e00e       |    |		Load	0x0,0xe
02cf a7fd       |    |		Store_Unchecked	0x3,-0x3
02d0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02d1			TRAP_02b8:
02d1 0007       |    |		Action	Break_Optional
02d2 0092 0340  |   @|		Action	Push_String_Extended,0x340					; "in Find_Worker"
02d4 e7fe       |    |		Load	0x3,-0x2
02d5 821c       |    |		Call	0x1,0x1c
02d6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02d7 0000       |    |		.XXX[0x1]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db       |    |		.CONST	0x02db								; Address of begin
02d9 02ed       |    |		.CONST	0x02ed								; Address of exception handler
02da 0001       |    |		.CONST	0x0001								; Number of locals
02db			BODY_02d8:
02db			INIT_02d8:
02db e7fe       |    |		Load	0x3,-0x2
02dc 0217       |    |		Execute	Heap_Access,All_Reference
02dd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02de e00b       |    |		Load	0x0,0xb
02df 01d5       |    |		Execute	Vector,Field_Reference
02e0 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
02e1 0aff       |    |		Execute_Immediate	Plus,-0x1
02e2 e7fe       |    |		Load	0x3,-0x2
02e3 0217       |    |		Execute	Heap_Access,All_Reference
02e4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02e5 e00b       |    |		Load	0x0,0xb
02e6 01d5       |    |		Execute	Vector,Field_Reference
02e7 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02e8 4800       |H   |		Short_Literal	0x0
02e9 e7fe       |    |		Load	0x3,-0x2
02ea 0217       |    |		Execute	Heap_Access,All_Reference
02eb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02ec 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02ed			TRAP_02d8:
02ed 0007       |    |		Action	Break_Optional
02ee 0092 0341  |   A|		Action	Push_String_Extended,0x341					; "in Release_Info"
02f0 e7fe       |    |		Load	0x3,-0x2
02f1 0217       |    |		Execute	Heap_Access,All_Reference
02f2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02f3 e00b       |    |		Load	0x0,0xb
02f4 01d5       |    |		Execute	Vector,Field_Reference
02f5 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02f6 821c       |    |		Call	0x1,0x1c
02f7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fe       |    |		.CONST	0x02fe								; Address of begin
02f9 0325       | %  |		.CONST	0x0325								; Address of exception handler
02fa 0003       |    |		.CONST	0x0003								; Number of locals
02fb			INIT_02f8:
02fb e005       |    |		Load	0x0,0x5
02fc 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02fd 00e1       |    |		Load_Encached	Boolean_Cache
02fe			BODY_02f8:
02fe 00e1       |    |		Load_Encached	Boolean_Cache
02ff 00da       |    |		Load_Top	At_Offset_2
0300 e7fe       |    |		Load	0x3,-0x2
0301 e217       |    |		Load	0x1,0x17
0302 e216       |    |		Load	0x1,0x16
0303 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0304 005b       | [  |		Store_Top	Discrete,At_Offset_3
0305 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0306 00d8       |    |		Load_Top	At_Offset_0
0307 7004       |p   |		Jump_Nonzero	0x30c
0308 e005       |    |		Load	0x0,0x5
0309 e7fe       |    |		Load	0x3,-0x2
030a 821e       |    |		Call	0x1,0x1e
030b 005a       | Z  |		Store_Top	Discrete,At_Offset_2
030c 00d9       |    |		Load_Top	At_Offset_1
030d e00b       |    |		Load	0x0,0xb
030e 01d5       |    |		Execute	Vector,Field_Reference
030f 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0310 0a01       |    |		Execute_Immediate	Plus,0x1
0311 00da       |    |		Load_Top	At_Offset_2
0312 e00b       |    |		Load	0x0,0xb
0313 01d5       |    |		Execute	Vector,Field_Reference
0314 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0315 4801       |H   |		Short_Literal	0x1
0316 e7fd       |    |		Load	0x3,-0x3
0317 0217       |    |		Execute	Heap_Access,All_Reference
0318 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0319 00d9       |    |		Load_Top	At_Offset_1
031a e7fd       |    |		Load	0x3,-0x3
031b 0217       |    |		Execute	Heap_Access,All_Reference
031c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
031d 00d9       |    |		Load_Top	At_Offset_1
031e e00b       |    |		Load	0x0,0xb
031f 01d5       |    |		Execute	Vector,Field_Reference
0320 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0321 e7fd       |    |		Load	0x3,-0x3
0322 0217       |    |		Execute	Heap_Access,All_Reference
0323 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0324 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0325			TRAP_02f8:
0325 e00d       |    |		Load	0x0,0xd
0326 010f       |    |		Execute	Exception,Equal
0327 6802       |h   |		Jump_Zero	0x32a
0328 00d8       |    |		Load_Top	At_Offset_0
0329 0101       |    |		Execute	Exception,Reraise
032a 0092 0342  |   B|		Action	Push_String_Extended,0x342					; "in Get_Info"
032c e7fe       |    |		Load	0x3,-0x2
032d 821c       |    |		Call	0x1,0x1c
032e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
032f ; --------------------------------------------------------------------------------------
032f ; STRING TABLE
032f ; --------------------------------------------------------------------------------------
032f 002a       | *  |		.STRTAB	0x002a->0x0344							; "Unexpected exception "
0330 003d       | =  |		.STRTAB	0x003d->0x034e							; " causing death of the Controller"
0331 005b       | [  |		.STRTAB	0x005b->0x035e							; "Got unexpected exception "
0332 0072       | r  |		.STRTAB	0x0072->0x036b							; " for "
0333 0075       | u  |		.STRTAB	0x0075->0x036d							; "; the Corrupt_State exception will be raised"
0334 009f       |    |		.STRTAB	0x009f->0x0383							; "Killing non-responsive worker for "
0335 00bf       |    |		.STRTAB	0x00bf->0x0394							; "Worker for "
0336 00c8       |    |		.STRTAB	0x00c8->0x039a							; " did not accept Activate call - one retry will be made"
0337 00fc       |    |		.STRTAB	0x00fc->0x03b5							; "Could not activate a worker for "
0338 011a       |    |		.STRTAB	0x011a->0x03c5							; "Got Tasking_Error activating worker for "
0339 0140       | @  |		.STRTAB	0x0140->0x03d9							; "Activating Worker"
033a 014f       | O  |		.STRTAB	0x014f->0x03e1							; " in Controller main loop"
033b 0165       | e  |		.STRTAB	0x0165->0x03ed							; "in Worker_Dead"
033c 0171       | q  |		.STRTAB	0x0171->0x03f4							; "Slot not in cleanup on call to worker quiescent"
033d 019e       |    |		.STRTAB	0x019e->0x040c							; "in Worker_Quiescent"
033e 01af       |    |		.STRTAB	0x01af->0x0415							; "in Worker_Ready_To_Cleanup"
033f 01c7       |    |		.STRTAB	0x01c7->0x0422							; "in Find_Slot"
0340 01d1       |    |		.STRTAB	0x01d1->0x0428							; "in Find_Worker"
0341 01dd       |    |		.STRTAB	0x01dd->0x042f							; "in Release_Info"
0342 01ea       |    |		.STRTAB	0x01ea->0x0437							; "in Get_Info"
0343 01f3       |    |		.STREND 0x01f3->0x043c
0344 556e 6578  |Unex|		.STRTAB_STRINGS
043d 0000 0000  |    |		.XXX[0x3]
043f 0000       |    |
0440 ; --------------------------------------------------------------------------------------
0440 ; Debug Table
0440 ; --------------------------------------------------------------------------------------
0440 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0xc8ab,0x0000,0x0001,0x0000
0446 0000 0000  |    |		.XXX[0x21]
0448 0012 076c  |   l|
044a e000 0008  |    |
044c 4240 0004  |B@  |
044e 0030 0022  | 0 "|
0450 4000 0000  |@   |
0452 8610 0000  |    |
0454 8000 0001  |    |
0456 400a 0000  |@   |
0458 cd08 0000  |    |
045a 0080 0000  |    |
045c 0440 0000  | @  |
045e 0002 0000  |    |
0460 0014 8000  |    |
0462 0404 42e6  |  B |
0464 8000 0404  |    |
0466 42e8       |B   |
0467 0000 0000  |    |		.BLANK	0000[0x1a]
0481 0002 40ed  |  @ |		.XXX[0x23]
0483 9c00 0001  |    |
0485 0948 0000  | H  |
0487 8006 0004  |    |
0489 4800 0000  |H   |
048b 10c2 0000  |    |
048d 1800 0000  |    |
048f 9801 4000  |  @ |
0491 19a1 0000  |    |
0493 0010 0000  |    |
0495 0088 0000  |    |
0497 0000 4000  |  @ |
0499 0002 9000  |    |
049b 00c0 8b73  |   s|
049d 1000 00c0  |    |
049f 8cdb 9000  |    |
04a1 00c0 8ce7  |    |
04a3 4000       |@   |
04a4 0000 0000  |    |		.BLANK	0000[0x17]
04bb 481d b3c0  |H   |		.XXX[0x22]
04bd 0000 2109  |  ! |
04bf 0000 1000  |    |
04c1 c000 8900  |    |
04c3 0000 0231  |   1|
04c5 8000 0200  |    |
04c7 0000 0300  |    |
04c9 2800 0334  |(  4|
04cb 2000 0002  |    |
04cd 0000 0011  |    |
04cf 0000 0000  |    |
04d1 0800 0000  |    |
04d3 5200 0010  |R   |
04d5 111c 7000  |  p |
04d7 0000 0000  |    |
04d9 0200 0010  |    |
04db 111c 7800  |  x |
04dd 0000 0000  |    |		.BLANK	0000[0x17]
04f4 0903 b678  |   x|		.XXX[0x22]
04f6 0000 0425  |   %|
04f8 2000 0200  |    |
04fa 1800 1120  |    |
04fc 0000 0046  |   F|
04fe 3000 0060  |0  `|
0500 0000 00e0  |    |
0502 0500 0066  |   f|
0504 8400 0000  |    |
0506 4000 0002  |@   |
0508 2000 0000  |    |
050a 0100 0000  |    |
050c 0a40 0003  | @  |
050e 0232 8300  | 2  |
0510 0000 0000  |    |
0512 0040 0002  | @  |
0514 0223 8f00  | #  |
0516 0000 0000  |    |		.BLANK	0000[0x17]
052d 0120 76d0  |  v |		.XXX[0x19]
052f 4000 0084  |@   |
0531 2400 0040  |$  @|
0533 0300 0224  |   $|
0535 0000 0007  |    |
0537 9d00 0008  |    |
0539 0000 000c  |    |
053b 00a0 0000  |    |
053d 0020 0000  |    |
053f 0800 0000  |    |
0541 4400 0000  |D   |
0543 0020 0000  |    |
0545 0140       | @  |
0546 0000 0000  |    |		.BLANK	0000[0x14]
055a 0008 0000  |    |		.XXX[0x4]
055c 4043 7040  |@Cp@|
055e 0000 0000  |    |		.BLANK	0000[0x8]
0566 0024 0eda  | $  |		.XXX[0x19]
0568 4000 0010  |@   |
056a 8480 0008  |    |
056c 0060 0044  | ` D|
056e 8000 0001  |    |
0570 21c0 0001  |!   |
0572 0000 0001  |    |
0574 8014 0000  |    |
0576 0004 0000  |    |
0578 0100 0000  |    |
057a 0880 0000  |    |
057c 0004 0000  |    |
057e 0028       | (  |
057f 0000 0000  |    |		.BLANK	0000[0x14]
0593 0001 0000  |    |		.XXX[0x4]
0595 0808 93c4  |    |
0597 0000 0000  |    |		.BLANK	0000[0x8]
059f 0004 81db  |    |		.XXX[0x19]
05a1 4b00 0002  |K   |
05a3 1090 0001  |    |
05a5 000c 0008  |    |
05a7 9000 0000  |    |
05a9 2330 0000  |#0  |
05ab 2000 0000  |    |
05ad 3002 8000  |0   |
05af 0000 8000  |    |
05b1 0020 0000  |    |
05b3 0110 0000  |    |
05b5 0000 8000  |    |
05b7 0005       |    |
05b8 0000 0000  |    |		.BLANK	0000[0x15]
05cd 2000 0101  |    |		.XXX[0x4]
05cf 11d9 8000  |    |
05d1 0000 0000  |    |		.BLANK	0000[0x2f]