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

⟦418e021f5⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0740a3

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 06c8       |    |		.CONST	0x06c8								; 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 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005c       | \  |		.CONST	0x005c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001c       |    |		.CONST	0x001c								; Number of locals
000b			INIT_0008:
000b 48ff       |H   |		Short_Literal	0xff
000c e002       |    |		Load	0x0,0x2
000d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
000e 1c07       |    |		Execute_Immediate	Run_Utility,0x7
000f 0129       | )  |		Execute	Any,Make_Visible
0010 4800       |H   |		Short_Literal	0x0
0011 4814       |H   |		Short_Literal	0x14
0012 029f 0063  |   c|		Declare_Subprogram	INIT_0060,For_Call
0014 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0015 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0017 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
0019 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
001b 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
001d 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
001f 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
0021 029a 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call,Visible,Unelaborated
0023 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
0025 029a 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call,Visible,Unelaborated
0027 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
0029 029a 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call,Visible,Unelaborated
002b e003       |    |		Load	0x0,0x3
002c e004       |    |		Load	0x0,0x4
002d e20e       |    |		Load	0x1,0xe
002e e005       |    |		Load	0x0,0x5
002f 1b53       | S  |		Execute	Package,Field_Read,Field_Number 0x53
0030 0386       |    |		Declare_Variable	Package,Visible
0031 00d8       |    |		Load_Top	At_Offset_0
0032 020f       |    |		Execute	Module,Activate
0033 e20e       |    |		Load	0x1,0xe
0034 e20d       |    |		Load	0x1,0xd
0035 00e4       |    |		Load_Encached	Positive_Cache
0036 e20d       |    |		Load	0x1,0xd
0037 4801       |H   |		Short_Literal	0x1
0038 e20d       |    |		Load	0x1,0xd
0039 029f 0533  |   3|		Declare_Subprogram	INIT_0530,For_Call
003b 4801       |H   |		Short_Literal	0x1
003c 4803       |H   |		Short_Literal	0x3
003d 4801       |H   |		Short_Literal	0x1
003e 4800       |H   |		Short_Literal	0x0
003f 4801       |H   |		Short_Literal	0x1
0040 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0041 00bf       |    |		Action	Accept_Activation
0042 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 029b 04db  |    |		Declare_Subprogram	INIT_04d8,For_Outer_Call,Unelaborated
0048 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
005b 00c7       |    |		Action	Elaborate_Subprogram
005c			BODY_0008:
005c 00bc       |    |		Action	Signal_Activated
005d 00bb       |    |		Action	Signal_Completion
005e 0000 0000  |    |		.XXX[0x2]
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 4607       |F   |		Jump_Case	0x8
0064 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0065 7807       |x   |		Jump	0x6d								; case 0x1
0066 780a       |x   |		Jump	0x71								; case 0x2
0067 780e       |x   |		Jump	0x76								; case 0x3
0068 7811       |x   |		Jump	0x7a								; case 0x4
0069 7812       |x   |		Jump	0x7c								; case 0x5
006a 7813       |x   |		Jump	0x7e								; case 0x6
006b 7816       |x   |		Jump	0x82								; case 0x7
006c 4302       |C   |		.XXX[0x1]
006d 00da       |    |		Load_Top	At_Offset_2
006e 0091 05ce  |    |		Action	Push_String_Extended_Indexed,0x5ce				; "REGISTRATION"
0070 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0071 00db       |    |		Load_Top	At_Offset_3
0072 00db       |    |		Load_Top	At_Offset_3
0073 00e0       |    |		Load_Encached	Standard_Cache
0074 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0075 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0076 00da       |    |		Load_Top	At_Offset_2
0077 00e0       |    |		Load_Encached	Standard_Cache
0078 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0079 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
007a 00db       |    |		Load_Top	At_Offset_3
007b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
007c 00db       |    |		Load_Top	At_Offset_3
007d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
007e e20e       |    |		Load	0x1,0xe
007f 00dc       |    |		Load_Top	At_Offset_4
0080 0267       | g  |		Execute	Discrete,Predecessor
0081 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0082 e20e       |    |		Load	0x1,0xe
0083 00dc       |    |		Load_Top	At_Offset_4
0084 0268       | h  |		Execute	Discrete,Successor
0085 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0086 0000 0000  |    |		.XXX[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 00da       |    |		Load_Top	At_Offset_2
008c 4614       |F   |		Jump_Case	0x15
008d 785d       |x]  |		Jump	0xeb								; case 0x0
008e 785c       |x\  |		Jump	0xeb								; case 0x1
008f 7849       |xI  |		Jump	0xd9								; case 0x2
0090 7836       |x6  |		Jump	0xc7								; case 0x3
0091 7859       |xY  |		Jump	0xeb								; case 0x4
0092 7858       |xX  |		Jump	0xeb								; case 0x5
0093 7857       |xW  |		Jump	0xeb								; case 0x6
0094 7856       |xV  |		Jump	0xeb								; case 0x7
0095 7855       |xU  |		Jump	0xeb								; case 0x8
0096 7854       |xT  |		Jump	0xeb								; case 0x9
0097 7853       |xS  |		Jump	0xeb								; case 0xa
0098 7852       |xR  |		Jump	0xeb								; case 0xb
0099 7851       |xQ  |		Jump	0xeb								; case 0xc
009a 7850       |xP  |		Jump	0xeb								; case 0xd
009b 7807       |x   |		Jump	0xa3								; case 0xe
009c 784e       |xN  |		Jump	0xeb								; case 0xf
009d 784d       |xM  |		Jump	0xeb								; case 0x10
009e 7816       |x   |		Jump	0xb5								; case 0x11
009f 784b       |xK  |		Jump	0xeb								; case 0x12
00a0 784a       |xJ  |		Jump	0xeb								; case 0x13
00a1 7849       |xI  |		Jump	0xeb								; case 0x14
00a2 7848       |xH  |		.XXX[0x1]
00a3 480e       |H   |		Short_Literal	0xe
00a4 e21b       |    |		Load	0x1,0x1b
00a5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00a6 00d8       |    |		Load_Top	At_Offset_0
00a7 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00a8 e5fe       |    |		Load	0x2,-0x2
00a9 00d9       |    |		Load_Top	At_Offset_1
00aa 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00ab e5fd       |    |		Load	0x2,-0x3
00ac 00d9       |    |		Load_Top	At_Offset_1
00ad 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00ae e5fc       |    |		Load	0x2,-0x4
00af 00d9       |    |		Load_Top	At_Offset_1
00b0 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
00b1 e5fb       |    |		Load	0x2,-0x5
00b2 00d9       |    |		Load_Top	At_Offset_1
00b3 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
00b4 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
00b5 4811       |H   |		Short_Literal	0x11
00b6 e21b       |    |		Load	0x1,0x1b
00b7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00b8 00d8       |    |		Load_Top	At_Offset_0
00b9 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00ba e5fe       |    |		Load	0x2,-0x2
00bb 00d9       |    |		Load_Top	At_Offset_1
00bc 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00bd e5fd       |    |		Load	0x2,-0x3
00be 00d9       |    |		Load_Top	At_Offset_1
00bf 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00c0 e5fc       |    |		Load	0x2,-0x4
00c1 00d9       |    |		Load_Top	At_Offset_1
00c2 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
00c3 e5fb       |    |		Load	0x2,-0x5
00c4 00d9       |    |		Load_Top	At_Offset_1
00c5 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
00c6 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
00c7 4803       |H   |		Short_Literal	0x3
00c8 e21b       |    |		Load	0x1,0x1b
00c9 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00ca 00d8       |    |		Load_Top	At_Offset_0
00cb 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00cc e5fe       |    |		Load	0x2,-0x2
00cd 00d9       |    |		Load_Top	At_Offset_1
00ce 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00cf e5fd       |    |		Load	0x2,-0x3
00d0 00d9       |    |		Load_Top	At_Offset_1
00d1 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00d2 e5fc       |    |		Load	0x2,-0x4
00d3 00d9       |    |		Load_Top	At_Offset_1
00d4 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
00d5 e5fb       |    |		Load	0x2,-0x5
00d6 00d9       |    |		Load_Top	At_Offset_1
00d7 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
00d8 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
00d9 4802       |H   |		Short_Literal	0x2
00da e21b       |    |		Load	0x1,0x1b
00db 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00dc 00d8       |    |		Load_Top	At_Offset_0
00dd 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00de e5fe       |    |		Load	0x2,-0x2
00df 00d9       |    |		Load_Top	At_Offset_1
00e0 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00e1 e5fd       |    |		Load	0x2,-0x3
00e2 00d9       |    |		Load_Top	At_Offset_1
00e3 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00e4 e5fc       |    |		Load	0x2,-0x4
00e5 00d9       |    |		Load_Top	At_Offset_1
00e6 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
00e7 e5fb       |    |		Load	0x2,-0x5
00e8 00d9       |    |		Load_Top	At_Offset_1
00e9 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
00ea 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
00eb 0831       | 1  |		Execute_Immediate	Raise,0x31
00ec 0000 0000  |    |		.BLANK	0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f7       |    |		.CONST	0x00f7								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0002       |    |		.CONST	0x0002								; Number of locals
00f3			INIT_00f0:
00f3 e20d       |    |		Load	0x1,0xd
00f4 02ff       |    |		Declare_Variable	Variant_Record
00f5 00d8       |    |		Load_Top	At_Offset_0
00f6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00f7			BODY_00f0:
00f7 00db       |    |		Load_Top	At_Offset_3
00f8 4614       |F   |		Jump_Case	0x15
00f9 793f       |y?  |		Jump	0x239								; case 0x0
00fa 7822       |x"  |		Jump	0x11d								; case 0x1
00fb 7830       |x0  |		Jump	0x12c								; case 0x2
00fc 7846       |xF  |		Jump	0x143								; case 0x3
00fd 7866       |xf  |		Jump	0x164								; case 0x4
00fe 7856       |xV  |		Jump	0x155								; case 0x5
00ff 7873       |xs  |		Jump	0x173								; case 0x6
0100 7890       |x   |		Jump	0x191								; case 0x7
0101 789e       |x   |		Jump	0x1a0								; case 0x8
0102 787f       |x   |		Jump	0x182								; case 0x9
0103 78ab       |x   |		Jump	0x1af								; case 0xa
0104 78b9       |x   |		Jump	0x1be								; case 0xb
0105 78c7       |x   |		Jump	0x1cd								; case 0xc
0106 78d5       |x   |		Jump	0x1dc								; case 0xd
0107 7940       |y@  |		Jump	0x248								; case 0xe
0108 78e2       |x   |		Jump	0x1eb								; case 0xf
0109 7902       |y   |		Jump	0x20c								; case 0x10
010a 78ef       |x   |		Jump	0x1fa								; case 0x11
010b 790f       |y   |		Jump	0x21b								; case 0x12
010c 791d       |y   |		Jump	0x22a								; case 0x13
010d 7800       |x   |		Jump	0x10e								; case 0x14
010e 4814       |H   |		Short_Literal	0x14
010f e21b       |    |		Load	0x1,0x1b
0110 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0111 00d8       |    |		Load_Top	At_Offset_0
0112 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0113 e5fe       |    |		Load	0x2,-0x2
0114 00d9       |    |		Load_Top	At_Offset_1
0115 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0116 e5fd       |    |		Load	0x2,-0x3
0117 00d9       |    |		Load_Top	At_Offset_1
0118 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0119 e5fc       |    |		Load	0x2,-0x4
011a 00d9       |    |		Load_Top	At_Offset_1
011b 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
011c 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
011d 4801       |H   |		Short_Literal	0x1
011e e21b       |    |		Load	0x1,0x1b
011f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0120 00d8       |    |		Load_Top	At_Offset_0
0121 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0122 e5fe       |    |		Load	0x2,-0x2
0123 00d9       |    |		Load_Top	At_Offset_1
0124 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0125 e5fd       |    |		Load	0x2,-0x3
0126 00d9       |    |		Load_Top	At_Offset_1
0127 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0128 e5fc       |    |		Load	0x2,-0x4
0129 00d9       |    |		Load_Top	At_Offset_1
012a 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
012b 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
012c 00d8       |    |		Load_Top	At_Offset_0
012d e006       |    |		Load	0x0,0x6
012e e002       |    |		Load	0x0,0x2
012f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0130 00d1       |    |		Pop_Control	Pop_Count_1
0131 4802       |H   |		Short_Literal	0x2
0132 e21b       |    |		Load	0x1,0x1b
0133 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0134 00d8       |    |		Load_Top	At_Offset_0
0135 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0136 e5fe       |    |		Load	0x2,-0x2
0137 00d9       |    |		Load_Top	At_Offset_1
0138 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0139 e5fd       |    |		Load	0x2,-0x3
013a 00d9       |    |		Load_Top	At_Offset_1
013b 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
013c e5fc       |    |		Load	0x2,-0x4
013d 00d9       |    |		Load_Top	At_Offset_1
013e 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
013f 00d9       |    |		Load_Top	At_Offset_1
0140 00d9       |    |		Load_Top	At_Offset_1
0141 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0142 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0143 4803       |H   |		Short_Literal	0x3
0144 e21b       |    |		Load	0x1,0x1b
0145 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0146 00d8       |    |		Load_Top	At_Offset_0
0147 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0148 e5fe       |    |		Load	0x2,-0x2
0149 00d9       |    |		Load_Top	At_Offset_1
014a 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
014b e5fd       |    |		Load	0x2,-0x3
014c 00d9       |    |		Load_Top	At_Offset_1
014d 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
014e e5fc       |    |		Load	0x2,-0x4
014f 00d9       |    |		Load_Top	At_Offset_1
0150 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0151 00d9       |    |		Load_Top	At_Offset_1
0152 00d9       |    |		Load_Top	At_Offset_1
0153 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0154 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0155 4805       |H   |		Short_Literal	0x5
0156 e21b       |    |		Load	0x1,0x1b
0157 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0158 00d8       |    |		Load_Top	At_Offset_0
0159 1c01       |    |		Execute_Immediate	Run_Utility,0x1
015a e5fe       |    |		Load	0x2,-0x2
015b 00d9       |    |		Load_Top	At_Offset_1
015c 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
015d e5fd       |    |		Load	0x2,-0x3
015e 00d9       |    |		Load_Top	At_Offset_1
015f 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0160 e5fc       |    |		Load	0x2,-0x4
0161 00d9       |    |		Load_Top	At_Offset_1
0162 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0163 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0164 4804       |H   |		Short_Literal	0x4
0165 e21b       |    |		Load	0x1,0x1b
0166 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0167 00d8       |    |		Load_Top	At_Offset_0
0168 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0169 e5fe       |    |		Load	0x2,-0x2
016a 00d9       |    |		Load_Top	At_Offset_1
016b 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
016c e5fd       |    |		Load	0x2,-0x3
016d 00d9       |    |		Load_Top	At_Offset_1
016e 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
016f e5fc       |    |		Load	0x2,-0x4
0170 00d9       |    |		Load_Top	At_Offset_1
0171 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0172 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0173 4806       |H   |		Short_Literal	0x6
0174 e21b       |    |		Load	0x1,0x1b
0175 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0176 00d8       |    |		Load_Top	At_Offset_0
0177 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0178 e5fe       |    |		Load	0x2,-0x2
0179 00d9       |    |		Load_Top	At_Offset_1
017a 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
017b e5fd       |    |		Load	0x2,-0x3
017c 00d9       |    |		Load_Top	At_Offset_1
017d 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
017e e5fc       |    |		Load	0x2,-0x4
017f 00d9       |    |		Load_Top	At_Offset_1
0180 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0181 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0182 4809       |H   |		Short_Literal	0x9
0183 e21b       |    |		Load	0x1,0x1b
0184 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0185 00d8       |    |		Load_Top	At_Offset_0
0186 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0187 e5fe       |    |		Load	0x2,-0x2
0188 00d9       |    |		Load_Top	At_Offset_1
0189 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
018a e5fd       |    |		Load	0x2,-0x3
018b 00d9       |    |		Load_Top	At_Offset_1
018c 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
018d e5fc       |    |		Load	0x2,-0x4
018e 00d9       |    |		Load_Top	At_Offset_1
018f 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0190 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0191 4807       |H   |		Short_Literal	0x7
0192 e21b       |    |		Load	0x1,0x1b
0193 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0194 00d8       |    |		Load_Top	At_Offset_0
0195 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0196 e5fe       |    |		Load	0x2,-0x2
0197 00d9       |    |		Load_Top	At_Offset_1
0198 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0199 e5fd       |    |		Load	0x2,-0x3
019a 00d9       |    |		Load_Top	At_Offset_1
019b 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
019c e5fc       |    |		Load	0x2,-0x4
019d 00d9       |    |		Load_Top	At_Offset_1
019e 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
019f 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01a0 4808       |H   |		Short_Literal	0x8
01a1 e21b       |    |		Load	0x1,0x1b
01a2 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01a3 00d8       |    |		Load_Top	At_Offset_0
01a4 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01a5 e5fe       |    |		Load	0x2,-0x2
01a6 00d9       |    |		Load_Top	At_Offset_1
01a7 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01a8 e5fd       |    |		Load	0x2,-0x3
01a9 00d9       |    |		Load_Top	At_Offset_1
01aa 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01ab e5fc       |    |		Load	0x2,-0x4
01ac 00d9       |    |		Load_Top	At_Offset_1
01ad 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
01ae 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01af 480a       |H   |		Short_Literal	0xa
01b0 e21b       |    |		Load	0x1,0x1b
01b1 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01b2 00d8       |    |		Load_Top	At_Offset_0
01b3 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01b4 e5fe       |    |		Load	0x2,-0x2
01b5 00d9       |    |		Load_Top	At_Offset_1
01b6 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01b7 e5fd       |    |		Load	0x2,-0x3
01b8 00d9       |    |		Load_Top	At_Offset_1
01b9 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01ba e5fc       |    |		Load	0x2,-0x4
01bb 00d9       |    |		Load_Top	At_Offset_1
01bc 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
01bd 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01be 480b       |H   |		Short_Literal	0xb
01bf e21b       |    |		Load	0x1,0x1b
01c0 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01c1 00d8       |    |		Load_Top	At_Offset_0
01c2 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01c3 e5fe       |    |		Load	0x2,-0x2
01c4 00d9       |    |		Load_Top	At_Offset_1
01c5 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01c6 e5fd       |    |		Load	0x2,-0x3
01c7 00d9       |    |		Load_Top	At_Offset_1
01c8 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01c9 e5fc       |    |		Load	0x2,-0x4
01ca 00d9       |    |		Load_Top	At_Offset_1
01cb 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
01cc 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01cd 480c       |H   |		Short_Literal	0xc
01ce e21b       |    |		Load	0x1,0x1b
01cf 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01d0 00d8       |    |		Load_Top	At_Offset_0
01d1 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01d2 e5fe       |    |		Load	0x2,-0x2
01d3 00d9       |    |		Load_Top	At_Offset_1
01d4 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01d5 e5fd       |    |		Load	0x2,-0x3
01d6 00d9       |    |		Load_Top	At_Offset_1
01d7 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01d8 e5fc       |    |		Load	0x2,-0x4
01d9 00d9       |    |		Load_Top	At_Offset_1
01da 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
01db 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01dc 480d       |H   |		Short_Literal	0xd
01dd e21b       |    |		Load	0x1,0x1b
01de 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01df 00d8       |    |		Load_Top	At_Offset_0
01e0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01e1 e5fe       |    |		Load	0x2,-0x2
01e2 00d9       |    |		Load_Top	At_Offset_1
01e3 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01e4 e5fd       |    |		Load	0x2,-0x3
01e5 00d9       |    |		Load_Top	At_Offset_1
01e6 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01e7 e5fc       |    |		Load	0x2,-0x4
01e8 00d9       |    |		Load_Top	At_Offset_1
01e9 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
01ea 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01eb 480f       |H   |		Short_Literal	0xf
01ec e21b       |    |		Load	0x1,0x1b
01ed 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01ee 00d8       |    |		Load_Top	At_Offset_0
01ef 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01f0 e5fe       |    |		Load	0x2,-0x2
01f1 00d9       |    |		Load_Top	At_Offset_1
01f2 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01f3 e5fd       |    |		Load	0x2,-0x3
01f4 00d9       |    |		Load_Top	At_Offset_1
01f5 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01f6 e5fc       |    |		Load	0x2,-0x4
01f7 00d9       |    |		Load_Top	At_Offset_1
01f8 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
01f9 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01fa 4811       |H   |		Short_Literal	0x11
01fb e21b       |    |		Load	0x1,0x1b
01fc 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01fd 00d8       |    |		Load_Top	At_Offset_0
01fe 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01ff e5fe       |    |		Load	0x2,-0x2
0200 00d9       |    |		Load_Top	At_Offset_1
0201 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0202 e5fd       |    |		Load	0x2,-0x3
0203 00d9       |    |		Load_Top	At_Offset_1
0204 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0205 e5fc       |    |		Load	0x2,-0x4
0206 00d9       |    |		Load_Top	At_Offset_1
0207 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0208 00d9       |    |		Load_Top	At_Offset_1
0209 00d9       |    |		Load_Top	At_Offset_1
020a 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
020b 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
020c 4810       |H   |		Short_Literal	0x10
020d e21b       |    |		Load	0x1,0x1b
020e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
020f 00d8       |    |		Load_Top	At_Offset_0
0210 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0211 e5fe       |    |		Load	0x2,-0x2
0212 00d9       |    |		Load_Top	At_Offset_1
0213 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0214 e5fd       |    |		Load	0x2,-0x3
0215 00d9       |    |		Load_Top	At_Offset_1
0216 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0217 e5fc       |    |		Load	0x2,-0x4
0218 00d9       |    |		Load_Top	At_Offset_1
0219 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
021a 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
021b 4812       |H   |		Short_Literal	0x12
021c e21b       |    |		Load	0x1,0x1b
021d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
021e 00d8       |    |		Load_Top	At_Offset_0
021f 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0220 e5fe       |    |		Load	0x2,-0x2
0221 00d9       |    |		Load_Top	At_Offset_1
0222 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0223 e5fd       |    |		Load	0x2,-0x3
0224 00d9       |    |		Load_Top	At_Offset_1
0225 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0226 e5fc       |    |		Load	0x2,-0x4
0227 00d9       |    |		Load_Top	At_Offset_1
0228 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0229 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
022a 4813       |H   |		Short_Literal	0x13
022b e21b       |    |		Load	0x1,0x1b
022c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
022d 00d8       |    |		Load_Top	At_Offset_0
022e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
022f e5fe       |    |		Load	0x2,-0x2
0230 00d9       |    |		Load_Top	At_Offset_1
0231 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0232 e5fd       |    |		Load	0x2,-0x3
0233 00d9       |    |		Load_Top	At_Offset_1
0234 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0235 e5fc       |    |		Load	0x2,-0x4
0236 00d9       |    |		Load_Top	At_Offset_1
0237 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0238 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0239 4800       |H   |		Short_Literal	0x0
023a e21b       |    |		Load	0x1,0x1b
023b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
023c 00d8       |    |		Load_Top	At_Offset_0
023d 1c01       |    |		Execute_Immediate	Run_Utility,0x1
023e e5fe       |    |		Load	0x2,-0x2
023f 00d9       |    |		Load_Top	At_Offset_1
0240 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0241 e5fd       |    |		Load	0x2,-0x3
0242 00d9       |    |		Load_Top	At_Offset_1
0243 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0244 e5fc       |    |		Load	0x2,-0x4
0245 00d9       |    |		Load_Top	At_Offset_1
0246 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0247 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0248 0831       | 1  |		Execute_Immediate	Raise,0x31
0249 0000 0000  |    |		.BLANK	0000[0x7]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0257       | W  |		.CONST	0x0257								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0002       |    |		.CONST	0x0002								; Number of locals
0253			INIT_0250:
0253 e20d       |    |		Load	0x1,0xd
0254 02ff       |    |		Declare_Variable	Variant_Record
0255 00d8       |    |		Load_Top	At_Offset_0
0256 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0257			BODY_0250:
0257 00d8       |    |		Load_Top	At_Offset_0
0258 4823       |H#  |		Short_Literal	0x23
0259 4823       |H#  |		Short_Literal	0x23
025a 4823       |H#  |		Short_Literal	0x23
025b 4823       |H#  |		Short_Literal	0x23
025c e5ff       |    |		Load	0x2,-0x1
025d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
025e e20e       |    |		Load	0x1,0xe
025f 011c       |    |		Execute	Any,Convert_Unchecked
0260 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0261 01ca       |    |		Execute	Vector,Prepend
0262 01cb       |    |		Execute	Vector,Append
0263 e5ff       |    |		Load	0x2,-0x1
0264 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0265 e002       |    |		Load	0x0,0x2
0266 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0267 01cc       |    |		Execute	Vector,Catenate
0268 01cb       |    |		Execute	Vector,Append
0269 e5ff       |    |		Load	0x2,-0x1
026a 2404       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
026b e002       |    |		Load	0x0,0x2
026c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
026d 01cc       |    |		Execute	Vector,Catenate
026e 01cb       |    |		Execute	Vector,Append
026f e002       |    |		Load	0x0,0x2
0270 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0271 00d1       |    |		Pop_Control	Pop_Count_1
0272 00db       |    |		Load_Top	At_Offset_3
0273 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0274 0f02       |    |		Execute_Immediate	Equal,0x2
0275 e5ff       |    |		Load	0x2,-0x1
0276 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0277 0f03       |    |		Execute_Immediate	Equal,0x3
0278 0278       | x  |		Execute	Discrete,Or
0279 e5ff       |    |		Load	0x2,-0x1
027a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
027b 0f0e       |    |		Execute_Immediate	Equal,0xe
027c 0278       | x  |		Execute	Discrete,Or
027d e5ff       |    |		Load	0x2,-0x1
027e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
027f 0f11       |    |		Execute_Immediate	Equal,0x11
0280 0278       | x  |		Execute	Discrete,Or
0281 680a       |h   |		Jump_Zero	0x28c
0282 00d8       |    |		Load_Top	At_Offset_0
0283 4823       |H#  |		Short_Literal	0x23
0284 e5ff       |    |		Load	0x2,-0x1
0285 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0286 e002       |    |		Load	0x0,0x2
0287 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0288 01cb       |    |		Execute	Vector,Append
0289 e002       |    |		Load	0x0,0x2
028a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
028b 00d1       |    |		Pop_Control	Pop_Count_1
028c 00d8       |    |		Load_Top	At_Offset_0
028d 4823       |H#  |		Short_Literal	0x23
028e e5ff       |    |		Load	0x2,-0x1
028f 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0290 00e0       |    |		Load_Encached	Standard_Cache
0291 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0292 01cb       |    |		Execute	Vector,Append
0293 e002       |    |		Load	0x0,0x2
0294 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0295 00d1       |    |		Pop_Control	Pop_Count_1
0296 00d8       |    |		Load_Top	At_Offset_0
0297 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02c0       |    |		.CONST	0x02c0								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 000c       |    |		.CONST	0x000c								; Number of locals
029b			INIT_0298:
029b 00e4       |    |		Load_Encached	Positive_Cache
029c 03e9       |    |		Declare_Variable	Discrete,Duplicate
029d e20e       |    |		Load	0x1,0xe
029e 0007       |    |		Action	Break_Optional
029f e20d       |    |		Load	0x1,0xd
02a0 02ff       |    |		Declare_Variable	Variant_Record
02a1 00d8       |    |		Load_Top	At_Offset_0
02a2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02a3 e20d       |    |		Load	0x1,0xd
02a4 02ff       |    |		Declare_Variable	Variant_Record
02a5 00d8       |    |		Load_Top	At_Offset_0
02a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02a7 00d8       |    |		Load_Top	At_Offset_0
02a8 02ff       |    |		Declare_Variable	Variant_Record
02a9 00d8       |    |		Load_Top	At_Offset_0
02aa 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02ab 00d8       |    |		Load_Top	At_Offset_0
02ac 02ff       |    |		Declare_Variable	Variant_Record
02ad 00d8       |    |		Load_Top	At_Offset_0
02ae 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02af 00d8       |    |		Load_Top	At_Offset_0
02b0 02ff       |    |		Declare_Variable	Variant_Record
02b1 00d8       |    |		Load_Top	At_Offset_0
02b2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02b3 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
02b4 00c6       |    |		Action	Check_Subprogram_Elaborated
02b5 4823       |H#  |		Short_Literal	0x23
02b6 0093 0000  |    |		push_full_address	0x0
02b8 608b       |`   |		Indirect_Literal	Discrete,0x344,{0x80000000, 0x00050000}
02b9 0273       | s  |		Execute	Discrete,Plus
02ba e007       |    |		Load	0x0,0x7
02bb 0273       | s  |		Execute	Discrete,Plus
02bc e008       |    |		Load	0x0,0x8
02bd 0273       | s  |		Execute	Discrete,Plus
02be 480c       |H   |		Short_Literal	0xc
02bf 0007       |    |		Action	Break_Optional
02c0			BODY_0298:
02c0 4801       |H   |		Short_Literal	0x1
02c1 a402       |    |		Store_Unchecked	0x2,0x2
02c2 e402       |    |		Load	0x2,0x2
02c3 e5ff       |    |		Load	0x2,-0x1
02c4 e002       |    |		Load	0x0,0x2
02c5 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
02c6 0f23       | #  |		Execute_Immediate	Equal,0x23
02c7 6804       |h   |		Jump_Zero	0x2cc
02c8 e402       |    |		Load	0x2,0x2
02c9 0a01       |    |		Execute_Immediate	Plus,0x1
02ca c402       |    |		Store	0x2,0x2
02cb 7804       |x   |		Jump	0x2d0
02cc 0092 05e3  |    |		Action	Push_String_Extended,0x5e3					; "First separator is missing"
02ce e005       |    |		Load	0x0,0x5
02cf 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02d0 e402       |    |		Load	0x2,0x2
02d1 e405       |    |		Load	0x2,0x5
02d2 e5ff       |    |		Load	0x2,-0x1
02d3 e40a       |    |		Load	0x2,0xa
02d4 480b       |H   |		Short_Literal	0xb
02d5 4802       |H   |		Short_Literal	0x2
02d6 0099       |    |		Action	Reference_Dynamic
02d7 821c       |    |		Call	0x1,0x1c
02d8 00d1       |    |		Pop_Control	Pop_Count_1
02d9 c402       |    |		Store	0x2,0x2
02da 00e4       |    |		Load_Encached	Positive_Cache
02db e21a       |    |		Load	0x1,0x1a
02dc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02dd e405       |    |		Load	0x2,0x5
02de e002       |    |		Load	0x0,0x2
02df 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02e0 e21a       |    |		Load	0x1,0x1a
02e1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02e2 c404       |    |		Store	0x2,0x4
02e3 c403       |    |		Store	0x2,0x3
02e4 e402       |    |		Load	0x2,0x2
02e5 e406       |    |		Load	0x2,0x6
02e6 e5ff       |    |		Load	0x2,-0x1
02e7 e40a       |    |		Load	0x2,0xa
02e8 480b       |H   |		Short_Literal	0xb
02e9 4802       |H   |		Short_Literal	0x2
02ea 0099       |    |		Action	Reference_Dynamic
02eb 821c       |    |		Call	0x1,0x1c
02ec 00d1       |    |		Pop_Control	Pop_Count_1
02ed c402       |    |		Store	0x2,0x2
02ee e402       |    |		Load	0x2,0x2
02ef e407       |    |		Load	0x2,0x7
02f0 e5ff       |    |		Load	0x2,-0x1
02f1 e40a       |    |		Load	0x2,0xa
02f2 480b       |H   |		Short_Literal	0xb
02f3 4802       |H   |		Short_Literal	0x2
02f4 0099       |    |		Action	Reference_Dynamic
02f5 821c       |    |		Call	0x1,0x1c
02f6 00d1       |    |		Pop_Control	Pop_Count_1
02f7 c402       |    |		Store	0x2,0x2
02f8 e404       |    |		Load	0x2,0x4
02f9 0f02       |    |		Execute_Immediate	Equal,0x2
02fa e404       |    |		Load	0x2,0x4
02fb 0f0e       |    |		Execute_Immediate	Equal,0xe
02fc 0278       | x  |		Execute	Discrete,Or
02fd e404       |    |		Load	0x2,0x4
02fe 0f03       |    |		Execute_Immediate	Equal,0x3
02ff 0278       | x  |		Execute	Discrete,Or
0300 e404       |    |		Load	0x2,0x4
0301 0f11       |    |		Execute_Immediate	Equal,0x11
0302 0278       | x  |		Execute	Discrete,Or
0303 6825       |h%  |		Jump_Zero	0x329
0304 e402       |    |		Load	0x2,0x2
0305 e408       |    |		Load	0x2,0x8
0306 e5ff       |    |		Load	0x2,-0x1
0307 e40a       |    |		Load	0x2,0xa
0308 480b       |H   |		Short_Literal	0xb
0309 4802       |H   |		Short_Literal	0x2
030a 0099       |    |		Action	Reference_Dynamic
030b 821c       |    |		Call	0x1,0x1c
030c 00d1       |    |		Pop_Control	Pop_Count_1
030d c402       |    |		Store	0x2,0x2
030e e402       |    |		Load	0x2,0x2
030f e409       |    |		Load	0x2,0x9
0310 e5ff       |    |		Load	0x2,-0x1
0311 e40a       |    |		Load	0x2,0xa
0312 480b       |H   |		Short_Literal	0xb
0313 4802       |H   |		Short_Literal	0x2
0314 0099       |    |		Action	Reference_Dynamic
0315 821c       |    |		Call	0x1,0x1c
0316 00d1       |    |		Pop_Control	Pop_Count_1
0317 c402       |    |		Store	0x2,0x2
0318 e408       |    |		Load	0x2,0x8
0319 e407       |    |		Load	0x2,0x7
031a e409       |    |		Load	0x2,0x9
031b e002       |    |		Load	0x0,0x2
031c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
031d 00e2       |    |		Load_Encached	Integer_Cache
031e 00e0       |    |		Load_Encached	Standard_Cache
031f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0320 00d8       |    |		Load_Top	At_Offset_0
0321 00e4       |    |		Load_Encached	Positive_Cache
0322 0260       | `  |		Execute	Discrete,In_Type
0323 7001       |p   |		Jump_Nonzero	0x325
0324 0801       |    |		Execute_Immediate	Raise,0x1
0325 e406       |    |		Load	0x2,0x6
0326 e404       |    |		Load	0x2,0x4
0327 820f       |    |		Call	0x1,0xf
0328 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0329 e402       |    |		Load	0x2,0x2
032a e409       |    |		Load	0x2,0x9
032b e5ff       |    |		Load	0x2,-0x1
032c e40a       |    |		Load	0x2,0xa
032d 480b       |H   |		Short_Literal	0xb
032e 4802       |H   |		Short_Literal	0x2
032f 0099       |    |		Action	Reference_Dynamic
0330 821c       |    |		Call	0x1,0x1c
0331 00d1       |    |		Pop_Control	Pop_Count_1
0332 c402       |    |		Store	0x2,0x2
0333 e407       |    |		Load	0x2,0x7
0334 e409       |    |		Load	0x2,0x9
0335 e002       |    |		Load	0x0,0x2
0336 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0337 00e2       |    |		Load_Encached	Integer_Cache
0338 00e0       |    |		Load_Encached	Standard_Cache
0339 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
033a 00d8       |    |		Load_Top	At_Offset_0
033b 00e4       |    |		Load_Encached	Positive_Cache
033c 0260       | `  |		Execute	Discrete,In_Type
033d 7001       |p   |		Jump_Nonzero	0x33f
033e 0801       |    |		Execute_Immediate	Raise,0x1
033f e406       |    |		Load	0x2,0x6
0340 e404       |    |		Load	0x2,0x4
0341 8210       |    |		Call	0x1,0x10
0342 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0343 0000       |    |		.XXX[0x1]
0344 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b       | K  |		.CONST	0x034b								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0001       |    |		.CONST	0x0001								; Number of locals
034b			BODY_0348:
034b			INIT_0348:
034b 00da       |    |		Load_Top	At_Offset_2
034c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
034d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
034e 0000 0000  |    |		.XXX[0x2]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353       | S  |		.CONST	0x0353								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0001       |    |		.CONST	0x0001								; Number of locals
0353			BODY_0350:
0353			INIT_0350:
0353 00da       |    |		Load_Top	At_Offset_2
0354 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0355 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
0356 00cd       |    |		Action	Spare6_Action
0357 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b       | [  |		.CONST	0x035b								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0001       |    |		.CONST	0x0001								; Number of locals
035b			BODY_0358:
035b			INIT_0358:
035b 00da       |    |		Load_Top	At_Offset_2
035c 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
035d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
035e 0000 0000  |    |		.XXX[0x2]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 00da       |    |		Load_Top	At_Offset_2
0364 2404       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0365 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
0366 00cd       |    |		Action	Spare6_Action
0367 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b       | k  |		.CONST	0x036b								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0001       |    |		.CONST	0x0001								; Number of locals
036b			BODY_0368:
036b			INIT_0368:
036b 00da       |    |		Load_Top	At_Offset_2
036c 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
036d 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
036e 00cd       |    |		Action	Spare6_Action
036f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 03b4       |    |		.CONST	0x03b4								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0014       |    |		.CONST	0x0014								; Number of locals
0373			INIT_0370:
0373 e009       |    |		Load	0x0,0x9
0374 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0375 02c7       |    |		Declare_Variable	Any
0376 00d8       |    |		Load_Top	At_Offset_0
0377 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0378 e00a       |    |		Load	0x0,0xa
0379 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
037a 4800       |H   |		Short_Literal	0x0
037b 4801       |H   |		Short_Literal	0x1
037c e00a       |    |		Load	0x0,0xa
037d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
037e 035b       | [  |		Declare_Type	Array,Constrained
037f 0337       | 7  |		Declare_Variable	Array
0380 4800       |H   |		Short_Literal	0x0
0381 4801       |H   |		Short_Literal	0x1
0382 e00a       |    |		Load	0x0,0xa
0383 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0384 035b       | [  |		Declare_Type	Array,Constrained
0385 0337       | 7  |		Declare_Variable	Array
0386 e00b       |    |		Load	0x0,0xb
0387 03e9       |    |		Declare_Variable	Discrete,Duplicate
0388 03e9       |    |		Declare_Variable	Discrete,Duplicate
0389 00e4       |    |		Load_Encached	Positive_Cache
038a 03e9       |    |		Declare_Variable	Discrete,Duplicate
038b 00e3       |    |		Load_Encached	Natural_Cache
038c 4801       |H   |		Short_Literal	0x1
038d 480f       |H   |		Short_Literal	0xf
038e 00e9       |    |		Load_Encached	String_Cache
038f 035b       | [  |		Declare_Type	Array,Constrained
0390 0337       | 7  |		Declare_Variable	Array
0391 e20d       |    |		Load	0x1,0xd
0392 02ff       |    |		Declare_Variable	Variant_Record
0393 00d8       |    |		Load_Top	At_Offset_0
0394 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0395 00d8       |    |		Load_Top	At_Offset_0
0396 02ff       |    |		Declare_Variable	Variant_Record
0397 00d8       |    |		Load_Top	At_Offset_0
0398 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0399 00d8       |    |		Load_Top	At_Offset_0
039a 02ff       |    |		Declare_Variable	Variant_Record
039b 00d8       |    |		Load_Top	At_Offset_0
039c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
039d 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
039e 00c6       |    |		Action	Check_Subprogram_Elaborated
039f 4825       |H%  |		Short_Literal	0x25
03a0 0093 0000  |    |		push_full_address	0x0
03a2 60b1       |`   |		Indirect_Literal	Discrete,0x454,{0x80000000, 0x00040000}
03a3 0273       | s  |		Execute	Discrete,Plus
03a4 e007       |    |		Load	0x0,0x7
03a5 0273       | s  |		Execute	Discrete,Plus
03a6 e00c       |    |		Load	0x0,0xc
03a7 0273       | s  |		Execute	Discrete,Plus
03a8 4812       |H   |		Short_Literal	0x12
03a9 0007       |    |		Action	Break_Optional
03aa e00d       |    |		Load	0x0,0xd
03ab e00e       |    |		Load	0x0,0xe
03ac e00b       |    |		Load	0x0,0xb
03ad e005       |    |		Load	0x0,0x5
03ae 1b53       | S  |		Execute	Package,Field_Read,Field_Number 0x53
03af 0387       |    |		Declare_Variable	Package
03b0 00d8       |    |		Load_Top	At_Offset_0
03b1 020f       |    |		Execute	Module,Activate
03b2 029f 04fb  |    |		Declare_Subprogram	INIT_04f8,For_Call
03b4			BODY_0370:
03b4 00cf       |    |		Action	Mark_Auxiliary
03b5 7811       |x   |		Jump	0x3c7
03b6 e00a       |    |		Load	0x0,0xa
03b7 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
03b8 e402       |    |		Load	0x2,0x2
03b9 0120       |    |		Execute	Any,Is_Value
03ba 6803       |h   |		Jump_Zero	0x3be
03bb e009       |    |		Load	0x0,0x9
03bc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03bd 7801       |x   |		Jump	0x3bf
03be e402       |    |		Load	0x2,0x2
03bf e00a       |    |		Load	0x0,0xa
03c0 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
03c1 e00f       |    |		Load	0x0,0xf
03c2 e009       |    |		Load	0x0,0x9
03c3 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03c4 c402       |    |		Store	0x2,0x2
03c5 c403       |    |		Store	0x2,0x3
03c6 00c9       |    |		Action	Pop_Auxiliary_Loop
03c7 e402       |    |		Load	0x2,0x2
03c8 e009       |    |		Load	0x0,0x9
03c9 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
03ca 6feb       |o   |		Jump_Zero	0x3b6
03cb 00ce       |    |		Action	Pop_Auxiliary
03cc e5fe       |    |		Load	0x2,-0x2
03cd 8213       |    |		Call	0x1,0x13
03ce 7023       |p#  |		Jump_Nonzero	0x3f2
03cf 00cf       |    |		Action	Mark_Auxiliary
03d0 8414       |    |		Call	0x2,0x14
03d1 00c9       |    |		Action	Pop_Auxiliary_Loop
03d2 7ffd       |    |		Jump	0x3d0
03d3 00ce       |    |		Action	Pop_Auxiliary
03d4 e40c       |    |		Load	0x2,0xc
03d5 00da       |    |		Load_Top	At_Offset_2
03d6 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
03d7 e408       |    |		Load	0x2,0x8
03d8 e413       |    |		Load	0x2,0x13
03d9 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03da 00d1       |    |		Pop_Control	Pop_Count_1
03db 4801       |H   |		Short_Literal	0x1
03dc e005       |    |		Load	0x0,0x5
03dd 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
03de e5fe       |    |		Load	0x2,-0x2
03df 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
03e0 4825       |H%  |		Short_Literal	0x25
03e1 4825       |H%  |		Short_Literal	0x25
03e2 e402       |    |		Load	0x2,0x2
03e3 e009       |    |		Load	0x0,0x9
03e4 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
03e5 e010       |    |		Load	0x0,0x10
03e6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03e7 01cb       |    |		Execute	Vector,Append
03e8 e40c       |    |		Load	0x2,0xc
03e9 01cc       |    |		Execute	Vector,Catenate
03ea 01cb       |    |		Execute	Vector,Append
03eb e002       |    |		Load	0x0,0x2
03ec 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03ed 00d1       |    |		Pop_Control	Pop_Count_1
03ee 0092 05e4  |    |		Action	Push_String_Extended,0x5e4					; "Waiting for the connection with ORB..."
03f0 e005       |    |		Load	0x0,0x5
03f1 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
03f2 4801       |H   |		Short_Literal	0x1
03f3 a409       |    |		Store_Unchecked	0x2,0x9
03f4 e409       |    |		Load	0x2,0x9
03f5 e40e       |    |		Load	0x2,0xe
03f6 e5ff       |    |		Load	0x2,-0x1
03f7 e410       |    |		Load	0x2,0x10
03f8 4811       |H   |		Short_Literal	0x11
03f9 4802       |H   |		Short_Literal	0x2
03fa 0099       |    |		Action	Reference_Dynamic
03fb 821c       |    |		Call	0x1,0x1c
03fc 00d1       |    |		Pop_Control	Pop_Count_1
03fd c409       |    |		Store	0x2,0x9
03fe e40e       |    |		Load	0x2,0xe
03ff e002       |    |		Load	0x0,0x2
0400 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0401 e010       |    |		Load	0x0,0x10
0402 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0403 e405       |    |		Load	0x2,0x5
0404 01d4       |    |		Execute	Vector,Structure_Write
0405 e409       |    |		Load	0x2,0x9
0406 e40f       |    |		Load	0x2,0xf
0407 e5ff       |    |		Load	0x2,-0x1
0408 e410       |    |		Load	0x2,0x10
0409 4811       |H   |		Short_Literal	0x11
040a 4802       |H   |		Short_Literal	0x2
040b 0099       |    |		Action	Reference_Dynamic
040c 821c       |    |		Call	0x1,0x1c
040d 00d1       |    |		Pop_Control	Pop_Count_1
040e c409       |    |		Store	0x2,0x9
040f 00e4       |    |		Load_Encached	Positive_Cache
0410 e011       |    |		Load	0x0,0x11
0411 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0412 e40f       |    |		Load	0x2,0xf
0413 e002       |    |		Load	0x0,0x2
0414 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0415 e011       |    |		Load	0x0,0x11
0416 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0417 c407       |    |		Store	0x2,0x7
0418 c40a       |    |		Store	0x2,0xa
0419 00cf       |    |		Action	Mark_Auxiliary
041a 780c       |x   |		Jump	0x427
041b e00a       |    |		Load	0x0,0xa
041c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
041d 6032       |`2  |		Indirect_Literal	Discrete,0x450,{0x00007fff, 0xffffffff}
041e e405       |    |		Load	0x2,0x5
041f e407       |    |		Load	0x2,0x7
0420 e012       |    |		Load	0x0,0x12
0421 01d5       |    |		Execute	Vector,Field_Reference
0422 e402       |    |		Load	0x2,0x2
0423 e009       |    |		Load	0x0,0x9
0424 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0425 c403       |    |		Store	0x2,0x3
0426 00c9       |    |		Action	Pop_Auxiliary_Loop
0427 e402       |    |		Load	0x2,0x2
0428 e009       |    |		Load	0x0,0x9
0429 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
042a 6ff0       |o   |		Jump_Zero	0x41b
042b 00ce       |    |		Action	Pop_Auxiliary
042c 00e3       |    |		Load_Encached	Natural_Cache
042d e00a       |    |		Load	0x0,0xa
042e 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
042f 4800       |H   |		Short_Literal	0x0
0430 601f       |`   |		Indirect_Literal	Discrete,0x450,{0x00007fff, 0xffffffff}
0431 e5fe       |    |		Load	0x2,-0x2
0432 8211       |    |		Call	0x1,0x11
0433 e002       |    |		Load	0x0,0x2
0434 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0435 e010       |    |		Load	0x0,0x10
0436 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0437 e402       |    |		Load	0x2,0x2
0438 e009       |    |		Load	0x0,0x9
0439 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
043a c403       |    |		Store	0x2,0x3
043b c40b       |    |		Store	0x2,0xb
043c e40b       |    |		Load	0x2,0xb
043d 00e0       |    |		Load_Encached	Standard_Cache
043e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
043f 0092 05e5  |    |		Action	Push_String_Extended,0x5e5					; " bytes have been transmitted. Message : "
0441 01cc       |    |		Execute	Vector,Catenate
0442 e5fe       |    |		Load	0x2,-0x2
0443 8211       |    |		Call	0x1,0x11
0444 e002       |    |		Load	0x0,0x2
0445 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0446 01cc       |    |		Execute	Vector,Catenate
0447 e005       |    |		Load	0x0,0x5
0448 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0449 e402       |    |		Load	0x2,0x2
044a e009       |    |		Load	0x0,0x9
044b 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
044c e402       |    |		Load	0x2,0x2
044d e009       |    |		Load	0x0,0x9
044e 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
044f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0450 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
0454 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 0481       |    |		.CONST	0x0481								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 000b       |    |		.CONST	0x000b								; Number of locals
045b			INIT_0458:
045b e009       |    |		Load	0x0,0x9
045c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
045d 02c7       |    |		Declare_Variable	Any
045e 00d8       |    |		Load_Top	At_Offset_0
045f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0460 e00a       |    |		Load	0x0,0xa
0461 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0462 4800       |H   |		Short_Literal	0x0
0463 4801       |H   |		Short_Literal	0x1
0464 e00a       |    |		Load	0x0,0xa
0465 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0466 035b       | [  |		Declare_Type	Array,Constrained
0467 0337       | 7  |		Declare_Variable	Array
0468 4801       |H   |		Short_Literal	0x1
0469 48ff       |H   |		Short_Literal	0xff
046a e013       |    |		Load	0x0,0x13
046b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
046c 035b       | [  |		Declare_Type	Array,Constrained
046d 0337       | 7  |		Declare_Variable	Array
046e 00e3       |    |		Load_Encached	Natural_Cache
046f e20d       |    |		Load	0x1,0xd
0470 02ff       |    |		Declare_Variable	Variant_Record
0471 00d8       |    |		Load_Top	At_Offset_0
0472 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0473 00e4       |    |		Load_Encached	Positive_Cache
0474 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0475 00c6       |    |		Action	Check_Subprogram_Elaborated
0476 4825       |H%  |		Short_Literal	0x25
0477 0093 0000  |    |		push_full_address	0x0
0479 6056       |`V  |		Indirect_Literal	Discrete,0x4d0,{0x80000000, 0x00020000}
047a 0273       | s  |		Execute	Discrete,Plus
047b e007       |    |		Load	0x0,0x7
047c 0273       | s  |		Execute	Discrete,Plus
047d e014       |    |		Load	0x0,0x14
047e 0273       | s  |		Execute	Discrete,Plus
047f 480b       |H   |		Short_Literal	0xb
0480 0007       |    |		Action	Break_Optional
0481			BODY_0458:
0481 4801       |H   |		Short_Literal	0x1
0482 a408       |    |		Store_Unchecked	0x2,0x8
0483 00db       |    |		Load_Top	At_Offset_3
0484 e407       |    |		Load	0x2,0x7
0485 e5ff       |    |		Load	0x2,-0x1
0486 e409       |    |		Load	0x2,0x9
0487 480a       |H   |		Short_Literal	0xa
0488 4802       |H   |		Short_Literal	0x2
0489 0099       |    |		Action	Reference_Dynamic
048a 821c       |    |		Call	0x1,0x1c
048b 00d1       |    |		Pop_Control	Pop_Count_1
048c c408       |    |		Store	0x2,0x8
048d e407       |    |		Load	0x2,0x7
048e e002       |    |		Load	0x0,0x2
048f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0490 e010       |    |		Load	0x0,0x10
0491 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0492 e404       |    |		Load	0x2,0x4
0493 01d4       |    |		Execute	Vector,Structure_Write
0494 00cf       |    |		Action	Mark_Auxiliary
0495 7810       |x   |		Jump	0x4a6
0496 e00a       |    |		Load	0x0,0xa
0497 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0498 e402       |    |		Load	0x2,0x2
0499 0120       |    |		Execute	Any,Is_Value
049a 6803       |h   |		Jump_Zero	0x49e
049b e009       |    |		Load	0x0,0x9
049c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
049d 7801       |x   |		Jump	0x49f
049e e402       |    |		Load	0x2,0x2
049f e404       |    |		Load	0x2,0x4
04a0 e00f       |    |		Load	0x0,0xf
04a1 e009       |    |		Load	0x0,0x9
04a2 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
04a3 c402       |    |		Store	0x2,0x2
04a4 c403       |    |		Store	0x2,0x3
04a5 00c9       |    |		Action	Pop_Auxiliary_Loop
04a6 e402       |    |		Load	0x2,0x2
04a7 e009       |    |		Load	0x0,0x9
04a8 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
04a9 6fec       |o   |		Jump_Zero	0x496
04aa 00ce       |    |		Action	Pop_Auxiliary
04ab e00a       |    |		Load	0x0,0xa
04ac 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
04ad 67a2       |g   |		Indirect_Literal	Discrete,0x450,{0x00007fff, 0xffffffff}
04ae e402       |    |		Load	0x2,0x2
04af e009       |    |		Load	0x0,0x9
04b0 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
04b1 c403       |    |		Store	0x2,0x3
04b2 00e3       |    |		Load_Encached	Natural_Cache
04b3 e405       |    |		Load	0x2,0x5
04b4 e00a       |    |		Load	0x0,0xa
04b5 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
04b6 6799       |g   |		Indirect_Literal	Discrete,0x450,{0x00007fff, 0xffffffff}
04b7 e402       |    |		Load	0x2,0x2
04b8 e009       |    |		Load	0x0,0x9
04b9 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
04ba c403       |    |		Store	0x2,0x3
04bb 00d1       |    |		Pop_Control	Pop_Count_1
04bc c406       |    |		Store	0x2,0x6
04bd e405       |    |		Load	0x2,0x5
04be e010       |    |		Load	0x0,0x10
04bf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04c0 e002       |    |		Load	0x0,0x2
04c1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04c2 e20d       |    |		Load	0x1,0xd
04c3 0161       | a  |		Execute	Variant_Record,Check_In_Formal_Type
04c4 8212       |    |		Call	0x1,0x12
04c5 e5fe       |    |		Load	0x2,-0x2
04c6 016d       | m  |		Execute	Variant_Record,Structure_Write
04c7 e402       |    |		Load	0x2,0x2
04c8 e009       |    |		Load	0x0,0x9
04c9 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
04ca e402       |    |		Load	0x2,0x2
04cb e009       |    |		Load	0x0,0x9
04cc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
04cd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04ce 0000 0000  |    |		.XXX[0x2]
04d0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
04d4 0000 0000  |    |		.BLANK	0000[0x4]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db       |    |		.CONST	0x04db								; Address of begin
04d9 0004       |    |		.CONST	0x0004								; Address of exception handler
04da 0001       |    |		.CONST	0x0001								; Number of locals
04db			BODY_04d8:
04db			INIT_04d8:
04db 00cf       |    |		Action	Mark_Auxiliary
04dc 780c       |x   |		Jump	0x4e9
04dd e5fc       |    |		Load	0x2,-0x4
04de e5fb       |    |		Load	0x2,-0x5
04df e5fd       |    |		Load	0x2,-0x3
04e0 e002       |    |		Load	0x0,0x2
04e1 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
04e2 e002       |    |		Load	0x0,0x2
04e3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
04e4 00d1       |    |		Pop_Control	Pop_Count_1
04e5 e5fb       |    |		Load	0x2,-0x5
04e6 0a01       |    |		Execute_Immediate	Plus,0x1
04e7 c5fb       |    |		Store	0x2,-0x5
04e8 00c9       |    |		Action	Pop_Auxiliary_Loop
04e9 e5fb       |    |		Load	0x2,-0x5
04ea e5fd       |    |		Load	0x2,-0x3
04eb e002       |    |		Load	0x0,0x2
04ec 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
04ed e5fe       |    |		Load	0x2,-0x2
04ee 027e       | ~  |		Execute	Discrete,Not_Equal
04ef 77ed       |w   |		Jump_Nonzero	0x4dd
04f0 00ce       |    |		Action	Pop_Auxiliary
04f1 e5fb       |    |		Load	0x2,-0x5
04f2 0a01       |    |		Execute_Immediate	Plus,0x1
04f3 c5fb       |    |		Store	0x2,-0x5
04f4 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04f5 0000 0000  |    |		.XXX[0x3]
04f7 0000       |    |
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb       |    |		.CONST	0x04fb								; Address of begin
04f9 0506       |    |		.CONST	0x0506								; Address of exception handler
04fa 0001       |    |		.CONST	0x0001								; Number of locals
04fb			BODY_04f8:
04fb			INIT_04f8:
04fb 0092 05e6  |    |		Action	Push_String_Extended,0x5e6					; "Type your machine's name: "
04fd e005       |    |		Load	0x0,0x5
04fe 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
04ff e413       |    |		Load	0x2,0x13
0500 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0501 e413       |    |		Load	0x2,0x13
0502 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0503 c408       |    |		Store	0x2,0x8
0504 00cc       |    |		Action	Pop_Block
0505 7ecd       |~   |		Jump	0x3d3
0506			TRAP_04f8:
0506 00d8       |    |		Load_Top	At_Offset_0
0507 0107       |    |		Execute	Exception,Get_Name
0508 4960       |I`  |		Short_Literal	0x160
0509 496f       |Io  |		Short_Literal	0x16f
050a 0262       | b  |		Execute	Discrete,In_Range
050b 681e       |h   |		Jump_Zero	0x52a
050c 0092 05e7  |    |		Action	Push_String_Extended,0x5e7					; " Bad argument !"
050e e005       |    |		Load	0x0,0x5
050f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0510 0092 05e8  |    |		Action	Push_String_Extended,0x5e8					; "You must type one of these names: "
0512 e005       |    |		Load	0x0,0x5
0513 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0514 00cf       |    |		Action	Mark_Auxiliary
0515 e00b       |    |		Load	0x0,0xb
0516 0265       | e  |		Execute	Discrete,Reverse_Bounds
0517 0007       |    |		Action	Break_Optional
0518 e413       |    |		Load	0x2,0x13
0519 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
051a e413       |    |		Load	0x2,0x13
051b 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
051c 00da       |    |		Load_Top	At_Offset_2
051d e413       |    |		Load	0x2,0x13
051e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
051f 0092 05e9  |    |		Action	Push_String_Extended,0x5e9					; ", "
0521 e005       |    |		Load	0x0,0x5
0522 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0523 00c8       |    |		Action	Pop_Auxiliary_Range
0524 3ff3       |?   |		Loop_Increasing	0x518
0525 00ce       |    |		Action	Pop_Auxiliary
0526 00ea       |    |		Load_Encached	Null_String_Cache
0527 e005       |    |		Load	0x0,0x5
0528 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0529 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
052a 0100       |    |		Execute	Exception,Raise
052b 0000 0000  |    |		.BLANK	0000[0x5]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533       | 3  |		.CONST	0x0533								; Address of begin
0531 0004       |    |		.CONST	0x0004								; Address of exception handler
0532 0001       |    |		.CONST	0x0001								; Number of locals
0533			BODY_0530:
0533			INIT_0530:
0533 4609       |F   |		Jump_Case	0xa
0534 7809       |x   |		Jump	0x53e								; case 0x0
0535 783d       |x=  |		Jump	0x573								; case 0x1
0536 7848       |xH  |		Jump	0x57f								; case 0x2
0537 784b       |xK  |		Jump	0x583								; case 0x3
0538 7894       |x   |		Jump	0x5cd								; case 0x4
0539 7893       |x   |		Jump	0x5cd								; case 0x5
053a 784e       |xN  |		Jump	0x589								; case 0x6
053b 7868       |xh  |		Jump	0x5a4								; case 0x7
053c 7885       |x   |		Jump	0x5c2								; case 0x8
053d 788b       |x   |		Jump	0x5c9								; case 0x9
053e 00da       |    |		Load_Top	At_Offset_2
053f 016c       | l  |		Execute	Variant_Record,Is_Constrained
0540 7009       |p   |		Jump_Nonzero	0x54a
0541 00cf       |    |		Action	Mark_Auxiliary
0542 4800       |H   |		Short_Literal	0x0
0543 e5ff       |    |		Load	0x2,-0x1
0544 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0545 00d8       |    |		Load_Top	At_Offset_0
0546 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0547 c5ff       |    |		Store	0x2,-0x1
0548 00ce       |    |		Action	Pop_Auxiliary
0549 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
054a 00da       |    |		Load_Top	At_Offset_2
054b 2202       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x2
054c 00da       |    |		Load_Top	At_Offset_2
054d 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
054e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
054f 00da       |    |		Load_Top	At_Offset_2
0550 2204       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x4
0551 00da       |    |		Load_Top	At_Offset_2
0552 2404       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0553 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0554 00da       |    |		Load_Top	At_Offset_2
0555 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0556 4614       |F   |		Jump_Case	0x15
0557 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0558 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0559 7813       |x   |		Jump	0x56d								; case 0x2
055a 7812       |x   |		Jump	0x56d								; case 0x3
055b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
055c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
055d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
055e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
055f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
0560 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x9
0561 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xa
0562 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xb
0563 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xc
0564 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xd
0565 7807       |x   |		Jump	0x56d								; case 0xe
0566 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xf
0567 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x10
0568 7804       |x   |		Jump	0x56d								; case 0x11
0569 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x12
056a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x13
056b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x14
056c 4302       |C   |		.XXX[0x1]
056d 00da       |    |		Load_Top	At_Offset_2
056e 2205       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x5
056f 00da       |    |		Load_Top	At_Offset_2
0570 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0571 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0572 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0573 00da       |    |		Load_Top	At_Offset_2
0574 2202       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x2
0575 00da       |    |		Load_Top	At_Offset_2
0576 2204       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x4
0577 00da       |    |		Load_Top	At_Offset_2
0578 016b       | k  |		Execute	Variant_Record,Read_Variant
0579 00d8       |    |		Load_Top	At_Offset_0
057a 0f01       |    |		Execute_Immediate	Equal,0x1
057b 6802       |h   |		Jump_Zero	0x57e
057c 00db       |    |		Load_Top	At_Offset_3
057d 2205       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x5
057e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
057f 4801       |H   |		Short_Literal	0x1
0580 4805       |H   |		Short_Literal	0x5
0581 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0582 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0583 e5fd       |    |		Load	0x2,-0x3
0584 00db       |    |		Load_Top	At_Offset_3
0585 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0586 e5fe       |    |		Load	0x2,-0x2
0587 0306       |    |		Complete_Type	Variant_Record,By_Renaming
0588 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
0589 00db       |    |		Load_Top	At_Offset_3
058a 4614       |F   |		Jump_Case	0x15
058b 7814       |x   |		Jump	0x5a0								; case 0x0
058c 7813       |x   |		Jump	0x5a0								; case 0x1
058d 7814       |x   |		Jump	0x5a2								; case 0x2
058e 7813       |x   |		Jump	0x5a2								; case 0x3
058f 7810       |x   |		Jump	0x5a0								; case 0x4
0590 780f       |x   |		Jump	0x5a0								; case 0x5
0591 780e       |x   |		Jump	0x5a0								; case 0x6
0592 780d       |x   |		Jump	0x5a0								; case 0x7
0593 780c       |x   |		Jump	0x5a0								; case 0x8
0594 780b       |x   |		Jump	0x5a0								; case 0x9
0595 780a       |x   |		Jump	0x5a0								; case 0xa
0596 7809       |x   |		Jump	0x5a0								; case 0xb
0597 7808       |x   |		Jump	0x5a0								; case 0xc
0598 7807       |x   |		Jump	0x5a0								; case 0xd
0599 7808       |x   |		Jump	0x5a2								; case 0xe
059a 7805       |x   |		Jump	0x5a0								; case 0xf
059b 7804       |x   |		Jump	0x5a0								; case 0x10
059c 7805       |x   |		Jump	0x5a2								; case 0x11
059d 7802       |x   |		Jump	0x5a0								; case 0x12
059e 7801       |x   |		Jump	0x5a0								; case 0x13
059f 7800       |x   |		Jump	0x5a0								; case 0x14
05a0 48ff       |H   |		Short_Literal	0xff
05a1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05a2 4801       |H   |		Short_Literal	0x1
05a3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05a4 00db       |    |		Load_Top	At_Offset_3
05a5 e5fe       |    |		Load	0x2,-0x2
05a6 4614       |F   |		Jump_Case	0x15
05a7 7814       |x   |		Jump	0x5bc								; case 0x0
05a8 7813       |x   |		Jump	0x5bc								; case 0x1
05a9 7814       |x   |		Jump	0x5be								; case 0x2
05aa 7813       |x   |		Jump	0x5be								; case 0x3
05ab 7810       |x   |		Jump	0x5bc								; case 0x4
05ac 780f       |x   |		Jump	0x5bc								; case 0x5
05ad 780e       |x   |		Jump	0x5bc								; case 0x6
05ae 780d       |x   |		Jump	0x5bc								; case 0x7
05af 780c       |x   |		Jump	0x5bc								; case 0x8
05b0 780b       |x   |		Jump	0x5bc								; case 0x9
05b1 780a       |x   |		Jump	0x5bc								; case 0xa
05b2 7809       |x   |		Jump	0x5bc								; case 0xb
05b3 7808       |x   |		Jump	0x5bc								; case 0xc
05b4 7807       |x   |		Jump	0x5bc								; case 0xd
05b5 7808       |x   |		Jump	0x5be								; case 0xe
05b6 7805       |x   |		Jump	0x5bc								; case 0xf
05b7 7804       |x   |		Jump	0x5bc								; case 0x10
05b8 7805       |x   |		Jump	0x5be								; case 0x11
05b9 7802       |x   |		Jump	0x5bc								; case 0x12
05ba 7801       |x   |		Jump	0x5bc								; case 0x13
05bb 7800       |x   |		Jump	0x5bc								; case 0x14
05bc 48ff       |H   |		Short_Literal	0xff
05bd 7801       |x   |		Jump	0x5bf
05be 4801       |H   |		Short_Literal	0x1
05bf e5ff       |    |		Load	0x2,-0x1
05c0 031b       |    |		Declare_Type	Variant_Record,Constrained
05c1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05c2 00db       |    |		Load_Top	At_Offset_3
05c3 e5fe       |    |		Load	0x2,-0x2
05c4 e5ff       |    |		Load	0x2,-0x1
05c5 1c06       |    |		Execute_Immediate	Run_Utility,0x6
05c6 e5ff       |    |		Load	0x2,-0x1
05c7 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
05c8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05c9 4800       |H   |		Short_Literal	0x0
05ca 00db       |    |		Load_Top	At_Offset_3
05cb 1c07       |    |		Execute_Immediate	Run_Utility,0x7
05cc 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
05cd 0869       | i  |		Execute_Immediate	Raise,0x69
05ce ; --------------------------------------------------------------------------------------
05ce ; STRING TABLE
05ce ; --------------------------------------------------------------------------------------
05ce 003a       | :  |		.STRTAB	0x003a->0x05eb							; "REGISTRATION"
05cf 0044       | D  |		.STRTAB	0x0044->0x05f1							; "UNREGISTRATION"
05d0 0050       | P  |		.STRTAB	0x0050->0x05f8							; "REQUEST"
05d1 0055       | U  |		.STRTAB	0x0055->0x05fb							; "FORWARD"
05d2 005a       | Z  |		.STRTAB	0x005a->0x05ff							; "FORWARD_REPLY"
05d3 0065       | e  |		.STRTAB	0x0065->0x0605							; "FORWARD_FILTRATION"
05d4 0075       | u  |		.STRTAB	0x0075->0x060e							; "PUBLICATION"
05d5 007e       | ~  |		.STRTAB	0x007e->0x0614							; "PUBLICATION_FILTER"
05d6 008e       |    |		.STRTAB	0x008e->0x061d							; "UNPUBLICATION_FILTER"
05d7 00a0       |    |		.STRTAB	0x00a0->0x0627							; "UNPUBLICATION"
05d8 00ab       |    |		.STRTAB	0x00ab->0x062d							; "SUBSCRIPTION"
05d9 00b5       |    |		.STRTAB	0x00b5->0x0633							; "UNSUBSCRIPTION"
05da 00c1       |    |		.STRTAB	0x00c1->0x063a							; "FILTRATION"
05db 00c9       |    |		.STRTAB	0x00c9->0x063f							; "UNFILTRATION"
05dc 00d3       |    |		.STRTAB	0x00d3->0x0645							; "REPLY"
05dd 00d6       |    |		.STRTAB	0x00d6->0x0648							; "REPLY_ERROR"
05de 00df       |    |		.STRTAB	0x00df->0x064d							; "REPLY_SUBSCRIPTION"
05df 00ef       |    |		.STRTAB	0x00ef->0x0656							; "REPLY_FILTRATION"
05e0 00fd       |    |		.STRTAB	0x00fd->0x065e							; "CONTENT"
05e1 0102       |    |		.STRTAB	0x0102->0x0662							; "NOTIFICATION"
05e2 010c       |    |		.STRTAB	0x010c->0x0668							; "QUERY"
05e3 010f       |    |		.STRTAB	0x010f->0x066a							; "First separator is missing"
05e4 0127       | '  |		.STRTAB	0x0127->0x0677							; "Waiting for the connection with ORB..."
05e5 014b       | K  |		.STRTAB	0x014b->0x068a							; " bytes have been transmitted. Message : "
05e6 0171       | q  |		.STRTAB	0x0171->0x069e							; "Type your machine's name: "
05e7 0189       |    |		.STRTAB	0x0189->0x06ab							; " Bad argument !"
05e8 0196       |    |		.STRTAB	0x0196->0x06b3							; "You must type one of these names: "
05e9 01b6       |    |		.STRTAB	0x01b6->0x06c4							; ", "
05ea 01b6       |    |		.STREND 0x01b6->0x06c5
05eb 5245 4749  |REGI|		.STRTAB_STRINGS
06c5 0000 0000  |    |		.XXX[0x3]
06c7 0000       |    |
06c8 ; --------------------------------------------------------------------------------------
06c8 ; Debug Table
06c8 ; --------------------------------------------------------------------------------------
06c8 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x3ce4,0x0000,0x0001,0x0011
06ce 000b 0712  |    |		.DBG4T	0x000b,0x0712,0x8000,0x8000
06d2 0042 0732  | B 2|		.DBG4T	0x0042,0x0732,0x8000,0x0000
06d6 0063 0000  | c  |		.DBG4T	0x0063,0x0000,0x0005,0x0000
06da 008b 0741  |   A|		.DBG4T	0x008b,0x0741,0x0002,0x4000
06de 00f3 074d  |   M|		.DBG4T	0x00f3,0x074d,0x0002,0x4000
06e2 0253 077c  | S ||		.DBG4T	0x0253,0x077c,0x0002,0x0000
06e6 029b 0784  |    |		.DBG4T	0x029b,0x0784,0x0002,0x8000
06ea 034b 079e  | K  |		.DBG4T	0x034b,0x079e,0x0002,0x0000
06ee 0353 07a1  | S  |		.DBG4T	0x0353,0x07a1,0x0002,0x0000
06f2 035b 07a4  | [  |		.DBG4T	0x035b,0x07a4,0x0002,0x0000
06f6 0363 07a7  | c  |		.DBG4T	0x0363,0x07a7,0x0002,0x0000
06fa 036b 07aa  | k  |		.DBG4T	0x036b,0x07aa,0x0002,0x0000
06fe 0373 07ad  | s  |		.DBG4T	0x0373,0x07ad,0x0001,0xc000
0702 045b 07e9  | [  |		.DBG4T	0x045b,0x07e9,0x0001,0xc000
0706 04db 080f  |    |		.DBG4T	0x04db,0x080f,0x2801,0x4002
070a 04fb 0819  |    |		.DBG4T	0x04fb,0x0819,0x0004,0x0000
070e 0533 0000  | 3  |		.DBG4T	0x0533,0x0000,0x0005,0x0000
0712 ; --------------------------------------------------------------------------------------
0712 ; Debug chain
0712 ; --------------------------------------------------------------------------------------
0712 000f 0000  |    |		.DBGLEN	0x000f,0x0000
0714 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x0033
0723 0001 0002  |    |		.XXX[0xf]
0725 0004 0005  |    |
0727 0006 0007  |    |
0729 0008 0009  |    |
072b 000a 000b  |    |
072d 000c 000d  |    |
072f 000e 000f  |    |
0731 0010       |    |
0732 ; --------------------------------------------------------------------------------------
0732 ; Debug chain
0732 ; --------------------------------------------------------------------------------------
0732 000d 0000  |    |		.DBGLEN	0x000d,0x0000
0734 0042 0044  | B D|		.DBGLNO	0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a
0741 ; --------------------------------------------------------------------------------------
0741 ; Debug chain
0741 ; --------------------------------------------------------------------------------------
0741 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0743 008b 00a3  |    |		.DBGLNO	0x008b,0x00a3,0x00b5,0x00c7,0x00d9
0748 0001 0003  |    |		.XXX[0x5]
074a 0004 0005  |    |
074c 0002       |    |
074d ; --------------------------------------------------------------------------------------
074d ; Debug chain
074d ; --------------------------------------------------------------------------------------
074d 0001 0016  |    |		.DBGLEN	0x0001,0x0016
074f 00f3 00f7  |    |		.DBGLNO	0x00f3,0x00f7,0x010e,0x011d,0x012c,0x0131,0x0143,0x0155,0x0164,0x0173,0x0182,0x0191,0x01a0,0x01af,0x01be,0x01cd,0x01dc,0x01eb,0x01fa,0x020c,0x021b,0x022a,0x0239
0766 0001 0016  |    |		.XXX[0x16]
0768 0003 0004  |    |
076a 0005 0006  |    |
076c 0007 0008  |    |
076e 0009 000a  |    |
0770 000b 000c  |    |
0772 000d 000e  |    |
0774 000f 0010  |    |
0776 0011 0012  |    |
0778 0013 0014  |    |
077a 0015 0002  |    |
077c ; --------------------------------------------------------------------------------------
077c ; Debug chain
077c ; --------------------------------------------------------------------------------------
077c 0001 0005  |    |		.DBGLEN	0x0001,0x0005
077e 0253 0257  | S W|		.DBGLNO	0x0253,0x0257,0x0272,0x0282,0x028c,0x0296
0784 ; --------------------------------------------------------------------------------------
0784 ; Debug chain
0784 ; --------------------------------------------------------------------------------------
0784 0005 000e  |    |		.DBGLEN	0x0005,0x000e
0786 029b 029d  |    |		.DBGLNO	0x029b,0x029d,0x029f,0x02a3,0x02b3,0x02c0,0x02c2,0x02c8,0x02cc,0x02d0,0x02da,0x02e4,0x02ee,0x02f8,0x0304,0x030e,0x0318,0x0329,0x0333
0799 0002 0003  |    |		.XXX[0x5]
079b 0004 0005  |    |
079d 0006       |    |
079e ; --------------------------------------------------------------------------------------
079e ; Debug chain
079e ; --------------------------------------------------------------------------------------
079e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07a0 034b       | K  |		.DBGLNO	0x034b
07a1 ; --------------------------------------------------------------------------------------
07a1 ; Debug chain
07a1 ; --------------------------------------------------------------------------------------
07a1 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07a3 0353       | S  |		.DBGLNO	0x0353
07a4 ; --------------------------------------------------------------------------------------
07a4 ; Debug chain
07a4 ; --------------------------------------------------------------------------------------
07a4 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07a6 035b       | [  |		.DBGLNO	0x035b
07a7 ; --------------------------------------------------------------------------------------
07a7 ; Debug chain
07a7 ; --------------------------------------------------------------------------------------
07a7 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07a9 0363       | c  |		.DBGLNO	0x0363
07aa ; --------------------------------------------------------------------------------------
07aa ; Debug chain
07aa ; --------------------------------------------------------------------------------------
07aa 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07ac 036b       | k  |		.DBGLNO	0x036b
07ad ; --------------------------------------------------------------------------------------
07ad ; Debug chain
07ad ; --------------------------------------------------------------------------------------
07ad 000a 0013  |    |		.DBGLEN	0x000a,0x0013
07af 0373 0378  | s x|		.DBGLNO	0x0373,0x0378,0x037a,0x0386,0x0389,0x038b,0x038c,0x0391,0x039d,0x03aa,0x03b6,0x03c7,0x03cc,0x03d0,0x03d4,0x03db,0x03de,0x03ee,0x03f2,0x03f4,0x03fe,0x0405,0x040f,0x041b,0x0427,0x042c,0x043c,0x0449,0x044c
07cc 0001 0002  |    |		.XXX[0x1d]
07ce 0003 0004  |    |
07d0 0006 0007  |    |
07d2 0008 0009  |    |
07d4 000a 000b  |    |
07d6 0002 0001  |    |
07d8 0003 0005  |    |
07da 0006 0007  |    |
07dc 0008 0009  |    |
07de 000a 000b  |    |
07e0 000c 000d  |    |
07e2 000e 0010  |    |
07e4 000f 0011  |    |
07e6 0012 0013  |    |
07e8 0014       |    |
07e9 ; --------------------------------------------------------------------------------------
07e9 ; Debug chain
07e9 ; --------------------------------------------------------------------------------------
07e9 0008 000a  |    |		.DBGLEN	0x0008,0x000a
07eb 045b 0460  | [ `|		.DBGLNO	0x045b,0x0460,0x0462,0x0468,0x046e,0x046f,0x0473,0x0474,0x0481,0x0483,0x048d,0x0496,0x04a6,0x04ab,0x04b2,0x04bd,0x04c7,0x04ca
07fd 0001 0002  |    |		.XXX[0x12]
07ff 0003 0004  |    |
0801 0005 0007  |    |
0803 0008 0009  |    |
0805 0001 0002  |    |
0807 0003 0005  |    |
0809 0004 0006  |    |
080b 0007 0008  |    |
080d 0009 000a  |    |
080f ; --------------------------------------------------------------------------------------
080f ; Debug chain
080f ; --------------------------------------------------------------------------------------
080f 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0811 04dd 04e5  |    |		.DBGLNO	0x04dd,0x04e5,0x04e9,0x04f1
0815 0002 0003  |    |		.XXX[0x4]
0817 0001 0004  |    |
0819 ; --------------------------------------------------------------------------------------
0819 ; Debug chain
0819 ; --------------------------------------------------------------------------------------
0819 0000 0009  |    |		.DBGLEN	0x0000,0x0009
081b 04fb 04ff  |    |		.DBGLNO	0x04fb,0x04ff,0x0504,0x050c,0x0510,0x0515,0x0518,0x051f,0x0526
0824 0000 0000  |    |		.BLANK	0000[0x1dc]