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

⟦84de331d7⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0418       |    |		.CONST	0x0418								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005d       | ]  |		.CONST	0x005d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0017       |    |		.CONST	0x0017								; Number of locals
000b			INIT_0008:
000b 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
000d 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
000f 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
0011 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0013 00bf       |    |		Action	Accept_Activation
0014 e002       |    |		Load	0x0,0x2
0015 02ff       |    |		Declare_Variable	Variant_Record
0016 00d8       |    |		Load_Top	At_Offset_0
0017 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0018 4800       |H   |		Short_Literal	0x0
0019 0093 0143  |   C|		push_full_address	INIT_0140
001b 00f5       |    |		Load_Encached	Unused21
001c 037d       | }  |		Declare_Type	Task,Defined
001d e003       |    |		Load	0x0,0x3
001e 4801       |H   |		Short_Literal	0x1
001f 00da       |    |		Load_Top	At_Offset_2
0020 020e       |    |		Execute	Module,Augment_Imports
0021 036f       | o  |		Declare_Variable	Task
0022 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0023 00c7       |    |		Action	Elaborate_Subprogram
0024 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0025 00c7       |    |		Action	Elaborate_Subprogram
0026 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0027 00c7       |    |		Action	Elaborate_Subprogram
0028 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0029 00c7       |    |		Action	Elaborate_Subprogram
002a 4800       |H   |		Short_Literal	0x0
002b 0093 0093  |    |		push_full_address	INIT_0090
002d 00f5       |    |		Load_Encached	Unused21
002e 037d       | }  |		Declare_Type	Task,Defined
002f 036f       | o  |		Declare_Variable	Task
0030 e004       |    |		Load	0x0,0x4
0031 e005       |    |		Load	0x0,0x5
0032 e215       |    |		Load	0x1,0x15
0033 e006       |    |		Load	0x0,0x6
0034 e007       |    |		Load	0x0,0x7
0035 a008       |    |		Store_Unchecked	0x0,0x8
0036 a009       |    |		Store_Unchecked	0x0,0x9
0037 e00a       |    |		Load	0x0,0xa
0038 e00b       |    |		Load	0x0,0xb
0039 e20e       |    |		Load	0x1,0xe
003a a00c       |    |		Store_Unchecked	0x0,0xc
003b a00d       |    |		Store_Unchecked	0x0,0xd
003c e217       |    |		Load	0x1,0x17
003d 480e       |H   |		Short_Literal	0xe
003e 480d       |H   |		Short_Literal	0xd
003f 480f       |H   |		Short_Literal	0xf
0040 e216       |    |		Load	0x1,0x16
0041 020e       |    |		Execute	Module,Augment_Imports
0042 0007       |    |		Action	Break_Optional
0043 e004       |    |		Load	0x0,0x4
0044 e00e       |    |		Load	0x0,0xe
0045 e00f       |    |		Load	0x0,0xf
0046 e20e       |    |		Load	0x1,0xe
0047 a010       |    |		Store_Unchecked	0x0,0x10
0048 a011       |    |		Store_Unchecked	0x0,0x11
0049 a012       |    |		Store_Unchecked	0x0,0x12
004a a013       |    |		Store_Unchecked	0x0,0x13
004b e216       |    |		Load	0x1,0x16
004c 480e       |H   |		Short_Literal	0xe
004d e210       |    |		Load	0x1,0x10
004e e014       |    |		Load	0x0,0x14
004f a00d       |    |		Store_Unchecked	0x0,0xd
0050 a009       |    |		Store_Unchecked	0x0,0x9
0051 e215       |    |		Load	0x1,0x15
0052 e006       |    |		Load	0x0,0x6
0053 e007       |    |		Load	0x0,0x7
0054 a008       |    |		Store_Unchecked	0x0,0x8
0055 a015       |    |		Store_Unchecked	0x0,0x15
0056 a016       |    |		Store_Unchecked	0x0,0x16
0057 e00a       |    |		Load	0x0,0xa
0058 e00b       |    |		Load	0x0,0xb
0059 a00c       |    |		Store_Unchecked	0x0,0xc
005a 4817       |H   |		Short_Literal	0x17
005b e217       |    |		Load	0x1,0x17
005c 020e       |    |		Execute	Module,Augment_Imports
005d			BODY_0008:
005d 00be       |    |		Action	Activate_Tasks
005e 00bc       |    |		Action	Signal_Activated
005f 00bb       |    |		Action	Signal_Completion
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 e5f9       |    |		Load	0x2,-0x7
0065 e5fa       |    |		Load	0x2,-0x6
0066 e5fb       |    |		Load	0x2,-0x5
0067 e5fc       |    |		Load	0x2,-0x4
0068 e5fd       |    |		Load	0x2,-0x3
0069 e5fe       |    |		Load	0x2,-0x2
006a 4806       |H   |		Short_Literal	0x6
006b e402       |    |		Load	0x2,0x2
006c e216       |    |		Load	0x1,0x16
006d 1410       |    |		Execute	Task,Family_Call,Field_Number 0x10
006e 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
006f 0000       |    |		.XXX[0x1]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0074       | t  |		.CONST	0x0074								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0002       |    |		.CONST	0x0002								; Number of locals
0073			INIT_0070:
0073 00e3       |    |		Load_Encached	Natural_Cache
0074			BODY_0070:
0074 00e3       |    |		Load_Encached	Natural_Cache
0075 4801       |H   |		Short_Literal	0x1
0076 e216       |    |		Load	0x1,0x16
0077 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0078 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0079 00d8       |    |		Load_Top	At_Offset_0
007a 00ca       |    |		Action	Exit_Nullary_Function
007b 0000 0000  |    |		.BLANK	0000[0x5]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 00da       |    |		Load_Top	At_Offset_2
0084 4801       |H   |		Short_Literal	0x1
0085 e216       |    |		Load	0x1,0x16
0086 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
0087 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b 4800       |H   |		Short_Literal	0x0
008c e216       |    |		Load	0x1,0x16
008d 170f       |    |		Execute	Task,Entry_Call,Field_Number 0xf
008e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
008f 0000       |    |		.XXX[0x1]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 00be       |    |		.CONST	0x00be								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0018       |    |		.CONST	0x0018								; Number of locals
0093			INIT_0090:
0093 4801       |H   |		Short_Literal	0x1
0094 02cb       |    |		Declare_Variable	Entry
0095 4801       |H   |		Short_Literal	0x1
0096 02cb       |    |		Declare_Variable	Entry
0097 4800       |H   |		Short_Literal	0x0
0098 02cb       |    |		Declare_Variable	Entry
0099 00bf       |    |		Action	Accept_Activation
009a e001       |    |		Load	0x0,0x1
009b 0322       | "  |		Declare_Variable	Record
009c 00d8       |    |		Load_Top	At_Offset_0
009d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009e 00d8       |    |		Load_Top	At_Offset_0
009f 0322       | "  |		Declare_Variable	Record
00a0 00d8       |    |		Load_Top	At_Offset_0
00a1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a2 00e1       |    |		Load_Encached	Boolean_Cache
00a3 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00a4 00e1       |    |		Load_Encached	Boolean_Cache
00a5 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00a6 4800       |H   |		Short_Literal	0x0
00a7 48c7       |H   |		Short_Literal	0xc7
00a8 e002       |    |		Load	0x0,0x2
00a9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00aa 035b       | [  |		Declare_Type	Array,Constrained
00ab 0337       | 7  |		Declare_Variable	Array
00ac 00e3       |    |		Load_Encached	Natural_Cache
00ad e003       |    |		Load	0x0,0x3
00ae 0322       | "  |		Declare_Variable	Record
00af 00d8       |    |		Load_Top	At_Offset_0
00b0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b1 00e1       |    |		Load_Encached	Boolean_Cache
00b2 480f 481f  |H H |		Declare_Variable	Select	0x000, 0x003,
00b4 480e 4820  |H H |				[0x001]: 0x000 = 0x0000,
00b6 480d 4822  |H H"|				[0x00d]: 0x022 = 0x0110,
00b8 4801 4800  |H H |				[0x00e]: 0x020 = 0x0100,
00ba 4800 4803  |H H |				[0x00f]: 0x01f = 0x00f8
00bc 02cf       |    |
00bd 00bc       |    |		Action	Signal_Activated
00be			BODY_0090:
00be 00cf       |    |		Action	Mark_Auxiliary
00bf 00d9       |    |		Load_Top	At_Offset_1
00c0 013f       | ?  |		Execute	Select,Rendezvous
00c1 4604       |F   |		Jump_Case	0x5
00c2 7803       |x   |		Jump	0xc6								; case 0x0
00c3 782e       |x.  |		Jump	0xf2								; case 0x1
00c4 782d       |x-  |		Jump	0xf2								; case 0x2
00c5 7803       |x   |		Jump	0xc9								; case 0x3
00c6 4801       |H   |		Short_Literal	0x1							; case 0x4
00c7 a213       |    |		Store_Unchecked	0x1,0x13
00c8 7829       |x)  |		Jump	0xf2
00c9 e212       |    |		Load	0x1,0x12
00ca 6827       |h'  |		Jump_Zero	0xf2
00cb e210       |    |		Load	0x1,0x10
00cc 00e3       |    |		Load_Encached	Natural_Cache
00cd e214       |    |		Load	0x1,0x14
00ce e004       |    |		Load	0x0,0x4
00cf 8005       |    |		Call	0x0,0x5
00d0 00d1       |    |		Pop_Control	Pop_Count_1
00d1 c215       |    |		Store	0x1,0x15
00d2 00d1       |    |		Pop_Control	Pop_Count_1
00d3 e215       |    |		Load	0x1,0x15
00d4 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
00d5 681c       |h   |		Jump_Zero	0xf2
00d6 00db       |    |		Load_Top	At_Offset_3
00d7 e215       |    |		Load	0x1,0x15
00d8 00d8       |    |		Load_Top	At_Offset_0
00d9 00e4       |    |		Load_Encached	Positive_Cache
00da 0260       | `  |		Execute	Discrete,In_Type
00db 7001       |p   |		Jump_Nonzero	0xdd
00dc 0801       |    |		Execute_Immediate	Raise,0x1
00dd e214       |    |		Load	0x1,0x14
00de 8006       |    |		Call	0x0,0x6
00df 00d1       |    |		Pop_Control	Pop_Count_1
00e0 00db       |    |		Load_Top	At_Offset_3
00e1 8007       |    |		Call	0x0,0x7
00e2 4801       |H   |		Short_Literal	0x1
00e3 480c       |H   |		Short_Literal	0xc
00e4 0262       | b  |		Execute	Discrete,In_Range
00e5 7007       |p   |		Jump_Nonzero	0xed
00e6 7800       |x   |		Jump	0xe7
00e7 00db       |    |		Load_Top	At_Offset_3
00e8 8008       |    |		Call	0x0,0x8
00e9 4801       |H   |		Short_Literal	0x1
00ea e009       |    |		Load	0x0,0x9
00eb e00a       |    |		Load	0x0,0xa
00ec 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
00ed 00db       |    |		Load_Top	At_Offset_3
00ee 4801       |H   |		Short_Literal	0x1
00ef e00b       |    |		Load	0x0,0xb
00f0 e00c       |    |		Load	0x0,0xc
00f1 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
00f2 e213       |    |		Load	0x1,0x13
00f3 7002       |p   |		Jump_Nonzero	0xf6
00f4 00c9       |    |		Action	Pop_Auxiliary_Loop
00f5 7fc9       |    |		Jump	0xbf
00f6 00ce       |    |		Action	Pop_Auxiliary
00f7 00bb       |    |		Action	Signal_Completion
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; See instruction 0x02cf at 0xb2, index=0xf
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 4100       |A   |		End_Rendezvous	0x0
00fc 0000 0000  |    |		.BLANK	0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; See instruction 0x02cf at 0xb2, index=0xe
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 e210       |    |		Load	0x1,0x10
0104 800d       |    |		Call	0x0,0xd
0105 4800       |H   |		Short_Literal	0x0
0106 a212       |    |		Store_Unchecked	0x1,0x12
0107 4801       |H   |		Short_Literal	0x1
0108 a213       |    |		Store_Unchecked	0x1,0x13
0109 4100       |A   |		End_Rendezvous	0x0
010a 0000 0000  |    |		.BLANK	0000[0x6]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; See instruction 0x02cf at 0xb2, index=0xd
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 e210       |    |		Load	0x1,0x10
0114 800e       |    |		Call	0x0,0xe
0115 00d1       |    |		Pop_Control	Pop_Count_1
0116 e00f       |    |		Load	0x0,0xf
0117 4800       |H   |		Short_Literal	0x0
0118 4800       |H   |		Short_Literal	0x0
0119 4800       |H   |		Short_Literal	0x0
011a 48b7       |H   |		Short_Literal	0xb7
011b 0092 03aa  |    |		Action	Push_String_Extended,0x3aa					; "******* message registration ********"
011d e010       |    |		Load	0x0,0x10
011e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
011f e011       |    |		Load	0x0,0x11
0120 0162       | b  |		Execute	Variant_Record,Check_In_Type
0121 4800       |H   |		Short_Literal	0x0
0122 8012       |    |		Call	0x0,0x12
0123 00d1       |    |		Pop_Control	Pop_Count_1
0124 e211       |    |		Load	0x1,0x11
0125 800e       |    |		Call	0x0,0xe
0126 00d1       |    |		Pop_Control	Pop_Count_1
0127 e217       |    |		Load	0x1,0x17
0128 e211       |    |		Load	0x1,0x11
0129 e210       |    |		Load	0x1,0x10
012a 8013       |    |		Call	0x0,0x13
012b e210       |    |		Load	0x1,0x10
012c 8014       |    |		Call	0x0,0x14
012d e5fe       |    |		Load	0x2,-0x2
012e 4801       |H   |		Short_Literal	0x1
012f e015       |    |		Load	0x0,0x15
0130 e016       |    |		Load	0x0,0x16
0131 e00f       |    |		Load	0x0,0xf
0132 8017       |    |		Call	0x0,0x17
0133 00d1       |    |		Pop_Control	Pop_Count_1
0134 c217       |    |		Store	0x1,0x17
0135 e211       |    |		Load	0x1,0x11
0136 800d       |    |		Call	0x0,0xd
0137 4801       |H   |		Short_Literal	0x1
0138 a212       |    |		Store_Unchecked	0x1,0x12
0139 4100       |A   |		End_Rendezvous	0x0
013a 0000 0000  |    |		.BLANK	0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0177       | w  |		.CONST	0x0177								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0015       |    |		.CONST	0x0015								; Number of locals
0143			INIT_0140:
0143 4801       |H   |		Short_Literal	0x1
0144 02cb       |    |		Declare_Variable	Entry
0145 4801       |H   |		Short_Literal	0x1
0146 02cb       |    |		Declare_Variable	Entry
0147 4800       |H   |		Short_Literal	0x0
0148 02cb       |    |		Declare_Variable	Entry
0149 4806       |H   |		Short_Literal	0x6
014a e001       |    |		Load	0x0,0x1
014b 02c9       |    |		Declare_Variable	Family
014c 00bf       |    |		Action	Accept_Activation
014d 00e3       |    |		Load_Encached	Natural_Cache
014e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
014f e002       |    |		Load	0x0,0x2
0150 0322       | "  |		Declare_Variable	Record
0151 00d8       |    |		Load_Top	At_Offset_0
0152 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0153 00e1       |    |		Load_Encached	Boolean_Cache
0154 00e1       |    |		Load_Encached	Boolean_Cache
0155 480f       |H   |		Short_Literal	0xf
0156 483c       |H<  |		Short_Literal	0x3c
0157 480e       |H   |		Short_Literal	0xe
0158 483d       |H=  |		Short_Literal	0x3d
0159 480d       |H   |		Short_Literal	0xd
015a 483e       |H>  |		Short_Literal	0x3e
015b 4810       |H   |		Short_Literal	0x10
015c 483f       |H?  |		Short_Literal	0x3f
015d 4810       |H   |		Short_Literal	0x10
015e 4844       |HD  |		Short_Literal	0x44
015f 4810       |H   |		Short_Literal	0x10
0160 4849       |HI  |		Short_Literal	0x49
0161 4810       |H   |		Short_Literal	0x10
0162 484e       |HN  |		Short_Literal	0x4e
0163 4810       |H   |		Short_Literal	0x10
0164 4853       |HS  |		Short_Literal	0x53
0165 4810       |H   |		Short_Literal	0x10
0166 4858       |HX  |		Short_Literal	0x58
0167 4810       |H   |		Short_Literal	0x10
0168 485d       |H]  |		Short_Literal	0x5d
0169 4810       |H   |		Short_Literal	0x10
016a 4862       |Hb  |		Short_Literal	0x62
016b 4810 4867  |H Hg|		Declare_Variable	Select	0x00b, 0x003,
016d 4810 486c  |H Hl|				[0x000]: 0x000 = 0x0000,
016f 4810 4872  |H Hr|				[0x010]: 0x072 = 0x0390,
0171 4800 4800  |H H |				[0x010]: 0x06c = 0x0360,
0173 480b 4803  |H H |				[0x010]: 0x067 = 0x0338
0175 02cf       |    |
0176 00bc       |    |		Action	Signal_Activated
0177			BODY_0140:
0177 00cf       |    |		Action	Mark_Auxiliary
0178 e211       |    |		Load	0x1,0x11
0179 0e00       |    |		Execute_Immediate	Not_Equal,0x0
017a 00da       |    |		Load_Top	At_Offset_2
017b 1002       |    |		Execute	Select,Guard_Write,Field_Number 0x2
017c e211       |    |		Load	0x1,0x11
017d 0e00       |    |		Execute_Immediate	Not_Equal,0x0
017e 00d8       |    |		Load_Top	At_Offset_0
017f 00db       |    |		Load_Top	At_Offset_3
0180 1003       |    |		Execute	Select,Guard_Write,Field_Number 0x3
0181 6803       |h   |		Jump_Zero	0x185
0182 480b       |H   |		Short_Literal	0xb
0183 00da       |    |		Load_Top	At_Offset_2
0184 1104       |    |		Execute	Select,Member_Write,Field_Number 0x4
0185 e211       |    |		Load	0x1,0x11
0186 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0187 00d8       |    |		Load_Top	At_Offset_0
0188 00db       |    |		Load_Top	At_Offset_3
0189 1005       |    |		Execute	Select,Guard_Write,Field_Number 0x5
018a 6803       |h   |		Jump_Zero	0x18e
018b 480a       |H   |		Short_Literal	0xa
018c 00da       |    |		Load_Top	At_Offset_2
018d 1106       |    |		Execute	Select,Member_Write,Field_Number 0x6
018e e211       |    |		Load	0x1,0x11
018f 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0190 00d8       |    |		Load_Top	At_Offset_0
0191 00db       |    |		Load_Top	At_Offset_3
0192 1007       |    |		Execute	Select,Guard_Write,Field_Number 0x7
0193 6803       |h   |		Jump_Zero	0x197
0194 4809       |H   |		Short_Literal	0x9
0195 00da       |    |		Load_Top	At_Offset_2
0196 1108       |    |		Execute	Select,Member_Write,Field_Number 0x8
0197 e211       |    |		Load	0x1,0x11
0198 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0199 00d8       |    |		Load_Top	At_Offset_0
019a 00db       |    |		Load_Top	At_Offset_3
019b 1009       |    |		Execute	Select,Guard_Write,Field_Number 0x9
019c 6803       |h   |		Jump_Zero	0x1a0
019d 4808       |H   |		Short_Literal	0x8
019e 00da       |    |		Load_Top	At_Offset_2
019f 110a       |    |		Execute	Select,Member_Write,Field_Number 0xa
01a0 e211       |    |		Load	0x1,0x11
01a1 0e00       |    |		Execute_Immediate	Not_Equal,0x0
01a2 00d8       |    |		Load_Top	At_Offset_0
01a3 00db       |    |		Load_Top	At_Offset_3
01a4 100b       |    |		Execute	Select,Guard_Write,Field_Number 0xb
01a5 6803       |h   |		Jump_Zero	0x1a9
01a6 4807       |H   |		Short_Literal	0x7
01a7 00da       |    |		Load_Top	At_Offset_2
01a8 110c       |    |		Execute	Select,Member_Write,Field_Number 0xc
01a9 e211       |    |		Load	0x1,0x11
01aa 0e00       |    |		Execute_Immediate	Not_Equal,0x0
01ab 00d8       |    |		Load_Top	At_Offset_0
01ac 00db       |    |		Load_Top	At_Offset_3
01ad 100d       |    |		Execute	Select,Guard_Write,Field_Number 0xd
01ae 6803       |h   |		Jump_Zero	0x1b2
01af 4805       |H   |		Short_Literal	0x5
01b0 00da       |    |		Load_Top	At_Offset_2
01b1 110e       |    |		Execute	Select,Member_Write,Field_Number 0xe
01b2 e211       |    |		Load	0x1,0x11
01b3 0e00       |    |		Execute_Immediate	Not_Equal,0x0
01b4 00d8       |    |		Load_Top	At_Offset_0
01b5 00db       |    |		Load_Top	At_Offset_3
01b6 100f       |    |		Execute	Select,Guard_Write,Field_Number 0xf
01b7 6803       |h   |		Jump_Zero	0x1bb
01b8 4803       |H   |		Short_Literal	0x3
01b9 00da       |    |		Load_Top	At_Offset_2
01ba 1110       |    |		Execute	Select,Member_Write,Field_Number 0x10
01bb e211       |    |		Load	0x1,0x11
01bc 0e00       |    |		Execute_Immediate	Not_Equal,0x0
01bd 00d8       |    |		Load_Top	At_Offset_0
01be 00db       |    |		Load_Top	At_Offset_3
01bf 1011       |    |		Execute	Select,Guard_Write,Field_Number 0x11
01c0 6803       |h   |		Jump_Zero	0x1c4
01c1 4806       |H   |		Short_Literal	0x6
01c2 00da       |    |		Load_Top	At_Offset_2
01c3 1112       |    |		Execute	Select,Member_Write,Field_Number 0x12
01c4 e211       |    |		Load	0x1,0x11
01c5 0e00       |    |		Execute_Immediate	Not_Equal,0x0
01c6 00d8       |    |		Load_Top	At_Offset_0
01c7 00db       |    |		Load_Top	At_Offset_3
01c8 1013       |    |		Execute	Select,Guard_Write,Field_Number 0x13
01c9 6803       |h   |		Jump_Zero	0x1cd
01ca 4802       |H   |		Short_Literal	0x2
01cb 00da       |    |		Load_Top	At_Offset_2
01cc 1114       |    |		Execute	Select,Member_Write,Field_Number 0x14
01cd e211       |    |		Load	0x1,0x11
01ce 0e00       |    |		Execute_Immediate	Not_Equal,0x0
01cf 00d8       |    |		Load_Top	At_Offset_0
01d0 00db       |    |		Load_Top	At_Offset_3
01d1 1015       |    |		Execute	Select,Guard_Write,Field_Number 0x15
01d2 6803       |h   |		Jump_Zero	0x1d6
01d3 4801       |H   |		Short_Literal	0x1
01d4 00da       |    |		Load_Top	At_Offset_2
01d5 1116       |    |		Execute	Select,Member_Write,Field_Number 0x16
01d6 4800       |H   |		Short_Literal	0x0
01d7 00da       |    |		Load_Top	At_Offset_2
01d8 1118       |    |		Execute	Select,Member_Write,Field_Number 0x18
01d9 00d9       |    |		Load_Top	At_Offset_1
01da 013f       | ?  |		Execute	Select,Rendezvous
01db 00d1       |    |		Pop_Control	Pop_Count_1
01dc 00c9       |    |		Action	Pop_Auxiliary_Loop
01dd 7f9a       |    |		Jump	0x178
01de 0000 0000  |    |		.XXX[0x5]
01e0 01e3 0004  |    |
01e2 0001       |    |
01e3 4801       |H   |		Short_Literal	0x1
01e4 a213       |    |		Store_Unchecked	0x1,0x13
01e5 4100       |A   |		End_Rendezvous	0x0
01e6 0000 0000  |    |		.XXX[0x5]
01e8 01eb 0004  |    |
01ea 0001       |    |
01eb 00db       |    |		Load_Top	At_Offset_3
01ec a211       |    |		Store_Unchecked	0x1,0x11
01ed 4100       |A   |		End_Rendezvous	0x0
01ee 0000 0000  |    |		.XXX[0x5]
01f0 01f3 0004  |    |
01f2 0001       |    |
01f3 e211       |    |		Load	0x1,0x11
01f4 a5fe       |    |		Store_Unchecked	0x2,-0x2
01f5 4101       |A   |		End_Rendezvous	0x1
01f6 0000 0000  |    |		.XXX[0x5]
01f8 01fb 0004  |    |
01fa 0001       |    |
01fb 0092 03ab  |    |		Action	Push_String_Extended,0x3ab					; "-> unfiltration"
01fd e003       |    |		Load	0x0,0x3
01fe 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
01ff e004       |    |		Load	0x0,0x4
0200 e5f9       |    |		Load	0x2,-0x7
0201 e5fa       |    |		Load	0x2,-0x6
0202 e5fb       |    |		Load	0x2,-0x5
0203 48b7       |H   |		Short_Literal	0xb7
0204 e5fc       |    |		Load	0x2,-0x4
0205 e005       |    |		Load	0x0,0x5
0206 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0207 e006       |    |		Load	0x0,0x6
0208 0162       | b  |		Execute	Variant_Record,Check_In_Type
0209 480b       |H   |		Short_Literal	0xb
020a 8007       |    |		Call	0x0,0x7
020b 00d1       |    |		Pop_Control	Pop_Count_1
020c e212       |    |		Load	0x1,0x12
020d 8008       |    |		Call	0x0,0x8
020e 00d1       |    |		Pop_Control	Pop_Count_1
020f e214       |    |		Load	0x1,0x14
0210 e212       |    |		Load	0x1,0x12
0211 e009       |    |		Load	0x0,0x9
0212 e00a       |    |		Load	0x0,0xa
0213 e00b       |    |		Load	0x0,0xb
0214 480c       |H   |		Short_Literal	0xc
0215 e009       |    |		Load	0x0,0x9
0216 e00a       |    |		Load	0x0,0xa
0217 e004       |    |		Load	0x0,0x4
0218 800c       |    |		Call	0x0,0xc
0219 00d1       |    |		Pop_Control	Pop_Count_1
021a c214       |    |		Store	0x1,0x14
021b e212       |    |		Load	0x1,0x12
021c 800d       |    |		Call	0x0,0xd
021d 4100       |A   |		End_Rendezvous	0x0
021e 0000 0000  |    |		.XXX[0x5]
0220 0223 0004  | #  |
0222 0001       |    |
0223 0092 03ac  |    |		Action	Push_String_Extended,0x3ac					; "-> filtration"
0225 e003       |    |		Load	0x0,0x3
0226 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0227 e004       |    |		Load	0x0,0x4
0228 e5f9       |    |		Load	0x2,-0x7
0229 e5fa       |    |		Load	0x2,-0x6
022a e5fb       |    |		Load	0x2,-0x5
022b 48b7       |H   |		Short_Literal	0xb7
022c e5fc       |    |		Load	0x2,-0x4
022d e005       |    |		Load	0x0,0x5
022e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
022f e006       |    |		Load	0x0,0x6
0230 0162       | b  |		Execute	Variant_Record,Check_In_Type
0231 480a       |H   |		Short_Literal	0xa
0232 8007       |    |		Call	0x0,0x7
0233 00d1       |    |		Pop_Control	Pop_Count_1
0234 e212       |    |		Load	0x1,0x12
0235 8008       |    |		Call	0x0,0x8
0236 00d1       |    |		Pop_Control	Pop_Count_1
0237 e214       |    |		Load	0x1,0x14
0238 e212       |    |		Load	0x1,0x12
0239 e009       |    |		Load	0x0,0x9
023a e00a       |    |		Load	0x0,0xa
023b e00b       |    |		Load	0x0,0xb
023c 480c       |H   |		Short_Literal	0xc
023d e009       |    |		Load	0x0,0x9
023e e00a       |    |		Load	0x0,0xa
023f e004       |    |		Load	0x0,0x4
0240 800c       |    |		Call	0x0,0xc
0241 00d1       |    |		Pop_Control	Pop_Count_1
0242 c214       |    |		Store	0x1,0x14
0243 e212       |    |		Load	0x1,0x12
0244 800d       |    |		Call	0x0,0xd
0245 4100       |A   |		End_Rendezvous	0x0
0246 0000 0000  |    |		.XXX[0x5]
0248 024b 0004  | K  |
024a 0001       |    |
024b 0092 03ad  |    |		Action	Push_String_Extended,0x3ad					; "-> unsubcription"
024d e003       |    |		Load	0x0,0x3
024e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
024f e004       |    |		Load	0x0,0x4
0250 e5f9       |    |		Load	0x2,-0x7
0251 e5fa       |    |		Load	0x2,-0x6
0252 e5fb       |    |		Load	0x2,-0x5
0253 48b7       |H   |		Short_Literal	0xb7
0254 e5fc       |    |		Load	0x2,-0x4
0255 e005       |    |		Load	0x0,0x5
0256 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0257 e006       |    |		Load	0x0,0x6
0258 0162       | b  |		Execute	Variant_Record,Check_In_Type
0259 4809       |H   |		Short_Literal	0x9
025a 8007       |    |		Call	0x0,0x7
025b 00d1       |    |		Pop_Control	Pop_Count_1
025c e212       |    |		Load	0x1,0x12
025d 8008       |    |		Call	0x0,0x8
025e 00d1       |    |		Pop_Control	Pop_Count_1
025f e214       |    |		Load	0x1,0x14
0260 e212       |    |		Load	0x1,0x12
0261 e009       |    |		Load	0x0,0x9
0262 e00a       |    |		Load	0x0,0xa
0263 e00b       |    |		Load	0x0,0xb
0264 480c       |H   |		Short_Literal	0xc
0265 e009       |    |		Load	0x0,0x9
0266 e00a       |    |		Load	0x0,0xa
0267 e004       |    |		Load	0x0,0x4
0268 800c       |    |		Call	0x0,0xc
0269 00d1       |    |		Pop_Control	Pop_Count_1
026a c214       |    |		Store	0x1,0x14
026b e212       |    |		Load	0x1,0x12
026c 800d       |    |		Call	0x0,0xd
026d 4100       |A   |		End_Rendezvous	0x0
026e 0000 0000  |    |		.XXX[0x5]
0270 0273 0004  | s  |
0272 0001       |    |
0273 0092 03ae  |    |		Action	Push_String_Extended,0x3ae					; "-> subscription"
0275 e003       |    |		Load	0x0,0x3
0276 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0277 e004       |    |		Load	0x0,0x4
0278 e5f9       |    |		Load	0x2,-0x7
0279 e5fa       |    |		Load	0x2,-0x6
027a e5fb       |    |		Load	0x2,-0x5
027b 48b7       |H   |		Short_Literal	0xb7
027c e5fc       |    |		Load	0x2,-0x4
027d e005       |    |		Load	0x0,0x5
027e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
027f e006       |    |		Load	0x0,0x6
0280 0162       | b  |		Execute	Variant_Record,Check_In_Type
0281 4808       |H   |		Short_Literal	0x8
0282 8007       |    |		Call	0x0,0x7
0283 00d1       |    |		Pop_Control	Pop_Count_1
0284 e212       |    |		Load	0x1,0x12
0285 8008       |    |		Call	0x0,0x8
0286 00d1       |    |		Pop_Control	Pop_Count_1
0287 e214       |    |		Load	0x1,0x14
0288 e212       |    |		Load	0x1,0x12
0289 e009       |    |		Load	0x0,0x9
028a e00a       |    |		Load	0x0,0xa
028b e00b       |    |		Load	0x0,0xb
028c 480c       |H   |		Short_Literal	0xc
028d e009       |    |		Load	0x0,0x9
028e e00a       |    |		Load	0x0,0xa
028f e004       |    |		Load	0x0,0x4
0290 800c       |    |		Call	0x0,0xc
0291 00d1       |    |		Pop_Control	Pop_Count_1
0292 c214       |    |		Store	0x1,0x14
0293 e212       |    |		Load	0x1,0x12
0294 800d       |    |		Call	0x0,0xd
0295 4100       |A   |		End_Rendezvous	0x0
0296 0000 0000  |    |		.XXX[0x5]
0298 029b 0004  |    |
029a 0001       |    |
029b 0092 03af  |    |		Action	Push_String_Extended,0x3af					; "-> unpublication"
029d e003       |    |		Load	0x0,0x3
029e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
029f e004       |    |		Load	0x0,0x4
02a0 e5f9       |    |		Load	0x2,-0x7
02a1 e5fa       |    |		Load	0x2,-0x6
02a2 e5fb       |    |		Load	0x2,-0x5
02a3 48b7       |H   |		Short_Literal	0xb7
02a4 e5fc       |    |		Load	0x2,-0x4
02a5 e005       |    |		Load	0x0,0x5
02a6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02a7 e006       |    |		Load	0x0,0x6
02a8 0162       | b  |		Execute	Variant_Record,Check_In_Type
02a9 4807       |H   |		Short_Literal	0x7
02aa 8007       |    |		Call	0x0,0x7
02ab 00d1       |    |		Pop_Control	Pop_Count_1
02ac e212       |    |		Load	0x1,0x12
02ad 8008       |    |		Call	0x0,0x8
02ae 00d1       |    |		Pop_Control	Pop_Count_1
02af e214       |    |		Load	0x1,0x14
02b0 e212       |    |		Load	0x1,0x12
02b1 e009       |    |		Load	0x0,0x9
02b2 e00a       |    |		Load	0x0,0xa
02b3 e00b       |    |		Load	0x0,0xb
02b4 480c       |H   |		Short_Literal	0xc
02b5 e009       |    |		Load	0x0,0x9
02b6 e00a       |    |		Load	0x0,0xa
02b7 e004       |    |		Load	0x0,0x4
02b8 800c       |    |		Call	0x0,0xc
02b9 00d1       |    |		Pop_Control	Pop_Count_1
02ba c214       |    |		Store	0x1,0x14
02bb e212       |    |		Load	0x1,0x12
02bc 800d       |    |		Call	0x0,0xd
02bd 4100       |A   |		End_Rendezvous	0x0
02be 0000 0000  |    |		.XXX[0x5]
02c0 02c3 0004  |    |
02c2 0001       |    |
02c3 0092 03b0  |    |		Action	Push_String_Extended,0x3b0					; "-> forward"
02c5 e003       |    |		Load	0x0,0x3
02c6 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02c7 e004       |    |		Load	0x0,0x4
02c8 e5f9       |    |		Load	0x2,-0x7
02c9 e5fa       |    |		Load	0x2,-0x6
02ca e5fb       |    |		Load	0x2,-0x5
02cb 48b7       |H   |		Short_Literal	0xb7
02cc e5fc       |    |		Load	0x2,-0x4
02cd e005       |    |		Load	0x0,0x5
02ce 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02cf e006       |    |		Load	0x0,0x6
02d0 0162       | b  |		Execute	Variant_Record,Check_In_Type
02d1 4805       |H   |		Short_Literal	0x5
02d2 8007       |    |		Call	0x0,0x7
02d3 00d1       |    |		Pop_Control	Pop_Count_1
02d4 e212       |    |		Load	0x1,0x12
02d5 8008       |    |		Call	0x0,0x8
02d6 00d1       |    |		Pop_Control	Pop_Count_1
02d7 e214       |    |		Load	0x1,0x14
02d8 e212       |    |		Load	0x1,0x12
02d9 e009       |    |		Load	0x0,0x9
02da e00a       |    |		Load	0x0,0xa
02db e00b       |    |		Load	0x0,0xb
02dc 480c       |H   |		Short_Literal	0xc
02dd e009       |    |		Load	0x0,0x9
02de e00a       |    |		Load	0x0,0xa
02df e004       |    |		Load	0x0,0x4
02e0 800c       |    |		Call	0x0,0xc
02e1 00d1       |    |		Pop_Control	Pop_Count_1
02e2 c214       |    |		Store	0x1,0x14
02e3 e212       |    |		Load	0x1,0x12
02e4 800d       |    |		Call	0x0,0xd
02e5 4100       |A   |		End_Rendezvous	0x0
02e6 0000 0000  |    |		.XXX[0x5]
02e8 02eb 0004  |    |
02ea 0001       |    |
02eb 0092 03b1  |    |		Action	Push_String_Extended,0x3b1					; "-> request"
02ed e003       |    |		Load	0x0,0x3
02ee 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02ef e004       |    |		Load	0x0,0x4
02f0 e5f9       |    |		Load	0x2,-0x7
02f1 e5fa       |    |		Load	0x2,-0x6
02f2 e5fb       |    |		Load	0x2,-0x5
02f3 48b7       |H   |		Short_Literal	0xb7
02f4 e5fc       |    |		Load	0x2,-0x4
02f5 e005       |    |		Load	0x0,0x5
02f6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02f7 e006       |    |		Load	0x0,0x6
02f8 0162       | b  |		Execute	Variant_Record,Check_In_Type
02f9 4803       |H   |		Short_Literal	0x3
02fa 8007       |    |		Call	0x0,0x7
02fb 00d1       |    |		Pop_Control	Pop_Count_1
02fc e212       |    |		Load	0x1,0x12
02fd 8008       |    |		Call	0x0,0x8
02fe 00d1       |    |		Pop_Control	Pop_Count_1
02ff e214       |    |		Load	0x1,0x14
0300 e212       |    |		Load	0x1,0x12
0301 e009       |    |		Load	0x0,0x9
0302 e00a       |    |		Load	0x0,0xa
0303 e00b       |    |		Load	0x0,0xb
0304 480c       |H   |		Short_Literal	0xc
0305 e009       |    |		Load	0x0,0x9
0306 e00a       |    |		Load	0x0,0xa
0307 e004       |    |		Load	0x0,0x4
0308 800c       |    |		Call	0x0,0xc
0309 00d1       |    |		Pop_Control	Pop_Count_1
030a c214       |    |		Store	0x1,0x14
030b e212       |    |		Load	0x1,0x12
030c 800d       |    |		Call	0x0,0xd
030d 4100       |A   |		End_Rendezvous	0x0
030e 0000 0000  |    |		.XXX[0x5]
0310 0313 0004  |    |
0312 0001       |    |
0313 0092 03b2  |    |		Action	Push_String_Extended,0x3b2					; "-> publication"
0315 e003       |    |		Load	0x0,0x3
0316 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0317 e004       |    |		Load	0x0,0x4
0318 e5f9       |    |		Load	0x2,-0x7
0319 e5fa       |    |		Load	0x2,-0x6
031a e5fb       |    |		Load	0x2,-0x5
031b 48b7       |H   |		Short_Literal	0xb7
031c e5fc       |    |		Load	0x2,-0x4
031d e005       |    |		Load	0x0,0x5
031e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
031f e006       |    |		Load	0x0,0x6
0320 0162       | b  |		Execute	Variant_Record,Check_In_Type
0321 4806       |H   |		Short_Literal	0x6
0322 8007       |    |		Call	0x0,0x7
0323 00d1       |    |		Pop_Control	Pop_Count_1
0324 e212       |    |		Load	0x1,0x12
0325 8008       |    |		Call	0x0,0x8
0326 00d1       |    |		Pop_Control	Pop_Count_1
0327 e214       |    |		Load	0x1,0x14
0328 e212       |    |		Load	0x1,0x12
0329 e009       |    |		Load	0x0,0x9
032a e00a       |    |		Load	0x0,0xa
032b e00b       |    |		Load	0x0,0xb
032c 480c       |H   |		Short_Literal	0xc
032d e009       |    |		Load	0x0,0x9
032e e00a       |    |		Load	0x0,0xa
032f e004       |    |		Load	0x0,0x4
0330 800c       |    |		Call	0x0,0xc
0331 00d1       |    |		Pop_Control	Pop_Count_1
0332 c214       |    |		Store	0x1,0x14
0333 e212       |    |		Load	0x1,0x12
0334 800d       |    |		Call	0x0,0xd
0335 4100       |A   |		End_Rendezvous	0x0
0336 0000 0000  |    |		.XXX[0x2]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; See instruction 0x02cf at 0x16b, index=0x10
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b 0092 03b3  |    |		Action	Push_String_Extended,0x3b3					; "-> query"
033d e003       |    |		Load	0x0,0x3
033e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
033f e004       |    |		Load	0x0,0x4
0340 e5f9       |    |		Load	0x2,-0x7
0341 e5fa       |    |		Load	0x2,-0x6
0342 e5fb       |    |		Load	0x2,-0x5
0343 48b7       |H   |		Short_Literal	0xb7
0344 e5fc       |    |		Load	0x2,-0x4
0345 e005       |    |		Load	0x0,0x5
0346 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0347 e006       |    |		Load	0x0,0x6
0348 0162       | b  |		Execute	Variant_Record,Check_In_Type
0349 4802       |H   |		Short_Literal	0x2
034a 8007       |    |		Call	0x0,0x7
034b 00d1       |    |		Pop_Control	Pop_Count_1
034c e212       |    |		Load	0x1,0x12
034d 8008       |    |		Call	0x0,0x8
034e 00d1       |    |		Pop_Control	Pop_Count_1
034f e214       |    |		Load	0x1,0x14
0350 e212       |    |		Load	0x1,0x12
0351 e009       |    |		Load	0x0,0x9
0352 e00a       |    |		Load	0x0,0xa
0353 e00b       |    |		Load	0x0,0xb
0354 480c       |H   |		Short_Literal	0xc
0355 e009       |    |		Load	0x0,0x9
0356 e00a       |    |		Load	0x0,0xa
0357 e004       |    |		Load	0x0,0x4
0358 800c       |    |		Call	0x0,0xc
0359 00d1       |    |		Pop_Control	Pop_Count_1
035a c214       |    |		Store	0x1,0x14
035b e212       |    |		Load	0x1,0x12
035c 800d       |    |		Call	0x0,0xd
035d 4100       |A   |		End_Rendezvous	0x0
035e 0000 0000  |    |		.XXX[0x2]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; See instruction 0x02cf at 0x16b, index=0x10
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 0092 03b4  |    |		Action	Push_String_Extended,0x3b4					; "-> unregistration"
0365 e003       |    |		Load	0x0,0x3
0366 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0367 e004       |    |		Load	0x0,0x4
0368 e5f9       |    |		Load	0x2,-0x7
0369 e5fa       |    |		Load	0x2,-0x6
036a e5fb       |    |		Load	0x2,-0x5
036b 48b7       |H   |		Short_Literal	0xb7
036c e5fc       |    |		Load	0x2,-0x4
036d e005       |    |		Load	0x0,0x5
036e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
036f e006       |    |		Load	0x0,0x6
0370 0162       | b  |		Execute	Variant_Record,Check_In_Type
0371 4801       |H   |		Short_Literal	0x1
0372 8007       |    |		Call	0x0,0x7
0373 00d1       |    |		Pop_Control	Pop_Count_1
0374 e212       |    |		Load	0x1,0x12
0375 8008       |    |		Call	0x0,0x8
0376 00d1       |    |		Pop_Control	Pop_Count_1
0377 e214       |    |		Load	0x1,0x14
0378 e212       |    |		Load	0x1,0x12
0379 e009       |    |		Load	0x0,0x9
037a e00a       |    |		Load	0x0,0xa
037b e00b       |    |		Load	0x0,0xb
037c 480b       |H   |		Short_Literal	0xb
037d e009       |    |		Load	0x0,0x9
037e e00a       |    |		Load	0x0,0xa
037f e004       |    |		Load	0x0,0x4
0380 800c       |    |		Call	0x0,0xc
0381 00d1       |    |		Pop_Control	Pop_Count_1
0382 c214       |    |		Store	0x1,0x14
0383 e212       |    |		Load	0x1,0x12
0384 800d       |    |		Call	0x0,0xd
0385 e00b       |    |		Load	0x0,0xb
0386 4801       |H   |		Short_Literal	0x1
0387 e00e       |    |		Load	0x0,0xe
0388 e00f       |    |		Load	0x0,0xf
0389 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
038a 4100       |A   |		End_Rendezvous	0x0
038b 0000 0000  |    |		.BLANK	0000[0x5]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; See instruction 0x02cf at 0x16b, index=0x10
0390 ; --------------------------------------------------------------------------------------
0390 0393       |    |		.CONST	0x0393								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0001       |    |		.CONST	0x0001								; Number of locals
0393			BODY_0390:
0393			INIT_0390:
0393 0092 03b5  |    |		Action	Push_String_Extended,0x3b5					; "-> registration "
0395 e003       |    |		Load	0x0,0x3
0396 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0397 e004       |    |		Load	0x0,0x4
0398 e5f9       |    |		Load	0x2,-0x7
0399 e5fa       |    |		Load	0x2,-0x6
039a e5fb       |    |		Load	0x2,-0x5
039b 48b7       |H   |		Short_Literal	0xb7
039c e5fc       |    |		Load	0x2,-0x4
039d e005       |    |		Load	0x0,0x5
039e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
039f e006       |    |		Load	0x0,0x6
03a0 0162       | b  |		Execute	Variant_Record,Check_In_Type
03a1 4800       |H   |		Short_Literal	0x0
03a2 8007       |    |		Call	0x0,0x7
03a3 00d1       |    |		Pop_Control	Pop_Count_1
03a4 e00b       |    |		Load	0x0,0xb
03a5 4801       |H   |		Short_Literal	0x1
03a6 e00e       |    |		Load	0x0,0xe
03a7 e010       |    |		Load	0x0,0x10
03a8 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
03a9 4100       |A   |		End_Rendezvous	0x0
03aa ; --------------------------------------------------------------------------------------
03aa ; STRING TABLE
03aa ; --------------------------------------------------------------------------------------
03aa 001a       |    |		.STRTAB	0x001a->0x03b7							; "******* message registration ********"
03ab 003d       | =  |		.STRTAB	0x003d->0x03c9							; "-> unfiltration"
03ac 004a       | J  |		.STRTAB	0x004a->0x03d1							; "-> filtration"
03ad 0055       | U  |		.STRTAB	0x0055->0x03d7							; "-> unsubcription"
03ae 0063       | c  |		.STRTAB	0x0063->0x03df							; "-> subscription"
03af 0070       | p  |		.STRTAB	0x0070->0x03e7							; "-> unpublication"
03b0 007e       | ~  |		.STRTAB	0x007e->0x03ef							; "-> forward"
03b1 0086       |    |		.STRTAB	0x0086->0x03f4							; "-> request"
03b2 008e       |    |		.STRTAB	0x008e->0x03f9							; "-> publication"
03b3 009a       |    |		.STRTAB	0x009a->0x0400							; "-> query"
03b4 00a0       |    |		.STRTAB	0x00a0->0x0404							; "-> unregistration"
03b5 00af       |    |		.STRTAB	0x00af->0x040c							; "-> registration "
03b6 00bd       |    |		.STREND 0x00bd->0x0414
03b7 2a2a 2a2a  |****|		.STRTAB_STRINGS
0415 0000 0000  |    |		.XXX[0x3]
0417 0000       |    |
0418 ; --------------------------------------------------------------------------------------
0418 ; Debug Table
0418 ; --------------------------------------------------------------------------------------
0418 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x870d,0x0000,0x0001,0x001b
041e 000b 048a  |    |		.DBG4T	0x000b,0x048a,0xc000,0x0000
0422 0014 0490  |    |		.DBG4T	0x0014,0x0490,0xc000,0x8000
0426 0063 04a4  | c  |		.DBG4T	0x0063,0x04a4,0x1001,0x0000
042a 0073 04a7  | s  |		.DBG4T	0x0073,0x04a7,0x1002,0x0000
042e 0083 04ac  |    |		.DBG4T	0x0083,0x04ac,0x1001,0x0000
0432 008b 04af  |    |		.DBG4T	0x008b,0x04af,0x1001,0x0000
0436 0093 04b2  |    |		.DBG4T	0x0093,0x04b2,0x0000,0x0000
043a 009a 04b7  |    |		.DBG4T	0x009a,0x04b7,0x0000,0x4000
043e 00fb 0000  |    |		.DBG4T	0x00fb,0x0000,0x0003,0x0000
0442 0103 04d4  |    |		.DBG4T	0x0103,0x04d4,0x0003,0x0000
0446 0113 04d9  |    |		.DBG4T	0x0113,0x04d9,0x0003,0x0000
044a 0143 04e1  | C  |		.DBG4T	0x0143,0x04e1,0x0000,0x0000
044e 014d 04e7  | M  |		.DBG4T	0x014d,0x04e7,0x0000,0x4000
0452 01e3 04ef  |    |		.DBG4T	0x01e3,0x04ef,0x0003,0x0000
0456 01eb 04f2  |    |		.DBG4T	0x01eb,0x04f2,0x0003,0x0000
045a 01f3 04f5  |    |		.DBG4T	0x01f3,0x04f5,0x0003,0x0000
045e 01fb 04f8  |    |		.DBG4T	0x01fb,0x04f8,0x0003,0x0000
0462 0223 04ff  | #  |		.DBG4T	0x0223,0x04ff,0x0003,0x0000
0466 024b 0506  | K  |		.DBG4T	0x024b,0x0506,0x0003,0x0000
046a 0273 050d  | s  |		.DBG4T	0x0273,0x050d,0x0003,0x0000
046e 029b 0514  |    |		.DBG4T	0x029b,0x0514,0x0003,0x0000
0472 02c3 051b  |    |		.DBG4T	0x02c3,0x051b,0x0003,0x0000
0476 02eb 0522  |   "|		.DBG4T	0x02eb,0x0522,0x0003,0x0000
047a 0313 0529  |   )|		.DBG4T	0x0313,0x0529,0x0003,0x0000
047e 033b 0530  | ; 0|		.DBG4T	0x033b,0x0530,0x0003,0x0000
0482 0363 0537  | c 7|		.DBG4T	0x0363,0x0537,0x0003,0x0000
0486 0393 053f  |   ?|		.DBG4T	0x0393,0x053f,0x0003,0x0000
048a ; --------------------------------------------------------------------------------------
048a ; Debug chain
048a ; --------------------------------------------------------------------------------------
048a 0004 0000  |    |		.DBGLEN	0x0004,0x0000
048c 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011
0490 ; --------------------------------------------------------------------------------------
0490 ; Debug chain
0490 ; --------------------------------------------------------------------------------------
0490 0009 0000  |    |		.DBGLEN	0x0009,0x0000
0492 0014 0018  |    |		.DBGLNO	0x0014,0x0018,0x0022,0x0024,0x0026,0x0028,0x002a,0x0030,0x0043
049b 0003 0004  |    |		.XXX[0x9]
049d 0005 0006  |    |
049f 0007 0008  |    |
04a1 0009 000a  |    |
04a3 000b       |    |
04a4 ; --------------------------------------------------------------------------------------
04a4 ; Debug chain
04a4 ; --------------------------------------------------------------------------------------
04a4 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04a6 0063       | c  |		.DBGLNO	0x0063
04a7 ; --------------------------------------------------------------------------------------
04a7 ; Debug chain
04a7 ; --------------------------------------------------------------------------------------
04a7 0001 0002  |    |		.DBGLEN	0x0001,0x0002
04a9 0073 0074  | s t|		.DBGLNO	0x0073,0x0074,0x0079
04ac ; --------------------------------------------------------------------------------------
04ac ; Debug chain
04ac ; --------------------------------------------------------------------------------------
04ac 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04ae 0083       |    |		.DBGLNO	0x0083
04af ; --------------------------------------------------------------------------------------
04af ; Debug chain
04af ; --------------------------------------------------------------------------------------
04af 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04b1 008b       |    |		.DBGLNO	0x008b
04b2 ; --------------------------------------------------------------------------------------
04b2 ; Debug chain
04b2 ; --------------------------------------------------------------------------------------
04b2 0003 0000  |    |		.DBGLEN	0x0003,0x0000
04b4 0093 0095  |    |		.DBGLNO	0x0093,0x0095,0x0097
04b7 ; --------------------------------------------------------------------------------------
04b7 ; Debug chain
04b7 ; --------------------------------------------------------------------------------------
04b7 0007 000a  |    |		.DBGLEN	0x0007,0x000a
04b9 009a 00a2  |    |		.DBGLNO	0x009a,0x00a2,0x00a4,0x00a6,0x00ac,0x00ad,0x00b1,0x00bf,0x00c6,0x00c9,0x00cb,0x00d3,0x00d6,0x00e0,0x00e7,0x00ed,0x00f2
04ca 0002 0006  |    |		.XXX[0xa]
04cc 0007 0008  |    |
04ce 0009 000a  |    |
04d0 000b 000c  |    |
04d2 000e 000f  |    |
04d4 ; --------------------------------------------------------------------------------------
04d4 ; Debug chain
04d4 ; --------------------------------------------------------------------------------------
04d4 0000 0003  |    |		.DBGLEN	0x0000,0x0003
04d6 0103 0105  |    |		.DBGLNO	0x0103,0x0105,0x0107
04d9 ; --------------------------------------------------------------------------------------
04d9 ; Debug chain
04d9 ; --------------------------------------------------------------------------------------
04d9 0000 0006  |    |		.DBGLEN	0x0000,0x0006
04db 0113 0116  |    |		.DBGLNO	0x0113,0x0116,0x0124,0x0127,0x0135,0x0137
04e1 ; --------------------------------------------------------------------------------------
04e1 ; Debug chain
04e1 ; --------------------------------------------------------------------------------------
04e1 0004 0000  |    |		.DBGLEN	0x0004,0x0000
04e3 0143 0145  | C E|		.DBGLNO	0x0143,0x0145,0x0147,0x0149
04e7 ; --------------------------------------------------------------------------------------
04e7 ; Debug chain
04e7 ; --------------------------------------------------------------------------------------
04e7 0004 0001  |    |		.DBGLEN	0x0004,0x0001
04e9 014d 014f  | M O|		.DBGLNO	0x014d,0x014f,0x0153,0x0154,0x0178
04ee 0002       |    |		.XXX[0x1]
04ef ; --------------------------------------------------------------------------------------
04ef ; Debug chain
04ef ; --------------------------------------------------------------------------------------
04ef 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04f1 01e3       |    |		.DBGLNO	0x01e3
04f2 ; --------------------------------------------------------------------------------------
04f2 ; Debug chain
04f2 ; --------------------------------------------------------------------------------------
04f2 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04f4 01eb       |    |		.DBGLNO	0x01eb
04f5 ; --------------------------------------------------------------------------------------
04f5 ; Debug chain
04f5 ; --------------------------------------------------------------------------------------
04f5 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04f7 01f3       |    |		.DBGLNO	0x01f3
04f8 ; --------------------------------------------------------------------------------------
04f8 ; Debug chain
04f8 ; --------------------------------------------------------------------------------------
04f8 0000 0005  |    |		.DBGLEN	0x0000,0x0005
04fa 01fb 01ff  |    |		.DBGLNO	0x01fb,0x01ff,0x020c,0x020f,0x021b
04ff ; --------------------------------------------------------------------------------------
04ff ; Debug chain
04ff ; --------------------------------------------------------------------------------------
04ff 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0501 0223 0227  | # '|		.DBGLNO	0x0223,0x0227,0x0234,0x0237,0x0243
0506 ; --------------------------------------------------------------------------------------
0506 ; Debug chain
0506 ; --------------------------------------------------------------------------------------
0506 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0508 024b 024f  | K O|		.DBGLNO	0x024b,0x024f,0x025c,0x025f,0x026b
050d ; --------------------------------------------------------------------------------------
050d ; Debug chain
050d ; --------------------------------------------------------------------------------------
050d 0000 0005  |    |		.DBGLEN	0x0000,0x0005
050f 0273 0277  | s w|		.DBGLNO	0x0273,0x0277,0x0284,0x0287,0x0293
0514 ; --------------------------------------------------------------------------------------
0514 ; Debug chain
0514 ; --------------------------------------------------------------------------------------
0514 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0516 029b 029f  |    |		.DBGLNO	0x029b,0x029f,0x02ac,0x02af,0x02bb
051b ; --------------------------------------------------------------------------------------
051b ; Debug chain
051b ; --------------------------------------------------------------------------------------
051b 0000 0005  |    |		.DBGLEN	0x0000,0x0005
051d 02c3 02c7  |    |		.DBGLNO	0x02c3,0x02c7,0x02d4,0x02d7,0x02e3
0522 ; --------------------------------------------------------------------------------------
0522 ; Debug chain
0522 ; --------------------------------------------------------------------------------------
0522 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0524 02eb 02ef  |    |		.DBGLNO	0x02eb,0x02ef,0x02fc,0x02ff,0x030b
0529 ; --------------------------------------------------------------------------------------
0529 ; Debug chain
0529 ; --------------------------------------------------------------------------------------
0529 0000 0005  |    |		.DBGLEN	0x0000,0x0005
052b 0313 0317  |    |		.DBGLNO	0x0313,0x0317,0x0324,0x0327,0x0333
0530 ; --------------------------------------------------------------------------------------
0530 ; Debug chain
0530 ; --------------------------------------------------------------------------------------
0530 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0532 033b 033f  | ; ?|		.DBGLNO	0x033b,0x033f,0x034c,0x034f,0x035b
0537 ; --------------------------------------------------------------------------------------
0537 ; Debug chain
0537 ; --------------------------------------------------------------------------------------
0537 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0539 0363 0367  | c g|		.DBGLNO	0x0363,0x0367,0x0374,0x0377,0x0383,0x0385
053f ; --------------------------------------------------------------------------------------
053f ; Debug chain
053f ; --------------------------------------------------------------------------------------
053f 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0541 0393 0397  |    |		.DBGLNO	0x0393,0x0397,0x03a4
0544 0000 0000  |    |		.BLANK	0000[0xbc]